 |
Cheat Engine
The Official Site of Cheat Engine
|
| View previous topic :: View next topic |
| Author |
Message |
Corroder
Grandmaster Cheater Supreme
 Reputation: 75
Joined: 10 Apr 2015
Posts: 1668
|
 Posted: Sun Mar 17, 2019 7:22 am Post subject: RGB variable from CE Color Dialog |
 |
|
Hi, DB and all ...
When accessing CE 'ColorDialog1' it will pop-up CE Color Form.
My questions :
1. How to get RGB value from a selected color on CE Color Form as variables? Say Rvalue = num, Gvalue = num and Bval = num. Or should I make a function to convert 'MS-ACCESS' color code value to RGB value?
2. How to apply 'onChange' event to 'My Form Color' according to selection color on CE Color Form 'ColorDialog1' before clicking OK button on CE Color Form.
'OK Button' on CE Color Form use just when a color fox to selected.
Regards
_________________
Stealing Code From Stolen Code...
And Admit It.. Hmmm....Typically LOL |
|
| Back to top |
|
 |
ParkourPenguin
I post too much
 Reputation: 150
Joined: 06 Jul 2014
Posts: 4652
|
| Posted: Sun Mar 17, 2019 8:41 am Post subject: |
|
|
1: The TColorDialog class has a published TColor property identified as "Color" that should be accessible from Lua. It seems like it's just an integer, so get it by doing something like this:
| Code: | local c = colordialog.Color
local r,g,b = c & 0xff, c >> 8 & 0xff, c >> 16 & 0xff |
2: I don't know what you're asking, but there isn't any "onColorChange" event for the TColorDialog class. Timers might work.
_________________
I don't know where I'm going, but I'll figure it out when I get there. |
|
| Back to top |
|
|
Corroder
Grandmaster Cheater Supreme
Reputation: 75
Joined: 10 Apr 2015
Posts: 1668
|
| Posted: Sun Mar 17, 2019 2:03 pm Post subject: |
 |
|
@ParkourPenguin : Thanks a lot. I just bored and just playing with lua script.
CE COLOR PICKER
| Code: | --------------------------------------------------- GUI
f = createForm()
f.Width = 200
f.Height = 400
f.Position = 'poScreenCenter'
--f.Color = '16711680'
f.BorderStyle = 'bsToolWindow'
f.Caption = 'CRDR'
b = createButton(f)
b.Top = 10
b.Left = 10
b.Width = 180
b.Height = 30
b.Caption = 'Color Picker'
p = createPanel(f)
p.Top = b.Top + b.Height + 10
p.Left = 10
p.Width = 180
p.Height = 200
l1 = createLabel(f)
l1.Top = p.Top + p.Height + 10
l1.Left = 10
l1.Width = 180
l1.Height = 30
l1.Caption = 'MS-ACCESS COLOR CODE'
e1 = createEdit(f)
e1.Top = l1.Top + l1.Height + 10
e1.Left = 10
e1.Width = 180
e1.Height = 30
e1.Text = ''
l2 = createLabel(f)
l2.Top = e1.Top + e1.Height + 10
l2.Left = 10
l2.Width = 180
l2.Height = 30
l2.Caption = 'HEX CODE'
e2 = createEdit(f)
e2.Top = l2.Top + l2.Height + 10
e2.Left = 10
e2.Width = 180
e2.Height = 30
e2.Text = ''
l3 = createLabel(f)
l3.Top = e2.Top + e2.Height + 10
l3.Left = 10
l3.Width = 180
l3.Height = 30
l3.Caption = ''
--------------------------------------------------- FUNCTIONS
function RGBToHex(red, green, blue)
if(red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) then
return nil
end
return string.format("0x%.2X%.2X%.2X", red,green,blue)
end
function colorpick()
a = getMainForm()
a.visible = false
local colorPicker = getMainForm().findComponentByName("ColorDialog1")
colorPicker.Execute()
if colorPicker.Execute then
p.Color = colorPicker.Color
c = colorPicker.Color
local r,g,b = c & 0xff, c >> 8 & 0xff, c >> 16 & 0xff
rgbstr = tostring(r)..','..tostring(g)..','..tostring(b)
rgbhex = tostring(RGBToHex(r,g,b))
end
e1.Text = tostring(p.Color) --- print(f.color) -- ms.Access Color
e2.Text = rgbhex
l3.Caption = 'RGB Value : '..rgbstr
end
--local colPick = getMainForm().findComponentByName("ColorDialog1")
--function test()
-- local color = getPixel(getMousePos())
--- print(color)
-- p.Color = color
--end
function exit()
a = getMainForm()
a.visible = true
-- closeCE()
-- return caFree
end
--------------------------------------------------- EVENTS
f.show()
f.onClose = exit
b.onClick = colorpick
--colPick.onMouseDown = test |
Another version with mouse event :
| Code: | function test()
local color = getPixel(getMousePos())
--- print(color)
UDF1.CEPanel1.Color = color
end
UDF1.CEImage1.onMouseDown = test
UDF1.Show() |
Just add some mouse events, Down, Up, Move, but too lazy to do that.... hhhhhh 
| Description: |
| Poor And Lazy Color Picker (just a shi*t) |
|
| Filesize: |
41.63 KB |
| Viewed: |
10333 Time(s) |
|
_________________
Stealing Code From Stolen Code...
And Admit It.. Hmmm....Typically LOL |
|
| Back to top |
|
|
daspamer
Grandmaster Cheater Supreme
 Reputation: 54
Joined: 13 Sep 2011
Posts: 1588
|
| Posted: Sun Mar 17, 2019 7:13 pm Post subject: |
|
|
Execellent idea Corroder, we could create a pallete object just from an pallete Image (that can be found for free online) and getting pixel from mouse position and basucally get rid of the dialog.
well done mate!
_________________
I'm rusty and getting older, help me re-learn lua. |
|
| Back to top |
|
|
AylinCE
Grandmaster Cheater Supreme
 Reputation: 35
