I've added a few gadgets (combos & textfields) to a toolbar and they work ok. However, if I add a label it shows up as a black box. Is this a bug or can labels not be used in this way?
Example code below:
Local Window1:TGadget = CreateWindow("Window1",400,400,300,100,Null,WINDOW_TITLEBAR|WINDOW_CLIENTCOORDS )
Local Window1_Icons:TPixmap = LoadPixmap( "toolbar.png" )
Local Window1_Strip:TIconStrip = LoadIconStrip( Window1_Icons )
Local Window1_Toolbar:TGadget = CreateToolbar( "",0,0,0,0, Window1 )
SetGadgetIconStrip( Window1_Toolbar , Window1_Strip )
AddGadgetItem( Window1_Toolbar , "" , GADGETITEM_NORMAL , 0 )
AddGadgetItem( Window1_Toolbar , "" , GADGETITEM_NORMAL , 1 )
AddGadgetItem( Window1_Toolbar , "" , GADGETITEM_NORMAL , 2 )
Local TextField1:TGadget = CreateTextField(90,2,40,18,Window1_Toolbar,Null)
Local Label1:TGadget = CreateLabel("Label",140,2,40,18,Window1_Toolbar,LABEL_LEFT)
Repeat
WaitEvent()
Select EventID()
Case EVENT_WINDOWCLOSE
Select EventSource()
Case Window1
End
End Select
End Select
Forever
|