Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
Boxes Functions
 | |
|
- Awesome ListBox in Boxes example
- Box - progress bar
- Box Command Stack Full
- Box coordinates
- Box Text Resize Problem
- Box Window with No Caption
- BoxButtonDraw and Font Sizes
- BoxColor in 2nd Box not Full Size
- BoxDataClear and Stack Management
- BoxDrawText with Erase Flag Not Working
- BoxDrawText Wrap
- BoxesUp Width Limitation
- BoxShut and Iconized Name Change
- BoxText Last Error 12000
- Centering BoxesUp and Some General Explanation Too
- Checking Button Status before BoxButtonWait
- Clarification on BoxUpdates Function
- Dialog with Box Functions
- Display a Box While Processing in Background
- Dynamically Create a Box with more than 16 buttons
- FTP Example Script from User
- Green Color Choosing Example
- Have Child Script Update Parent Box
- IntControl 1008 Capture Close Request
- ListBox in BoxesUp - Cool!
- Mixed Screen Colors with Boxes Functions
- Multiple Items and the Boxes Functions Example
- Resize Box to Text Size
- Sample Drawing Program
- Scrolling Status Screen Box
- Scrolling Text
- Txt Alignment in BoxDrawText
- Using Courier Font in Boxes
- Using Other Fonts in Boxes
- Where are the docs for drawing those pretty boxes
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Green Color Choosing Example
Keywords: boxes Color Choosing Example
I really don't know where to send an util I've built with WinBatch. It may be useful to a lot of people since it helps on choosing a color and, at the same time, creates on the clipboard a variable with the decimal code of the color and a summarized description.
You must use first the file ColorGreenType.wbt. It calls the other. This is done as it is to avoid the barrier of the 16 pushbuttons.
ColorGreenType.wbt
;-------------------------------------------------------------------------
;-----| MANUEL GALO FARIA © | | COLORGREENTYPE.WBT |
;-------------------------------------------------------------------------
;
;-------------------------------------------------------------------------
;-----| Program in WinBatch99, build 99d
;-------------------------------------------------------------------------
;-----| CREATES a window with many green colors grouped by type
;-----| ALLOWS the choice of a type of green
;-----| EDITS a window that allows, within that type, the choice of one color
;-------------------------------------------------------------------------
;-----| Calls: ColorGreen.wbt Called by:
;-------------------------------------------------------------------------
;-----| Notes:
;-------------------------------------------------------------------------
;-----building the window-------------------------------------------------
BoxDestroy(1)
BoxMapMode(1, 0)
BoxOpen("CHOICE of COLORS - Greens", "")
BoxesUp("0,0,1000,1000", @zoomed)
BoxColor(1, "0,0,0", 0)
BoxDrawRect(1, "0,0,1000,1000", 2)
;-----editing text--------------------------------------------------------
BoxTextColor(1, "255,255,255")
BoxDrawText(1, "30,30,100,200", "INSTRUCTIONS", @false, 0)
BoxDrawText(1, "30,30,100,200", "_____________", @false, 0)
BoxTextColor(1, "60,179,113")
BoxDrawText(1, "30,70,100,200", "1. Choose a type", @false, 0)
BoxDrawText(1, "30,100,100,200", " of color", @false, 0)
;-----building the colored rectangles-------------------------------------
;-----green basic---------------------------------------------------------
BoxColor(1,"0,80,0", 0)
BoxDrawRect(1, "230,80,280,180", 2)
BoxColor(1,"0,128,0", 0)
BoxDrawRect(1, "300,80,350,180", 2)
BoxColor(1,"0,192,0", 0)
BoxDrawRect(1, "370,80,420,180", 2)
BoxColor(1,"0,255,0", 0)
BoxDrawRect(1, "440,80,490,180", 2)
;-----green aquamarine----------------------------------------------------
BoxColor(1,"69,139,116", 0)
BoxDrawRect(1, "540,80,590,180", 2)
BoxColor(1,"102,205,170", 0)
BoxDrawRect(1, "610,80,660,180", 2)
BoxColor(1,"118,238,198", 0)
BoxDrawRect(1, "680,80,730,180", 2)
BoxColor(1,"127,255,212", 0)
BoxDrawRect(1, "750,80,800,180", 2)
;-----green chartreuse----------------------------------------------------
BoxColor(1,"69,187,0", 0)
BoxDrawRect(1, "230,230,280,330", 2)
BoxColor(1,"102,205,0", 0)
BoxDrawRect(1, "300,230,350,330", 2)
BoxColor(1,"118,238,0", 0)
BoxDrawRect(1, "370,230,420,330", 2)
BoxColor(1,"127,255,0", 0)
BoxDrawRect(1, "440,230,490,330", 2)
;-----green olive---------------------------------------------------------
BoxColor(1,"0,100,0", 0)
BoxDrawRect(1, "540,230,590,330", 2)
BoxColor(1,"85,107,47", 0)
BoxDrawRect(1, "610,230,660,330", 2)
BoxColor(1,"110,139,61", 0)
BoxDrawRect(1, "680,230,730,330", 2)
BoxColor(1,"162,205,90", 0)
BoxDrawRect(1, "750,230,800,330", 2)
BoxColor(1,"188,238,104", 0)
BoxDrawRect(1, "820,230,870,330", 2)
BoxColor(1,"202,255,112", 0)
BoxDrawRect(1, "890,230,940,330", 2)
;-----green sea[1]--------------------------------------------------------
BoxColor(1,"105,139,105", 0)
BoxDrawRect(1, "230,380,280,480", 2)
BoxColor(1,"60,179,113", 0)
BoxDrawRect(1, "300,380,350,480", 2)
BoxColor(1,"143,188,143", 0)
BoxDrawRect(1, "370,380,420,480", 2)
BoxColor(1,"155,205,155", 0)
BoxDrawRect(1, "440,380,490,480", 2)
BoxColor(1,"180,238,180", 0)
BoxDrawRect(1, "510,380,560,480", 2)
BoxColor(1,"193,255,193", 0)
BoxDrawRect(1, "580,380,630,480", 2)
;-----green sea[2]--------------------------------------------------------
BoxColor(1,"46,139,87", 0)
BoxDrawRect(1, "680,380,730,480", 2)
BoxColor(1,"67,205,128", 0)
BoxDrawRect(1, "750,380,800,480", 2)
BoxColor(1,"78,238,148", 0)
BoxDrawRect(1, "820,380,870,480", 2)
BoxColor(1,"84,255,159", 0)
BoxDrawRect(1, "890,380,940,480", 2)
;-----green grass---------------------------------------------------------
BoxColor(1,"105,139,34", 0)
BoxDrawRect(1, "230,530,280,630", 2)
BoxColor(1,"107,142,35", 0)
BoxDrawRect(1, "300,530,350,630", 2)
BoxColor(1,"154,205,50", 0)
BoxDrawRect(1, "370,530,420,630", 2)
BoxColor(1,"179,238,58", 0)
BoxDrawRect(1, "440,530,490,630", 2)
BoxColor(1,"192,255,62", 0)
BoxDrawRect(1, "510,530,560,630", 2)
;-----green pale----------------------------------------------------------
BoxColor(1,"84,139,84", 0)
BoxDrawRect(1, "610,530,660,630", 2)
BoxColor(1,"124,205,124", 0)
BoxDrawRect(1, "680,530,730,630", 2)
BoxColor(1,"144,238,144", 0)
BoxDrawRect(1, "750,530,800,630", 2)
BoxColor(1,"154,255,154", 0)
BoxDrawRect(1, "820,530,870,630", 2)
BoxColor(1,"152,251,152", 0)
BoxDrawRect(1, "890,530,940,630", 2)
;-----green spring--------------------------------------------------------
BoxColor(1,"0,139,69", 0)
BoxDrawRect(1, "230,680,280,780", 2)
BoxColor(1,"0,205,102", 0)
BoxDrawRect(1, "300,680,350,780", 2)
BoxColor(1,"0,238,118", 0)
BoxDrawRect(1, "370,680,420,780", 2)
BoxColor(1,"0,255,127", 0)
BoxDrawRect(1, "440,680,490,780", 2)
;-----green miscellaneous-------------------------------------------------
BoxColor(1,"34,139,34", 0)
BoxDrawRect(1, "540,680,590,780", 2)
BoxColor(1,"173,255,47", 0)
BoxDrawRect(1, "610,680,660,780", 2)
BoxColor(1,"124,252,0", 0)
BoxDrawRect(1, "680,680,730,780", 2)
BoxColor(1,"50,205,50", 0)
BoxDrawRect(1, "750,680,800,780", 2)
BoxColor(1,"0,250,154", 0)
BoxDrawRect(1, "820,680,870,780", 2)
;-----defining buttons----------------------------------------------------
BoxButtonDraw(1, 1, "Basic", "255,85,467,125")
BoxButtonDraw(1, 2, "Aquamarine", "565,85,777,125")
BoxButtonDraw(1, 3, "Chartreuse", "255,235,467,275")
BoxButtonDraw(1, 4, "Olive", "565,235,920,275")
BoxButtonDraw(1, 5, "Sea [1]", "255,385,610,425")
BoxButtonDraw(1, 6, "Sea [2]", "700,385,920,425")
BoxButtonDraw(1, 7, "Grass", "255,535,540,575")
BoxButtonDraw(1, 8, "Pale", "630,535,920,575")
BoxButtonDraw(1, 9, "Spring", "255,685,467,725")
BoxButtonDraw(1, 10, "Miscellaneous", "565,685,850,725")
BoxButtonDraw(1, 11, "CANCEL", "50,800,160,850")
BoxButtonWait()
;-----defining data to the clipboard accordingly--------------------------
;-----the chosed button---------------------------------------------------
If BoxButtonstat(1,1) then call ("colorgreen.wbt", "green01")
If BoxButtonstat(1,2) then call ("colorgreen.wbt", "green02")
If BoxButtonstat(1,3) then call ("colorgreen.wbt", "green03")
If BoxButtonstat(1,4) then call ("colorgreen.wbt", "green04")
If BoxButtonstat(1,5) then call ("colorgreen.wbt", "green05")
If BoxButtonstat(1,6) then call ("colorgreen.wbt", "green06")
If BoxButtonstat(1,7) then call ("colorgreen.wbt", "green07")
If BoxButtonstat(1,8) then call ("colorgreen.wbt", "green08")
If BoxButtonstat(1,9) then call ("colorgreen.wbt", "green09")
If BoxButtonstat(1,10) then call ("colorgreen.wbt", "green10")
If BoxButtonstat(1,11) then goto end
:end
;-------------------------------------------------------------------------
;-----parameters created--------(yes)-----[greenNN]-----------------------
;-----data on the clipboard-----(none)------------------------------------
;-----variables created---------(none)------------------------------------
;-------------------------------------------------------------------------
; end of program | COLORGREENTYPE.WBT |
ColorGreen.wbt
;-------------------------------------------------------------------------
;-----| MANUEL GALO FARIA © | | COLORGREEN.WBT |
;-------------------------------------------------------------------------
;
;-------------------------------------------------------------------------
;-----| Program in WinBatch99, build 99d
;-------------------------------------------------------------------------
;-----| CREATES a window with all the green colors grouped by type
;-----| ALLOWS the choice of a number of a color, within a type
;-----| PUTS on the clipboard a variable with the decimal code of the color
;-----| chosen and a description
;-------------------------------------------------------------------------
;-----| Calls: Called by: ColorGreenType.wbt
;-------------------------------------------------------------------------
;-----| Notes: As an example, the first four lines of this program are
;-----| the variables for the first type of color (green basic)
;-----| This is the best way to use color codes
;-----| This program just intends to give an example on how to
;-----| help a programmer to deal with colors
;-------------------------------------------------------------------------
grebas1="0,80,0" ;green basic 1 ;-----var
grebas2="0,128,0" ;green basic 2 ;-----var
grebas3="0,192,0" ;green basic 3 ;-----var
grebas4="0,255,0" ;green basic 4 ;-----var
;-----building the window-------------------------------------------------
BoxDestroy(1)
BoxMapMode(1, 0)
BoxOpen("CHOICE OF COLORS - Greens", "")
BoxesUp("0,0,1000,1000", @zoomed)
BoxColor(1, "0,0,0", 0)
BoxDrawRect(1, "0,0,1000,1000", 2)
;-----editing text--------------------------------------------------------
BoxTextColor(1, "255,255,255")
BoxDrawText(1, "30,30,100,200", "INSTRUCTIONS", @false, 0)
BoxTextColor(1, "255,255,255")
BoxDrawText(1, "30,30,100,200", "_____________", @false, 0)
BoxTextColor(1, "193,205,205")
BoxDrawText(1, "30,70,100,200", "1. Choose a type", @false, 0)
BoxDrawText(1, "30,100,100,200", " of color", @false, 0)
BoxTextColor(1, "255,0,0")
BoxDrawText(1, "130,100,180,200", "OK", @false, 0)
BoxTextColor(1, "60,179,113")
BoxDrawText(1, "30,130,100,200", "2. Within the type", @false, 0)
BoxDrawText(1, "30,190,100,220", " choose the number", @false, 0)
BoxDrawText(1, "30,220,100,250", " of the wanted", @false, 0)
BoxDrawText(1, "30,250,100,280", " color", @false, 0)
BoxTextColor(1, "180,238,180")
BoxDrawText(1, "30,300,100,330", "(The chosen color is", @false, 0)
BoxDrawText(1, "30,330,100,360", "going to be added to", @false, 0)
BoxDrawText(1, "30,360,100,390", "the «ClipBoard» as", @false, 0)
BoxDrawText(1, "30,390,100,420", "a variable with the", @false, 0)
BoxDrawText(1, "30,420,100,450", "decimal code of that", @false, 0)
BoxDrawText(1, "30,450,100,480", "color and a comment", @false, 0)
BoxDrawText(1, "30,480,100,510", "with a description)", @false, 0)
;-----building the colored rectangles-------------------------------------
;-----green basic---------------------------------------------------------
BoxColor(1,grebas1, 0)
BoxDrawRect(1, "230,80,280,180", 2)
BoxColor(1,grebas2, 0)
BoxDrawRect(1, "300,80,350,180", 2)
BoxColor(1,grebas3, 0)
BoxDrawRect(1, "370,80,420,180", 2)
BoxColor(1,grebas4, 0)
BoxDrawRect(1, "440,80,490,180", 2)
;-----green aquamarine----------------------------------------------------
BoxColor(1,"69,139,116", 0)
BoxDrawRect(1, "540,80,590,180", 2)
BoxColor(1,"102,205,170", 0)
BoxDrawRect(1, "610,80,660,180", 2)
BoxColor(1,"118,238,198", 0)
BoxDrawRect(1, "680,80,730,180", 2)
BoxColor(1,"127,255,212", 0)
BoxDrawRect(1, "750,80,800,180", 2)
;-----green chartreuse----------------------------------------------------
BoxColor(1,"69,187,0", 0)
BoxDrawRect(1, "230,230,280,330", 2)
BoxColor(1,"102,205,0", 0)
BoxDrawRect(1, "300,230,350,330", 2)
BoxColor(1,"118,238,0", 0)
BoxDrawRect(1, "370,230,420,330", 2)
BoxColor(1,"127,255,0", 0)
BoxDrawRect(1, "440,230,490,330", 2)
;-----green olive---------------------------------------------------------
BoxColor(1,"0,100,0", 0)
BoxDrawRect(1, "540,230,590,330", 2)
BoxColor(1,"85,107,47", 0)
BoxDrawRect(1, "610,230,660,330", 2)
BoxColor(1,"110,139,61", 0)
BoxDrawRect(1, "680,230,730,330", 2)
BoxColor(1,"162,205,90", 0)
BoxDrawRect(1, "750,230,800,330", 2)
BoxColor(1,"188,238,104", 0)
BoxDrawRect(1, "820,230,870,330", 2)
BoxColor(1,"202,255,112", 0)
BoxDrawRect(1, "890,230,940,330", 2)
;-----green sea[1]--------------------------------------------------------
BoxColor(1,"105,139,105", 0)
BoxDrawRect(1, "230,380,280,480", 2)
BoxColor(1,"60,179,113", 0)
BoxDrawRect(1, "300,380,350,480", 2)
BoxColor(1,"143,188,143", 0)
BoxDrawRect(1, "370,380,420,480", 2)
BoxColor(1,"155,205,155", 0)
BoxDrawRect(1, "440,380,490,480", 2)
BoxColor(1,"180,238,180", 0)
BoxDrawRect(1, "510,380,560,480", 2)
BoxColor(1,"193,255,193", 0)
BoxDrawRect(1, "580,380,630,480", 2)
;-----green sea[2]--------------------------------------------------------
BoxColor(1,"46,139,87", 0)
BoxDrawRect(1, "680,380,730,480", 2)
BoxColor(1,"67,205,128", 0)
BoxDrawRect(1, "750,380,800,480", 2)
BoxColor(1,"78,238,148", 0)
BoxDrawRect(1, "820,380,870,480", 2)
BoxColor(1,"84,255,159", 0)
BoxDrawRect(1, "890,380,940,480", 2)
;-----green grass---------------------------------------------------------
BoxColor(1,"105,139,34", 0)
BoxDrawRect(1, "230,530,280,630", 2)
BoxColor(1,"107,142,35", 0)
BoxDrawRect(1, "300,530,350,630", 2)
BoxColor(1,"154,205,50", 0)
BoxDrawRect(1, "370,530,420,630", 2)
BoxColor(1,"179,238,58", 0)
BoxDrawRect(1, "440,530,490,630", 2)
BoxColor(1,"192,255,62", 0)
BoxDrawRect(1, "510,530,560,630", 2)
;-----green pale----------------------------------------------------------
BoxColor(1,"84,139,84", 0)
BoxDrawRect(1, "610,530,660,630", 2)
BoxColor(1,"124,205,124", 0)
BoxDrawRect(1, "680,530,730,630", 2)
BoxColor(1,"144,238,144", 0)
BoxDrawRect(1, "750,530,800,630", 2)
BoxColor(1,"154,255,154", 0)
BoxDrawRect(1, "820,530,870,630", 2)
BoxColor(1,"152,251,152", 0)
BoxDrawRect(1, "890,530,940,630", 2)
;-----green spring--------------------------------------------------------
BoxColor(1,"0,139,69", 0)
BoxDrawRect(1, "230,680,280,780", 2)
BoxColor(1,"0,205,102", 0)
BoxDrawRect(1, "300,680,350,780", 2)
BoxColor(1,"0,238,118", 0)
BoxDrawRect(1, "370,680,420,780", 2)
BoxColor(1,"0,255,127", 0)
BoxDrawRect(1, "440,680,490,780", 2)
;-----green miscellaneous-------------------------------------------------
BoxColor(1,"34,139,34", 0)
BoxDrawRect(1, "540,680,590,780", 2)
BoxColor(1,"173,255,47", 0)
BoxDrawRect(1, "610,680,660,780", 2)
BoxColor(1,"124,252,0", 0)
BoxDrawRect(1, "680,680,730,780", 2)
BoxColor(1,"50,205,50", 0)
BoxDrawRect(1, "750,680,800,780", 2)
BoxColor(1,"0,250,154", 0)
BoxDrawRect(1, "820,680,870,780", 2)
;-----proceed according the parameter-------------------------------------
;-----if the program is called without parameters-------------------------
if param0==0
goto noparam
endif
;-----if the program is called with parameters----------------------------
param1=StrUpper(param1)
;-----se for uma necessidade de ajuda-----------------------------------------------
if param1=="?"
goto help
else
if param1=="GREEN01"
goto green01
else
if param1=="GREEN02"
goto green02
else
if param1=="GREEN03"
goto green03
else
if param1=="GREEN04"
goto green04
else
if param1=="GREEN05"
goto green05
else
if param1=="GREEN06"
goto green06
else
if param1=="GREEN07"
goto green07
else
if param1=="GREEN08"
goto green08
else
if param1=="GREEN09"
goto green09
else
if param1=="GREEN10"
goto green10
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
;-----defining buttons and entries on the clipboard-----------------------
;-----green basic---------------------------------------------------------
:green01
BoxButtonDraw(1, 1, "1", "255,85,275,130")
BoxButtonDraw(1, 2, "2", "325,85,345,130")
BoxButtonDraw(1, 3, "3", "395,85,415,130")
BoxButtonDraw(1, 4, "4", "465,85,485,130")
BoxButtonDraw(1, 5, "BACK to TYPES", "35,700,175,750")
BoxButtonDraw(1, 6, "CANCEL", "50,800,160,850")
BoxTextColor(1, "255,0,0")
BoxDrawText(1, "50,160,100,200", "Basic", @false, 0)
BoxButtonWait()
If BoxButtonstat(1,1) then ClipPut ("grebas1=""0,80,0"" ;green basic 1")
If BoxButtonstat(1,2) then ClipPut ("grebas2=""0,128,0"" ;green basic 2")
If BoxButtonstat(1,3) then ClipPut ("grebas3=""0,192,0"" ;green basic 3")
If BoxButtonstat(1,4) then ClipPut ("grebas4=""0,255,0"" ;green basic 4")
If BoxButtonstat(1,5) then call ("c:\winbatch\utils\colorgreentype.wbt", "")
If BoxButtonstat(1,6) then goto end
goto end
;-----green aquamarine----------------------------------------------------
:green02
BoxButtonDraw(1, 1, "1", "565,85,585,130")
BoxButtonDraw(1, 2, "2", "635,85,655,130")
BoxButtonDraw(1, 3, "3", "705,85,725,130")
BoxButtonDraw(1, 4, "4", "775,85,795,130")
BoxButtonDraw(1, 5, "BACK to TYPES", "35,700,175,750")
BoxButtonDraw(1, 6, "CANCEL", "50,800,160,850")
BoxTextColor(1, "255,0,0")
BoxDrawText(1, "50,160,100,200", "Aquamarine", @false, 0)
BoxButtonWait()
If BoxButtonstat(1,1) then ClipPut ("greaqu1=""69,139,116"" ;green aquamarine 1")
If BoxButtonstat(1,2) then ClipPut ("greaqu2=""102,205,170"" ;green aquamarine 2")
If BoxButtonstat(1,3) then ClipPut ("greaqu3=""118,238,198"" ;green aquamarine 3")
If BoxButtonstat(1,4) then ClipPut ("greaqu4=""127,255,212"" ;green aquamarine 4")
If BoxButtonstat(1,5) then call ("c:\winbatch\utils\colorgreentype.wbt", "")
If BoxButtonstat(1,6) then goto end
goto end
;-----green chartreuse----------------------------------------------------
:green03
BoxButtonDraw(1, 1, "1", "255,235,275,280")
BoxButtonDraw(1, 2, "2", "325,235,345,280")
BoxButtonDraw(1, 3, "3", "395,235,415,280")
BoxButtonDraw(1, 4, "4", "465,235,485,280")
BoxButtonDraw(1, 5, "BACK to TYPES", "35,700,175,750")
BoxButtonDraw(1, 6, "CANCEL", "50,800,160,850")
BoxTextColor(1, "255,0,0")
BoxDrawText(1, "50,160,100,200", "Chartreuse", @false, 0)
BoxButtonWait()
If BoxButtonstat(1,1) then ClipPut ("grecha1=""69,187,0"" ;green chartreuse 1")
If BoxButtonstat(1,2) then ClipPut ("grecha2=""102,205,0"" ;green chartreuse 2")
If BoxButtonstat(1,3) then ClipPut ("grecha3=""118,238,0"" ;green chartreuse 3")
If BoxButtonstat(1,4) then ClipPut ("grecha4=""127,255,0"" ;green chartreuse 4")
If BoxButtonstat(1,5) then call ("c:\winbatch\utils\colorgreentype.wbt", "")
If BoxButtonstat(1,6) then goto end
goto end
;-----green olive---------------------------------------------------------
:green04
BoxButtonDraw(1, 1, "1", "565,235,585,280")
BoxButtonDraw(1, 2, "2", "635,235,655,280")
BoxButtonDraw(1, 3, "3", "705,235,725,280")
BoxButtonDraw(1, 4, "4", "775,235,795,280")
BoxButtonDraw(1, 5, "5", "845,235,865,280")
BoxButtonDraw(1, 6, "6", "915,235,935,280")
BoxButtonDraw(1, 7, "BACK to TYPES", "35,700,175,750")
BoxButtonDraw(1, 8, "CANCEL", "50,800,160,850")
BoxTextColor(1, "255,0,0")
BoxDrawText(1, "50,160,100,200", "Olive", @false, 0)
BoxButtonWait()
If BoxButtonstat(1,1) then ClipPut ("greoli1=""0,100,0"" ;green olive 1")
If BoxButtonstat(1,2) then ClipPut ("greoli2=""85,107,47"" ;green olive 2")
If BoxButtonstat(1,3) then ClipPut ("greoli3=""110,139,61"" ;green olive 3")
If BoxButtonstat(1,4) then ClipPut ("greoli4=""162,205,90"" ;green olive 4")
If BoxButtonstat(1,5) then ClipPut ("greoli5=""188,238,104"" ;green olive 5")
If BoxButtonstat(1,6) then ClipPut ("greoli6=""202,255,112"" ;green olive 6")
If BoxButtonstat(1,7) then call ("c:\winbatch\utils\colorgreentype.wbt", "")
If BoxButtonstat(1,8) then goto end
goto end
;-----green sea[1]--------------------------------------------------------
:green05
BoxButtonDraw(1, 1, "1", "255,385,275,430")
BoxButtonDraw(1, 2, "2", "325,385,345,430")
BoxButtonDraw(1, 3, "3", "395,385,415,430")
BoxButtonDraw(1, 4, "4", "465,385,485,430")
BoxButtonDraw(1, 5, "5", "535,385,555,430")
BoxButtonDraw(1, 6, "6", "605,385,625,430")
BoxButtonDraw(1, 7, "BACK to TYPES", "35,700,175,750")
BoxButtonDraw(1, 8, "CANCEL", "50,800,160,850")
BoxTextColor(1, "255,0,0")
BoxDrawText(1, "50,160,100,200", "Sea [1]", @false, 0)
BoxButtonWait()
If BoxButtonstat(1,1) then ClipPut ("gresea11=""105,139,105"" ;green sea[1] 1")
If BoxButtonstat(1,2) then ClipPut ("gresea12=""60,179,113"" ;green sea[1] 2")
If BoxButtonstat(1,3) then ClipPut ("gresea13=""143,188,143"" ;green sea[1] 3")
If BoxButtonstat(1,4) then ClipPut ("gresea14=""155,205,155"" ;green sea[1] 4")
If BoxButtonstat(1,5) then ClipPut ("gresea15=""180,238,180"" ;green sea[1] 5")
If BoxButtonstat(1,6) then ClipPut ("gresea16=""193,255,193"" ;green sea[1] 6")
If BoxButtonstat(1,7) then call ("c:\winbatch\utils\colorgreentype.wbt", "")
If BoxButtonstat(1,8) then goto end
goto end
;-----green sea[2]--------------------------------------------------------
:green06
BoxButtonDraw(1, 1, "1", "705,385,725,430")
BoxButtonDraw(1, 2, "2", "775,385,795,430")
BoxButtonDraw(1, 3, "3", "845,385,865,430")
BoxButtonDraw(1, 4, "4", "915,385,935,430")
BoxButtonDraw(1, 5, "BACK to TYPES", "35,700,175,750")
BoxButtonDraw(1, 6, "CANCEL", "50,800,160,850")
BoxTextColor(1, "255,0,0")
BoxDrawText(1, "50,160,100,200", "Sea [2]", @false, 0)
BoxButtonWait()
If BoxButtonstat(1,1) then ClipPut ("gresea21=""46,139,87"" ;green sea[2] 1")
If BoxButtonstat(1,2) then ClipPut ("gresea22=""67,205,128"" ;green sea[2] 2")
If BoxButtonstat(1,3) then ClipPut ("gresea23=""78,238,148"" ;green sea[2] 3")
If BoxButtonstat(1,4) then ClipPut ("gresea24=""84,255,159"" ;green sea[2] 4")
If BoxButtonstat(1,5) then call ("c:\winbatch\utils\colorgreentype.wbt", "")
If BoxButtonstat(1,6) then goto end
goto end
;-----green grass---------------------------------------------------------
:green07
BoxButtonDraw(1, 1, "1", "255,535,275,580")
BoxButtonDraw(1, 2, "2", "325,535,345,580")
BoxButtonDraw(1, 3, "3", "395,535,415,580")
BoxButtonDraw(1, 4, "4", "465,535,485,580")
BoxButtonDraw(1, 5, "5", "535,535,555,580")
BoxButtonDraw(1, 6, "BACK to TYPES", "35,700,175,750")
BoxButtonDraw(1, 7, "CANCEL", "50,800,160,850")
BoxTextColor(1, "255,0,0")
BoxDrawText(1, "50,160,100,200", "Grass", @false, 0)
BoxButtonWait()
If BoxButtonstat(1,1) then ClipPut ("gregra1=""105,139,34"" ;green grass 1")
If BoxButtonstat(1,2) then ClipPut ("gregra2=""107,142,35"" ;green grass 2")
If BoxButtonstat(1,3) then ClipPut ("gregra3=""154,205,50"" ;green grass 3")
If BoxButtonstat(1,4) then ClipPut ("gregra4=""179,238,58"" ;green grass 4")
If BoxButtonstat(1,5) then ClipPut ("gregra5=""192,255,62"" ;green grass 5")
If BoxButtonstat(1,6) then call ("c:\winbatch\utils\colorgreentype.wbt", "")
If BoxButtonstat(1,7) then goto end
goto end
;-----green pale----------------------------------------------------------
:green08
BoxButtonDraw(1, 1, "1", "635,535,655,580")
BoxButtonDraw(1, 2, "2", "705,535,725,580")
BoxButtonDraw(1, 3, "3", "775,535,795,580")
BoxButtonDraw(1, 4, "4", "845,535,865,580")
BoxButtonDraw(1, 5, "5", "915,535,935,580")
BoxButtonDraw(1, 6, "BACK to TYPES", "35,700,175,750")
BoxButtonDraw(1, 7, "CANCEL", "50,800,160,850")
BoxTextColor(1, "255,0,0")
BoxDrawText(1, "50,160,100,200", "Pale", @false, 0)
BoxButtonWait()
If BoxButtonstat(1,1) then ClipPut ("grepal1=""84,139,84"" ;green pale 1")
If BoxButtonstat(1,2) then ClipPut ("grepal2=""124,205,124"" ;green pale 2")
If BoxButtonstat(1,3) then ClipPut ("grepal3=""144,238,144"" ;green pale 3")
If BoxButtonstat(1,4) then ClipPut ("grepal4=""154,255,154"" ;green pale 4")
If BoxButtonstat(1,5) then ClipPut ("grepal5=""152,251,152"" ;green pale 5")
If BoxButtonstat(1,6) then call ("c:\winbatch\utils\colorgreentype.wbt", "")
If BoxButtonstat(1,7) then goto end
goto end
;-----green spring--------------------------------------------------------
:green09
BoxButtonDraw(1, 1, "1", "255,685,275,730")
BoxButtonDraw(1, 2, "2", "325,685,345,730")
BoxButtonDraw(1, 3, "3", "395,685,415,730")
BoxButtonDraw(1, 4, "4", "465,685,485,730")
BoxButtonDraw(1, 5, "BACK to TYPES", "35,700,175,750")
BoxButtonDraw(1, 6, "CANCEL", "50,800,160,850")
BoxTextColor(1, "255,0,0")
BoxDrawText(1, "50,160,100,200", "Spring", @false, 0)
BoxButtonWait()
If BoxButtonstat(1,1) then ClipPut ("grespr1=""0,139,69"" ;green spring 1")
If BoxButtonstat(1,2) then ClipPut ("grespr2=""0,205,102"" ;green spring 2")
If BoxButtonstat(1,3) then ClipPut ("grespr3=""0,238,118"" ;green spring 3")
If BoxButtonstat(1,4) then ClipPut ("grespr4=""0,255,127"" ;green spring 4")
If BoxButtonstat(1,5) then call ("c:\winbatch\utils\colorgreentype.wbt", "")
If BoxButtonstat(1,6) then goto end
goto end
;-----green miscellaneous-------------------------------------------------
:green10
BoxButtonDraw(1, 1, "1", "565,685,585,730")
BoxButtonDraw(1, 2, "2", "635,685,655,730")
BoxButtonDraw(1, 3, "3", "705,685,725,730")
BoxButtonDraw(1, 4, "4", "775,685,795,730")
BoxButtonDraw(1, 5, "5", "845,685,865,730")
BoxButtonDraw(1, 6, "BACK to TYPES", "35,700,175,750")
BoxButtonDraw(1, 7, "CANCEL", "50,800,160,850")
BoxTextColor(1, "255,0,0")
BoxDrawText(1, "50,160,100,200", "Miscellaneous", @false, 0)
BoxButtonWait()
If BoxButtonstat(1,1) then ClipPut ("gremis1=""34,139,34"" ;green miscellaneous 1")
If BoxButtonstat(1,2) then ClipPut ("gremis2=""173,255,47"" ;green miscellaneous 2")
If BoxButtonstat(1,3) then ClipPut ("gremis3=""124,252,0"" ;green miscellaneous 3")
If BoxButtonstat(1,4) then ClipPut ("gremis4=""50,205,50"" ;green miscellaneous 4")
If BoxButtonstat(1,5) then ClipPut ("gremis5=""0,250,154"" ;green miscellaneous 5")
If BoxButtonstat(1,6) then call ("c:\winbatch\utils\colorgreentype.wbt", "")
If BoxButtonstat(1,7) then goto end
goto end
:noparam
BoxButtonDraw(1, 7, "BACK to TYPES", "35,700,175,750")
BoxButtonDraw(1, 8, "CANCEL", "50,800,160,850")
BoxButtonWait()
goto end
:help
message("Help - ColorGreen.wbt", "anything you want")
goto end
:end
drop(grebas1, grebas2, grebas3, grebas4)
exit
;-------------------------------------------------------------------------
;-----parameters created--------(none)------------------------------------
;-----data on the clipboard-----(yes)-----[greaaa[n]n]--------------------
;-----variables created---------(yes-droped)------------------------------
;-------------------------------------------------------------------------
; end of program | COLORGREEN.WBT |
Article ID: W14575
Filename: Green Color Choosing Example.txt
File Created: 2000:09:19:15:45:22
Last Updated: 2000:09:19:15:45:22