Implemented IDE Help

Improved anchoring

git-svn-id: trunk@12365 -

ide/extractprocdlg.lfm

@@ -1,63 +1,128 @@
 object ExtractProcDialog: TExtractProcDialog
+  Left = 392
+  Height = 201
+  Top = 383
+  Width = 420
+  HorzScrollBar.Page = 419
+  VertScrollBar.Page = 200
+  ActiveControl = NameEdit
+  BorderIcons = [biSystemMenu]
   Caption = 'ExtractProcDialog'
-  ClientHeight = 230
+  ClientHeight = 201
-  ClientWidth = 446
+  ClientWidth = 420
   OnClose = ExtractProcDialogClose
   OnCreate = ExtractProcDialogCREATE
-  PixelsPerInch = 90
-  HorzScrollBar.Page = 447
-  VertScrollBar.Page = 231
-  Left = 358
-  Height = 230
-  Top = 247
-  Width = 446
   object TypeRadiogroup: TRadioGroup
-    Anchors = [akTop, akLeft, akRight]
+    AnchorSideBottom.Control = NameGroupbox
+    Left = 6
+    Height = 96
+    Top = 6
+    Width = 408
+    Align = alTop
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    AutoFill = True
+    BorderSpacing.Around = 6
     Caption = 'TypeRadiogroup'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclTopToBottomThenLeftToRight
+    ChildSizing.ControlsPerLine = 1
     ColumnLayout = clVerticalThenHorizontal
-    ParentColor = True
-    Left = 8
-    Height = 120
-    Top = 8
-    Width = 430
-  end
-  object OkButton: TButton
-    Caption = 'OkButton'
-    OnClick = OkButtonCLICK
-    TabOrder = 0
-    Left = 88
-    Height = 25
-    Top = 192
-    Width = 120
-  end
-  object CancelButton: TButton
-    Cancel = True
-    Caption = 'CancelButton'
-    ModalResult = 2
     TabOrder = 1
-    Left = 248
-    Height = 25
-    Top = 192
-    Width = 120
   end
   object NameGroupbox: TGroupBox
-    Anchors = [akTop, akLeft, akRight]
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = CancelButton
+    Left = 6
+    Height = 53
+    Top = 108
+    Width = 408
+    Anchors = [akLeft, akRight, akBottom]
+    AutoSize = True
+    BorderSpacing.Around = 6
+    BorderSpacing.InnerBorder = 6
     Caption = 'NameGroupbox'
-    ClientHeight = 27
+    ClientHeight = 35
-    ClientWidth = 426
+    ClientWidth = 404
-    ParentColor = True
     ParentCtl3D = False
-    TabOrder = 2
+    TabOrder = 0
-    Left = 8
-    Height = 44
-    Top = 135
-    Width = 430
     object NameEdit: TEdit
+      Left = 6
+      Height = 23
+      Top = 6
+      Width = 392
       Align = alTop
+      BorderSpacing.Around = 6
       TabOrder = 0
       Text = 'NameEdit'
-      Height = 23
-      Width = 426
     end
   end
+  object HelpButton: TBitBtn
+    AnchorSideLeft.Control = Owner
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 6
+    Height = 28
+    Top = 167
+    Width = 75
+    Anchors = [akLeft, akBottom]
+    AutoSize = True
+    BorderSpacing.Around = 6
+    Caption = '&Help'
+    Constraints.MinHeight = 25
+    Constraints.MinWidth = 75
+    Kind = bkHelp
+    NumGlyphs = 0
+    OnClick = HelpButtonClick
+    TabOrder = 2
+  end
+  object CancelButton: TBitBtn
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 334
+    Height = 28
+    Top = 167
+    Width = 80
+    Anchors = [akRight, akBottom]
+    AutoSize = True
+    BorderSpacing.Around = 6
+    Cancel = True
+    Caption = 'Cancel'
+    Constraints.MinHeight = 25
+    Constraints.MinWidth = 75
+    Kind = bkCancel
+    ModalResult = 2
+    NumGlyphs = 0
+    TabOrder = 3
+  end
+  object OkButton: TBitBtn
+    AnchorSideRight.Control = CancelButton
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 253
+    Height = 28
+    Top = 167
+    Width = 75
+    Anchors = [akRight, akBottom]
+    AutoSize = True
+    BorderSpacing.Around = 6
+    Caption = '&OK'
+    Constraints.MinHeight = 25
+    Constraints.MinWidth = 75
+    Default = True
+    Kind = bkOK
+    ModalResult = 1
+    NumGlyphs = 0
+    OnClick = OkButtonCLICK
+    TabOrder = 4
+  end
 end