Joined: 16 Feb 2017
Posts: 1478
|
| Posted: Sun Mar 17, 2019 8:19 pm Post subject: |
|
|
Thanks @Corroder..
and Thanks @Lynxz Gaming..
| Code: | function RGBToHex(red, green, blue)
if(red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) then
return nil
end
return string.format("0x%.2X%.2X%.2X", red,green,blue)
end
function test()
local color = getPixel(getMousePos())
UDF1.CEPanel1.Color = color
if UDF1.CEPanel1.Color==color then
c = UDF1.CEPanel1.Color
local r,g,b = c & 0xff, c >> 8 & 0xff, c >> 16 & 0xff
rgbstr = tostring(r)..','..tostring(g)..','..tostring(b)
rgbhex = tostring(RGBToHex(r,g,b))
local color = getPixel(getMousePos())
end
end
function text()
UDF1.CEPanel2.Color = (c)
UDF1.CEEdit1.Text = (c)
UDF1.CEEdit2.Text = rgbhex
end
UDF1.CEImage1.onMouseDown = text
UDF1.CEImage1.onMouseMove = test
UDF1.Show()
|
_________________
|
|
| Back to top |
|
|
Corroder
Grandmaster Cheater Supreme
Reputation: 75
Joined: 10 Apr 2015
Posts: 1668
|
| Posted: Sun Mar 17, 2019 9:30 pm Post subject: |
|
|
| DaSpamer wrote: | Execellent idea Corroder, we could create a pallete object just from an pallete Image (that can be found for free online) and getting pixel from mouse position and basucally get rid of the dialog.
well done mate! |
Sure, DaSpamer. Thank you. Also trying improving about hue, saturation, and lumination for color. But not finish.
@Aylin : good job also...
_________________
Stealing Code From Stolen Code...
And Admit It.. Hmmm....Typically LOL |
|
| Back to top |
|
|
avangers
Newbie cheater
![]() Reputation: 0
Joined: 20 Sep 2017
Posts: 18
|
| Posted: Sun Mar 24, 2019 10:39 am Post subject: color picker / checker version 1 by avangers |
|
|
what u need :
panel
3 labels
edit box ( ceedit )
combobox
3 buttons
| Code: | UDF1.show()
items = combobox_getItems(UDF1.cbbox)
strings_add(items, "Pick an item")
UDF1.cbbox.ItemIndex = 0 -- select this first option
tbl_array = {
{IndexNo="5243047",IdName="Accuprobe"},
{IndexNo="16775408",IdName="Alice Blue"},
{IndexNo="14150650",IdName="Antique White"},
{IndexNo="14413823",IdName="Antique White 1"},
{IndexNo="13426670",IdName="Antique White 2"},
{IndexNo="11583693",IdName="Antique White 3"},
{IndexNo="7897995",IdName="Antique White 4"},
{IndexNo="16776960",IdName="Aqua*"},
{IndexNo="13959039",IdName="Aquamarine 1"},
{IndexNo="13037174",IdName="Aquamarine 2"},
{IndexNo="11193702",IdName="Aquamarine 3"},
{IndexNo="7637829",IdName="Aquamarine 4"},
{IndexNo="16777200",IdName="Azure 1"},
{IndexNo="15658720",IdName="Azure 2"},
{IndexNo="13487553",IdName="Azure 3"},
{IndexNo="9145219",IdName="Azure 4"},
{IndexNo="5754851",IdName="Banana"},
{IndexNo="14480885",IdName="Beige"},
{IndexNo="12903679",IdName="Bisque 1"},
{IndexNo="12047854",IdName="Bisque 2"},
{IndexNo="10401741",IdName="Bisque 3"},
{IndexNo="7044491",IdName="Bisque 4"},
{IndexNo="0",IdName="Black*"},
{IndexNo="13495295",IdName="Blanched Almond"},
{IndexNo="16711680",IdName="Blue*"},
{IndexNo="15597568",IdName="Blue 2"},
{IndexNo="13434880",IdName="Blue 3"},
{IndexNo="9109504",IdName="Blue 4"},
{IndexNo="14822282",IdName="Blue Violet"},
{IndexNo="2057884",IdName="Brick"},
{IndexNo="2763429",IdName="Brown"},
{IndexNo="4210943",IdName="Brown 1"},
{IndexNo="3881966",IdName="Brown 2"},
{IndexNo="3355597",IdName="Brown 3"},
{IndexNo="2302859",IdName="Brown 4"},
{IndexNo="8894686",IdName="Burly Wood"},
{IndexNo="10212351",IdName="Burly Wood 1"},
{IndexNo="9553390",IdName="Burly Wood 2"},
{IndexNo="8235725",IdName="Burly Wood 3"},
{IndexNo="5600139",IdName="Burly Wood 4"},
{IndexNo="997002",IdName="Burnt Sienna"},
{IndexNo="2372490",IdName="Burnt Umber"},
{IndexNo="10526303",IdName="Cadet Blue 1"},
{IndexNo="16774552",IdName="Cadet Blue 2"},
{IndexNo="15656334",IdName="Cadet Blue 3"},
{IndexNo="13485434",IdName="Cadet Blue 4"},
{IndexNo="221695",IdName="Cadmium Orange"},
{IndexNo="858083",IdName="Cadmium Red"},
{IndexNo="1219071",IdName="Cadmium Yellow"},
{IndexNo="2200045",IdName="Carrot"},
{IndexNo="65407",IdName="Chartreuse 1"},
{IndexNo="61046",IdName="Chartreuse 2"},
{IndexNo="52582",IdName="Chartreuse 3"},
{IndexNo="31542",IdName="Chartreuse 4"},
{IndexNo="1993170",IdName="Chocolate"},
{IndexNo="2392063",IdName="Chocolate 1"},
{IndexNo="2193134",IdName="Chocolate 2"},
{IndexNo="1926861",IdName="Chocolate 3"},
{IndexNo="1262987",IdName="Chocolate 4"},
{IndexNo="11229501",IdName="Cobalt"},
{IndexNo="4231485",IdName="Cobalt Green"},
{IndexNo="8882816",IdName="Cold Grey"},
{IndexNo="5275647",IdName="Coral"},
{IndexNo="5665535",IdName="Coral 1"},
{IndexNo="5270254",IdName="Coral 2"},
{IndexNo="4545485",IdName="Coral 3"},
{IndexNo="3096203",IdName="Coral 4"},
{IndexNo="15570276",IdName="Cornflower Blue"},
{IndexNo="14481663",IdName="Cornsilk 1"},
{IndexNo="13494510",IdName="Cornsilk 2"},
{IndexNo="11651277",IdName="Cornsilk 3"},
{IndexNo="7899275",IdName="Cornsilk 4"},
{IndexNo="3937500",IdName="Crimson"},
{IndexNo="16776960",IdName="Cyan 1"},
{IndexNo="15658496",IdName="Cyan 2"},
{IndexNo="13487360",IdName="Cyan 3"},
{IndexNo="9145088",IdName="Cyan 4"},
{IndexNo="6333684",IdName="Dandy Brown"},
{IndexNo="755384",IdName="Dark Goldenrod"},
{IndexNo="1030655",IdName="Dark Goldenrod 1"},
{IndexNo="962030",IdName="Dark Goldenrod 2"},
{IndexNo="824781",IdName="Dark Goldenrod 3"},
{IndexNo="550283",IdName="Dark Goldenrod 4"},
{IndexNo="11119017",IdName="Dark Gray"},
{IndexNo="25600",IdName="Dark Green"},
{IndexNo="7059389",IdName="Dark Khaki"},
{IndexNo="3107669",IdName="Dark Olive Green"},
{IndexNo="7405514",IdName="Dark Olive Green 1"},
{IndexNo="6876860",IdName="Dark Olive Green 2"},
{IndexNo="5950882",IdName="Dark Olive Green 3"},
{IndexNo="4033390",IdName="Dark Olive Green 4"},
{IndexNo="36095",IdName="Dark Orange"},
{IndexNo="32767",IdName="Dark Orange 1"},
{IndexNo="30446",IdName="Dark Orange 2"},
{IndexNo="26317",IdName="Dark Orange 3"},
{IndexNo="17803",IdName="Dark Orange 4"},
{IndexNo="13382297",IdName="Dark Orchid"},
{IndexNo="16727743",IdName="Dark Orchid 1"},
{IndexNo="15612594",IdName="Dark Orchid 2"},
{IndexNo="13447834",IdName="Dark Orchid 3"},
{IndexNo="9118312",IdName="Dark Orchid 4"},
{IndexNo="8034025",IdName="Dark Salmon"},
{IndexNo="9419919",IdName="Dark Sea Green"},
{IndexNo="12713921",IdName="Dark Sea Green 1"},
{IndexNo="11857588",IdName="Dark Sea Green 2"},
{IndexNo="10210715",IdName="Dark Sea Green 3"},
{IndexNo="6916969",IdName="Dark Sea Green 4"},
{IndexNo="9125192",IdName="Dark Slate Blue"},
{IndexNo="5197615",IdName="Dark Slate Gray"},
{IndexNo="16777111",IdName="Dark Slate Gray 1"},
{IndexNo="15658637",IdName="Dark Slate Gray 2"},
{IndexNo="13487481",IdName="Dark Slate Gray 3"},
{IndexNo="9145170",IdName="Dark Slate Gray 4"},
{IndexNo="13749760",IdName="Dark Turquoise"},
{IndexNo="13828244",IdName="Dark Violet"},
{IndexNo="9639167",IdName="Deep Pink 1"},
{IndexNo="8983278",IdName="Deep Pink 2"},
{IndexNo="7737549",IdName="Deep Pink 3"},
{IndexNo="5245579",IdName="Deep Pink 4"},
{IndexNo="16760576",IdName="Deep Sky Blue 1"},
{IndexNo="15643136",IdName="Deep Sky Blue 2"},
{IndexNo="13474304",IdName="Deep Sky Blue 3"},
{IndexNo="9136128",IdName="Deep Sky Blue 4"},
{IndexNo="16748574",IdName="Dodger Blue 1"},
{IndexNo="15631900",IdName="Dodger Blue 2"},
{IndexNo="13464600",IdName="Dodger Blue 3"},
{IndexNo="9129488",IdName="Dodger Blue 4"},
{IndexNo="13231868",IdName="Eggshell"},
{IndexNo="5753088",IdName="Emerald Green"},
{IndexNo="2237106",IdName="Firebrick"},
{IndexNo="3158271",IdName="Firebrick 1"},
{IndexNo="2895086",IdName="Firebrick 2"},
{IndexNo="2500301",IdName="Firebrick 3"},
{IndexNo="1710731",IdName="Firebrick 4"},
{IndexNo="4226559",IdName="Flesh"},
{IndexNo="15792895",IdName="Floral White"},
{IndexNo="2263842",IdName="Forest Green"},
{IndexNo="16711935",IdName="Fuchsia*"},
{IndexNo="14474460",IdName="Gainsboro"},
{IndexNo="16775416",IdName="Ghost White"},
{IndexNo="55295",IdName="Gold 1"},
{IndexNo="51694",IdName="Gold 2"},
{IndexNo="44493",IdName="Gold 3"},
{IndexNo="30091",IdName="Gold 4"},
{IndexNo="2139610",IdName="Goldenrod"},
{IndexNo="2474495",IdName="Goldenrod 1"},
{IndexNo="2274542",IdName="Goldenrod 2"},
{IndexNo="1940429",IdName="Goldenrod 3"},
{IndexNo="1337739",IdName="Goldenrod 4"},
{IndexNo="12500670",IdName="Gray"},
{IndexNo="197379",IdName="Gray 1"},
{IndexNo="328965",IdName="Gray 2"},
{IndexNo="526344",IdName="Gray 3"},
{IndexNo="657930",IdName="Gray 4"},
{IndexNo="855309",IdName="Gray 5"},
{IndexNo="986895",IdName="Gray 6"},
{IndexNo="1184274",IdName="Gray 7"},
{IndexNo="1315860",IdName="Gray 8"},
{IndexNo="1513239",IdName="Gray 9"},
{IndexNo="1710618",IdName="Gray 10"},
{IndexNo="1842204",IdName="Gray 11"},
{IndexNo="2039583",IdName="Gray 12"},
{IndexNo="2171169",IdName="Gray 13"},
{IndexNo="2368548",IdName="Gray 14"},
{IndexNo="2500134",IdName="Gray 15"},
{IndexNo="2697513",IdName="Gray 16"},
{IndexNo="2829099",IdName="Gray 17"},
{IndexNo="3026478",IdName="Gray 18"},
{IndexNo="3158064",IdName="Gray 19"},
{IndexNo="3355443",IdName="Gray 20"},
{IndexNo="3552822",IdName="Gray 21"},
{IndexNo="3684408",IdName="Gray 22"},
{IndexNo="3881787",IdName="Gray 23"},
{IndexNo="4013373",IdName="Gray 24"},
{IndexNo="4210752",IdName="Gray 25"},
{IndexNo="4342338",IdName="Gray 26"},
{IndexNo="4539717",IdName="Gray 27"},
{IndexNo="4671303",IdName="Gray 28"},
{IndexNo="4868682",IdName="Gray 29"},
{IndexNo="5066061",IdName="Gray 30"},
{IndexNo="5197647",IdName="Gray 31"},
{IndexNo="5395026",IdName="Gray 32"},
{IndexNo="5526612",IdName="Gray 33"},
{IndexNo="5723991",IdName="Gray 34"},
{IndexNo="5855577",IdName="Gray 35"},
{IndexNo="6052956",IdName="Gray 36"},
{IndexNo="6184542",IdName="Gray 37"},
{IndexNo="6381921",IdName="Gray 38"},
{IndexNo="6513507",IdName="Gray 39"},
{IndexNo="6710886",IdName="Gray 40"},
{IndexNo="6908265",IdName="Gray 41"},
{IndexNo="7039851",IdName="Gray 42"},
{IndexNo="7237230",IdName="Gray 43"},
{IndexNo="7368816",IdName="Gray 44"},
{IndexNo="7566195",IdName="Gray 45"},
{IndexNo="7697781",IdName="Gray 46"},
{IndexNo="7895160",IdName="Gray 47"},
{IndexNo="8026746",IdName="Gray 48"},
{IndexNo="8224125",IdName="Gray 49"},
{IndexNo="8355711",IdName="Gray 50"},
{IndexNo="8553090",IdName="Gray 51"},
{IndexNo="8750469",IdName="Gray 52"},
{IndexNo="8882055",IdName="Gray 53"},
{IndexNo="9079434",IdName="Gray 54"},
{IndexNo="9211020",IdName="Gray 55"},
{IndexNo="9408399",IdName="Gray 56"},
{IndexNo="9539985",IdName="Gray 57"},
{IndexNo="9737364",IdName="Gray 58"},
{IndexNo="9868950",IdName="Gray 59"},
{IndexNo="10066329",IdName="Gray 60"},
{IndexNo="10263708",IdName="Gray 61"},
{IndexNo="10395294",IdName="Gray 62"},
{IndexNo="10592673",IdName="Gray 63"},
{IndexNo="10724259",IdName="Gray 64"},
{IndexNo="10921638",IdName="Gray 65"},
{IndexNo="11053224",IdName="Gray 66"},
{IndexNo="11250603",IdName="Gray 67"},
{IndexNo="11382189",IdName="Gray 68"},
{IndexNo="11579568",IdName="Gray 69"},
{IndexNo="11776947",IdName="Gray 70"},
{IndexNo="11908533",IdName="Gray 71"},
{IndexNo="12105912",IdName="Gray 72"},
{IndexNo="12237498",IdName="Gray 73"},
{IndexNo="12434877",IdName="Gray 74"},
{IndexNo="12566463",IdName="Gray 75"},
{IndexNo="12763842",IdName="Gray 76"},
{IndexNo="12895428",IdName="Gray 77"},
{IndexNo="13092807",IdName="Gray 78"},
{IndexNo="13224393",IdName="Gray 79"},
{IndexNo="13421772",IdName="Gray 80"},
{IndexNo="13619151",IdName="Gray 81"},
{IndexNo="13750737",IdName="Gray 82"},
{IndexNo="13948116",IdName="Gray 83"},
{IndexNo="14079702",IdName="Gray 84"},
{IndexNo="14277081",IdName="Gray 85"},
{IndexNo="14408667",IdName="Gray 86"},
{IndexNo="14606046",IdName="Gray 87"},
{IndexNo="14737632",IdName="Gray 88"},
{IndexNo="14935011",IdName="Gray 89"},
{IndexNo="15066597",IdName="Gray 90"},
{IndexNo="15263976",IdName="Gray 91"},
{IndexNo="15461355",IdName="Gray 92"},
{IndexNo="15592941",IdName="Gray 93"},
{IndexNo="15790320",IdName="Gray 94"},
{IndexNo="15921906",IdName="Gray 95"},
{IndexNo="16119285",IdName="Gray 96"},
{IndexNo="16250871",IdName="Gray 97"},
{IndexNo="16448250",IdName="Gray 98"},
{IndexNo="16579836",IdName="Gray 99"},
{IndexNo="32768",IdName="Green*"},
{IndexNo="65280",IdName="Green 1"},
{IndexNo="60928",IdName="Green 2"},
{IndexNo="52480",IdName="Green 3"},
{IndexNo="35584",IdName="Green 4"},
{IndexNo="3145645",IdName="Green Yellow"},
{IndexNo="12632256",IdName="Grey"},
{IndexNo="15794160",IdName="Honeydew 1"},
{IndexNo="14741216",IdName="Honeydew 2"},
{IndexNo="12701121",IdName="Honeydew 3"},
{IndexNo="8620931",IdName="Honeydew 4"},
{IndexNo="11823615",IdName="Hot Pink"},
{IndexNo="11824895",IdName="Hot Pink 1"},
{IndexNo="10971886",IdName="Hot Pink 2"},
{IndexNo="9461965",IdName="Hot Pink 3"},
{IndexNo="6437515",IdName="Hot Pink 4"},
{IndexNo="2037680",IdName="Indian Red"},
{IndexNo="6974207",IdName="Indian Red 1"},
{IndexNo="6513646",IdName="Indian Red 2"},
{IndexNo="5592525",IdName="Indian Red 3"},
{IndexNo="6053069",IdName="Indian Red 4"},
{IndexNo="3816075",IdName="Indian Red 5"},
{IndexNo="8519755",IdName="Indigo"},
{IndexNo="6850593",IdName="Indigo 2"},
{IndexNo="15794175",IdName="Ivory 1"},
{IndexNo="14741230",IdName="Ivory 2"},
{IndexNo="12701133",IdName="Ivory 3"},
{IndexNo="8620939",IdName="Ivory 4"},
{IndexNo="2171945",IdName="Ivory Black"},
{IndexNo="9234160",IdName="Khaki"},
{IndexNo="9434879",IdName="Khaki 1"},
{IndexNo="8775406",IdName="Khaki 2"},
{IndexNo="7587533",IdName="Khaki 3"},
{IndexNo="5146251",IdName="Khaki 4"},
{IndexNo="16443110",IdName="Lavender"},
{IndexNo="16118015",IdName="Lavender Blush 1"},
{IndexNo="15065326",IdName="Lavender Blush 2"},
{IndexNo="12960205",IdName="Lavender Blush 3"},
{IndexNo="8815499",IdName="Lavender Blush 4"},
{IndexNo="64636",IdName="Lawn Green"},
{IndexNo="13499135",IdName="Lemon Chiffon 1"},
{IndexNo="12577262",IdName="Lemon Chiffon 2"},
{IndexNo="10865101",IdName="Lemon Chiffon 3"},
{IndexNo="7375243",IdName="Lemon Chiffon 4"},
{IndexNo="8576238",IdName="Ligh Tgoldenrod 2"},
{IndexNo="15128749",IdName="Light Blue"},
{IndexNo="16773055",IdName="Light Blue 1"},
{IndexNo="15654834",IdName="Light Blue 2"},
{IndexNo="13484186",IdName="Light Blue 3"},
{IndexNo="9143144",IdName="Light Blue 4"},
{IndexNo="8421616",IdName="Light Coral"},
{IndexNo="16777184",IdName="Light Cyan 1"},
{IndexNo="15658705",IdName="Light Cyan 2"},
{IndexNo="13487540",IdName="Light Cyan 3"},
{IndexNo="9145210",IdName="Light Cyan 4"},
{IndexNo="9170175",IdName="Light Goldenrod 1"},
{IndexNo="7388877",IdName="Light Goldenrod 3"},
{IndexNo="5013899",IdName="Light Goldenrod 4"},
{IndexNo="13826810",IdName="Light Goldenrod Yellow"},
{IndexNo="13882323",IdName="Light Gray"},
{IndexNo="12695295",IdName="Light Pink"},
{IndexNo="12168959",IdName="Light Pink 1"},
{IndexNo="11379438",IdName="Light Pink 2"},
{IndexNo="9800909",IdName="Light Pink 3"},
{IndexNo="6643595",IdName="Light Pink 4"},
{IndexNo="8036607",IdName="Light Salmon 1"},
{IndexNo="7509486",IdName="Light Salmon 2"},
{IndexNo="6455757",IdName="Light Salmon 3"},
{IndexNo="4347787",IdName="Light Salmon 4"},
{IndexNo="11186720",IdName="Light Sea Green"},
{IndexNo="16436871",IdName="Light Sky Blue"},
{IndexNo="16769712",IdName="Light Sky Blue 1"},
{IndexNo="15651748",IdName="Light Sky Blue 2"},
{IndexNo="13481613",IdName="Light Sky Blue 3"},
{IndexNo="9141088",IdName="Light Sky Blue 4"},
{IndexNo="16740484",IdName="Light Slate Blue"},
{IndexNo="10061943",IdName="Light Slate Gray"},
{IndexNo="14599344",IdName="Light Steel Blue"},
{IndexNo="16769482",IdName="Light Steel Blue 1"},
{IndexNo="15651516",IdName="Light Steel Blue 2"},
{IndexNo="13481378",IdName="Light Steel Blue 3"},
{IndexNo="9141102",IdName="Light Steel Blue 4"},
{IndexNo="14745599",IdName="Light Yellow 1"},
{IndexNo="13758190",IdName="Light Yellow 2"},
{IndexNo="11849165",IdName="Light Yellow 3"},
{IndexNo="8031115",IdName="Light Yellow 4"},
{IndexNo="65280",IdName="Lime*"},
{IndexNo="3329330",IdName="Lime Green"},
{IndexNo="15134970",IdName="Linen"},
{IndexNo="16711935",IdName="Magenta 1"},
{IndexNo="15597806",IdName="Magenta 2"},
{IndexNo="13435085",IdName="Magenta 3"},
{IndexNo="9109643",IdName="Magenta 4"},
{IndexNo="10397699",IdName="Manganese Blue"},
{IndexNo="128",IdName="Maroon*"},
{IndexNo="11744511",IdName="Maroon 1"},
{IndexNo="10957038",IdName="Maroon 2"},
{IndexNo="9447885",IdName="Maroon 3"},
{IndexNo="6429835",IdName="Maroon 4"},
{IndexNo="13850042",IdName="Medium Orchid"},
{IndexNo="16738016",IdName="Medium Orchid 1"},
{IndexNo="15622097",IdName="Medium Orchid 2"},
{IndexNo="13456052",IdName="Medium Orchid 3"},
{IndexNo="9123706",IdName="Medium Orchid 4"},
{IndexNo="14381203",IdName="Medium Purple"},
{IndexNo="16745131",IdName="Medium Purple 1"},
{IndexNo="15628703",IdName="Medium Purple 2"},
{IndexNo="13461641",IdName="Medium Purple 3"},
{IndexNo="9127773",IdName="Medium Purple 4"},
{IndexNo="7451452",IdName="Medium Sea Green"},
{IndexNo="15624315",IdName="Medium Slate Blue"},
{IndexNo="10156544",IdName="Medium Spring Green"},
{IndexNo="13422920",IdName="Medium Turquoise"},
{IndexNo="8721863",IdName="Medium Violet Red"},
{IndexNo="6924515",IdName="Melon"},
{IndexNo="7346457",IdName="Midnight Blue"},
{IndexNo="13237437",IdName="Mint"},
{IndexNo="16449525",IdName="Mint Cream"},
{IndexNo="14804223",IdName="Misty Rose 1"},
{IndexNo="13817326",IdName="Misty Rose 2"},
{IndexNo="11909069",IdName="Misty Rose 3"},
{IndexNo="8093067",IdName="Misty Rose 4"},
{IndexNo="11920639",IdName="Moccasin"},
{IndexNo="11394815",IdName="Navajo White 1"},
{IndexNo="10604526",IdName="Navajo White 2"},
{IndexNo="9155533",IdName="Navajo White 3"},
{IndexNo="6191499",IdName="Navajo White 4"},
{IndexNo="8388608",IdName="Navy Blue*"},
{IndexNo="15136253",IdName="Old Lace"},
{IndexNo="32896",IdName="Olive*"},
{IndexNo="2330219",IdName="Olive Drab"},
{IndexNo="4128704",IdName="Olive Drab 1"},
{IndexNo="3862195",IdName="Olive Drab 2"},
{IndexNo="3329434",IdName="Olive Drab 3"},
{IndexNo="2263913",IdName="Olive Drab 4"},
{IndexNo="2330219",IdName="Olivedrab"},
{IndexNo="33023",IdName="Orange"},
{IndexNo="42495",IdName="Orange 1"},
{IndexNo="39662",IdName="Orange 2"},
{IndexNo="34253",IdName="Orange 3"},
{IndexNo="23179",IdName="Orange 4"},
{IndexNo="17919",IdName="Orange Red 1"},
{IndexNo="16622",IdName="Orange Red 2"},
{IndexNo="14285",IdName="Orange Red 3"},
{IndexNo="9611",IdName="Orange Red 4"},
{IndexNo="14053594",IdName="Orchid"},
{IndexNo="16417791",IdName="Orchid 1"},
{IndexNo="15301358",IdName="Orchid 2"},
{IndexNo="13199821",IdName="Orchid 3"},
{IndexNo="8996747",IdName="Orchid 4"},
{IndexNo="11200750",IdName="Pale Golden Rod"},
{IndexNo="10157978",IdName="Pale Green 1"},
{IndexNo="9498256",IdName="Pale Green 2"},
{IndexNo="8179068",IdName="Pale Green 3"},
{IndexNo="5540692",IdName="Pale Green 4"},
{IndexNo="16777147",IdName="Pale Turquoise 1"},
{IndexNo="15658670",IdName="Pale Turquoise 2"},
{IndexNo="13487510",IdName="Pale Turquoise 3"},
{IndexNo="9145190",IdName="Pale Turquoise 4"},
{IndexNo="9662683",IdName="Pale Violet Red"},
{IndexNo="11240191",IdName="Pale Violet Red 1"},
{IndexNo="10451438",IdName="Pale Violet Red 2"},
{IndexNo="9005261",IdName="Pale Violet Red 3"},
{IndexNo="6113163",IdName="Pale Violet Red 4"},
{IndexNo="10025880",IdName="Palegreen"},
{IndexNo="14020607",IdName="Papaya Whip"},
{IndexNo="12180223",IdName="Peach Puff 1"},
{IndexNo="11389934",IdName="Peachpuff 2"},
{IndexNo="9809869",IdName="Peachpuff 3"},
{IndexNo="6649739",IdName="Peachpuff 4"},
{IndexNo="13214003",IdName="Peacock"},
{IndexNo="13353215",IdName="Pink"},
{IndexNo="12957183",IdName="Pink 1"},
{IndexNo="12102126",IdName="Pink 2"},
{IndexNo="10392013",IdName="Pink 3"},
{IndexNo="7103371",IdName="Pink 4"},
{IndexNo="14524637",IdName="Plum"},
{IndexNo="16759807",IdName="Plum 1"},
{IndexNo="15642350",IdName="Plum 2"},
{IndexNo="13473485",IdName="Plum 3"},
{IndexNo="9135755",IdName="Plum 4"},
{IndexNo="15130800",IdName="Powder Blue"},
{IndexNo="8388736",IdName="Purple*"},
{IndexNo="16724123",IdName="Purple 1"},
{IndexNo="15608977",IdName="Purple 2"},
{IndexNo="13444733",IdName="Purple 3"},
{IndexNo="9116245",IdName="Purple 4"},
{IndexNo="5711495",IdName="Raspberry"},
{IndexNo="1335751",IdName="Raw Sienna"},
{IndexNo="1198707",IdName="Raw Umber"},
{IndexNo="255",IdName="Red*"},
{IndexNo="238",IdName="Red 2"},
{IndexNo="205",IdName="Red 3"},
{IndexNo="139",IdName="Red 4"},
{IndexNo="9408444",IdName="Rosy Brown"},
{IndexNo="12698111",IdName="Rosy Brown 1"},
{IndexNo="11842798",IdName="Rosy Brown 2"},
{IndexNo="10197965",IdName="Rosy Brown 3"},
{IndexNo="6908299",IdName="Rosy Brown 4"},
{IndexNo="9408444",IdName="Rosybrown"},
{IndexNo="14772544",IdName="Royal Blue"},
{IndexNo="16741960",IdName="Royal Blue 1"},
{IndexNo="15625795",IdName="Royal Blue 2"},
{IndexNo="13459258",IdName="Royal Blue 3"},
{IndexNo="9125927",IdName="Royal Blue 4"},
{IndexNo="1262987",IdName="Saddle Brown"},
{IndexNo="7504122",IdName="Salmon"},
{IndexNo="6917375",IdName="Salmon 1"},
{IndexNo="6456046",IdName="Salmon 2"},
{IndexNo="5533901",IdName="Salmon 3"},
{IndexNo="3755147",IdName="Salmon 4"},
{IndexNo="6333684",IdName="Sandy Brown"},
{IndexNo="1343536",IdName="Sap Green"},
{IndexNo="5737262",IdName="Sea Green"},
{IndexNo="10485588",IdName="Sea Green 1"},
{IndexNo="9760334",IdName="Sea Green 2"},
{IndexNo="8441155",IdName="Sea Green 3"},
{IndexNo="5737262",IdName="Sea Green 4"},
{IndexNo="15660543",IdName="Seashell 1"},
{IndexNo="14607854",IdName="Seashell 2"},
{IndexNo="12568013",IdName="Seashell 3"},
{IndexNo="8554123",IdName="Seashell 4"},
{IndexNo="1189470",IdName="Sepia"},
{IndexNo="9320590",IdName="Sgi Beet"},
{IndexNo="11190725",IdName="Sgi Bright Gray"},
{IndexNo="7456369",IdName="Sgi Chartreuse"},
{IndexNo="5592405",IdName="Sgi Dark Gray"},
{IndexNo="1973790",IdName="Sgi Gray 12"},
{IndexNo="2631720",IdName="Sgi Gray 16"},
{IndexNo="5329233",IdName="Sgi Gray 32"},
{IndexNo="5987163",IdName="Sgi Gray 36"},
{IndexNo="8684676",IdName="Sgi Gray 52"},
{IndexNo="9342606",IdName="Sgi Gray 56"},
{IndexNo="12040119",IdName="Sgi Gray 72"},
{IndexNo="12698049",IdName="Sgi Gray 76"},
{IndexNo="15395562",IdName="Sgi Gray 92"},
{IndexNo="16053492",IdName="Sgi Gray 96"},
{IndexNo="12623485",IdName="Sgi Light Blue"},
{IndexNo="11184810",IdName="Sgi Light Gray"},
{IndexNo="3706510",IdName="Sgi Olive Drab"},
{IndexNo="7434694",IdName="Sgi Salmon"},
{IndexNo="13005169",IdName="Sgi Slate Blue"},
{IndexNo="9342520",IdName="Sgi Teal"},
{IndexNo="2970272",IdName="Sienna"},
{IndexNo="4686591",IdName="Sienna 1"},
{IndexNo="4356590",IdName="Sienna 2"},
{IndexNo="3762381",IdName="Sienna 3"},
{IndexNo="2508683",IdName="Sienna 4"},
{IndexNo="12632256",IdName="Silver*"},
{IndexNo="15453831",IdName="Sky Blue"},
{IndexNo="16764551",IdName="Sky Blue 1"},
{IndexNo="15646846",IdName="Sky Blue 2"},
{IndexNo="13477484",IdName="Sky Blue 3"},
{IndexNo="9138250",IdName="Sky Blue 4"},
{IndexNo="13458026",IdName="Slate Blue"},
{IndexNo="16740227",IdName="Slate Blue 1"},
{IndexNo="15624058",IdName="Slate Blue 2"},
{IndexNo="13457769",IdName="Slate Blue 3"},
{IndexNo="9124935",IdName="Slate Blue 4"},
{IndexNo="9470064",IdName="Slate Gray"},
{IndexNo="16769734",IdName="Slate Gray 1"},
{IndexNo="15651769",IdName="Slate Gray 2"},
{IndexNo="13481631",IdName="Slate Gray 3"},
{IndexNo="9141100",IdName="Slate Gray 4"},
{IndexNo="13458026",IdName="Slateblue"},
{IndexNo="16448255",IdName="Snow 1"},
{IndexNo="15329774",IdName="Snow 2"},
{IndexNo="13224397",IdName="Snow 3"},
{IndexNo="9013643",IdName="Snow 4"},
{IndexNo="8388352",IdName="Spring Green"},
{IndexNo="7794176",IdName="Spring Green 1"},
{IndexNo="6737152",IdName="Spring Green 2"},
{IndexNo="4557568",IdName="Spring Green 3"},
{IndexNo="11829830",IdName="Steel Blue"},
{IndexNo="16758883",IdName="Steel Blue 1"},
{IndexNo="15641692",IdName="Steel Blue 2"},
{IndexNo="13472847",IdName="Steel Blue 3"},
{IndexNo="9135158",IdName="Steel Blue 4"},
{IndexNo="11829830",IdName="Steelblue"},
{IndexNo="9221330",IdName="Tan"},
{IndexNo="5219839",IdName="Tan 1"},
{IndexNo="4823790",IdName="Tan 2"},
{IndexNo="4163021",IdName="Tan 3"},
{IndexNo="2841227",IdName="Tan 4"},
{IndexNo="8421376",IdName="Teal*"},
{IndexNo="1007160",IdName="Terre Verte"},
{IndexNo="14204888",IdName="Thistle"},
{IndexNo="16769535",IdName="Thistle 1"},
{IndexNo="15651566",IdName="Thistle 2"},
{IndexNo="13481421",IdName="Thistle 3"},
{IndexNo="9141131",IdName="Thistle 4"},
{IndexNo="4678655",IdName="Tomato 1"},
{IndexNo="4349166",IdName="Tomato 2"},
{IndexNo="3755981",IdName="Tomato 3"},
{IndexNo="2504331",IdName="Tomato 4"},
{IndexNo="9225984",IdName="Tuquoise Blue"},
{IndexNo="13688896",IdName="Turquoise"},
{IndexNo="16774400",IdName="Turquoise 1"},
{IndexNo="15656192",IdName="Turquoise 2"},
{IndexNo="13485312",IdName="Turquoise 3"},
{IndexNo="9143808",IdName="Turquoise 4"},
{IndexNo="9382400",IdName="Ultramarine"},
{IndexNo="15631086",IdName="Violet"},
{IndexNo="9445584",IdName="Violet Red"},
{IndexNo="9846527",IdName="Violet Red 1"},
{IndexNo="9190126",IdName="Violet Red 2"},
{IndexNo="7877325",IdName="Violet Red 3"},
{IndexNo="5382795",IdName="Violet Red 4"},
{IndexNo="6914176",IdName="Warm Grey"},
{IndexNo="11788021",IdName="Wheat"},
{IndexNo="12249087",IdName="Wheat 1"},
{IndexNo="11458798",IdName="Wheat 2"},
{IndexNo="9878221",IdName="Wheat 3"},
{IndexNo="6717067",IdName="Wheat 4"},
{IndexNo="16777215",IdName="White*"},
{IndexNo="16119285",IdName="White Smoke"},
{IndexNo="65535",IdName="Yellow 1"},
{IndexNo="61166",IdName="Yellow 2"},
{IndexNo="52685",IdName="Yellow 3"},
{IndexNo="35723",IdName="Yellow 4"}
}
for i,v in ipairs(tbl_array) do
strings_add(items, v.IdName)
end
function cbboxOnChange()
index = getProperty(UDF1.cbbox, "ItemIndex")
index = tbl_array[index]
if index == nil then
control_setCaption(UDF1.edit1,"Pick an item")
else
control_setCaption(UDF1.edit1, index.IndexNo)
end
end
setMethodProperty(UDF1.cbbox, "OnChange", cbboxOnChange)
------
function Btn_GetColorClick(sender)
if UDF1.cbbox.ItemIndex == 0 then
UDF1.cbbox.ItemIndex = 0
control_setCaption(UDF1.edit1, "Idle")
setProperty(UDF1.panel1,"Color", "clDefault")
end
c = control_getCaption(UDF1.edit1)
c = tostring(c)
if c == "Idle" then
control_setCaption(UDF1.edit1, "Idle")
setProperty(UDF1.panel1,"Color", "clDefault")
control_setVisible(UDF1.panel1, false)
beep()
showMessage("You need pick one code from dropdown list..")
return
else
control_setVisible(UDF1.panel1, true)
setProperty(UDF1.panel1,"Color", index.IndexNo)
beep()
end
end
----
function Btn_ClearClick(sender)
UDF1.cbbox.ItemIndex = 0
control_setCaption(UDF1.edit1, "Idle")
setProperty(UDF1.panel1,"Color", "clDefault")
control_setVisible(UDF1.panel1, false)
end
----
function Btn_ExitClick(sender)
form_hide(UDF1)
closeCE()
return caFree
end |
|
|
| Back to top |
|
|
Corroder
Grandmaster Cheater Supreme
Reputation: 75
Joined: 10 Apr 2015
Posts: 1668
|
|
| Back to top |
|
|
Sondio
Newbie cheater
![]() Reputation: 1
Joined: 07 Mar 2019
Posts: 18
|
| Posted: Wed Mar 27, 2019 4:15 pm Post subject: |
|
|
@Corroder
like something like that? :
| Code: |
--=========================================================================--GUI
fc = createForm()
fc.Width = 410
fc.Height = 420
fc.Position = 'poScreenCenter'
fc.Caption = 'ARGB-DEC/HEX COLORS TOOL'
fc.Color = '0x1F1F1F' ---0xDFF7FF
p = createPanel(fc)
p.top = 10
p.height = 150
p.width = 250
p.left = 10
p.color = '0x00000000'
af = createForm()
af.BorderStyle = 'bsNone'
af.top = (fc.top + (fc.height - af.height)/ 2)
af.left = fc.left + fc.width + 5
af.AlphaBlend = true
af.AlphaBlendValue = 255
af.color = p.color
af.Visible = false
-----------------------------------------------------------------------trackbars
t1 = createTrackBar(fc)
t1.left = 0
t1.top = p.height + p.top + 20
t1.width = fc.width - t1.left - 145
t1.height = 30
t1.Max = 255
t1.Min = 0
t1.position = 0
t1.SelStart = 0
t1.SelEnd = 0
t2 = createTrackBar(fc)
t2.left = 0
t2.top = t1.height + t1.top + 10
t2.width = fc.width - t2.left - 145
t2.height = 30
t2.Max = 255
t2.Min = 0
t2.position = 0
t2.SelStart = 0
t2.SelEnd = 0
t3 = createTrackBar(fc)
t3.left = 0
t3.top = t2.height + t2.top + 10
t3.width = fc.width - t3.left - 145
t3.height = 30
t3.Max = 255
t3.Min = 0
t3.position = 0
t3.SelStart = 0
t3.SelEnd = 0
t4 = createTrackBar(fc)
t4.left = p.left + p.width + 30
t4.top = p.top
t4.width = 160
t4.height = 30
t4.Max = 255
t4.Min = 0
t4.position = 127
t4.SelStart = 0
t4.SelEnd = 0
t4.Orientation = 'trVertical'
t4.Reverse = true
t4.Frequency = 1
--------------------------------------------------------------------------labels
RLabel = createLabel(fc)
RLabel.top = t1.top
RLabel.left = t1.left + t1.width + 12
RLabel.caption = 'R : '
RLabel.font.color = '0x0000FF'
RLabel.font.style = 'fsBold'
GLabel = createLabel(fc)
GLabel.top = t2.top
GLabel.left = t2.left + t2.width + 12
GLabel.caption = 'G : '
GLabel.font.color = '0x00FF00'
GLabel.font.style = 'fsBold'
BLabel = createLabel(fc)
BLabel.top = t3.top
BLabel.left = t3.left + t3.width + 12
BLabel.caption = 'B : '
BLabel.font.color = '0xFF0000'
BLabel.font.style = 'fsBold'
ALabel = createLabel(fc)
ALabel.top = 75
ALabel.left = t4.left + t4.width + 10
ALabel.caption = 'A : '
ALabel.font.color = '0xFFFFFF'
ALabel.font.style = 'fsBold'
HxLabel = createLabel(fc)
HxLabel.top = t3.top + t3.height + 15
HxLabel.left = 10
HxLabel.caption = 'Current HEX Color : '
HxLabel.font.color = '0xFF9000'
hexval = createLabel(fc)
hexval.top = t3.top + t3.height + 10
hexval.left = HxLabel.left + HxLabel.width
hexval.width = 105
hexval.caption = ''
hexval.font.size = 11
hexval.font.style = 'fsBold,fsItalic'
hexval.font.color = '0xFF9000'
ExamLabel = createLabel(fc)
ExamLabel.top = HxLabel.top + HxLabel.height + 15
ExamLabel.left = HxLabel.left
ExamLabel.caption = 'Current DEC Color : '
ExamLabel.font.color = '0xFF9000'
decval = createLabel(fc)
decval.top = 335
decval.left = ExamLabel.left + ExamLabel.width
decval.width = 105
decval.caption = ''
decval.font.size = 11
decval.font.style = 'fsBold,fsItalic'
decval.font.color = '0xFF9000'
tstval = createLabel(fc)
tstval.top = ExamLabel.top + ExamLabel.height + 15
tstval.left = ExamLabel.left
tstval.caption = 'Check Color = '
tstval.font.color = '0xFF9000'
rdec = createLabel(fc)
rdec.top = 180
rdec.left = t1.left + t1.width + 40
rdec.width = 40
rdec.caption = ''
rdec.font.color = '0x0000FF'
rdec.font.style = 'fsBold,fsItalic'
rhex = createLabel(fc)
rhex.top = 180
rhex.left = t1.left + t1.width + 85
rhex.width = 50
rhex.caption = ''
rhex.font.color = '0x0000FF'
rhex.font.style = 'fsBold,fsItalic'
gdec = createLabel(fc)
gdec.top = 220
gdec.left = t2.left + t2.width + 40
gdec.width = 40
gdec.caption = ''
gdec.font.color = '0x00FF00'
gdec.font.style = 'fsBold,fsItalic'
ghex = createLabel(fc)
ghex.top = 220
ghex.left = t2.left + t2.width + 85
ghex.width = 50
ghex.caption = ''
ghex.font.color = '0x00FF00'
ghex.font.style = 'fsBold,fsItalic'
bdec = createLabel(fc)
bdec.top = 260
bdec.left = t2.left + t2.width + 40
bdec.width = 40
bdec.caption = ''
bdec.font.color = '0xFF0000'
bdec.font.style = 'fsBold,fsItalic'
bhex = createLabel(fc)
bhex.top = 260
bhex.left = t2.left + t2.width + 85
bhex.width = 50
bhex.caption = ''
bhex.font.color = '0xFF0000'
bhex.font.style = 'fsBold,fsItalic'
------------------------------------------------------------------------editboxs
ckcval = createEdit(fc)
ckcval.top = tstval.top - 3
ckcval.left = tstval.left + tstval.width
ckcval.width = 100
ckcval.Text = ''
ckcval.font.size = 10
ckcval.font.style = 'fsBold,fsItalic'
ckcval.color = '0x1F1F1F'
ckcval.font.color = '0xFF9000'
-------------------------------------------------------------------------buttons
ckc = createButton(fc)
ckc.top = ckcval.top
ckc.left = ckcval.left + ckcval.width + 5
ckc.height = 30
ckc.width = 60
ckc.font.style = 'fsbold,fsItalic'
ckc.caption = 'CHECK'
rtc = createButton(fc)
rtc.top = ckc.top
rtc.left = ckc.left + ckc.width + 5
rtc.height = 30
rtc.width = 60
rtc.font.style = 'fsbold,fsItalic'
rtc.caption = 'RESET'
ptc = createButton(fc)
ptc.top = rtc.top
ptc.left = rtc.left + rtc.width + 5
ptc.height = 30
ptc.width = 60
ptc.font.style = 'fsbold,fsItalic'
ptc.caption = 'ALPHA'
--===================================================================--functions
function ARGBToHex(alpha,red, green, blue)
if(alpha < 0 or alpha > 255 or red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) then
return nil
end
return string.format("0x%.2X%.2X%.2X%.2X", alpha,red,green,blue)
end
function rtbChange(sender)
R = t1.position
G = t2.position
B = t3.position
A = t4.position
rdec.caption = tostring(R)
rhex.caption = string.format("0x%X", R)
col = ARGBToHex(A,B,G,R)
p.color = col
af.color = p.color
hexval.caption = tostring(ARGBToHex(A,R,G,B))
decval.caption = tonumber(hexval.caption:sub(3), 16)
end
function gtbChange(sender)
R = t1.position
G = t2.position
B = t3.position
A = t4.position
gdec.caption = tostring(G)
ghex.caption = string.format("0x%X", G)
col = ARGBToHex(A,B,G,R)
p.color = col
af.color = p.color
hexval.caption = tostring(ARGBToHex(A,R,G,B))
decval.caption = tonumber(hexval.caption:sub(3), 16)
end
function btbChange(sender)
R = t1.position
G = t2.position
B = t3.position
A = t4.position
bdec.caption = tostring(B)
bhex.caption = string.format("0x%X", B)
col = ARGBToHex(A,B,G,R)
p.color = col
af.color = p.color
hexval.caption = tostring(ARGBToHex(A,R,G,B))
decval.caption = tonumber(hexval.caption:sub(3), 16)
end
A = 0
function TransChange(sender)
R = t1.position
G = t2.position
B = t3.position
A = t4.position
col = ARGBToHex(A,B,G,R)
p.color = col
af.color = p.color
hexval.caption = tostring(ARGBToHex(A,R,G,B))
decval.caption = tonumber(hexval.caption:sub(3), 16)
ALabel.Caption = 'A : '..tostring(t4.position)
af.AlphaBlendValue = A
end
function checkcolor(sender)
if ckcval.Text == '' then return
else
local b,g,r,a = ckcval.Text & 0xff, ckcval.Text >> 8 & 0xff, ckcval.Text >> 16 & 0xff, ckcval.Text >> 24 & 0xff
t1.position = tonumber(r)
t2.position = tonumber(g)
t3.position = tonumber(b)
t4.position = tonumber(a)
end
end
function resetcolor(sender)
if t1.position ~= nil or t2.position ~= nil or t3.position ~= nil or t4.position ~= nil then
t1.position = 0
t2.position = 0
t3.position = 0
t4.position = 127
p.color = nil
rdec.caption = ''
gdec.caption = ''
bdec.caption = ''
rhex.caption = ''
ghex.caption = ''
bhex.caption = ''
decval.caption = ''
hexval.caption = ''
ckcval.Text = ''
end
end
function checkalpha(sender)
local visible = not af.Visible
af.Visible = visible
end
function close(sender)
fc.destroy()
af.destroy()
end
--======================================================================--events
af.OnMouseDown = function() af.DragNow() end
t1.onChange = rtbChange
t2.onChange = gtbChange
t3.onChange = btbChange
t4.onChange = TransChange
ckc.onClick = checkcolor
rtc.onClick = resetcolor
ptc.onClick = checkalpha
fc.onClose = close
|
_________________
DaSpamer
I am the leader of the lazy and with the books I made filters !!! |
|
| Back to top |
|
|
Corroder
Grandmaster Cheater Supreme
Reputation: 75
Joined: 10 Apr 2015
Posts: 1668
|
|
| Back to top |
|
|
Sondio
Newbie cheater
![]() Reputation: 1
Joined: 07 Mar 2019
Posts: 18
|
| Posted: Thu Mar 28, 2019 1:46 am Post subject: |
|
|
| Corroder wrote: |
Besides, you need to check RGB value. Actually, that is not RGB but more to BGR. |
yes I know, that script is RGB
| Corroder wrote: |
See this thread
|
yes I know, in fact I started from there ..
| Corroder wrote: |
Anyhow, You did a good job. Just a suggestion, It is better if add a function handler to copy color value as variables and then able to use that values as objects color.
Good luck..  |
I apologize if I allowed myself to modify your work .. I'm sorry .. I don't want to "steal" you work or take credit for things I didn't do, but I just try to understand and learn ...
this is BGR:
| Code: |
--=========================================================================--GUI
fc = createForm()
fc.Width = 410
fc.Height = 420
fc.Position = 'poScreenCenter'
fc.Caption = 'ABGR-DEC/HEX COLORS TOOL'
fc.Color = '0x1F1F1F' ---0xDFF7FF
p = createPanel(fc)
p.top = 10
p.height = 150
p.width = 250
p.left = 10
p.color = '0x000000'
af = createForm()
af.BorderStyle = 'bsNone'
af.top = (fc.top + (fc.height - af.height)/ 2)
af.left = fc.left + fc.width + 5
af.AlphaBlend = true
af.AlphaBlendValue = 255
af.color = p.color
af.Visible = false
-----------------------------------------------------------------------trackbars
t1 = createTrackBar(fc)
t1.left = 0
t1.top = p.height + p.top + 20
t1.width = fc.width - t1.left - 145
t1.height = 30
t1.Max = 255
t1.Min = 0
t1.position = 0
t1.SelStart = 0
t1.SelEnd = 0
t2 = createTrackBar(fc)
t2.left = 0
t2.top = t1.height + t1.top + 10
t2.width = fc.width - t2.left - 145
t2.height = 30
t2.Max = 255
t2.Min = 0
t2.position = 0
t2.SelStart = 0
t2.SelEnd = 0
t3 = createTrackBar(fc)
t3.left = 0
t3.top = t2.height + t2.top + 10
t3.width = fc.width - t3.left - 145
t3.height = 30
t3.Max = 255
t3.Min = 0
t3.position = 0
t3.SelStart = 0
t3.SelEnd = 0
t4 = createTrackBar(fc)
t4.left = p.left + p.width + 30
t4.top = p.top
t4.width = 160
t4.height = 30
t4.Max = 255
t4.Min = 0
t4.position = 127
t4.SelStart = 0
t4.SelEnd = 0
t4.Orientation = 'trVertical'
t4.Reverse = true
t4.Frequency = 1
--------------------------------------------------------------------------labels
BLabel = createLabel(fc)
BLabel.top = t1.top
BLabel.left = t1.left + t1.width + 12
BLabel.caption = 'B : '
BLabel.font.color = '0xFF0000'
BLabel.font.style = 'fsBold'
GLabel = createLabel(fc)
GLabel.top = t2.top
GLabel.left = t2.left + t2.width + 12
GLabel.caption = 'G : '
GLabel.font.color = '0x00FF00'
GLabel.font.style = 'fsBold'
RLabel = createLabel(fc)
RLabel.top = t3.top
RLabel.left = t3.left + t3.width + 12
RLabel.caption = 'R : '
RLabel.font.color = '0x0000FF'
RLabel.font.style = 'fsBold'
ALabel = createLabel(fc)
ALabel.top = 75
ALabel.left = t4.left + t4.width + 10
ALabel.caption = 'A : '
ALabel.font.color = '0xFFFFFF'
ALabel.font.style = 'fsBold'
HxLabel = createLabel(fc)
HxLabel.top = t3.top + t3.height + 15
HxLabel.left = 10
HxLabel.caption = 'Current HEX Color : '
HxLabel.font.color = '0xFF9000'
hexval = createLabel(fc)
hexval.top = t3.top + t3.height + 10
hexval.left = HxLabel.left + HxLabel.width
hexval.width = 105
hexval.caption = ''
hexval.font.size = 11
hexval.font.style = 'fsBold,fsItalic'
hexval.font.color = '0xFF9000'
ExamLabel = createLabel(fc)
ExamLabel.top = HxLabel.top + HxLabel.height + 15
ExamLabel.left = HxLabel.left
ExamLabel.caption = 'Current DEC Color : '
ExamLabel.font.color = '0xFF9000'
decval = createLabel(fc)
decval.top = 335
decval.left = ExamLabel.left + ExamLabel.width
decval.width = 105
decval.caption = ''
decval.font.size = 11
decval.font.style = 'fsBold,fsItalic'
decval.font.color = '0xFF9000'
tstval = createLabel(fc)
tstval.top = ExamLabel.top + ExamLabel.height + 15
tstval.left = ExamLabel.left
tstval.caption = 'Check Color = '
tstval.font.color = '0xFF9000'
bdec = createLabel(fc)
bdec.top = 180
bdec.left = t1.left + t1.width + 40
bdec.width = 40
bdec.caption = ''
bdec.font.color = '0xFF0000'
bdec.font.style = 'fsBold,fsItalic'
bhex = createLabel(fc)
bhex.top = 180
bhex.left = t1.left + t1.width + 85
bhex.width = 50
bhex.caption = ''
bhex.font.color = '0xFF0000'
bhex.font.style = 'fsBold,fsItalic'
gdec = createLabel(fc)
gdec.top = 220
gdec.left = t2.left + t2.width + 40
gdec.width = 40
gdec.caption = ''
gdec.font.color = '0x00FF00'
gdec.font.style = 'fsBold,fsItalic'
ghex = createLabel(fc)
ghex.top = 220
ghex.left = t2.left + t2.width + 85
ghex.width = 50
ghex.caption = ''
ghex.font.color = '0x00FF00'
ghex.font.style = 'fsBold,fsItalic'
rdec = createLabel(fc)
rdec.top = 260
rdec.left = t2.left + t2.width + 40
rdec.width = 40
rdec.caption = ''
rdec.font.color = '0x0000FF'
rdec.font.style = 'fsBold,fsItalic'
rhex = createLabel(fc)
rhex.top = 260
rhex.left = t2.left + t2.width + 85
rhex.width = 50
rhex.caption = ''
rhex.font.color = '0x0000FF'
rhex.font.style = 'fsBold,fsItalic'
------------------------------------------------------------------------editboxs
ckcval = createEdit(fc)
ckcval.top = tstval.top - 3
ckcval.left = tstval.left + tstval.width
ckcval.width = 100
ckcval.Text = ''
ckcval.font.size = 10
ckcval.font.style = 'fsBold,fsItalic'
ckcval.color = '0x1F1F1F'
ckcval.font.color = '0xFF9000'
-------------------------------------------------------------------------buttons
ckc = createButton(fc)
ckc.top = ckcval.top
ckc.left = ckcval.left + ckcval.width + 5
ckc.height = 30
ckc.width = 60
ckc.font.style = 'fsbold,fsItalic'
ckc.caption = 'CHECK'
rtc = createButton(fc)
rtc.top = ckc.top
rtc.left = ckc.left + ckc.width + 5
rtc.height = 30
rtc.width = 60
rtc.font.style = 'fsbold,fsItalic'
rtc.caption = 'RESET'
ptc = createButton(fc)
ptc.top = rtc.top
ptc.left = rtc.left + rtc.width + 5
ptc.height = 30
ptc.width = 60
ptc.font.style = 'fsbold,fsItalic'
ptc.caption = 'ALPHA'
--===================================================================--functions
function ABGRToHex(alpha, blue, green, red)
if(alpha < 0 or alpha > 255 or red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) then
return nil
end
return string.format("0x%.2X%.2X%.2X%.2X", alpha,blue,green,red)
end
function rtbChange(sender)
B = t1.position
G = t2.position
R = t3.position
A = t4.position
rdec.caption = tostring(R)
rhex.caption = string.format("0x%X", R)
col = ABGRToHex(A,B,G,R)
p.color = col
af.color = p.color
hexval.caption = tostring(ABGRToHex(A,B,G,R))
decval.caption = tonumber(hexval.caption:sub(3), 16)
end
function gtbChange(sender)
B = t1.position
G = t2.position
R = t3.position
A = t4.position
gdec.caption = tostring(G)
ghex.caption = string.format("0x%X", G)
col = ABGRToHex(A,B,G,R)
p.color = col
af.color = p.color
hexval.caption = tostring(ABGRToHex(A,B,G,R))
decval.caption = tonumber(hexval.caption:sub(3), 16)
end
function btbChange(sender)
B = t1.position
G = t2.position
R = t3.position
A = t4.position
bdec.caption = tostring(B)
bhex.caption = string.format("0x%X", B)
col = ABGRToHex(A,B,G,R)
p.color = col
af.color = p.color
hexval.caption = tostring(ABGRToHex(A,B,G,R))
decval.caption = tonumber(hexval.caption:sub(3), 16)
end
A = 0
function TransChange(sender)
B = t1.position
G = t2.position
R = t3.position
A = t4.position
col = ABGRToHex(A,B,G,R)
p.color = col
af.color = p.color
hexval.caption = tostring(ABGRToHex(A,B,G,R))
decval.caption = tonumber(hexval.caption:sub(3), 16)
ALabel.Caption = 'A : '..tostring(t4.position)
af.AlphaBlendValue = A
end
function checkcolor(sender)
if ckcval.Text == '' then return
else
local r,g,b,a = ckcval.Text & 0xff, ckcval.Text >> 8 & 0xff, ckcval.Text >> 16 & 0xff, ckcval.Text >> 24 & 0xff
t1.position = tonumber(b)
t2.position = tonumber(g)
t3.position = tonumber(r)
t4.position = tonumber(a)
end
end
function resetcolor(sender)
if t1.position ~= nil or t2.position ~= nil or t3.position ~= nil or t4.position ~= nil then
t1.position = 0
t2.position = 0
t3.position = 0
t4.position = 127
p.color = nil
rdec.caption = ''
gdec.caption = ''
bdec.caption = ''
rhex.caption = ''
ghex.caption = ''
bhex.caption = ''
decval.caption = ''
hexval.caption = ''
ckcval.Text = ''
end
end
function checkalpha(sender)
local visible = not af.Visible
af.Visible = visible
end
function close(sender)
fc.destroy()
af.destroy()
end
--======================================================================--events
af.OnMouseDown = function() af.DragNow() end
t1.onChange = btbChange
t2.onChange = gtbChange
t3.onChange = rtbChange
t4.onChange = TransChange
ckc.onClick = checkcolor
rtc.onClick = resetcolor
ptc.onClick = checkalpha
fc.onClose = close
|
_________________
DaSpamer
I am the leader of the lazy and with the books I made filters !!! |
|
| Back to top |
|
|
Corroder
Grandmaster Cheater Supreme
Reputation: 75
Joined: 10 Apr 2015
Posts: 1668
|
|
| Back to top |
|
|
avangers
Newbie cheater
![]() Reputation: 0
Joined: 20 Sep 2017
Posts: 18
|
| Posted: Thu Mar 28, 2019 11:38 am Post subject: |
|
|
yeah i did download it i think a year ago and still use it i like it i don't know anymore who did make it but i'm coding a more yeah special version for it ( just design ) and i love this tool and i always even if i didn't make it i always wanna try to help persons 
|
|
| Back to top |
|
|
Sondio
Newbie cheater
![]() Reputation: 1
Joined: 07 Mar 2019
Posts: 18
|
| Posted: Thu Mar 28, 2019 11:41 pm Post subject: |
|
|
Hi Corroder,
I respect your answer and renew my apologies,
for me you are my sensei for the scripts lua, you are a true master !!!
what do you think of this other version?
pieces of code I found on the forum (or extracted from your examples)
EDIT (01/04/2019-04.55am):
link -> mega.nz/#!lN1xwCoL!n_pZs--SxZNtd7TLW_1TZraQZFqZvMaODYtk19mW36c
add h-t-t-p-s:// at start of the link without '-'
p.s.
... surely it will have to be corrected!
_________________
DaSpamer
I am the leader of the lazy and with the books I made filters !!!
Last edited by Sondio on Sun Mar 31, 2019 9:34 pm; edited 2 times in total |
|
| Back to top |
|
|
AylinCE
Grandmaster Cheater Supreme
Reputation: 35
Joined: 16 Feb 2017
Posts: 1478
|
| Posted: Fri Mar 29, 2019 4:40 am Post subject: |
|
|
@Corroder, You started a flow
People develop and follow the flow.
You need to start a different project,
We're following you, buddy.
@Sondio, You should check the variables for copy paste.
| Code: | function BGRToHex(blue, green, red)
if(red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) then
if(alpha < 0 or alpha > 255 or red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) then
local r,g,b = c & 0xff, c >> 8 & 0xff, c >> 16 & 0xff |
| Code: | < = <
> >
& = & |
like
The project is beautiful.
And a suggestion: Not the code outputs, "LABEL",
Set to "EDIT".
Current HEX Color : (Print result "Edit") 
Current DEC Color : (Print result "Edit")
Selected HEX Color : (Print result "Edit") etc. etc. ...
People should be able to copy the result.
Users, too lazy to write.
These are only suggestions.
Good work, congratulations.
_________________
|
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
