IDE: add hints to project forms options.

git-svn-id: trunk@46714 -

ide/frames/project_forms_options.lfm

@@ -1,42 +1,42 @@
-inherited ProjectFormsOptionsFrame: TProjectFormsOptionsFrame
+object ProjectFormsOptionsFrame: TProjectFormsOptionsFrame
+  Left = 0
   Height = 463
+  Top = 0
   Width = 501
   ClientHeight = 463
   ClientWidth = 501
   TabOrder = 0
   DesignLeft = 356
   DesignTop = 178
-  object FormsAutoCreatedLabel: TLabel[0]
+  object FormsAutoCreatedLabel: TLabel
     AnchorSideLeft.Control = FormsAutoCreatedListBox
     AnchorSideTop.Control = Owner
     Left = 30
-    Height = 14
+    Height = 20
     Top = 0
-    Width = 117
+    Width = 160
     Caption = 'FormsAutoCreatedLabel'
     ParentColor = False
   end
-  object FormsAvailFormsLabel: TLabel[1]
+  object FormsAvailFormsLabel: TLabel
     AnchorSideLeft.Control = FormsAvailFormsListBox
     AnchorSideTop.Control = Owner
     Left = 284
-    Height = 14
+    Height = 20
     Top = 0
-    Width = 107
+    Width = 149
     Caption = 'FormsAvailFormsLabel'
     ParentColor = False
   end
-  object FormsMoveAutoCreatedFormUpBtn: TSpeedButton[2]
+  object FormsMoveAutoCreatedFormUpBtn: TSpeedButton
     AnchorSideLeft.Control = Owner
     Left = 0
     Height = 24
     Top = 36
     Width = 24
-    Color = clBtnFace
-    NumGlyphs = 0
     OnClick = FormsMoveAutoCreatedFormUpBtnClick
   end
-  object FormsMoveAutoCreatedFormsDownBtn: TSpeedButton[3]
+  object FormsMoveAutoCreatedFormsDownBtn: TSpeedButton
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = FormsMoveAutoCreatedFormUpBtn
     AnchorSideTop.Side = asrBottom
@@ -45,11 +45,9 @@ inherited ProjectFormsOptionsFrame: TProjectFormsOptionsFrame
     Top = 66
     Width = 24
     BorderSpacing.Top = 6
-    Color = clBtnFace
-    NumGlyphs = 0
     OnClick = FormsMoveAutoCreatedFormsDownBtnClick
   end
-  object FormsRemoveFromAutoCreatedFormsBtn: TSpeedButton[4]
+  object FormsRemoveFromAutoCreatedFormsBtn: TSpeedButton
     AnchorSideLeft.Side = asrCenter
     AnchorSideRight.Control = FormsAvailFormsLabel
     Left = 254
@@ -58,11 +56,9 @@ inherited ProjectFormsOptionsFrame: TProjectFormsOptionsFrame
     Width = 24
     Anchors = [akTop, akRight]
     BorderSpacing.Right = 6
-    Color = clBtnFace
-    NumGlyphs = 0
     OnClick = FormsRemoveFromAutoCreatedFormsBtnClick
   end
-  object FormsAddToAutoCreatedFormsBtn: TSpeedButton[5]
+  object FormsAddToAutoCreatedFormsBtn: TSpeedButton
     AnchorSideLeft.Control = FormsRemoveFromAutoCreatedFormsBtn
     AnchorSideTop.Control = FormsRemoveFromAutoCreatedFormsBtn
     AnchorSideTop.Side = asrBottom
@@ -71,11 +67,9 @@ inherited ProjectFormsOptionsFrame: TProjectFormsOptionsFrame
     Top = 66
     Width = 24
     BorderSpacing.Top = 6
-    Color = clBtnFace
-    NumGlyphs = 0
     OnClick = FormsAddToAutoCreatedFormsBtnClick
   end
