diff --git a/components/codetools/ide/addassignmethoddlg.lfm b/components/codetools/ide/addassignmethoddlg.lfm index d50e0a349b..74b9bfe907 100644 --- a/components/codetools/ide/addassignmethoddlg.lfm +++ b/components/codetools/ide/addassignmethoddlg.lfm @@ -12,42 +12,43 @@ object AddAssignMethodDialog: TAddAssignMethodDialog LCLVersion = '0.9.31' object ButtonPanel1: TButtonPanel Left = 6 - Height = 34 - Top = 444 + Height = 42 + Top = 436 Width = 557 OKButton.Name = 'OKButton' OKButton.Caption = '&OK' OKButton.OnClick = OkButtonClick HelpButton.Name = 'HelpButton' HelpButton.Caption = '&Help' + HelpButton.OnClick = HelpButtonClick CloseButton.Name = 'CloseButton' CloseButton.Caption = '&Close' CancelButton.Name = 'CancelButton' CancelButton.Caption = 'Cancel' TabOrder = 3 - ShowButtons = [pbOK, pbCancel] + ShowButtons = [pbOK, pbCancel, pbHelp] end object MembersGroupBox: TGroupBox AnchorSideTop.Control = InheritedGroupBox AnchorSideTop.Side = asrBottom Left = 6 - Height = 181 - Top = 257 + Height = 142 + Top = 288 Width = 557 Align = alBottom Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 Caption = 'MembersGroupBox' - ClientHeight = 163 - ClientWidth = 553 + ClientHeight = 121 + ClientWidth = 549 TabOrder = 2 object MembersTreeView: TCodyTreeView Left = 0 - Height = 163 + Height = 121 Top = 0 - Width = 553 + Width = 549 Align = alClient - DefaultItemHeight = 17 + DefaultItemHeight = 19 Images = ImageList1 ReadOnly = True TabOrder = 0 @@ -57,24 +58,24 @@ object AddAssignMethodDialog: TAddAssignMethodDialog end object InheritedGroupBox: TGroupBox Left = 6 - Height = 128 - Top = 123 + Height = 144 + Top = 138 Width = 557 Align = alTop AutoSize = True BorderSpacing.Around = 6 Caption = 'InheritedGroupBox' - ClientHeight = 110 - ClientWidth = 553 + ClientHeight = 123 + ClientWidth = 549 TabOrder = 1 object InheritedLabel: TLabel AnchorSideLeft.Control = InheritedGroupBox AnchorSideTop.Control = InheritedEdit AnchorSideTop.Side = asrCenter Left = 6 - Height = 16 - Top = 9 - Width = 76 + Height = 18 + Top = 10 + Width = 100 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'InheritedLabel' @@ -86,10 +87,10 @@ object AddAssignMethodDialog: TAddAssignMethodDialog AnchorSideTop.Control = InheritedGroupBox AnchorSideRight.Control = InheritedGroupBox AnchorSideRight.Side = asrBottom - Left = 88 - Height = 23 + Left = 112 + Height = 27 Top = 6 - Width = 459 + Width = 431 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 6 BorderSpacing.Top = 6 @@ -102,9 +103,9 @@ object AddAssignMethodDialog: TAddAssignMethodDialog AnchorSideTop.Control = InheritedEdit AnchorSideTop.Side = asrBottom Left = 12 - Height = 19 - Top = 35 - Width = 134 + Height = 22 + Top = 39 + Width = 174 BorderSpacing.Around = 6 Caption = 'InhOverrideCheckBox' TabOrder = 1 @@ -114,9 +115,9 @@ object AddAssignMethodDialog: TAddAssignMethodDialog AnchorSideTop.Control = InhOverrideCheckBox AnchorSideTop.Side = asrBottom Left = 12 - Height = 19 - Top = 60 - Width = 109 + Height = 22 + Top = 67 + Width = 140 BorderSpacing.Around = 6 Caption = 'InhCallCheckBox' TabOrder = 2 @@ -126,9 +127,9 @@ object AddAssignMethodDialog: TAddAssignMethodDialog AnchorSideTop.Control = InhCallCheckBox AnchorSideTop.Side = asrBottom Left = 12 - Height = 19 - Top = 85 - Width = 164 + Height = 22 + Top = 95 + Width = 209 BorderSpacing.Around = 6 Caption = 'InhCallOnlyInElseCheckBox' TabOrder = 3 @@ -136,24 +137,24 @@ object AddAssignMethodDialog: TAddAssignMethodDialog end object DeclGroupBox: TGroupBox Left = 6 - Height = 111 + Height = 126 Top = 6 Width = 557 Align = alTop AutoSize = True BorderSpacing.Around = 6 Caption = 'DeclGroupBox' - ClientHeight = 93 - ClientWidth = 553 + ClientHeight = 105 + ClientWidth = 549 TabOrder = 0 object ParamTypeLabel: TLabel AnchorSideLeft.Control = ProcNameLabel AnchorSideTop.Control = ParamTypeEdit AnchorSideTop.Side = asrCenter Left = 6 - Height = 16 - Top = 67 - Width = 89 + Height = 18 + Top = 76 + Width = 115 Caption = 'ParamTypeLabel' ParentColor = False end @@ -162,9 +163,9 @@ object AddAssignMethodDialog: TAddAssignMethodDialog AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ParamNameEdit AnchorSideTop.Side = asrBottom - Left = 101 - Height = 23 - Top = 64 + Left = 127 + Height = 27 + Top = 72 Width = 141 BorderSpacing.Around = 6 OnChange = ParamTypeEditChange @@ -176,9 +177,9 @@ object AddAssignMethodDialog: TAddAssignMethodDialog AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ProcNameEdit AnchorSideTop.Side = asrBottom - Left = 107 - Height = 23 - Top = 35 + Left = 135 + Height = 27 + Top = 39 Width = 136 BorderSpacing.Around = 6 OnChange = ParamNameEditChange @@ -190,9 +191,9 @@ object AddAssignMethodDialog: TAddAssignMethodDialog AnchorSideTop.Control = ParamNameEdit AnchorSideTop.Side = asrCenter Left = 6 - Height = 16 - Top = 38 - Width = 95 + Height = 18 + Top = 43 + Width = 123 Caption = 'ParamNameLabel' ParentColor = False end @@ -200,8 +201,8 @@ object AddAssignMethodDialog: TAddAssignMethodDialog AnchorSideLeft.Control = ProcNameLabel AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = DeclGroupBox - Left = 97 - Height = 23 + Left = 122 + Height = 27 Top = 6 Width = 147 BorderSpacing.Around = 6 @@ -214,9 +215,9 @@ object AddAssignMethodDialog: TAddAssignMethodDialog AnchorSideTop.Control = ProcNameEdit AnchorSideTop.Side = asrCenter Left = 6 - Height = 16 - Top = 9 - Width = 85 + Height = 18 + Top = 10 + Width = 110 BorderSpacing.Left = 6 Caption = 'ProcNameLabel' ParentColor = False @@ -226,10 +227,10 @@ object AddAssignMethodDialog: TAddAssignMethodDialog AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ProcNameEdit AnchorSideTop.Side = asrCenter - Left = 250 - Height = 16 - Top = 9 - Width = 110 + Left = 275 + Height = 18 + Top = 10 + Width = 145 Caption = 'ProcNameErrorLabel' Font.Color = clRed ParentColor = False @@ -240,10 +241,10 @@ object AddAssignMethodDialog: TAddAssignMethodDialog AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ParamNameEdit AnchorSideTop.Side = asrCenter - Left = 249 - Height = 16 - Top = 38 - Width = 120 + Left = 277 + Height = 18 + Top = 43 + Width = 158 Caption = 'ParamNameErrorLabel' Font.Color = clRed ParentColor = False @@ -254,10 +255,10 @@ object AddAssignMethodDialog: TAddAssignMethodDialog AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ParamTypeEdit AnchorSideTop.Side = asrCenter - Left = 248 - Height = 16 - Top = 67 - Width = 114 + Left = 274 + Height = 18 + Top = 76 + Width = 150 Caption = 'ParamTypeErrorLabel' Font.Color = clRed ParentColor = False diff --git a/components/codetools/ide/addassignmethoddlg.pas b/components/codetools/ide/addassignmethoddlg.pas index 462175b6ad..440f1f7166 100644 --- a/components/codetools/ide/addassignmethoddlg.pas +++ b/components/codetools/ide/addassignmethoddlg.pas @@ -38,7 +38,7 @@ uses // IDEIntf IDEDialogs, LazIDEIntf, SrcEditorIntf, // Cody - CodyCtrls, CodyStrConsts; + CodyCtrls, CodyStrConsts, CodyUtils; type @@ -80,6 +80,7 @@ type procedure MembersTreeViewMouseDown(Sender: TObject; Button: TMouseButton; {%H-}Shift: TShiftState; X, Y: Integer); procedure OkButtonClick(Sender: TObject); + procedure HelpButtonClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure ParamNameEditChange(Sender: TObject); @@ -277,6 +278,11 @@ begin ModalResult:=mrOk; end; +procedure TAddAssignMethodDialog.HelpButtonClick(Sender: TObject); +begin + OpenCodyHelp('#Add_Assign_method'); +end; + procedure TAddAssignMethodDialog.MembersTreeViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var diff --git a/components/codetools/ide/ppulistdlg.lfm b/components/codetools/ide/ppulistdlg.lfm index c11f265844..9b615232cf 100644 --- a/components/codetools/ide/ppulistdlg.lfm +++ b/components/codetools/ide/ppulistdlg.lfm @@ -1,7 +1,7 @@ object PPUListDialog: TPPUListDialog - Left = 275 + Left = 276 Height = 531 - Top = 250 + Top = 249 Width = 740 Caption = 'PPUListDialog' ClientHeight = 531 @@ -13,22 +13,20 @@ object PPUListDialog: TPPUListDialog LCLVersion = '0.9.31' object ButtonPanel1: TButtonPanel Left = 6 - Height = 40 - Top = 485 + Height = 42 + Top = 483 Width = 728 OKButton.Name = 'OKButton' OKButton.Caption = '&OK' - OKButton.Enabled = False HelpButton.Name = 'HelpButton' HelpButton.Caption = '&Help' - HelpButton.Enabled = False + HelpButton.OnClick = HelpButtonClick CloseButton.Name = 'CloseButton' CloseButton.Caption = '&Close' CancelButton.Name = 'CancelButton' CancelButton.Caption = 'Cancel' - CancelButton.Enabled = False TabOrder = 0 - ShowButtons = [pbClose] + ShowButtons = [pbClose, pbHelp] end object UnitsStringGrid: TStringGrid Left = 6 @@ -106,18 +104,18 @@ object PPUListDialog: TPPUListDialog end object UnitGroupBox: TGroupBox Left = 6 - Height = 188 + Height = 186 Top = 291 Width = 728 Align = alClient BorderSpacing.Around = 6 Caption = 'UnitGroupBox' - ClientHeight = 167 + ClientHeight = 165 ClientWidth = 720 TabOrder = 3 object UnitPageControl: TPageControl Left = 0 - Height = 167 + Height = 165 Top = 0 Width = 720 ActivePage = UsesTabSheet @@ -150,11 +148,11 @@ object PPUListDialog: TPPUListDialog end object UsesTabSheet: TTabSheet Caption = 'UsesTabSheet' - ClientHeight = 134 + ClientHeight = 132 ClientWidth = 716 object UsesStringGrid: TStringGrid Left = 0 - Height = 134 + Height = 132 Top = 0 Width = 716 Align = alClient diff --git a/components/codetools/ide/ppulistdlg.pas b/components/codetools/ide/ppulistdlg.pas index 23a3ae0a6c..ff083cfeb2 100644 --- a/components/codetools/ide/ppulistdlg.pas +++ b/components/codetools/ide/ppulistdlg.pas @@ -38,7 +38,8 @@ uses PackageIntf, // codetools BasicCodeTools, FileProcs, CodyStrConsts, CodeToolManager, CodeCache, - PPUParser, PPUCodeTools, DefineTemplates; + PPUParser, PPUCodeTools, DefineTemplates, + CodyUtils; const PPUFileNotFound = ' '; @@ -106,6 +107,7 @@ type var {%H-}CanSelect: Boolean); procedure UnitStringGridMouseDown(Sender: TObject; {%H-}Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure HelpButtonClick(Sender: TObject); private FMainItem: TPPUListItem; FProject: TLazProject; @@ -326,6 +328,11 @@ begin end; end; +procedure TPPUListDialog.HelpButtonClick(Sender: TObject); +begin + OpenCodyHelp('#PPU_files_of_project'); +end; + procedure TPPUListDialog.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin