Search the Community

Bilindiği üzere Checkbox kontrolu, arkaplan üzerine yerleştirildiğinde tam olarak şeffaf olmuyor bunun önüne geçmek için gui temasını devre dışı bırakıyoruz.. Bu şekilde de pek hoş durmuyor onun için uzun zaman önce üzerinde biraz çalıştım ve belli bir sonuca ulaştım ta geçen yazlardan "Ben bunu geliştiririm Lan" Diyen bir genç moderator arkadaşımız hala fonksiyonlara ellemediği için bu şekliyle kaldı :D İsim vermicem o kendini biliyor. Neyse programın çalışması için OnEvent etkin olması gerekmektedir.Geliştirilmesi size kalmış zaten yeterince yıllandı.Umarım işinize yarar kolay gelsin :D #RequireAdmin Opt('GUICloseOnESC', 1) $Form1 = GUICreate("CheckBox Transpar Örneği S.K.", 402, 403, 192, 124) $Pic1 = GUICtrlCreatePic("C:\Users\SAMET-PC\Desktop\back.JPG", 0, 0, 401, 399) GUICtrlSetState(-1, 128) GUISetOnEvent(-3, '_End') $Checkbox1 = _SK_GUICtrlCreateCheckbox("Bu Bir Control Kutusu", 104, 48, 161) GUICtrlSetFont(-1, 14, 400) $Checkbox2 = _SK_GUICtrlCreateCheckbox("Hepsini Seç", 104, 80, 161) GUICtrlSetFont(-1, 14, 400) $Checkbox3 = _SK_GUICtrlCreateCheckbox("Tümünü Kaldır", 104, 112, 161) GUICtrlSetFont(-1, 14, 400) $Button1 = GUICtrlCreateButton("Tamam", 104, 160, 163, 25) GUICtrlSetOnEvent(-1, '_MESSAGE') GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit EndSwitch WEnd Func _MESSAGE() MsgBox(64, "Bilgi", "İşlemler Bu Şekilde", 5, $Form1) EndFunc ;==>_MESSAGE Func _SK_GUICtrlCreateCheckbox($_text, $_left, $_top, $_width) AutoItSetOption("GUIOnEventMode", 1) Local $mCheckbox = GUICtrlCreateCheckbox("", $_left, $_top, 13, 13) GUICtrlSetState(-1, 1) GUICtrlSetResizing(-1, 0x0300) Local $mLabel = GUICtrlCreateLabel($_text, $_left + 18, $_top, $_width - 18) GUICtrlSetOnEvent(-1, "_ControlCheckbox") GUICtrlSetBkColor(-1, -2) Return $mCheckbox EndFunc ;==>_SK_GUICtrlCreateCheckbox Func _ControlCheckbox() Local $CTRL_ID = @GUI_CtrlId - 1 GUICtrlSetState($CTRL_ID, __Iif(BitAND(GUICtrlRead($CTRL_ID), 1), 4, 1)) EndFunc ;==>_ControlCheckbox Func __Iif($fTest, $vTrueVal, $vFalseVal) If $fTest Then Return $vTrueVal Else Return $vFalseVal EndIf EndFunc ;==>__Iif Func _End() Exit 1 EndFunc ;==>_End