ide/extractprocdlg.lrs

@@ -1,20 +1,48 @@
+{ This is an automatically generated lazarus resource file }
+
 LazarusResources.Add('TExtractProcDialog','FORMDATA',[
-  'TPF0'#18'TExtractProcDialog'#17'ExtractProcDialog'#7'Caption'#6#17'ExtractPr'
+  'TPF0'#18'TExtractProcDialog'#17'ExtractProcDialog'#4'Left'#3#136#1#6'Height'
-  +'ocDialog'#12'ClientHeight'#3#230#0#11'ClientWidth'#3#190#1#7'OnClose'#7#22
+  +#3#201#0#3'Top'#3''#1#5'Width'#3#164#1#18'HorzScrollBar.Page'#3#163#1#18'Ve'
-  +'ExtractProcDialogClose'#8'OnCreate'#7#23'ExtractProcDialogCREATE'#13'Pixels'
+  +'rtScrollBar.Page'#3#200#0#13'ActiveControl'#7#8'NameEdit'#11'BorderIcons'#11
-  +'PerInch'#2'Z'#18'HorzScrollBar.Page'#3#191#1#18'VertScrollBar.Page'#3#231#0
+  +#12'biSystemMenu'#0#7'Caption'#6#17'ExtractProcDialog'#12'ClientHeight'#3#201
-  +#4'Left'#3'f'#1#6'Height'#3#230#0#3'Top'#3#247#0#5'Width'#3#190#1#0#11'TRadi'
+  +#0#11'ClientWidth'#3#164#1#7'OnClose'#7#22'ExtractProcDialogClose'#8'OnCreat'
-  +'oGroup'#14'TypeRadiogroup'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7
+  +'e'#7#23'ExtractProcDialogCREATE'#0#11'TRadioGroup'#14'TypeRadiogroup'#24'An'
-  +'Caption'#6#14'TypeRadiogroup'#12'ColumnLayout'#7#24'clVerticalThenHorizonta'
+  +'chorSideBottom.Control'#7#12'NameGroupbox'#4'Left'#2#6#6'Height'#2'`'#3'Top'
-  +'l'#11'ParentColor'#9#4'Left'#2#8#6'Height'#2'x'#3'Top'#2#8#5'Width'#3#174#1
+  +#2#6#5'Width'#3#152#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7
-  +#0#0#7'TButton'#8'OkButton'#7'Caption'#6#8'OkButton'#7'OnClick'#7#13'OkButto'
+  +'akRight'#8'akBottom'#0#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'
-  +'nCLICK'#8'TabOrder'#2#0#4'Left'#2'X'#6'Height'#2#25#3'Top'#3#192#0#5'Width'
+  +#6#14'TypeRadiogroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.To'
-  +#2'x'#0#0#7'TButton'#12'CancelButton'#6'Cancel'#9#7'Caption'#6#12'CancelButt'
+  +'pBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChi'
-  +'on'#11'ModalResult'#2#2#8'TabOrder'#2#1#4'Left'#3#248#0#6'Height'#2#25#3'To'
+  +'ldResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28
-  +'p'#3#192#0#5'Width'#2'x'#0#0#9'TGroupBox'#12'NameGroupbox'#7'Anchors'#11#5
+  +'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVer'
-  +'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#12'NameGroupbox'#12'ClientHeight'
+  +'tical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclTopToBottomThenL'
-  +#2#27#11'ClientWidth'#3#170#1#11'ParentColor'#9#11'ParentCtl3D'#8#8'TabOrder'
+  +'eftToRight'#27'ChildSizing.ControlsPerLine'#2#1#12'ColumnLayout'#7#24'clVer'
-  +#2#2#4'Left'#2#8#6'Height'#2','#3'Top'#3#135#0#5'Width'#3#174#1#0#5'TEdit'#8
+  +'ticalThenHorizontal'#8'TabOrder'#2#1#0#0#9'TGroupBox'#12'NameGroupbox'#22'A'
-  +'NameEdit'#5'Align'#7#5'alTop'#8'TabOrder'#2#0#4'Text'#6#8'NameEdit'#6'Heigh'
+  +'nchorSideLeft.Control'#7#5'Owner'#18'AnchorSideTop.Side'#7#9'asrBottom'#23
-  +'t'#2#23#5'Width'#3#170#1#0#0#0#0
+  +'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'
+  +#24'AnchorSideBottom.Control'#7#12'CancelButton'#4'Left'#2#6#6'Height'#2'5'#3
+  +'Top'#2'l'#5'Width'#3#152#1#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0
+  +#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#6
+  +#7'Caption'#6#12'NameGroupbox'#12'ClientHeight'#2'#'#11'ClientWidth'#3#148#1
+  +#11'ParentCtl3D'#8#8'TabOrder'#2#0#0#5'TEdit'#8'NameEdit'#4'Left'#2#6#6'Heig'
+  +'ht'#2#23#3'Top'#2#6#5'Width'#3#136#1#5'Align'#7#5'alTop'#20'BorderSpacing.A'
+  +'round'#2#6#8'TabOrder'#2#0#4'Text'#6#8'NameEdit'#0#0#0#7'TBitBtn'#10'HelpBu'
+  +'tton'#22'AnchorSideLeft.Control'#7#5'Owner'#24'AnchorSideBottom.Control'#7#5
+  +'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#28#3
+  +'Top'#3#167#0#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'
+  +#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#5'&Help'#21'Constraints.MinHeig'
+  +'ht'#2#25#20'Constraints.MinWidth'#2'K'#4'Kind'#7#6'bkHelp'#9'NumGlyphs'#2#0
+  +#7'OnClick'#7#15'HelpButtonClick'#8'TabOrder'#2#2#0#0#7'TBitBtn'#12'CancelBu'
+  +'tton'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'a'
+  +'srBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'
+  +#7#9'asrBottom'#4'Left'#3'N'#1#6'Height'#2#28#3'Top'#3#167#0#5'Width'#2'P'#7
+  +'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'
+  +#2#6#6'Cancel'#9#7'Caption'#6#6'Cancel'#21'Constraints.MinHeight'#2#25#20'Co'
+  +'nstraints.MinWidth'#2'K'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGly'
+  +'phs'#2#0#8'TabOrder'#2#3#0#0#7'TBitBtn'#8'OkButton'#23'AnchorSideRight.Cont'
+  +'rol'#7#12'CancelButton'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSi'
+  +'deBottom.Side'#7#9'asrBottom'#4'Left'#3#253#0#6'Height'#2#28#3'Top'#3#167#0
+  +#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'Borde'
+  +'rSpacing.Around'#2#6#7'Caption'#6#3'&OK'#21'Constraints.MinHeight'#2#25#20
+  +'Constraints.MinWidth'#2'K'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2
+  +#1#9'NumGlyphs'#2#0#7'OnClick'#7#13'OkButtonCLICK'#8'TabOrder'#2#4#0#0#0
 ]);

