diff options
| -rw-r--r-- | uidesigner/vfdforms.pas | 8 | ||||
| -rw-r--r-- | uidesigner/vfdmain.pas | 6 |
2 files changed, 10 insertions, 4 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); diff --git a/uidesigner/vfdmain.pas b/uidesigner/vfdmain.pas index a53e412f..06112ad6 100644 --- a/uidesigner/vfdmain.pas +++ b/uidesigner/vfdmain.pas @@ -87,8 +87,9 @@ uses fpg_utils, fpg_main; -Var +var DefaultPasExt : String = '.pas'; + OneClickMove: Boolean; { TMainDesigner } @@ -283,6 +284,7 @@ begin fd := TFormDesigner.Create; fd.Form.Name := nfrm.edName.Text; fd.Form.WindowTitle := nfrm.edName.Text; + fd.OneClickMove := OneClickMove; FDesigners.Add(fd); fd.Show; end; @@ -373,6 +375,7 @@ var begin fp := TVFDFormParser.Create(FormName, FormHead, FormBody); fd := fp.ParseForm; + fd.OneClickMove := OneClickMove; fp.Free; FDesigners.Add(fd); @@ -440,6 +443,7 @@ begin end; DefaultPasExt := gINI.ReadString('Options', 'DefaultFileExt', '.pas'); UndoOnPropExit := gINI.ReadBool('Options', 'UndoOnExit', DefUndoOnPropExit); + OneClickMove := gINI.ReadBool('Options', 'OneClickMove', True); fpgApplication.HintPause := 1000; end; |