-  object FormsAutoCreatedListBox: TListBox[6]
+  object FormsAutoCreatedListBox: TListBox
     AnchorSideLeft.Control = FormsMoveAutoCreatedFormsDownBtn
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = FormsAutoCreatedLabel
@@ -83,8 +77,8 @@ inherited ProjectFormsOptionsFrame: TProjectFormsOptionsFrame
     AnchorSideRight.Control = lblMiddle
     AnchorSideBottom.Control = FormsAutoCreateNewFormsCheckBox
     Left = 30
-    Height = 420
+    Height = 407
-    Top = 20
+    Top = 26
     Width = 217
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Left = 6
@@ -94,9 +88,11 @@ inherited ProjectFormsOptionsFrame: TProjectFormsOptionsFrame
     ItemHeight = 0
     MultiSelect = True
     OnDblClick = FormsRemoveFromAutoCreatedFormsBtnClick
+    ParentShowHint = False
+    ShowHint = True
     TabOrder = 0
   end
-  object FormsAvailFormsListBox: TListBox[7]
+  object FormsAvailFormsListBox: TListBox
     AnchorSideLeft.Control = lblMiddle
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = FormsAvailFormsLabel
@@ -105,8 +101,8 @@ inherited ProjectFormsOptionsFrame: TProjectFormsOptionsFrame
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = FormsAutoCreateNewFormsCheckBox
     Left = 284
-    Height = 420
+    Height = 407
-    Top = 20
+    Top = 26
     Width = 217
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Left = 33
@@ -115,20 +111,22 @@ inherited ProjectFormsOptionsFrame: TProjectFormsOptionsFrame
     ItemHeight = 0
     MultiSelect = True
     OnDblClick = FormsAddToAutoCreatedFormsBtnClick
+    ParentShowHint = False
+    ShowHint = True
     TabOrder = 1
   end
-  object FormsAutoCreateNewFormsCheckBox: TCheckBox[8]
+  object FormsAutoCreateNewFormsCheckBox: TCheckBox
     AnchorSideLeft.Control = FormsAddToAutoCreatedFormsBtn
     AnchorSideTop.Control = FormsAutoCreatedListBox
     Left = 0
-    Height = 17
+    Height = 24
-    Top = 446
+    Top = 439
     Width = 501
     Align = alBottom
     Caption = 'FormsAutoCreateNewFormsCheckBox'
     TabOrder = 2
   end
-  object lblMiddle: TLabel[9]
+  object lblMiddle: TLabel
     AnchorSideLeft.Control = Owner
     AnchorSideLeft.Side = asrCenter
     AnchorSideTop.Control = Owner

ide/frames/project_forms_options.pas

@@ -182,7 +182,9 @@ end;
 procedure TProjectFormsOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
 begin
   FormsAutoCreatedLabel.Caption := dlgAutoCreateForms;
+  FormsAutoCreatedListBox.Hint := dlgAutoCreateFormsHint;
   FormsAvailFormsLabel.Caption := dlgAvailableForms;
+  FormsAvailFormsListBox.Hint := dlgAvailableFormsHint;
   FormsAutoCreateNewFormsCheckBox.Caption := dlgAutoCreateNewForms;
   FormsMoveAutoCreatedFormUpBtn.LoadGlyphFromResourceName(HInstance, 'arrow_up');
   FormsMoveAutoCreatedFormsDownBtn.LoadGlyphFromResourceName(HInstance, 'arrow_down');

ide/lazarusidestrconsts.pas

@@ -2337,7 +2337,10 @@ resourcestring
   dlgPOIconDescNone = '(none)';
 
   dlgAutoCreateForms = 'Auto-create forms:';
+  dlgAutoCreateFormsHint = 'Main .lpr unit creates each form with Application.CreateForm(). '
+    +'They are also freed automatically.';
   dlgAvailableForms = 'Available forms:';
+  dlgAvailableFormsHint = 'These forms must be created and freed in the program code.';
   dlgAutoCreateNewForms = 'When creating new forms, add them to auto-created forms';
   dlgSaveEditorInfo = 'Save editor info for closed files';
   dlgSaveEditorInfoProject = 'Save editor info only for project files';