2e28a8c3e2
* contrib/hbwin/wapi_commctrl.c
* contrib/hbwin/wapi_winuser.c
! Lots of non-ANSI C comments converted to ANSI.
(may I please ask to pay attention to this?)
! Fixed WAPI_GETSCROLLRANGE() return value.
! non-WinCE compatible functions converted to stubs
when compiled for WinCE.
* Formatting.
* contrib/Makefile
- contrib/hbgf
+ contrib/examples/hbgf
* contrib/examples/hbgf/hbgfwin/Makefile
* contrib/examples/hbgf/hbgfos2/Makefile
* contrib/examples/hbgf/hbgfgtk/Makefile
* contrib/examples/hbgf/Makefile
* hbgf moved from contrib to examples.
* contrib/examples/Makefile
* Updated.
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
|