SetGadgetColor() für Buttons?

[Delle]

Hallo,

leider geht SetGadgetColor() ja nicht für Buttons

PureCOLOR will ich eigentlich nicht mehr verwenden.

Gibt's eine andere einfache Möglichkeit? API?

Danke,
Delle

[RSBasic]

Du kannst mit CanvasGadget einen eigenen Button erstellen, den du einfärben kannst.

[computerfreak]

Im Codearchiv gibt es einige gute Beispiele für Ownerdraw Buttons.

Mfg Computerfreak

[Andesdaf]

die Farbeigenschaft gibt es soweit ich weiß nativ für Buttons gar nicht,
jedenfalls kann man auch in anderen Sprachen keine normalen Buttons färben
(unter Windows).

[kernadec]

hallo
kleiner Test zum Spaß

guten Tag

Code: Alles auswählen

Procedure boutonImage(num_Img, x, y, w, h, colorFr, ColorTx, titre$, Ft$, hf,typ)
  ImgID = CreateImage(num_Img, w, h)
  Font=LoadFont(#PB_Any, ft$  , hf, typ) 
  StartDrawing(ImageOutput(num_Img))
    DrawingMode(1)
    Box(0, 0, w, h,colorFr)
    FrontColor(colorTx)
    DrawingFont(FontID(Font))
    DrawText(x,y,titre$)
  StopDrawing()
  ProcedureReturn ImgID
EndProcedure


OpenWindow(0,0,0,220,80,"Bouton Color",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

ButtonImageGadget(1, 50, 10, 110, 40,boutonImage(1,10,8,110,40,RGB(128,128,128),RGB(0,250,0),"BINGO!!","verdana",14,#PB_Font_Bold))

Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow