ColorSelector - Gadget : für Linux und Windows (PB 4.x)

[walker]

Ein kleines Gadget zur Auswahl von vordefinierten oder einer frei definierbaren Farbe
Durch Anpassen der DataSection können die Vorgabewerte verändert werden. Der Source ist ohne Änderungen auf Windows und Linux comilierbar.... (ggf. auch auf MacOS.. aber da müsste sich jemand mit einem Mac mal äußern.. )

Sreenshot (Linux):


Source:
http://home.arcor.de/x-linux/pure/col_picker.pb

Demo:

Code: Alles auswählen

;- demo
 XIncludeFile "col_picker.pb"
Procedure select_color()
    back_color=$80667F
    a=col_picker(20,back_color)     
    If a >-2
        SetWindowColor(0,a)
    EndIf
EndProcedure
OpenWindow(0,0,0,200,200,"Color-Select",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)

If CreateGadgetList(WindowID(0))
    *button1=ButtonGadget(#PB_Any,50,50,100,25,"click me")
    registerGadgetEvent(*button1,@select_color())
   
EndIf
Repeat
  Event  = WaitWindowEvent()
  Gadget = EventGadget()
  Type   = EventType()
  Window = EventWindow()
  Select Event
    Case #PB_Event_Gadget
      CallEventFunction(Window, Event, Gadget, Type)   
    Case #PB_Event_CloseWindow
        quit=1
  EndSelect
Until quit=1
End 

Der (etwas kommentierte) Quelltext des include sollte selbsterklärend sein... wenn nicht.. fragen!

Anregungen etc. sind wie immer willkommen