diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2014-10-17 00:00:51 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2014-10-17 00:00:51 +0100 |
| commit | 9cfc34b13e36bb2933b498daec3bd7f21774c344 (patch) | |
| tree | ce487f4bf47c5760756b5dc2eefeb2d8ae7d3a1c /uidesigner/vfdforms.pas | |
| parent | 825e203790d4d4e1b4ff51568331c36933579d39 (diff) | |
| download | fpGUI-9cfc34b13e36bb2933b498daec3bd7f21774c344.tar.xz | |
uidesigner: extended the snap-to-grid options
We now have a range of 1-10.
Diffstat (limited to 'uidesigner/vfdforms.pas')
| -rw-r--r-- | uidesigner/vfdforms.pas | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/uidesigner/vfdforms.pas b/uidesigner/vfdforms.pas index 9d9b42bd..e6b4020f 100644 --- a/uidesigner/vfdforms.pas +++ b/uidesigner/vfdforms.pas @@ -491,7 +491,7 @@ end; procedure TfrmVFDSetup.LoadSettings; begin FINIVersion := gINI.ReadInteger('Designer', 'Version', 0); - chlGrid.FocusItem := gINI.ReadInteger('Options', 'GridResolution', 2); + chlGrid.FocusItem := gINI.ReadInteger('Options', 'GridResolution', 4)+1; tbMRUFileCount.Position := gINI.ReadInteger('Options', 'MRUFileCount', 4); chkFullPath.Checked := gINI.ReadBool('Options', 'ShowFullPath', True); edtDefaultExt.Text := gINI.ReadString('Options', 'DefaultFileExt', '.pas'); @@ -504,7 +504,7 @@ end; procedure TfrmVFDSetup.SaveSettings; begin gINI.WriteInteger('Designer', 'Version', cDesignerINIVersion); - gINI.WriteInteger('Options', 'GridResolution', chlGrid.FocusItem); + gINI.WriteInteger('Options', 'GridResolution', StrToInt(chlGrid.Text)); gINI.WriteInteger('Options', 'MRUFileCount', tbMRUFileCount.Position); gINI.WriteBool('Options', 'ShowFullPath', chkFullPath.Checked); gINI.WriteString('Options', 'DefaultFileExt', edtDefaultExt.Text); @@ -551,8 +551,15 @@ begin FontDesc := '#List'; Hint := ''; Items.Add('1'); + Items.Add('2'); + Items.Add('3'); Items.Add('4'); + Items.Add('5'); + Items.Add('6'); + Items.Add('7'); Items.Add('8'); + Items.Add('9'); + Items.Add('10'); FocusItem := -1; TabOrder := 1; end; |