Title : Color edit proxy gadget
Author : JoshK
Posted : 1+ years ago
Description : Color gadget
Code :
SuperStrict
Import MaxGui.Drivers
Import "Spinner.bmx"
Import "VectorEdit.bmx"
Local window:TGadget
window=CreateWindow("Coloredit Example",40,40,320,240)
Local label:TGadget
Local coloredit:Tcoloredit
Local x:Int=4,y:Int=4
label=CreateLabel("Color:",x,y,60,18,window)
SetGadgetLayout label,1,0,1,0
y:+18
coloredit=CreateColorEdit(x,y,180,20,window)
SetColorEditColor(coloredit,255,220,0)
SetGadgetLayout coloredit,1,1,1,0
y:+22
label=CreateLabel("Color with alpha:",x,y,120,18,window)
SetGadgetLayout label,1,0,1,0
y:+18
coloredit=CreateColorEdit(x,y,180,20,window,COLOREDIT_ALPHA)
SetColorEditColor(coloredit,128,128,128,128)
SetGadgetLayout coloredit,1,1,1,0
y:+22
While True
WaitEvent
Print CurrentEvent.ToString()
Select EventID()
Case EVENT_WINDOWCLOSE
End
End Select
Wend
'-------------------------------------------------------------------
Const COLOREDIT_ALPHA:Int=1
Type TColorEdit Extends TProxygadget
Field panel:TGadget
Field spinner:TSpinner[4]
Field button:TGadget
Field style:Int
Field subpanel:TGadget
Field r%=255,g%=255,b%=255,a%=255
Field vectoredit:TVectorEdit
Method Cleanup()
RemoveHook(EmitEventHook,EventHook,Self)
Super.cleanup()
EndMethod
Method SetColor(r:Int,g:Int,b:Int)
Local gadget:TGadget
panel.SetColor(r,g,b)
vectoredit.SetColor(r,g,b)
'subpanel.SetColor(r,g,b)
'spinner[0].SetColor(r,g,b)
'spinner[1].SetColor(r,g,b)
'spinner[2].SetColor(r,g,b)
'If spinner[3] spinner[3].SetColor(r,g,b)
button.SetColor(Self.r,Self.g,Self.b)
EndMethod
Method SetTextColor(r:Int,g:Int,b:Int)
Local gadget:TGadget
panel.SetTextColor(r,g,b)
vectoredit.SetTextColor(r,g,b)
'subpanel.SetTextColor(r,g,b)
'spinner[0].SetTextColor(r,g,b)
'spinner[1].SetTextColor(r,g,b)
'spinner[2].SetTextColor(r,g,b)
'If spinner[3] spinner[3].SetTextColor(r,g,b)
EndMethod
Function Create:TColorEdit(x:Int,y:Int,width:Int,height:Int,group:TGadget,style:Int=0)
Local coloredit:Tcoloredit
Local sw:Int
Local k:Int
coloredit=New Tcoloredit
coloredit.style=style
coloredit.panel=CreatePanel(x,y,width,height,group)
'coloredit.subpanel=CreatePanel(0,0,coloredit.panel.ClientWidth()-coloredit.panel.ClientHeight(),coloredit.panel.ClientHeight(),coloredit.panel)
'SetGadgetLayout coloredit.subpanel,1,1,1,1
If COLOREDIT_ALPHA & style
k=4
Else
k=3
EndIf
coloredit.vectoredit=CreateVectorEdit(0,0,coloredit.panel.ClientWidth()-coloredit.panel.ClientHeight(),coloredit.panel.ClientHeight(),coloredit.panel,k)
SetVectorEditRange(coloredit.vectoredit,0,255,0)
SetVectorEditValue(coloredit.vectoredit,[255.0,255.0,255.0,255.0])
Rem
sw=coloredit.subpanel.ClientWidth()/k
For Local n:Int=0 To k-1
coloredit.spinner[n]=CreateSpinner(sw*n,0,sw,coloredit.subpanel.ClientHeight(),coloredit.subpanel)
SetSpinnerRange coloredit.spinner[n],0,255,0
Next
If COLOREDIT_ALPHA & style
SetGadgetLayout coloredit.spinner[0],1,2,1,1
SetGadgetLayout coloredit.spinner[1],2,2,1,1
SetGadgetLayout coloredit.spinner[2],2,2,1,1
SetGadgetLayout coloredit.spinner[3],2,1,1,1
Else
SetGadgetLayout coloredit.spinner[0],1,2,1,1
SetGadgetLayout coloredit.spinner[1],2,2,1,1
SetGadgetLayout coloredit.spinner[2],2,1,1,1
EndIf
EndRem
coloredit.button=CreateButton("",coloredit.panel.ClientWidth()-coloredit.panel.ClientHeight(),0,coloredit.panel.ClientHeight(),coloredit.panel.ClientHeight(),coloredit.panel)
SetGadgetLayout coloredit.button,0,1,1,1
coloredit.setproxy(coloredit.panel)
coloredit.SetColor_(255,255,255)
AddHook(EmitEventHook,EventHook,coloredit)
Return coloredit
EndFunction
Method GetColor:Int()
Local color:Int
Local ch:Byte[4]
ch[0]=r
ch[1]=g
ch[2]=b
ch[3]=a
MemCopy Varptr color,ch,4
Return color
EndMethod
Method SetColor_(r%,g%,b%,a:Int=255)
Self.r=r
Self.g=g
Self.b=b
SetGadgetColor button,r,g,b
SetVectorEditValue(vectoredit,[Float(r),Float(g),Float(b),Float(a)])
'SetSpinnerValue(spinner[0],r)
'SetSpinnerValue(spinner[1],g)
'SetSpinnerValue(spinner[2],b)
'If spinner[3] SetSpinnerValue(spinner[3],a)
EndMethod
Function EventHook:Object(id:Int,data:Object,context:Object)
Local event:TEvent
Local coloredit:Tcoloredit
event=TEvent(data)
If event
coloredit=Tcoloredit(context)
If coloredit
Select event.id
Case EVENT_GADGETACTION
Select event.source
Case coloredit.vectoredit
Local r%,g%,b%,a%=255
Local t:Float[]
t=VectorEditValue(coloredit.vectoredit)
r=t[0]
g=t[1]
b=t[2]
If (COLOREDIT_ALPHA & coloredit.style)
a=t[3]
EndIf
coloredit.SetColor_(r,g,b,a)
EmitEvent CreateEvent(EVENT_GADGETACTION,coloredit,coloredit.GetColor())
Return Null
'Case coloredit.spinner[0],coloredit.spinner[1],coloredit.spinner[2],coloredit.spinner[3]
' If event.source=coloredit.spinner[3] And coloredit.spinner[3]=Null Return data
' Local a%=0
' If coloredit.spinner[3] a=SpinnerValue(coloredit.spinner[3])
' coloredit.SetColor_(SpinnerValue(coloredit.spinner[0]),SpinnerValue(coloredit.spinner[1]),SpinnerValue(coloredit.spinner[2]),a)
' EmitEvent CreateEvent(EVENT_GADGETACTION,coloredit,coloredit.GetColor())
' Return Null
Case coloredit.button
If RequestColor(coloredit.r,coloredit.g,coloredit.b)
coloredit.SetColor_(RequestedRed(),RequestedGreen(),RequestedBlue())
EmitEvent CreateEvent(EVENT_GADGETACTION,coloredit,coloredit.GetColor())
EndIf
Return Null
EndSelect
EndSelect
EndIf
EndIf
Return data
EndFunction
EndType
Rem
bbdoc:
EndRem
Function CreateColorEdit:TColorEdit(x:Int,y:Int,width:Int,height:Int,group:TGadget,flags:Int=0)
Return TColorEdit.Create(x,y,width,height,group,flags)
EndFunction
Rem
bbdoc:
EndRem
Function ColorEditColor:Int(coloredit:TColorEdit)
Return coloredit.GetColor()
EndFunction
Rem
bbdoc:
EndRem
Function SetColorEditColor:Int(coloredit:TColorEdit,r:Int,g:Int,b:Int,a:Int=255)
Return coloredit.SetColor_(r,g,b,a)
EndFunction
Comments :
GaryV(Posted 1+ years ago)
Very nice. Thank you for sharing.
JoshK(Posted 1+ years ago)
Added optional alpha control.
JoshK(Posted 1+ years ago)
Updated to use vector editor.