Announcement

Collapse
No announcement yet.

DDT, OK , and LISTBOX

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • DDT, OK , and LISTBOX

    I want a graph to appear in the listbox AFTER I click OK to
    process some data. This code uses READ/DATA. How can I make
    this graph show only AFTER I click OK?

    Code:
    '=============================================
    #COMPILE EXE
    #REGISTER NONE
    #DIM ALL
    #INCLUDE "win32api.inc"
    '=============================================
    %AbsMinPts = 1
    %AbsMaxPts = 200
    %MaxCols = 2
    %GraphThick = 1
    %XMargin = 100
    %YMargin = 100
    %Radius = 2
    %BorderThick = 1
    %GMargin = 5
    
    GLOBAL gX#(),gY#()
    GLOBAL gMinPts AS INTEGER  ' Array minimum index
    GLOBAL gMaxPts AS INTEGER  ' Array maximum index
    GLOBAL gXMin#,gYMin#,gXMax#,gYMax#   'Min and Max of the arrays
    GLOBAL hDlg&
    GLOBAL hBox&
    
    DECLARE SUB graph
    DECLARE SUB plot
    '=============================================
    SUB graph
     LOCAL i AS INTEGER,xTemp$,yTemp$
      gMinPts = %AbsMinPts : gMaxPts = %AbsMaxPts
          DIM gX(gMinPts : gMaxPts)
          DIM gY(gMinPts : gMaxPts)
      gMaxPts = gMinPts
      i = gMinPts
      WHILE  i <=  DATACOUNT
          xTemp = READ$(i)
          yTemp = READ$(i+1)
            gX(gMaxPts) = VAL(TRIM$(xTemp))
            gY(gMaxPts) = VAL(TRIM$(yTemp))
        IF gMaxPts = gMinPts THEN
           gXMin = gX(gMaxPts) : gXMax = gX(gMaxPts) 'Set the data Min and Max
           gYMin = gY(gMaxPts) : gYMax = gY(gMaxPts)
        ELSE
           SELECT CASE gY(gMaxPts)
              CASE < gYMin
                   gYMin = gY(gMaxPts)
              CASE > gYMax
                   gYMax = gY(gMaxPts)
           END SELECT
        END IF
        i = i + %MaxCols
        INCR gMaxPts
      WEND
      DECR gMaxPts
      REDIM PRESERVE gX(gMinPts : gMaxPts)
      REDIM PRESERVE gY(gMinPts : gMaxPts)
      ARRAY SORT gX(),TAGARRAY gY()
       gXMin = gX(gMinPts)
       gXMax = gX(gMaxPts)
     DATA   0,   134.67
     DATA   1,   101.45
     DATA   2,    98.45
     DATA   3,   154.70
     DATA   4,   189.87
     DATA   5,    94.56
     DATA   6,    89.23
     DATA   7,    78.12
     DATA   8,    99.99
    END SUB
    '--------------------------------------------
    SUB plot
      LOCAL LpPaint AS PaintStruct
      LOCAL hDC&,hBrush&,hPen&,WinX&,WinY&,i&,Colr&,j&
      LOCAL r       AS RECT  ' For Window dimensions
      LOCAL X0&,Y0&,X1&,Y1&  ' Temporary origin to draw FROM
      LOCAL XMarg&,YMarg&,GMarg&,XWide&,YWide&
      LOCAL XUnit#,YUnit#
    
      hBox& = GetDlgItem(hDlg,103)
      GetClientRect hBox&, r
      
         WinX = r.nRight - r.nLeft 'Get windows dimensions
         WinY = r.nBottom - r.nTop
         
      hDC = BeginPaint(hBox&, LpPaint)
    '----------
    'Initializations
         XMarg = WinX/%XMargin  'Margins are 10% of the Window
         YMarg = WinY/%YMargin
         GMarg = WinY*(%GMargin/100)
    
         XWide = WinX - 2*XMarg
         YWide = WinY - 2*YMarg
    
         XUnit  = (gXMax-gXMin) / CSNG(XWide-(2*GMarg))
         YUnit  = (gYMax-gYMin) / CSNG(YWide-(2*GMarg))
    '----------
    'For the border
         hPen = CreatePen(%PS_SOLID, %BorderThick, %Black)
         SelectObject hDC, hPen
            MoveToEx hDC, XMarg,       YMarg,       BYVAL %NULL
            LineTo   hDC, XMarg+XWide, YMarg
            MoveToEx hDC, XMarg+XWide, YMarg,       BYVAL %NULL
            LineTo   hDC, XMarg+XWide, YMarg+YWide
            MoveToEx hDC, XMarg+XWide, YMarg+YWide, BYVAL %NULL
            LineTo   hDC, XMarg,       YMarg+YWide
            MoveToEx hDC, XMarg,       YMarg+YWide, BYVAL %NULL
            LineTo   hDC, XMarg,       YMarg
    '----------
    'For the graph
         Colr = %Red
         hPen = CreatePen(%PS_SOLID, %GraphThick, Colr)
         SelectObject hDC, hPen
    
         XMarg = XMarg+GMarg  'i.e. the inside margins between the border
         YMarg = YMarg-GMarg  ' and the actual graph
    
         X0 = XMarg + CLNG ( (gX(gMinPts)-gXMin) / XUnit )    'First point
         Y0 = Ymarg + (YWide - CLNG ( (gY(gMinPts)-gYMin) / YUnit ) )
         Ellipse hDC, X0-%Radius, Y0-%Radius, X0+%Radius, Y0+%Radius
    
         FOR  j = gMinPts TO gMaxPts   'And the points thereafter
            X1 = XMarg +          CLNG ( (gX(j)-gXMin) / XUnit )     'Point TO which to draw
            Y1 = YMarg + (YWide - CLNG ( (gY(j)-gYMin) / YUnit ) )   ' becomes next origin
    
            MoveToEx hDC, X0, Y0, BYVAL %NULL  'Move to start
            LineTo hDC, X1, Y1                 ' and draw line from it to next
            Ellipse hDC, X1-%Radius, Y1-%Radius, X1+%Radius, Y1+%Radius
    
            X0   = X1  'Point FROM which to draw
            Y0   = Y1  'Origin point
         NEXT j
    '----------
    'Clean up
      EndPaint hDC, LpPaint
      DeleteObject hPen
    END SUB
    '--------------------------------------------
    CALLBACK FUNCTION DlgProc
          SELECT CASE CBMSG
             CASE %WM_COMMAND
                SELECT CASE CBCTL
                   CASE %IDOK
                      ' Do some FUNCTUONS and SUBS here
                      ' to get actual data. Not READ/DATA.
                      '<========== Want to display graph
                      '            at this point. With click
                      '            of OK.
                   CASE %IDCANCEL: DIALOG END CBHNDL, 0
                END SELECT
             CASE %WM_PAINT
                 graph
                 Plot
          END SELECT
    END FUNCTION
    '--------------------------------------------
    FUNCTION PBMAIN() AS LONG
        DIM Result AS LONG
    ' ** Create a new dialog template
          DIALOG NEW %HWND_DESKTOP,"" , 0, 0, 500, 360,%WS_CAPTION _
             OR %WS_SYSMENU OR %WS_MAXIMIZE OR %DS_CENTER, 0 TO hDlg
    ' ** Add controls to it
          CONTROL ADD BUTTON, hDlg, %IDOK, "OK", 630, 255, 40, 14, %BS_DEFAULT
          CONTROL ADD BUTTON, hDlg, %IDCANCEL, "Cancel", 630, 280, 40, 14, 0
          CONTROL ADD LISTBOX,hDlg,103, ,20,12,440,310, _  'graph here
               %WS_HSCROLL OR %WS_VSCROLL OR %LBS_NOINTEGRALHEIGHT,%WS_EX_CLIENTEDGE
    ' ** Display the dialog      
          DIALOG SHOW MODAL hDlg  CALL DlgProc TO Result
    END FUNCTION
    Steve Geisler
    [email protected]





    ------------------

  • #2
    This does the trick. Thanks Ian


    Code:
    CALLBACK FUNCTION DlgProc
      STATIC flagOKtoPaint AS BYTE           <=========FLAG
          SELECT CASE CBMSG
             CASE %WM_CREATE
                flagOKtoPaint = %False
             CASE %WM_COMMAND
                SELECT CASE CBCTL
                   CASE %IDOK
                      flagOKtoPaint = %True            <=========FLAG
                      InvalidateRect hBox&,BYVAL %Null,%TRUE
                      UpdateWindow hBox&
                   CASE %IDCANCEL: DIALOG END CBHNDL, 0
                END SELECT
             CASE %WM_PAINT
                 IF flagOKtoPaint = %False THEN          <=========FLAG
                 ELSE
                 graph
                 hBox& = GetDlgItem(hDlg,103)
                 GetClientRect hBox&, r
    
                 WinX = r.nRight - r.nLeft 'Get windows dimensions
                 WinY = r.nBottom - r.nTop                                   
       
                 etc..............................

    ------------------

    Comment


    • #3
      I am not sure why you are painting on a ListBox ????

      Here is a different implimentation...

      Code:
      '-----------------------------------------------------------------
      ' Graph It
      '
      '
      '-----------------------------------------------------------------
       
      $COMPILE EXE
      $INCLUDE "WIN32API.INC"
       
      GLOBAL ghPanel    AS LONG
      GLOBAL ghInst     AS LONG
      GLOBAL gfPlotIt   AS LONG
      GLOBAL OldPanelProc AS LONG
       
      %ID_PLOT = 110
      %ID_CLEAR = 120
       
      %AbsMinPts = 1
      %AbsMaxPts = 200
      %MaxCols = 2
      %GraphThick = 1
      %XMargin = 100
      %YMargin = 100
      %Radius = 2
      %BorderThick = 1
      %GMargin = 5
       
      GLOBAL gX#(),gY#()
      GLOBAL gMinPts AS INTEGER  ' Array minimum index
      GLOBAL gMaxPts AS INTEGER  ' Array maximum index
      GLOBAL gXMin#,gYMin#,gXMax#,gYMax#   'Min and Max of the arrays
       
      DECLARE SUB graph()
      DECLARE SUB plot()
               
         
      '--------------------------------------------------------------
      ' WinMain:
      '
      '
      '--------------------------------------------------------------
      FUNCTION WINMAIN (BYVAL hInstance     AS LONG, _
                        BYVAL hPrevInstance AS LONG, _
                        lpCmdLine           AS ASCIIZ PTR, _
                        BYVAL iCmdShow      AS LONG) AS LONG
      
       
      
        LOCAL Msg         AS tagMsg
        LOCAL wndclass    AS WndClassEx
        LOCAL szAppName   AS ASCIIZ * 80
        LOCAL hWnd        AS LONG
        LOCAL gBrush      AS LONG
       
        ghInst                 = hInstance
        gBrush                 = GetStockObject(%WHITE_BRUSH)
        szAppName              = "Rotary"
       
        wndclass.cbSize        = SIZEOF(WndClass)
        wndclass.style         = %CS_HREDRAW OR %CS_VREDRAW
        wndclass.lpfnWndProc   = CODEPTR( WndProc )
        wndclass.cbClsExtra    = 0
        wndclass.cbWndExtra    = 0
        wndclass.hInstance     = hInstance
        wndclass.hIcon         = 0 'LoadIcon( hInstance, "HELLOWIN" )
        wndclass.hCursor       = LoadCursor( %NULL, BYVAL %IDC_ARROW )
        wndclass.hbrBackground = gBrush
        wndclass.lpszMenuName  = %NULL
        wndclass.lpszClassName = VARPTR( szAppName )
        wndclass.hIconSm       = LoadIcon( hInstance, BYVAL %IDI_APPLICATION )
       
        RegisterClassEx wndclass
       
        ' Create a window using the registered class
        hWnd = CreateWindow(szAppName, _              ' window class name
                            "Graph Plot", _           ' window caption
                            %WS_OVERLAPPEDWINDOW, _   ' window style
                            126, _                    ' initial x position
                            72, _                     ' initial y position
                            600, _                    ' initial x size
                            550, _                    ' initial y size
                            %NULL, _                  ' parent window handle
                            %NULL, _                  ' window menu handle
                            hInstance, _              ' program instance handle
                            BYVAL %NULL)              ' creation parameters
       
        '*Display the window on the screen
        ShowWindow hWnd, %SW_SHOW
        UpdateWindow hWnd
       
        WHILE GetMessage(Msg, %NULL, 0, 0)
          TranslateMessage Msg
          DispatchMessage Msg
        WEND
       
        FUNCTION = msg.wParam
       
      END FUNCTION  ' WinMain
       
      
      '----------------------------------------------------------------------
      ' Main Window Procedure:
      '
      '
      '----------------------------------------------------------------------
      FUNCTION WndProc (BYVAL hWnd AS LONG, BYVAL wMsg AS LONG, _
                        BYVAL wParam AS LONG, BYVAL lParam AS LONG) EXPORT AS LONG
       
        LOCAL hDC         AS LONG
        LOCAL hPen        AS LONG
        LOCAL hBrush      AS LONG
        LOCAL ps          AS PaintStruct
        LOCAL rc          AS RECT
        LOCAL pt          AS POINTAPI
        LOCAL hBitmap     AS BITMAP
          
        LOCAL rcPanel       AS RECT
        
            
      
        SELECT CASE wMsg
       
      '---
          CASE %WM_CREATE
           
                  'Image ->%SS_BITMAP, %SS_ICON, %SS_ENHMETAFILE, %SS_REALSIZEIMAGE
                  'Panel ->%SS_BLACKRECT,%SS_GRAYRECT,%SS_WHITERECT
                   
                  Call GetClientRect(hWnd,rcPanel)
                  Call InflateRect(rcPanel,-50,-50)
                  ghPanel = CreateWindowEx(0,"STATIC", "", %WS_CHILD _
                                          OR %WS_CLIPSIBLINGS OR %SS_NOTIFY _
                                          OR %SS_BITMAP OR %WS_VISIBLE OR %WS_BORDER, _
                                          rcPanel.nLeft, _
                                          rcPanel.nTop, _
                                          rcPanel.nRight  - rcPanel.nLeft, _
                                          rcPanel.nBottom - rcPanel.nTop, _
                                          hWnd, %NULL, ghInst, BYVAL %NULL)
                                          
       
                  'Subclass the control
                  OldPanelProc = GetWindowLong(ghPanel, %GWL_WNDPROC)
                  Call SetWindowLong(ghPanel, %GWL_WNDPROC, CODEPTR(PanelWndProc))
                                             
                                           
                  'Create the Plot button
                  ghPlotBtn& =  CreateWindowEx(0,"BUTTON", "&Plot", _
                                         %WS_CHILD OR %WS_VISIBLE OR %WS_CLIPSIBLINGS _
                                         OR %BS_PUSHBUTTON, _
                                         50, _
                                         10, _
                                         100, _
                                         30, _
                                         hWnd, %ID_PLOT, ghInst, ByVal %NULL)
                   
                  'Create the Clear button
                  ghClrBtn& =  CreateWindowEx(0,"BUTTON", "&Clear", _
                                         %WS_CHILD OR %WS_VISIBLE OR %WS_CLIPSIBLINGS _
                                         OR %BS_PUSHBUTTON, _
                                         160, _
                                         10, _
                                         100, _
                                         30, _
                                         hWnd, %ID_CLEAR, ghInst, ByVal %NULL)
                                            
                      
                
      '---
          CASE %WM_COMMAND
              SELECT CASE LOWRD(wParam)
                  '---
                   CASE %ID_PLOT  'Button
                      IF HIWRD(wParam) = %BN_CLICKED THEN
                          gfPlotIt = 1
                          Call InvalidateRect(ghPanel,Byval %NULL,%TRUE)
                          Call UpdateWindow(ghPanel)
                          Function =0
                      END IF
       
                   '---
                   CASE %ID_CLEAR  'Button
                      IF HIWRD(wParam) = %BN_CLICKED THEN
                          gfPlotIt = 0
                          Call InvalidateRect(ghPanel,Byval %NULL,%TRUE)
                          Call UpdateWindow(ghPanel)
                          Function =0
                      END IF
              END SELECT
                     
      '---
          CASE %WM_DESTROY
                
            IF OldPanelProc  THEN Call SetWindowLong(ghPanel, %GWL_WNDPROC, OldPanelProc)
               
            PostQuitMessage 0
            FUNCTION = 0
            EXIT FUNCTION
       
        END SELECT
       
        FUNCTION = DefWindowProc(hWnd, wMsg, wParam, lParam)
       
      END FUNCTION
      
                                                          
      '------------------------------------------------------------------------
      '
      '
      '
      '------------------------------------------------------------------------
      FUNCTION PanelWndProc(BYVAL hWnd AS LONG, BYVAL wMsg AS LONG, _
                            BYVAL wParam AS LONG, BYVAL lParam AS LONG) AS LONG
       
        IF wMsg = %WM_PAINT THEN
            
             If gfPlotIt = 1 Then
                  Call graph()
                  Call Plot()
             Else
                  Call ClearWindow(hWnd)
             End If
               
        END IF
       
        FUNCTION = CallWindowProc(OldPanelProc, hWnd, wMsg, wParam, lParam)
       
      END FUNCTION
       
      '----------------------------------------------------------------------
      '
      '
      '
      '----------------------------------------------------------------------
      SUB ClearWindow(BYVAL hWnd AS LONG)
       
        LOCAL hDc AS LONG
        LOCAL rc  AS RECT
       
        hDc = GetDC(hWnd)
        Call GetClientRect(hWnd, rc)
        Call FillRect(hDc, rc, GetStockObject(%WHITE_BRUSH))
        Call ReleaseDC(hWnd, hDc)
       
      END SUB
       
      '------------------------------------------------------------------------
      '
      '
      '
      '------------------------------------------------------------------------
      SUB graph
       
       LOCAL i AS INTEGER,xTemp$,yTemp$
       
        gMinPts = %AbsMinPts : gMaxPts = %AbsMaxPts
         
        DIM gX(gMinPts : gMaxPts)
        DIM gY(gMinPts : gMaxPts)
         
        gMaxPts = gMinPts
       
        i = gMinPts
         
        WHILE  i <=  DATACOUNT
            xTemp = READ$(i)
            yTemp = READ$(i+1)
              gX(gMaxPts) = VAL(TRIM$(xTemp))
              gY(gMaxPts) = VAL(TRIM$(yTemp))
          IF gMaxPts = gMinPts THEN
             gXMin = gX(gMaxPts) : gXMax = gX(gMaxPts) 'Set the data Min and Max
             gYMin = gY(gMaxPts) : gYMax = gY(gMaxPts)
          ELSE
             SELECT CASE gY(gMaxPts)
                CASE < gYMin
                     gYMin = gY(gMaxPts)
                CASE > gYMax
                     gYMax = gY(gMaxPts)
             END SELECT
          END IF
          i = i + %MaxCols
          INCR gMaxPts
        WEND
        DECR gMaxPts
        REDIM PRESERVE gX(gMinPts : gMaxPts)
        REDIM PRESERVE gY(gMinPts : gMaxPts)
        ARRAY SORT gX(),TAGARRAY gY()
         gXMin = gX(gMinPts)
         gXMax = gX(gMaxPts)
       DATA   0,   134.67
       DATA   1,   101.45
       DATA   2,    98.45
       DATA   3,   154.70
       DATA   4,   189.87
       DATA   5,    94.56
       DATA   6,    89.23
       DATA   7,    78.12
       DATA   8,    99.99
        
      END SUB
      
       
      '--------------------------------------------------------------------------
      '
      '
      '
      '--------------------------------------------------------------------------
      SUB plot
       
        LOCAL LpPaint AS PaintStruct
        LOCAL hDC&,hBrush&,hPen&,WinX&,WinY&,i&,Colr&,j&
        LOCAL r       AS RECT  ' For Window dimensions
        LOCAL X0&,Y0&,X1&,Y1&  ' Temporary origin to draw FROM
        LOCAL XMarg&,YMarg&,GMarg&,XWide&,YWide&
        LOCAL XUnit#,YUnit#
      
       
        GetClientRect ghPanel, r
       
           WinX = r.nRight - r.nLeft 'Get windows dimensions
           WinY = r.nBottom - r.nTop
       
        hDC = BeginPaint(ghPanel, LpPaint)
       
      '----------
      'Initializations
           XMarg = WinX/%XMargin  'Margins are 10% of the Window
           YMarg = WinY/%YMargin
           GMarg = WinY*(%GMargin/100)
       
           XWide = WinX - 2*XMarg
           YWide = WinY - 2*YMarg
       
           XUnit  = (gXMax-gXMin) / CSNG(XWide-(2*GMarg))
           YUnit  = (gYMax-gYMin) / CSNG(YWide-(2*GMarg))
       
      #if 0
      '----------
      'For the border
           hPen = CreatePen(%PS_SOLID, %BorderThick, %Black)
           SelectObject hDC, hPen
              MoveToEx hDC, XMarg,       YMarg,       BYVAL %NULL
              LineTo   hDC, XMarg+XWide, YMarg
              MoveToEx hDC, XMarg+XWide, YMarg,       BYVAL %NULL
              LineTo   hDC, XMarg+XWide, YMarg+YWide
              MoveToEx hDC, XMarg+XWide, YMarg+YWide, BYVAL %NULL
              LineTo   hDC, XMarg,       YMarg+YWide
              MoveToEx hDC, XMarg,       YMarg+YWide, BYVAL %NULL
              LineTo   hDC, XMarg,       YMarg
      #endif
       
      '----------
      'For the graph
           Colr = %Red
           hPen = CreatePen(%PS_SOLID, %GraphThick, Colr)
           SelectObject hDC, hPen
       
           XMarg = XMarg+GMarg  'i.e. the inside margins between the border
           YMarg = YMarg-GMarg  ' and the actual graph
       
           X0 = XMarg + CLNG ( (gX(gMinPts)-gXMin) / XUnit )    'First point
           Y0 = Ymarg + (YWide - CLNG ( (gY(gMinPts)-gYMin) / YUnit ) )
           Ellipse hDC, X0-%Radius, Y0-%Radius, X0+%Radius, Y0+%Radius
       
           FOR  j = gMinPts TO gMaxPts   'And the points thereafter
              X1 = XMarg +          CLNG ( (gX(j)-gXMin) / XUnit )     'Point TO which to draw
              Y1 = YMarg + (YWide - CLNG ( (gY(j)-gYMin) / YUnit ) )   ' becomes next origin
       
              MoveToEx hDC, X0, Y0, BYVAL %NULL  'Move to start
              LineTo hDC, X1, Y1                 ' and draw line from it to next
              Ellipse hDC, X1-%Radius, Y1-%Radius, X1+%Radius, Y1+%Radius
       
              X0   = X1  'Point FROM which to draw
              Y0   = Y1  'Origin point
           NEXT j
       
      '----------
      'Clean up
        EndPaint hDC, LpPaint
        DeleteObject hPen
      END SUB
      Regards, Jules
      Best regards
      Jules
      www.rpmarchildon.com

      Comment

      Working...
      X