rem Color Mixer V1.3 
  rem By Tommy Sools (tommy@sools.com) 

  %%color = $00000000 
  %i = 0 
  option decimalsep,. 
  option scale,96 
  dialog create,Dummy 
  dialog add,edit,eCopy 

  dialog CREATE,Color mixer,-1,0,337,257 
  dialog ADD,STYLE,sCenter,,6,C,BACKGROUND,FOREGROUND 
  dialog ADD,STYLE,sRed,,6,B,BACKGROUND,RED 
  dialog ADD,STYLE,sGreen,,6,B,BACKGROUND,DKGREEN 
  dialog ADD,STYLE,sBlue,,6,B,BACKGROUND,LTBLUE 
  dialog ADD,GROUP,gVDS,8,8,104,38,VDS 
  dialog ADD,TEXT,tVDS,24,16,88,16,%%color,,sCenter 
  dialog ADD,BUTTON,bVDS,56,8,104,24,Copy 
  dialog ADD,GROUP,gColor,8,120,96,96 
  dialog ADD,GROUP,gHTML,8,224,104,38,HTML 
  dialog ADD,TEXT,tHTML,24,232,88,16,#000000,,sCenter 
  dialog ADD,BUTTON,bHTML,56,224,104,24,Copy 
  dialog ADD,GROUP,gControls,120,8,320,128,Controls 
  dialog ADD,TEXT,tRed,148,16,,,R:,,sRed 
  dialog ADD,TRACKBAR,tbRed,144,40,280,24,,,,click 
  dialog ADD,TEXT,tGreen,180,16,,,G:,,sGreen 
  dialog ADD,TRACKBAR,tbGreen,176,40,280,24,,,,click 
  dialog ADD,TEXT,tBlue,212,16,,,B:,,sBlue 
  dialog ADD,TRACKBAR,tbBlue,208,40,280,24,,,,click 
  dialog SHOW 
  gosub addColor 
  list create,1 
:evloop 
  wait event,0.1 
  goto @event() 
:timer 
:tbRedclick 
:tbGreenclick 
:tbBlueclick 
  %%red    = @hex(@format(@fmul(@fdiv(@dlgtext(tbRed),100),255),3.0),2) 
  %%green  = @hex(@format(@fmul(@fdiv(@dlgtext(tbGreen),100),255),3.0),2) 
  %%blue   = @hex(@format(@fmul(@fdiv(@dlgtext(tbBlue),100),255),3.0),2) 
  %%color2 = $00%%blue%%green%%red 
  if @not(@equal(%%color,%%color2)) 
    %%color = %%color2 
    gosub addColor 
    dialog set,tVDS,%%color 
    dialog set,tHTML,#%%red%%green%%blue 
  end 
  goto evloop 
:bVDSbutton 
  %x = @dlgtext(tVDS) 
  dialog select,0 
  dialog set,eCopy,%x 
  %x = @sendmsg(@winexists(~eCopy),$0B1,0,@len(%x)) 
  %x = @sendmsg(@winexists(~eCopy),$0301,0,0) 
  dialog select,1 
  goto evloop 
:bHTMLbutton 
  %x = @dlgtext(tHTML) 
  dialog select,0 
  dialog set,eCopy,%x 
  %x = @sendmsg(@winexists(~eCopy),$0B1,0,@len(%x)) 
  %x = @sendmsg(@winexists(~eCopy),$0301,0,0) 
  dialog select,1 
  goto evloop 
:addColor 
  %i = @succ(%i) 
  dialog ADD,STYLE,sColor%i,,6,,%%color,FOREGROUND 
  dialog ADD,TEXT,tColor%i,10,122,91,91,,,sColor%i 
  if @not(@equal(%i,1)) 
    dialog remove,tColor@pred(%i) 
  end 
  exit 
:close 
  list close,1