diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-08 14:02:53 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-08 14:02:53 +0200 |
commit | 8356415ec22c4621addf0d6e81d8b8e7a8f12d93 (patch) | |
tree | 4f83bf1cade127da457ed47cd15d53d283a79216 /uidesigner/vfdforms.pas | |
parent | 2ffd047ac5f8019fa0db2954d4bd8d4dcbd3a9ca (diff) | |
download | fpGUI-8356415ec22c4621addf0d6e81d8b8e7a8f12d93.tar.xz |
Enabled saving and reading the One-Click-Move setting.
Changes will only take affect on newly created forms or when loading a
unit.
Diffstat (limited to 'uidesigner/vfdforms.pas')
-rw-r--r-- | uidesigner/vfdforms.pas | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/uidesigner/vfdforms.pas b/uidesigner/vfdforms.pas index 661a1491..00bb3e38 100644 --- a/uidesigner/vfdforms.pas +++ b/uidesigner/vfdforms.pas @@ -432,9 +432,10 @@ procedure TfrmVFDSetup.LoadSettings; begin chlGrid.FocusItem := gINI.ReadInteger('Options', 'GridResolution', 2); tbMRUFileCount.Position := gINI.ReadInteger('Options', 'MRUFileCount', 4); - chkFullPath.Checked := gINI.ReadBool('Options', 'ShowFullPath', True); - edtDefaultExt.Text := gINI.ReadString('Options', 'DefaultFileExt', '.pas'); - chkUndoOnExit.Checked := gINI.ReadBool('Options', 'UndoOnExit', UndoOnPropExit); + chkFullPath.Checked := gINI.ReadBool('Options', 'ShowFullPath', True); + edtDefaultExt.Text := gINI.ReadString('Options', 'DefaultFileExt', '.pas'); + chkUndoOnExit.Checked := gINI.ReadBool('Options', 'UndoOnExit', UndoOnPropExit); + chkOneClick.Checked := gINI.ReadBool('Options', 'OneClickMove', True); end; procedure TfrmVFDSetup.SaveSettings; @@ -444,6 +445,7 @@ begin gINI.WriteBool('Options', 'ShowFullPath', chkFullPath.Checked); gINI.WriteString('Options', 'DefaultFileExt', edtDefaultExt.Text); gINI.WriteBool('Options', 'UndoOnExit', chkUndoOnExit.Checked); + gINI.WriteBool('Options', 'OneClickMove', chkOneClick.Checked); end; procedure TfrmVFDSetup.btnOKClick(Sender: TObject); |