Checkbox Arkaplan Rengini Şeffaf Yapma

[SimpsoN_Bart]

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

 

[mesale0077]

link kırık yada ulaşamıyorum

örnek.rar dosyasını indirme yapamıyorum.

Edited June 15, 2013 by MostWanted
uzun alıntı

[yasak_ask]

link kırık yada ulaşamıyorum

örnek.rar dosyasını indirme yapamıyorum.

https://mega.co.nz/#!MAJFBIyR!DnE-jWTVcYTeqHW-T-47MVrdqLpozPbpr9CC5yDw_90

Edited June 15, 2013 by yasak_ask