Er erzeugt eine Farbe zwischen Rot und Grün, abhängig von einem Prozentwert. Bei 0% habe ich ein volles rot, bei 100% ein helles grün (wenngleich auch nicht $00FF00)
Code: Alles auswählen
color = ($FF-percentage) + Int(($FF*(percentage/100.0)))<<8
Hier ein Beispielcode:
Code: Alles auswählen
Enumeration
#Trackbar
#Text
#Canvas
EndEnumeration
OpenWindow(0, 0, 0, 400, 300, "Rot -> Grün", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)
TrackBarGadget(#Trackbar, 5, 5, 300, 40, 0, 100)
TextGadget(#Text, 315, 10, 80, 20, "0%")
CanvasGadget(#Canvas, 5, 50, 390, 245)
Define percentage, color
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
Case #PB_Event_Gadget
If EventGadget()=#Trackbar
percentage = GetGadgetState(#Trackbar)
SetGadgetText(#Text, Str(percentage) +"%")
color = ($FF-percentage) + Int(($FF*(percentage/100.0)))<<8
StartDrawing(CanvasOutput(#Canvas))
Box(0, 0, 390, 245, color)
DrawText(5, 5, "$" + RSet(Hex(color), 6, "0"))
StopDrawing()
EndIf
EndSelect
ForEver