mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 10:39:18 +02:00
Implemented IDE Help
Improved anchoring git-svn-id: trunk@12365 -
This commit is contained in:
darius
parent
6465a52589
commit
43bfcae67b
@ -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
|
||||
ClientWidth = 446
|
||||
ClientHeight = 201
|
||||
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
|
||||
ClientWidth = 426
|
||||
ParentColor = True
|
||||
ClientHeight = 35
|
||||
ClientWidth = 404
|
||||
ParentCtl3D = False
|
||||
TabOrder = 2
|
||||
Left = 8
|
||||
Height = 44
|
||||
Top = 135
|
||||
Width = 430
|
||||
TabOrder = 0
|
||||
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
|
||||
|
||||
@ -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'
|
||||
+'ocDialog'#12'ClientHeight'#3#230#0#11'ClientWidth'#3#190#1#7'OnClose'#7#22
|
||||
+'ExtractProcDialogClose'#8'OnCreate'#7#23'ExtractProcDialogCREATE'#13'Pixels'
|
||||
+'PerInch'#2'Z'#18'HorzScrollBar.Page'#3#191#1#18'VertScrollBar.Page'#3#231#0
|
||||
+#4'Left'#3'f'#1#6'Height'#3#230#0#3'Top'#3#247#0#5'Width'#3#190#1#0#11'TRadi'
|
||||
+'oGroup'#14'TypeRadiogroup'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7
|
||||
+'Caption'#6#14'TypeRadiogroup'#12'ColumnLayout'#7#24'clVerticalThenHorizonta'
|
||||
+'l'#11'ParentColor'#9#4'Left'#2#8#6'Height'#2'x'#3'Top'#2#8#5'Width'#3#174#1
|
||||
+#0#0#7'TButton'#8'OkButton'#7'Caption'#6#8'OkButton'#7'OnClick'#7#13'OkButto'
|
||||
+'nCLICK'#8'TabOrder'#2#0#4'Left'#2'X'#6'Height'#2#25#3'Top'#3#192#0#5'Width'
|
||||
+#2'x'#0#0#7'TButton'#12'CancelButton'#6'Cancel'#9#7'Caption'#6#12'CancelButt'
|
||||
+'on'#11'ModalResult'#2#2#8'TabOrder'#2#1#4'Left'#3#248#0#6'Height'#2#25#3'To'
|
||||
+'p'#3#192#0#5'Width'#2'x'#0#0#9'TGroupBox'#12'NameGroupbox'#7'Anchors'#11#5
|
||||
+'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#12'NameGroupbox'#12'ClientHeight'
|
||||
+#2#27#11'ClientWidth'#3#170#1#11'ParentColor'#9#11'ParentCtl3D'#8#8'TabOrder'
|
||||
+#2#2#4'Left'#2#8#6'Height'#2','#3'Top'#3#135#0#5'Width'#3#174#1#0#5'TEdit'#8
|
||||
+'NameEdit'#5'Align'#7#5'alTop'#8'TabOrder'#2#0#4'Text'#6#8'NameEdit'#6'Heigh'
|
||||
+'t'#2#23#5'Width'#3#170#1#0#0#0#0
|
||||
'TPF0'#18'TExtractProcDialog'#17'ExtractProcDialog'#4'Left'#3#136#1#6'Height'
|
||||
+#3#201#0#3'Top'#3''#1#5'Width'#3#164#1#18'HorzScrollBar.Page'#3#163#1#18'Ve'
|
||||
+'rtScrollBar.Page'#3#200#0#13'ActiveControl'#7#8'NameEdit'#11'BorderIcons'#11
|
||||
+#12'biSystemMenu'#0#7'Caption'#6#17'ExtractProcDialog'#12'ClientHeight'#3#201
|
||||
+#0#11'ClientWidth'#3#164#1#7'OnClose'#7#22'ExtractProcDialogClose'#8'OnCreat'
|
||||
+'e'#7#23'ExtractProcDialogCREATE'#0#11'TRadioGroup'#14'TypeRadiogroup'#24'An'
|
||||
+'chorSideBottom.Control'#7#12'NameGroupbox'#4'Left'#2#6#6'Height'#2'`'#3'Top'
|
||||
+#2#6#5'Width'#3#152#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7
|
||||
+'akRight'#8'akBottom'#0#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'
|
||||
+#6#14'TypeRadiogroup'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.To'
|
||||
+'pBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChi'
|
||||
+'ldResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28
|
||||
+'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVer'
|
||||
+'tical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclTopToBottomThenL'
|
||||
+'eftToRight'#27'ChildSizing.ControlsPerLine'#2#1#12'ColumnLayout'#7#24'clVer'
|
||||
+'ticalThenHorizontal'#8'TabOrder'#2#1#0#0#9'TGroupBox'#12'NameGroupbox'#22'A'
|
||||
+'nchorSideLeft.Control'#7#5'Owner'#18'AnchorSideTop.Side'#7#9'asrBottom'#23
|
||||
+'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
|
||||
]);
|
||||
|
||||
@ -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;
|
||||
CancelButton: TBUTTON;
|
||||
OkButton: TBitBtn;
|
||||
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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user