Jump to content
Sign in to follow this  

Problems with transparancy of buttons/checkboxes/labels

Recommended Posts



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

This is what I got so far:

#include <GUIConstants.au3>

GUICreate ($GUINAME,400,230)
$pic = GUICtrlCreatePic("C:\pic.jpg",0,0, 400,230)
Guictrlsetstate( $pic , $GUI_DISABLE )
$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

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()
   $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
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")

;This is where you would list your functions

Func ITEM_1()

Func ITEM_2()

Func ITEM_3()

Func ITEM_4()

Func ITEM_5()

Func ITEM_6()

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

Edited by Captnplanet

Share this post

Link to post
Share on other sites

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 by smashly

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this