added hints to grid combos

git-svn-id: trunk@5059 -
2025-09-11 20:19:14 +02:00 · 2004-01-13 13:48:25 +00:00 · 2004-01-13 13:48:25 +00:00 · 693ce82ddc
commit 693ce82ddc
parent 33c6241dc6
11 changed files with 117 additions and 48 deletions
--- a/ide/environmentopts.pp
+++ b/ide/environmentopts.pp
@ -2268,22 +2268,12 @@ procedure TEnvironmentOptionsDialog.SetupFormEditorPage(Page: integer);
      Caption:=dlgQSnapToGrid;
    end;

-    GridSizeXLabel:=TLabel.Create(Self);
-    with GridSizeXLabel do begin
-      Name:='GridSizeXLabel';
-      Parent:=GridGroupBox;
-      Left:=ShowGridCheckBox.Left;
-      Top:=SnapToGridCheckBox.Top+SnapToGridCheckBox.Height+5;
-      Width:=150;
-      Caption:=dlgGridX;
-    end;
-
    GridSizeXComboBox:=TComboBox.Create(Self);
    with GridSizeXComboBox do begin
      Name:='GridSizeXComboBox';
      Parent:=GridGroupBox;
-      Left:=GridSizeXLabel.Left+GridSizeXLabel.Width+5;
-      Top:=GridSizeXLabel.Top-2;
+      Left:=ShowGridCheckBox.Left;
+      Top:=SnapToGridCheckBox.Top+SnapToGridCheckBox.Height+5;
      Width:=60;
      with Items do begin
        BeginUpdate;
@ -2298,6 +2288,34 @@ procedure TEnvironmentOptionsDialog.SetupFormEditorPage(Page: integer);
        Add('30');
        EndUpdate;
      end;
+      Hint:=dlgGridXHint;
+      ShowHint:=true;
+    end;
+
+    GridSizeXLabel:=TLabel.Create(Self);
+    with GridSizeXLabel do begin
+      Name:='GridSizeXLabel';
+      Parent:=GridGroupBox;
+      Left:=GridSizeXComboBox.Left+GridSizeXComboBox.Width+5;
+      Top:=GridSizeXComboBox.Top-2;
+      Width:=150;
+      Caption:=dlgGridX;
+    end;
+
+    GridSizeYComboBox:=TComboBox.Create(Self);
+    with GridSizeYComboBox do begin
+      Name:='GridSizeYComboBox';
+      Parent:=GridGroupBox;
+      Left:=GridSizeXComboBox.Left;
+      Top:=GridSizeXComboBox.Top+GridSizeXComboBox.Height+4;
+      Width:=GridSizeXComboBox.Width;
+      with Items do begin
+        BeginUpdate;
+        Assign(GridSizeXComboBox.Items);
+        EndUpdate;
+      end;
+      Hint:=dlgGridYHint;
+      ShowHint:=true;
    end;

    GridSizeYLabel:=TLabel.Create(Self);
@ -2305,32 +2323,10 @@ procedure TEnvironmentOptionsDialog.SetupFormEditorPage(Page: integer);
      Name:='GridSizeYLabel';
      Parent:=GridGroupBox;
      Left:=GridSizeXLabel.Left;
-      Top:=GridSizeXComboBox.Top+GridSizeXComboBox.Height+5;
+      Top:=GridSizeYComboBox.Top-1;
      Width:=GridSizeXLabel.Width;
      Caption:=dlgGridY;
    end;
-
-    GridSizeYComboBox:=TComboBox.Create(Self);
-    with GridSizeYComboBox do begin
-      Name:='GridSizeYComboBox';
-      Parent:=GridGroupBox;
-      Left:=GridSizeYLabel.Left+GridSizeYLabel.Width+5;
-      Top:=GridSizeYLabel.Top-2;
-      Width:=GridSizeXComboBox.Width;
-      with Items do begin
-        BeginUpdate;
-        Add('2');
-        Add('5');
-        Add('8');
-        Add('10');
-        Add('12');
-        Add('15');
-        Add('20');
-        Add('25');
-        Add('30');
-        EndUpdate;
-      end;
-    end;
  end;

  procedure SetupGuideLinesGroupBox;
@ -3223,27 +3219,26 @@ begin
              ShowGridCheckBox.Height);
  end;

