Запоминание нажатия кнопки.

[Detre]

Всем привет. Возникла эстетическая потребность в запоминании эффекта после нажатия кнопки. Моя кнопка делает окно полупрозрачным, другая наоборот убирает данный эффект.

Func _Button14()
    WinSetTrans($UI, "", 0) ;
AutoItWinSetTitle(@ScriptName)

For $i = 0 To 255 Step 2
    WinSetTrans($UI, "", $i) ;Прозрачность 0-255
 Next

    WinSetTrans($hMenu, "", 0) ;
AutoItWinSetTitle(@ScriptName)

For $i = 0 To 255 Step 2
    WinSetTrans($hMenu, "", $i) ;Прозрачность 0-255
 Next
EndFunc

Func _Button15()
    WinSetTrans($UI, "", 0) ;
AutoItWinSetTitle(@ScriptName)

For $i = 0 To 215 Step 2
    WinSetTrans($UI, "", $i) ;Прозрачность 0-255
 Next

    WinSetTrans($hMenu, "", 0) ;
AutoItWinSetTitle(@ScriptName)

For $i = 0 To 215 Step 2
    WinSetTrans($hMenu, "", $i) ;Прозрачность 0-255
 Next
EndFunc

Как реализовать данную задачу? Необязательно чтобы было две кнопки, если возможно, то можно только на одну или чекбокс. Переменные типа FileReadLine и пр. мне немного непонятны и прошу по возможности пояснить как это работает. Заранее огромное спасибо)

 

[CreatoR]

Возникла эстетическая потребность в запоминании эффекта после нажатия кнопки

Запоминать в файл?

Global $sConfig = @ScriptDir & '\Config.ini'
Global $iTrans = IniRead($sConfig, 'Main', 'Trans', 255)

_Button()

Func _Button()
    WinSetTrans($UI, "", 0) ;
    AutoItWinSetTitle(@ScriptName)
    
    For $i = 0 To $iTrans Step 2
        WinSetTrans($UI, "", $i) ;Прозрачность 0-255
    Next
    
    WinSetTrans($hMenu, "", 0) ;
    AutoItWinSetTitle(@ScriptName)
    
    For $i = 0 To $iTrans Step 2
        WinSetTrans($hMenu, "", $i) ;Прозрачность 0-255
    Next
    
    IniWrite($sConfig, 'Main', 'Trans', $iTrans)
    $iTrans = ($iTrans = 255 ? 215 : 255)
EndFunc

Тут при каждом вызове функции (нажатие на кнопку) будет переключаться параметр $iTrans, с 255 на 215 и обратно.

 

[Detre]

Запоминать в файл?

Global $sConfig = @ScriptDir & '\Config.ini'
Global $iTrans = IniRead($sConfig, 'Main', 'Trans', 255)

_Button()

Func _Button()
    WinSetTrans($UI, "", 0) ;
    AutoItWinSetTitle(@ScriptName)
 
    For $i = 0 To $iTrans Step 2
        WinSetTrans($UI, "", $i) ;Прозрачность 0-255
    Next
 
    WinSetTrans($hMenu, "", 0) ;
    AutoItWinSetTitle(@ScriptName)
 
    For $i = 0 To $iTrans Step 2
        WinSetTrans($hMenu, "", $i) ;Прозрачность 0-255
    Next
 
    IniWrite($sConfig, 'Main', 'Trans', $iTrans)
    $iTrans = ($iTrans = 255 ? 215 : 255)
EndFunc

Тут при каждом вызове функции (нажатие на кнопку) будет переключаться параметр $iTrans, с 255 на 215 и обратно.

Уже второй раз меня Вы выручаете, большое спасибо)Да, запись в файл)

Сообщение автоматически объединено: 24 Мар 2021

Запоминать в файл?

Global $sConfig = @ScriptDir & '\Config.ini'
Global $iTrans = IniRead($sConfig, 'Main', 'Trans', 255)

_Button()

Func _Button()
    WinSetTrans($UI, "", 0) ;
    AutoItWinSetTitle(@ScriptName)
  
    For $i = 0 To $iTrans Step 2
        WinSetTrans($UI, "", $i) ;Прозрачность 0-255
    Next
  
    WinSetTrans($hMenu, "", 0) ;
    AutoItWinSetTitle(@ScriptName)
  
    For $i = 0 To $iTrans Step 2
        WinSetTrans($hMenu, "", $i) ;Прозрачность 0-255
    Next
  
    IniWrite($sConfig, 'Main', 'Trans', $iTrans)
    $iTrans = ($iTrans = 255 ? 215 : 255)
EndFunc

Тут при каждом вызове функции (нажатие на кнопку) будет переключаться параметр $iTrans, с 255 на 215 и обратно.

У меня меняется файл ini но при повторном запуске не применяется параметр из $iTrans((((

Сообщение автоматически объединено: 24 Мар 2021

Уже второй раз меня Вы выручаете, большое спасибо)Да, запись в файл)

Сообщение автоматически объединено: 24 Мар 2021

У меня меняется файл ini но при повторном запуске не применяется параметр из $iTrans((((

Все, сообразил. В первичный WinSetTrans прописал (Основной, для GUI) $iTrans и заворкало.