ColorSelector - Gadget : für Linux und Windows (PB 4.x)
Verfasst: 22.04.2007 18:16
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:
Der (etwas kommentierte) Quelltext des include sollte selbsterklärend sein... wenn nicht.. fragen!
Anregungen etc. sind wie immer willkommen
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
Anregungen etc. sind wie immer willkommen