Clicking on label not working

[ahmeddzcom]

Hi

Clicking on Button working But Clicking on label not working

expandcollapse popup

#include <GUIConstants.au3>
#include <Misc.au3>


    $Blue = "0x0000FF"
    $Red = "0xFF0000"
    $FNT = "Comic Sans Ms"

GUICreate ("Test")

$idButton = GUICtrlCreateButton("Change", 210, 170, 85, 25)

    If RegRead("HKEY_CURRENT_USER\Software","Dz") = "0" Then
        $idLabel = GUICtrlCreateLabel ("Label", 122, 74, 100, 18)
        GUICtrlSetColor($idLabel, $Red)
        GUICtrlSetFont(-1, 12, $FW_NORMAL, $GUI_FONTITALIC,$FNT)
    Else
        $idLabel = GUICtrlCreateLabel ("Label", 122, 74, 100, 18)
        GUICtrlSetColor($idLabel, $Blue)
        GUICtrlSetFont(-1, 12, $FW_NORMAL, $GUI_FONTITALIC,$FNT)
        RegWrite("HKEY_CURRENT_USER\Software","Dz","REG_SZ","1")
    EndIf

GUISetState ()
While 1
  Switch GUIGetMsg()

    Case $GUI_EVENT_CLOSE
      ExitLoop

      Case $idButton , $idLabel

        If RegRead("HKEY_CURRENT_USER\Software","Dz") = 1 Then
            $idLabel = GUICtrlCreateLabel ("Label", 122, 74, 100, 18)
            GUICtrlSetColor($idLabel, $Red)
            GUICtrlSetFont(-1, 12, $FW_NORMAL, $GUI_FONTITALIC,$FNT)
            RegWrite("HKEY_CURRENT_USER\Software","Dz","REG_SZ","0")
        Else
            $idLabel = GUICtrlCreateLabel ("Label", 122, 74, 100, 18)
            GUICtrlSetColor($idLabel, $Blue)
            GUICtrlSetFont(-1, 12, $FW_NORMAL, $GUI_FONTITALIC,$FNT)
            RegWrite("HKEY_CURRENT_USER\Software","Dz","REG_SZ","1")
        EndIf

    EndSwitch
Wend

 

[water]

I think you need to set the label style to $SS_RIGHT.

[Zedna]

This is working fine:

- regread/regwrite changed to read/set global variable

- removed unnecessary GUICtrlCreateLabel() from main loop

- some minor fixes/optimizations

 

expandcollapse popup

#include <GUIConstants.au3>
#include <Misc.au3>

Global $switch = 1

$Blue = "0x0000FF"
$Red = "0xFF0000"
$FNT = "Comic Sans Ms"

GUICreate ("Test")

$idButton = GUICtrlCreateButton("Change", 210, 170, 85, 25)

    $idLabel = GUICtrlCreateLabel ("Label", 122, 74, 100, 18)
;~     If RegRead("HKEY_CURRENT_USER\Software","Dz") = "0" Then
    If $switch = 0 Then
        $color = $Red
    Else
        $color = $Blue
        $switch = 1
;~         RegWrite("HKEY_CURRENT_USER\Software","Dz","REG_SZ","1")
    EndIf
    GUICtrlSetColor($idLabel, $color)
    GUICtrlSetFont(-1, 12, $FW_NORMAL, $GUI_FONTITALIC,$FNT)

GUISetState ()

While 1
  Switch GUIGetMsg()

    Case $GUI_EVENT_CLOSE
      ExitLoop

      Case $idButton , $idLabel

        If $switch = 1 Then
;~         If RegRead("HKEY_CURRENT_USER\Software","Dz") = 1 Then
;~             $idLabel = GUICtrlCreateLabel ("Label", 122, 74, 100, 18)
            $color = $Red
            $switch = 0
;~             RegWrite("HKEY_CURRENT_USER\Software","Dz","REG_SZ","0")
        Else
;~             $idLabel = GUICtrlCreateLabel ("Label", 122, 74, 100, 18)
            $color = $Blue
            $switch = 1
;~             RegWrite("HKEY_CURRENT_USER\Software","Dz","REG_SZ","1")
        EndIf
        GUICtrlSetColor($idLabel, $color)
;~        GUICtrlSetFont(-1, 12, $FW_NORMAL, $GUI_FONTITALIC,$FNT)

    EndSwitch
Wend

 

Edited November 3, 2019 by Zedna

[ahmeddzcom]

7 hours ago, Zedna said:

This is working fine:

............ 

expandcollapse popup

#include <GUIConstants.au3>
#include <Misc.au3>

$Blue = "0x0000FF"
$Red = "0xFF0000"
$FNT = "Comic Sans Ms"

GUICreate ("Test")

$idButton = GUICtrlCreateButton("Change", 210, 170, 85, 25)

    $idLabel = GUICtrlCreateLabel ("Label", 122, 74, 100, 18)

    If RegRead("HKEY_CURRENT_USER\Software","Dz") = "0" Then
        $color = $Red
    Else
        $color = $Blue
        RegWrite("HKEY_CURRENT_USER\Software","Dz","REG_SZ","1")
    EndIf
    GUICtrlSetColor($idLabel, $color)
    GUICtrlSetFont(-1, 12, $FW_NORMAL, $GUI_FONTITALIC,$FNT)

GUISetState ()

While 1
  Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
      ExitLoop
      Case $idButton , $idLabel
        If RegRead("HKEY_CURRENT_USER\Software","Dz") = 1  Then
            $color = $Red
            RegWrite("HKEY_CURRENT_USER\Software","Dz","REG_SZ","0")
        Else
            $color = $Blue
            RegWrite("HKEY_CURRENT_USER\Software","Dz","REG_SZ","1")
        EndIf
        GUICtrlSetColor($idLabel, $color)
    EndSwitch
Wend

Thanks Zenda