Code: Select all
Dialog>Dialog1
object Dialog1: TForm
Left = 529
Top = 174
HelpContext = 5000
BorderIcons = [biSystemMenu]
Caption = 'CustomDialog'
ClientHeight = 212
ClientWidth = 476
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
ShowHint = True
OnTaskBar = False
PixelsPerInch = 96
TextHeight = 13
object Test_CheckBox1: TCheckBox
Left = 13
Top = 15
Width = 97
Height = 17
Caption = 'Test Check Box'
TabOrder = 0
end
end
EndDialog>Dialog1
//Save The Checked Or Not To File
SRT>SAVECHECKEDTESTFILE
GetDialogProperty>Dialog1,Test_CheckBox1,Checked,CHECKSAVE
IfFileExists>%TEMP_DIR%\TESTSAVEFILE.txt,SAVEFOUND,NOTSAVED
Label>SAVEFOUND
DeleteFile>%TEMP_DIR%\TESTSAVEFILE.txt
Label>NOTSAVED
WriteLn>%TEMP_DIR%\TESTSAVEFILE.txt,nWLNRes,%CHECKSAVE%
Endif
END>SAVECHECKEDTESTFILE
//Load The Checked Save File
SRT>LOADCHECKSAVEFILE
IfFileExists>%TEMP_DIR%\TESTSAVEFILE.txt,SAVEEXISTS,SAVEDENIED
Label>SAVEEXISTS
ReadFile>%TEMP_DIR%\TESTSAVEFILE.txt,CHECKVARLOADED
SetDialogProperty>Dialog1,Test_CheckBox1,Checked,%CHECKVARLOADED%
Label>SAVEDENIED
Endif
END>LOADCHECKSAVEFILE
AddDialogHandler>Dialog1,,OnActivate,LOADCHECKSAVEFILE
AddDialogHandler>Dialog1,Test_CheckBox1,OnClick,SAVECHECKEDTESTFILE
Show>Dialog1,res3