67f4a4070c
- contrib/hgf
+ contrib/hbgf
* contrib/hbwhat32/Makefile
* contrib/hbwhat32/common.mak
* contrib/hbfbird/test/bld_b32.bat
* contrib/hbapollo/test/bld.bat
* contrib/hbpgsql/tests/bld_b32.bat
* contrib/hbfimage/test/bld_b32.bat
* contrib/hbgd/tests/bldtest.bat
* contrib/hbgf/os2pm/Makefile
* contrib/hbgf/tests/bld_b32.bat
* contrib/hbgf/win32/common.mak
* contrib/hbgf/gtk/Makefile
* contrib/hbrddado/common.mak
* contrib/hbrddado/Makefile
* contrib/hbbmcdx/common.mak
* contrib/hbbmcdx/Makefile
* contrib/hbgtwvg/common.mak
* contrib/hbgtwvg/Makefile
* contrib/hbrddads/common.mak
* contrib/hbrddads/Makefile
! Some fixes to previous changes.
; Here is the final summary of contrib lib renames:
----------- ------------- -------------
Old Old New
DIR LIBNAME DIR & LIBNAME
----------- ------------- -------------
adordd adordd hbrddado
apollo apollo hbapollo
bmdbfcdx bmdbfcdx hbbmcdx
btree hbbtree hbbtree
directx hbwin32ddrw hbw32ddr
firebird firebird hbfbird
freeimage hbfreeimage hbfimage
gd hbgd hbgd
gtwvg gtwvg hbgtwvg
hbzlib hbziparch hbziparch
htmllib html (DELETED)
libct ct hbct
libgt gt hbgt
libmisc hbmisc hbmisc
libnf nf hbnf
msql msql hbmsql
mysql hbmysql hbmysql
odbc hbodbc hbodbc
ole hbole hbole
pdflib hbpdflib (DELETED)
pgsql hbpg hbpgsql
rdd_ads rddads hbrddads
samples samples hbclipsm
telepath telepath hbtpathy
tip tip hbtip
what32 what32 hbwhat32
win32 hbwin32 hbw32
xhb xhb xhb
hgf hgf* hbgf*
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
|