58 lines
1.3 KiB
Plaintext
58 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 |