Problems with transparancy of buttons/checkboxes/labels

[Captnplanet]

http://img84.imageshack.us/img84/6493/untitledaj1.jpg

This is just ugly. How do I make the labels and the checkboxes transparent?

This is what I got so far:

expandcollapse popup

#include <GUIConstants.au3>

GUICreate ($GUINAME,400,230)
$pic = GUICtrlCreatePic("C:\pic.jpg",0,0, 400,230)
Guictrlsetstate( $pic , $GUI_DISABLE )
GUISetFont(14,600)
GUICtrlCreateLabel($GUINAME,10,20)
GUISetFont(9,400)
$Var1_CHKBOX = GUICtrlCreateCheckbox("Printer 1",10,70)  ;Checkbox 1
$Var2_CHKBOX = GUICtrlCreateCheckbox("Printer 2",10,90)  ;Checkbox 2
$Var3_CHKBOX = GUICtrlCreateCheckbox("Printer 3",10,110)  
$Var4_Radio = GUICtrlCreateRadio("Zet als Default?  ",250,70) ;radio1
$Var5_Radio = GUICtrlCreateRadio("Zet als Default?  ",250,90) ;radio2
$Var6_Radio = GUICtrlCreateRadio("Zet als Default?  ",250,110) 
$Var7_Radio = GUICtrlCreateRadio("Oude Default behouden.  ", 250, 130)
$RUN = GUICtrlCreateButton("Printer Toevoegen",10,170,120,20)  ;This is the Run button
$EXIT = GUICtrlCreateButton("Afsluiten",168,170,120,20)  ;This is to exit the application
GUISetState()

Call ("Keep_Alive") ;This is the main function that keeps the program open even after you have ran one or more of the items.
                    ;Example, if you have 30 items you can run more items without having to restart the appliction.

Func Keep_Alive()
Do
   $msg = GUIGetMsg()
;This checks the state of the Checkbox if it is checked or 1 then it will set the variable to that.
$VarStatus1 = GUICtrlRead($Var1_CHKBOX)
$VarStatus2 = GUICtrlRead($Var2_CHKBOX)
$Varstatus3 = GUICtrlRead($Var3_CHKBOX)
$Varstatus4 = GUICtrlRead($Var4_Radio)
$Varstatus5 = GUICtrlRead($Var5_Radio)
$Varstatus6 = GUICtrlRead($Var6_Radio)
$Varstatus7 = Guictrlread($Var7_Radio)
Until $msg = $Run or $msg = $EXIT Or $msg = $GUI_EVENT_CLOSE


If $msg = $EXIT Then Exit
If $msg = $GUI_EVENT_CLOSE Then Exit
;If the status is 1 for the variable checkboxes when run is hit, it will execute those lines below which call the functions
SoundPlay("C:\ATEAM.mid")
If $VarStatus1 = 1 Then Call("ITEM_1")
If $VarStatus2 = 1 Then Call("ITEM_2")
If $VarStatus3 = 1 Then Call("ITEM_3")
If $VarStatus4 = 1 Then Call("ITEM_4")
If $VarStatus5 = 1 Then Call("ITEM_5")
If $VarStatus6 = 1 Then Call("ITEM_6")
If $VarStatus7 = 1 Then MsgBox(4096, "Printerbeheer", "Uw Standaardprinter is niet gewijzigd", 10)


Call ("Keep_Alive")
EndFunc


;This is where you would list your functions

Func ITEM_1()
_PrinterAdd("\\someprinterhere\printer")
EndFunc

Func ITEM_2()
_PrinterAdd("\\someprinterhere\printer)
EndFunc

Func ITEM_3()
_PrinterAdd("\\someprinterhere\printer")
EndFunc

Func ITEM_4()
_PrinterDefault("\\someprinterhere\printer")
EndFunc

Func ITEM_5()
_PrinterDefault("\\someprinterhere\printer")
EndFunc

Func ITEM_6()
_PrinterDefault("\\someprinterhere\printer")
EndFunc

I already tried searching a bit but that didnt help much. Thanks in advance.

Edited April 5, 2007 by Captnplanet

[smashly]

For Label you can set the back colour as transparent eg:

$Label = GUICtrlCreateLabel('Printer Control', 10, 20)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)oÝ÷ ØZ+rº1z̨¹Ê.ÛkÊë"¥i·¥z®¶­sbb33cµf#ô4´$õÒuT7G&Ä7&VFT6V6¶&÷gV÷C²gV÷C²ÃÃsÃ2Ã2´6V6¶&÷¤uT7G&Ä7&VFTÆ&VÂb33µ&çFW"b33²Ã#bÃs¤uT7G&Å6WD&´6öÆ÷"ÓÂb33c´uTô$´4ôÄõ%õE$å5$TåB¤uT7G&Å6WD6öÆ÷"ÓÃfffffb¤uT7G&Å6WDföçBÓÃÃCS  ¢b33cµf#%ô4´$õÒuT7G&Ä7&VFT6V6¶&÷gV÷C²gV÷C²ÃÃÃ2Ã2´6V6¶&÷ ¤uT7G&Ä7&VFTÆ&VÂb33µ&çFW""b33²Ã#bäuT7G&Å6WD&´6öÆ÷"ÓÂb33c´uTô$´4ôÄõ%õE$å5$TåB¤uT7G&Å6WD6öÆ÷"ÓÃfffffb¤uT7G&Å6WDföçBÓÃÃCS ¢b33cµf#5ô4´$õÒuT7G&Ä7&VFT6V6¶&÷gV÷C²gV÷C²ÃÃÃ2Ã2¤uT7G&Ä7&VFTÆ&VÂb33µ&çFW"2b33²Ã#bäuT7G&Å6WD&´6öÆ÷"ÓÂb33c´uTô$´4ôÄõ%õE$å5$TåB¤uT7G&Å6WD6öÆ÷"ÓÃfffffb¤uT7G&Å6WDföçBÓÃÃCS

As for radio controls and buttons I haven't looked into it..

But I'm sure with some imagination you can come up with a work around.

Good luck

Edited April 6, 2007 by smashly