ide/extractprocdlg.pas

@@ -7,15 +7,20 @@ interface
 uses
   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   Buttons, StdCtrls, CodeCache, CodeToolManager, ExtractProcTool,
-  LazarusIDEStrConsts, IDEProcs, MiscOptions;
+  LazarusIDEStrConsts, IDEProcs, MiscOptions, IDEContextHelpEdit;
 
 type
+
+  { TExtractProcDialog }
+
   TExtractProcDialog = class(TForm)
     NameEdit: TEDIT;
     NameGroupbox: TGROUPBOX;
-    OkButton: TBUTTON;
+    OkButton: TBitBtn;
-    CancelButton: TBUTTON;
+    CancelButton: TBitBtn;
+    HelpButton: TBitBtn;
     TypeRadiogroup: TRADIOGROUP;
+    procedure HelpButtonClick(Sender: TObject);
     procedure ExtractProcDialogCREATE(Sender: TObject);
     procedure ExtractProcDialogClose(Sender: TObject;
       var CloseAction: TCloseAction);
@@ -106,6 +111,11 @@ begin
   NameEdit.Text:=MiscellaneousOptions.ExtractProcName;
 end;
 
+procedure TExtractProcDialog.HelpButtonClick(Sender: TObject);
+begin
+  ShowContextHelpForIDE(Self);
+end;
+
 procedure TExtractProcDialog.ExtractProcDialogClose(Sender: TObject;
   var CloseAction: TCloseAction);
 begin