ColorButton.inc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
'ColorButton.inc - Copyright by Julian Schmidt
'Kontakt und Support über:
'http://julian-schmidt.xprofan.com/
declare color_&[], picbutton&[], anzahl%, bitmap&
Proc CreateColorButton
Parameters hdl&,color_&,xpos1%,ypos1%,xpos2%,ypos2%
bitmap&=Create("hNewPic", xpos2%-6, ypos2%-6, color_&)
picbutton&[anzahl%+1]=Create("PicButton",hdl&,bitmap&,xpos1%,ypos1%,xpos2%,ypos2%)
color_&[anzahl%+1]=color_&
anzahl%=anzahl%+1
Return picbutton&[anzahl%]
EndProc
Proc ColorButton.SetColor
Parameters hdl&,color_&
bitmap&=Create("hNewPic", width(hdl&)-6, height(hdl&)-6, color_&)
whileloop anzahl%
case hdl&=picbutton&[&loop] : color_&[&loop]=color_&
Endwhile
Sendmessage(hdl&,$F7,0,bitmap&)
EndProc
Proc ColorButton.GetColor
Parameters hdl&
var color_&=-1
whileloop anzahl%
case hdl&=picbutton&[&loop] : color_&=color_&[&loop]
Endwhile
Return color_&
EndProc
Proc ColorButton.SetRandomCol
Parameters hdl&
ColorButton.SetColor(hdl&,RND(256*256*256))
Return ColorButton.GetColor(hdl&)
EndProc