461ea1568f
- contrib/examples
+ examples
* doc/dirstruc.txt
* doc/whatsnew.txt
* examples/hbdoc/Makefile
* examples/pp/Makefile
* examples/hboleold/Makefile
* examples/hbsqlit2/Makefile
* examples/misc/Makefile
* examples/hbapollo/Makefile
* examples/rdddbt/Makefile
* examples/guestbk/Makefile
* examples/pe/Makefile
* examples/hbgf/hbgfwin/Makefile
* examples/hbgf/hbgfos2/Makefile
* examples/hbgf/hbgfgtk/Makefile
* examples/hbgf/Makefile
* examples/uhttpd/readme.txt
* examples/dbu/Makefile
* examples/hscript/Makefile
* examples/hbwhat/Makefile
* examples/rl/Makefile
* examples/Makefile
* Moved to flatten our dir layout and sync the locations
in unified distro and source tree.
; TODO: As a next step I'll replace Makefiles with .hbm
files. This will allow users to build these parts
outside the source distribution.
59 lines
1.3 KiB
Plaintext
59 lines
1.3 KiB
Plaintext
//
|
|
// $Id$
|
|
//
|
|
// Testing Harbour GUI framework controls
|
|
|
|
#include "hbclass.ch"
|
|
|
|
function Main()
|
|
|
|
local oForm := HBFormControls():New()
|
|
local oEdit, oBtn
|
|
|
|
oForm:Caption := "Harbour GUI Framework controls"
|
|
oForm:Top := 175
|
|
oForm:Left := 197
|
|
oForm:Width := 382
|
|
oForm:Height := 249
|
|
|
|
oEdit := HBEdit():New( oForm )
|
|
oEdit:Top := 30
|
|
oEdit:Left := 100
|
|
oEdit:Width := 200
|
|
oEdit:Caption := "Edit control"
|
|
oForm:InsertControl( oEdit )
|
|
|
|
oBtn := HBButton():New( oForm )
|
|
oBtn:Caption := "&View as text"
|
|
oBtn:Top := 150
|
|
oBtn:Left := 10
|
|
oBtn:Width := 100
|
|
oBtn:OnClick := "BtnViewAsTextClick"
|
|
oForm:InsertControl( oBtn )
|
|
|
|
oBtn := HBButton():New( oForm )
|
|
oBtn:Caption := "&Ok"
|
|
oBtn:Top := 150
|
|
oBtn:Left := 180
|
|
oBtn:OnClick := "BtnOkClick"
|
|
oForm:InsertControl( oBtn )
|
|
|
|
oBtn := HBButton():New( oForm )
|
|
oBtn:Caption := "&Cancel"
|
|
oBtn:Top := 150
|
|
oBtn:Left := 280
|
|
oBtn:OnClick := "BtnCancelClick"
|
|
oForm:InsertControl( oBtn )
|
|
|
|
oForm:ShowModal()
|
|
|
|
return nil
|
|
|
|
CLASS HBFormControls FROM HBForm
|
|
|
|
METHOD BtnViewAsTextClick( oSender ) INLINE MsgInfo( ::SaveToText() )
|
|
METHOD BtnOkClick( oSender ) INLINE MsgInfo( "Ok was pressed" )
|
|
METHOD BtnCancelClick( oSender ) INLINE MsgInfo( "Cancel was pressed" )
|
|
|
|
ENDCLASS
|