-  with GridSizeXLabel do begin
-    SetBounds(ShowGridCheckBox.Left,
-              SnapToGridCheckBox.Top+SnapToGridCheckBox.Height+5,150,Height);
-  end;
-
  with GridSizeXComboBox do begin
-    SetBounds(GridSizeXLabel.Left+GridSizeXLabel.Width+5,
-              GridSizeXLabel.Top-2,60,Height);
+    SetBounds(ShowGridCheckBox.Left,
+              SnapToGridCheckBox.Top+SnapToGridCheckBox.Height+5,60,Height);
  end;

-  with GridSizeYLabel do begin
-    SetBounds(GridSizeXLabel.Left,
-              GridSizeXComboBox.Top+GridSizeXComboBox.Height+5,
-              GridSizeXLabel.Width,Height);
+  with GridSizeXLabel do begin
+    SetBounds(GridSizeXComboBox.Left+GridSizeXComboBox.Width+5,
+              GridSizeXComboBox.Top+2,150,Height);
  end;

  with GridSizeYComboBox do begin
-    SetBounds(GridSizeYLabel.Left+GridSizeYLabel.Width+5,
-              GridSizeYLabel.Top-2,
+    SetBounds(GridSizeXComboBox.Left,
+              GridSizeXComboBox.Top+GridSizeXComboBox.Height+4,
              GridSizeXComboBox.Width,Height);
  end;
+
+  with GridSizeYLabel do begin
+    SetBounds(GridSizeXLabel.Left,GridSizeYComboBox.Top+2,
+              GridSizeXLabel.Width,Height);
+  end;
 end;

 procedure TEnvironmentOptionsDialog.GuideLinesGroupBoxResize(Sender: TObject);
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@ -617,7 +617,9 @@ resourcestring
  dlgGridColor = 'Grid color';
  dlgQSnapToGrid = 'Snap to grid';
  dlgGridX = 'Grid size X';
+  dlgGridXHint = 'Horizontal grid step size';
  dlgGridY = 'Grid size Y';
+  dlgGridYHint = 'Vertical grid step size';
  dlgGuideLines = 'Show Guide Lines';
  dlgSnapGuideLines = 'Snap to Guide Lines';
  dlgLeftTopClr = 'color for left, top';
--- a/languages/lazaruside.ca.po
+++ b/languages/lazaruside.ca.po
@ -2386,6 +2386,10 @@ msgstr "Suggeriments pels botons r
 msgid "Home"
 msgstr "Inici"

+#: lazarusidestrconsts:dlggridxhint
+msgid "Horizontal grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:dlghostapplication
 msgid "Host application"
 msgstr "Aplicació de l'amfitrió"
@ -6282,6 +6286,10 @@ msgstr "Detall"
 msgid "Version"
 msgstr "Versió"

+#: lazarusidestrconsts:dlggridyhint
+msgid "Vertical grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:srkmectogglebreakpoints
 msgid "View breakpoints"
 msgstr "Mostrar punts de control"
--- a/languages/lazaruside.de.po
+++ b/languages/lazaruside.de.po
@ -2396,6 +2396,10 @@ msgstr ""
 msgid "Home"
 msgstr ""

+#: lazarusidestrconsts:dlggridxhint
+msgid "Horizontal grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:dlghostapplication
 msgid "Host application"
 msgstr ""
@ -6292,6 +6296,10 @@ msgstr ""
 msgid "Version"
 msgstr ""

+#: lazarusidestrconsts:dlggridyhint
+msgid "Vertical grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:srkmectogglebreakpoints
 msgid "View breakpoints"
 msgstr ""
--- a/languages/lazaruside.es.po
+++ b/languages/lazaruside.es.po
@ -2397,6 +2397,10 @@ msgstr "Sugerencias para los botones r
 msgid "Home"
 msgstr "Inicio"

+#: lazarusidestrconsts:dlggridxhint
+msgid "Horizontal grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:dlghostapplication
 msgid "Host application"
 msgstr "Aplicación anfitriona"
@ -6293,6 +6297,10 @@ msgstr "Detallando:"
 msgid "Version"
 msgstr "Versión"

+#: lazarusidestrconsts:dlggridyhint
+msgid "Vertical grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:srkmectogglebreakpoints
 msgid "View breakpoints"
 msgstr "Ver puntos de ruptura"
--- a/languages/lazaruside.fr.po
+++ b/languages/lazaruside.fr.po
@ -2395,6 +2395,10 @@ msgstr "Aide pour les principaux boutons rapide (Ouvrir,Enregistrer,...) "
 msgid "Home"
 msgstr "Debut"

+#: lazarusidestrconsts:dlggridxhint
+msgid "Horizontal grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:dlghostapplication
 msgid "Host application"
 msgstr "Application hote"
@ -6291,6 +6295,10 @@ msgstr "Verbocit
 msgid "Version"
 msgstr ""

+#: lazarusidestrconsts:dlggridyhint
+msgid "Vertical grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:srkmectogglebreakpoints
 msgid "View breakpoints"
 msgstr "Voir les points d'arrêts"
--- a/languages/lazaruside.it.po
+++ b/languages/lazaruside.it.po
@ -2395,6 +2395,10 @@ msgstr "Dritte per i principali bottoni veloci (apri, salva, ...)"
 msgid "Home"
 msgstr "Inizio"

+#: lazarusidestrconsts:dlggridxhint
+msgid "Horizontal grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:dlghostapplication
 msgid "Host application"
 msgstr "Applicazione host"
@ -6291,6 +6295,10 @@ msgstr "Prolissità:"
 msgid "Version"
 msgstr "Versione"

+#: lazarusidestrconsts:dlggridyhint
+msgid "Vertical grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:srkmectogglebreakpoints
 msgid "View breakpoints"
 msgstr "Mostra i breakpoint"
--- a/languages/lazaruside.pl.po
+++ b/languages/lazaruside.pl.po
@ -2396,6 +2396,10 @@ msgstr "Podpowiedzi dla g
 msgid "Home"
 msgstr "Home"

+#: lazarusidestrconsts:dlggridxhint
+msgid "Horizontal grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:dlghostapplication
 msgid "Host application"
 msgstr "G³ówna aplikacja"
@ -6292,6 +6296,10 @@ msgstr "Pokazuj:"
 msgid "Version"
 msgstr "Wersja"

+#: lazarusidestrconsts:dlggridyhint
+msgid "Vertical grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:srkmectogglebreakpoints
 msgid "View breakpoints"
 msgstr "Poka¿ pu³apki"
--- a/languages/lazaruside.po
+++ b/languages/lazaruside.po
@ -1646,10 +1646,18 @@ msgstr ""
 msgid "Grid size X"
 msgstr ""

+#: lazarusidestrconsts:dlggridxhint
+msgid "Horizontal grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:dlggridy
 msgid "Grid size Y"
 msgstr ""

+#: lazarusidestrconsts:dlggridyhint
+msgid "Vertical grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:dlgguidelines
 msgid "Show Guide Lines"
 msgstr ""
--- a/languages/lazaruside.ru.po
+++ b/languages/lazaruside.ru.po
@ -2386,6 +2386,10 @@ msgstr "
 msgid "Home"
 msgstr "Home"

+#: lazarusidestrconsts:dlggridxhint
+msgid "Horizontal grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:dlghostapplication
 msgid "Host application"
 msgstr "çÌÁ×ÎÏÅ ÐÒÉÌÏÖÅÎÉÅ"
@ -6282,6 +6286,10 @@ msgstr "
 msgid "Version"
 msgstr "÷ÅÒÓÉÑ"

+#: lazarusidestrconsts:dlggridyhint
+msgid "Vertical grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:srkmectogglebreakpoints
 msgid "View breakpoints"
 msgstr "ðÒÏÓÍÏÔÒ ÔÏÞÅË ÏÓÔÁÎÏ×Á"
--- a/languages/lazaruside.ruwin.po
+++ b/languages/lazaruside.ruwin.po
@ -2386,6 +2386,10 @@ msgstr "
 msgid "Home"
 msgstr "Home"

+#: lazarusidestrconsts:dlggridxhint
+msgid "Horizontal grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:dlghostapplication
 msgid "Host application"
 msgstr "Ãëàâíîå ïðèëîæåíèå"
@ -6282,6 +6286,10 @@ msgstr "
 msgid "Version"
 msgstr "Âåðñèÿ"

+#: lazarusidestrconsts:dlggridyhint
+msgid "Vertical grid step size"
+msgstr ""
+
 #: lazarusidestrconsts:srkmectogglebreakpoints
 msgid "View breakpoints"
 msgstr "Ïðîñìîòð òî÷åê îñòàíîâà"