ein Ownerdraw mit eine XbpStatic wäre z.b. so
Code: Alles auswählen
oStatic := XbpStatic():new(oGrp,,{3,4}, {iMax-7,iMax-13 },,.F. )
oStatic:caption := "Test"
oStatic:drawMode := XBP_DRAW_OWNER
oStatic:draw := {| oPS, aInfo, oSelf| DrawGrid( oPS, aInfo, oSelf) }
oStatic:Show()
Code: Alles auswählen
oGrp := XbpStatic():new( oDraw,,, {iMax, iMax } )
oGrp:type := XBPSTATIC_TYPE_GROUPBOX
oGrp:caption := "Gruppe"
oGrp:create()
Code: Alles auswählen
oDlg := XbpDialog():new(AppDesktop(),, {0,0}, {800,600} )
oDlg:title := "Test Static Controls"
oDlg:tasklist := .T.
oDlg:create()
oDlg:DrawingArea:SetColorBG(GRA_CLR_WHITE)
* oDlg:DrawingArea:clipChildren := .T.
CenterControl(oDlg)
oDraw := oDlg:drawingArea
anbei Test Code