How can i have a textbox and a menu on Taskbar (like Nero)?
cBrView := 'Default'
aBrView := { ;
'Default' , ;
'Available' , ;
'Scheduled' , ;
'Dispatched' , ;
'2nd Moves' , ;
'Query Mode' }
@ 7, 535 SAY 'View:' ;
OF oBar ;
SIZE 50, 20 ;
PIXEL ;
UPDATE
// create view selection combobox on bar
@ 3, 570 COMBOBOX oBrView VAR cBrView ;
OF oBar ;
SIZE 100,280 ;
ITEMS aBrView ;
PIXEL ;
UPDATE
oBrView:cToolTip := "Select View"
oBrView:refresh()
oBrView:bChange := { || ChangeMyView() , TRUE ) }
Gale FORd wrote:Here is partial code for a combobox but you can add get, say and other stuff. Notice the "of oBar" instead of "of oWnd"
- Code: Select all Expand view RUN
cBrView := 'Default'
aBrView := { ;
'Default' , ;
'Available' , ;
'Scheduled' , ;
'Dispatched' , ;
'2nd Moves' , ;
'Query Mode' }
@ 7, 535 SAY 'View:' ;
OF oBar ;
SIZE 50, 20 ;
PIXEL ;
UPDATE
// create view selection combobox on bar
@ 3, 570 COMBOBOX oBrView VAR cBrView ;
OF oBar ;
SIZE 100,280 ;
ITEMS aBrView ;
PIXEL ;
UPDATE
oBrView:cToolTip := "Select View"
oBrView:refresh()
oBrView:bChange := { || ChangeMyView() , TRUE ) }
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 32 guests