Button-Textfarbe ändern

[John Doe]

Hallo,
wie kann ich die Textfarbe eines Button-Gadgets ändern, ohne die Hintergrundfarbe zu ändern bzw. den emaillierten Hintergrund der Windows-Standardbuttons beibehalten zu können.
Ich benutzte bisher den Befehl aus der PureColor-Library:

Code: Alles auswählen

PureCOLOR_SetButtonColor(GadgetNumber.l, TextColor.l, BackColor.l, [TextColorPushed.l, [BackColorPushed.l]]) 

Wie muß ich den 'BackColor.l'-Parameter belegen, um den Hintergrund der Windows-Standardbuttons einzustellen ???

[roherter]

Auszug aus der Purecolor hilfe:

Code: Alles auswählen

- BackColor :
  #PureCOLOR_SystemColor => BackColor is system color
  #PureCOLOR_DontSetBackColor => BackColor is parent window color (simulates transparency)

[John Doe]

Hallo roherter,
die Konstante in der Hilfe hab ich schon gesehen und auch ausprobiert; sobald ich die Konstante als "BackColor.l"-Konstante benutze, erhält der Button die gewünschte Textfarbe und die Button-Hintergrundfarbe wird schwarz.
weiß auch nicht warum ....

[gnozal]

Hallo roherter,
die Konstante in der Hilfe hab ich schon gesehen und auch ausprobiert; sobald ich die Konstante als "BackColor.l"-Konstante benutze, erhält der Button die gewünschte Textfarbe und die Button-Hintergrundfarbe wird schwarz.
weiß auch nicht warum ....

This works for me (line 26 : #PureCOLOR_SystemColor) :

Code: Alles auswählen

OpenWindow(0, 100, 300, 400, 200, #PB_Window_SystemMenu, "PureCOLOR test") 
If CreateGadgetList(WindowID()) 
  StringGadget(1, 10, 10, 90, 20, "StringGadget 1")
  ListIconGadget(2, 10, 40, 150, 100, "", 146, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
  AddGadgetItem(2, -1, "ListIconGadget 2-1")
  AddGadgetItem(2, -1, "ListIconGadget 2-2")
  AddGadgetItem(2, -1, "ListIconGadget 2-3")
  AddGadgetItem(2, -1, "ListIconGadget 2-4")
  AddGadgetItem(2, -1, "ListIconGadget 2-5")
  TextGadget(3, 10, 160, 300, 30, "TextGadget 3", #PB_Text_Center)
  ButtonGadget(4, 200, 10, 80, 20, "Button 4")
  ComboBoxGadget(5, 295, 10, 100, 100)
  AddGadgetItem(5, -1, "ComboBox 5-1")
  AddGadgetItem(5, -1, "ComboBox 5-2")
  SetGadgetState(5, 0)
  CheckBoxGadget(6, 110, 10, 80, 20, "CheckBox 6")
  ListViewGadget(7, 160, 40, 150, 100, #PB_ListIcon_GridLines)
  AddGadgetItem(7, -1, "ListViewGadget 7-1")
  AddGadgetItem(7, -1, "ListViewGadget 7-2")
  AddGadgetItem(7, -1, "ListViewGadget 7-3")
EndIf
; Gadget colors
PureCOLOR_SetGadgetColor(1, RGB(255,0,0), -1)
PureCOLOR_SetGadgetColorEx(2, RGB(0,0,0), RGB(255, 255, 255), RGB(255, 255, 223), #PureCOLOR_LV_AlternateColors)
PureCOLOR_SetGadgetColor(3, RGB(255,0,0), #PureCOLOR_DontSetBackColor)
PureCOLOR_SetButtonColor(4, RGB(255,0,0), #PureCOLOR_SystemColor) ; <=========== SYSTEM COLOR
PureCOLOR_SetGadgetColor(5, RGB(255,0,0), RGB(255,255,0))
PureCOLOR_SetGadgetColor(6, RGB(255,127,0), #PureCOLOR_DontSetBackColor)
PureCOLOR_SetGadgetColor(7, RGB(255,0,0), RGB(100,100,0))
PureCOLOR_SetGadgetColorEx(2, RGB(255,0,0), RGB(0,255,0), 0, #PureCOLOR_LTV_SelectedItem)
PureCOLOR_SetColumnHeaderColor(2, 0, #PureCOLOR_SystemColor, RGB(249, 248, 158))
; Window color
PureCOLOR_SetWindowColor(0, RGB(249, 248, 158))
;
Repeat 
Until WaitWindowEvent() = #PB_EventCloseWindow 
;
End