Problems in Class Window, Statusbar e Browse
Posted: Thu Jul 21, 2011 6:17 pm
Friends, I am testing the HMG4, I noticed that some commands are with problems:
In Class Window:
:MinButton
:MaxButton
:Sizable
:Minimize
:Maximize
:Sizable (NoSize)
Samples 1:
Samples 2:
In Class StatusBar:
:Width
Samples:
Width 500 and Width 100
In Class Browse:
Scrollbar color...
Samples compiled in 18/02/2011:
Samples compiled in today:
In Class Window:
:MinButton
:MaxButton
:Sizable
:Minimize
:Maximize
:Sizable (NoSize)
Samples 1:
Code: Select all
FUNCTION Main
LOCAL oWindow
HbQt_ErrorSys()
WITH OBJECT oWindow := Window():New()
:Row := 10
:Col := 10
:Width := 400
:Height := 400
:Title := 'Nice OOP Demo!!!'
:Type := WND_MAIN
:OnInit := { || oWindow:Center() }
:Minimize := .F.
END WITH
oWindow:Activate()
RETURN NIL
Samples 2:
Code: Select all
FUNCTION Main
LOCAL oWindow
HbQt_ErrorSys()
WITH OBJECT oWindow := Window():New()
:Row := 10
:Col := 10
:Width := 400
:Height := 400
:Title := 'Nice OOP Demo!!!'
:Type := WND_MAIN
:OnInit := { || oWindow:Center() }
:Sizable := .F.
END WITH
oWindow:Activate()
RETURN NIL
In Class StatusBar:
:Width
Samples:
Code: Select all
FUNCTION Main
HbQt_ErrorSys()
DEFINE WINDOW Form_1 ;
AT 0,0 ;
Width 600 Height 400 ;
Title 'HMG StatusBar Demo' ;
Main ;
Font 'Arial' Size 10 ;
On Init { || Form_1.Center() }
DEFINE STATUSBAR Font "Arial" Size 12
StatusItem "Raised Clickable" Width 500 RAISED ICON 'new.ico' ACTION MsgInfo( 'Click! 1' )
StatusItem 'Flat Clickable!' Width 100 FLAT ICON 'car.ico' ACTION MsgInfo( 'Click! 2' )
END STATUSBAR
END WINDOW
ACTIVATE WINDOW Form_1
RETURN NIL
In Class Browse:
Scrollbar color...
Samples compiled in 18/02/2011:
Samples compiled in today: