home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTDLG.PRG < prev    next >
Text File  |  1994-04-18  |  2KB  |  63 lines
  1. #include "FiveWin.ch"
  2.  
  3. static oWnd, oDlg
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    local oBar, oBrush
  10.  
  11.    DEFINE BRUSH oBrush STYLE BORLAND
  12.  
  13.    DEFINE WINDOW oWnd FROM 1, 5 TO 20, 65 TITLE "Dialog Box Design" ;
  14.       BRUSH oBrush MDI
  15.  
  16.    DEFINE BUTTONBAR oBar OF oWnd
  17.  
  18.    DEFINE BUTTON OF oBar FILE "..\bitmaps\Dlg.bmp"   ACTION BuildDlg()
  19.    DEFINE BUTTON OF oBar FILE "..\bitmaps\Exec.bmp"  ACTION DlgExec()
  20.    DEFINE BUTTON OF oBar FILE "..\bitmaps\Btn1.bmp"  GROUP ACTION AddButton()
  21.    DEFINE BUTTON OF oBar FILE "..\bitmaps\Check.bmp"
  22.    DEFINE BUTTON OF oBar FILE "..\bitmaps\Radio.bmp"
  23.    DEFINE BUTTON OF oBar FILE "..\bitmaps\Group.bmp"
  24.  
  25.    SET MESSAGE OF oWnd TO "Desining Dialog Boxes"
  26.  
  27.    ACTIVATE WINDOW oWnd MAXIMIZED
  28.  
  29. return
  30.  
  31. //----------------------------------------------------------------------------//
  32.  
  33. function BuildDlg()
  34.  
  35.    DEFINE WINDOW oDlg FROM 4, 2 TO 18, 60 TITLE "Dialog Box Design" ;
  36.       MDICHILD OF oWnd
  37.  
  38.    ACTIVATE WINDOW oDlg
  39.  
  40. return
  41.  
  42. //----------------------------------------------------------------------------//
  43.  
  44. function AddButton()
  45.  
  46.    local oBtn
  47.  
  48.    @ 2, 2 BUTTON oBtn PROMPT "&Button" SIZE 90, 25 OF oDlg
  49.  
  50.    oBtn:lDrag = .t.   // We are in design mode
  51.  
  52. return
  53.  
  54. //----------------------------------------------------------------------------//
  55.  
  56. function DlgExec()
  57.  
  58.    AEval( oDlg:aControls, { | oCtrl | oCtrl:lDrag := .f. } )
  59.  
  60. return
  61.  
  62. //----------------------------------------------------------------------------//
  63.