paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 23:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@48198 -
This commit is contained in:
mattias 2015-03-10 12:02:19 +00:00
parent 4c9a755b3e
commit f69dd2379e
24 changed files with 92 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/pascalreadertool.pas
View File

@ -228,7 +228,7 @@ type
// module sections // module sections
function ExtractSourceName: string; function ExtractSourceName: string;
function GetSourceNamePos(var NamePos: TAtomPosition): boolean; function GetSourceNamePos(out NamePos: TAtomPosition): boolean;
function GetSourceName(DoBuildTree: boolean = true): string; function GetSourceName(DoBuildTree: boolean = true): string;
function GetSourceType: TCodeTreeNodeDesc; function GetSourceType: TCodeTreeNodeDesc;
function PositionInSourceName(CleanPos: integer): boolean; function PositionInSourceName(CleanPos: integer): boolean;
@ -2408,7 +2408,8 @@ begin
Result:=''; Result:='';
end; end;
function TPascalReaderTool.GetSourceNamePos(var NamePos: TAtomPosition): boolean; function TPascalReaderTool.GetSourceNamePos(out NamePos: TAtomPosition
): boolean;
begin begin
Result:=false; Result:=false;
NamePos.StartPos:=-1; NamePos.StartPos:=-1;

3
components/synedit/syneditpointclasses.pas
View File

@ -540,8 +540,9 @@ type
procedure UpdateDisplay; procedure UpdateDisplay;
procedure ShowCaret; procedure ShowCaret;
procedure HideCaret; procedure HideCaret;
property Handle: HWND read GetHandle;
property HandleAllocated: Boolean read GetHandleAllocated; property HandleAllocated: Boolean read GetHandleAllocated;
protected
property Handle: HWND read GetHandle;
public public
constructor Create(AHandleOwner: TWinControl); constructor Create(AHandleOwner: TWinControl);
constructor Create(AHandleOwner: TWinControl; APainterClass: TSynEditScreenCaretPainterClass); constructor Create(AHandleOwner: TWinControl; APainterClass: TSynEditScreenCaretPainterClass);

2
ide/abstractsmethodsdlg.pas
View File

@ -35,7 +35,7 @@ interface
uses uses
Classes, SysUtils, LCLProc, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, LCLProc, Forms, Controls, Graphics, Dialogs,
CheckLst, StdCtrls, ExtCtrls, Buttons, CheckLst, StdCtrls, ExtCtrls, Buttons,
CodeAtom, CodeTree, PascalParserTool, CodeCache, CodeToolManager, CodeTree, PascalParserTool, CodeCache, CodeToolManager,
LazIDEIntf, SrcEditorIntf, IDEDialogs, LazIDEIntf, SrcEditorIntf, IDEDialogs,
LazarusIDEStrConsts; LazarusIDEStrConsts;

10
ide/addtoprojectdlg.pas
View File

@ -34,7 +34,7 @@ unit AddToProjectDlg;
interface interface
uses uses
Classes, SysUtils, Math, LCLProc, Forms, Controls, Buttons, Classes, SysUtils, LCLProc, Forms, Controls, Buttons,
ComCtrls, StdCtrls, ExtCtrls, Menus, Dialogs, Graphics, FileUtil, ButtonPanel, ComCtrls, StdCtrls, ExtCtrls, Menus, Dialogs, Graphics, FileUtil, ButtonPanel,
AVL_Tree, AVL_Tree,
IDEWindowIntf, PackageIntf, IDEDialogs, IDEWindowIntf, PackageIntf, IDEDialogs,
@ -80,14 +80,14 @@ type
// add files page // add files page
FilesListView: TListView; FilesListView: TListView;
procedure AddFileButtonClick(Sender: TObject); procedure AddFileButtonClick(Sender: TObject);
procedure AddFileListViewSelectItem(Sender: TObject; Item: TListItem; procedure AddFileListViewSelectItem(Sender: TObject; {%H-}Item: TListItem;
Selected: Boolean); Selected: Boolean);
procedure AddToProjectDialogClose(Sender: TObject; procedure AddToProjectDialogClose(Sender: TObject;
var CloseAction: TCloseAction); var {%H-}CloseAction: TCloseAction);
procedure DependPkgNameComboBoxChange(Sender: TObject); procedure DependPkgNameComboBoxChange(Sender: TObject);
procedure FilesDirButtonClick(Sender: TObject); procedure FilesDirButtonClick(Sender: TObject);
procedure FilesListViewSelectItem(Sender: TObject; Item: TListItem; procedure FilesListViewSelectItem(Sender: TObject; {%H-}Item: TListItem;
Selected: Boolean); {%H-}Selected: Boolean);
procedure NewDependButtonClick(Sender: TObject); procedure NewDependButtonClick(Sender: TObject);
procedure FilesAddButtonClick(Sender: TObject); procedure FilesAddButtonClick(Sender: TObject);
procedure FilesDeleteButtonClick(Sender: TObject); procedure FilesDeleteButtonClick(Sender: TObject);

6
ide/buildprojectdlg.pas
View File

@ -36,7 +36,7 @@ uses
IDEDialogs, IDEImagesIntf, PackageIntf, IDEDialogs, IDEImagesIntf, PackageIntf,
// IDE // IDE
PackageDefs, PackageSystem, InputHistory, LazarusIDEStrConsts, Project, PackageDefs, PackageSystem, InputHistory, LazarusIDEStrConsts, Project,
DialogProcs, IDEProcs; IDEProcs;
type type
TBuildProjectDialogItem = class TBuildProjectDialogItem = class
@ -64,7 +64,7 @@ type
procedure DeleteButtonClick(Sender: TObject); procedure DeleteButtonClick(Sender: TObject);
procedure FilesTreeViewMouseDown(Sender: TObject; Button: TMouseButton; procedure FilesTreeViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormResize(Sender: TObject); procedure FormResize(Sender: TObject);
@ -78,7 +78,7 @@ type
ImageIndexFile: Integer; ImageIndexFile: Integer;
FIdleConnected: boolean; FIdleConnected: boolean;
procedure SetIdleConnected(const AValue: boolean); procedure SetIdleConnected(const AValue: boolean);
procedure OnIdle(Sender: TObject; var Done: Boolean); procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
private private
FProject: TProject; FProject: TProject;
FUpdateNeeded: boolean; FUpdateNeeded: boolean;

10
ide/codebrowser.pas
View File

@ -54,11 +54,11 @@ uses
CodeIndex, StdCodeTools, SourceLog, CustomCodeTool, CodeIndex, StdCodeTools, SourceLog, CustomCodeTool,
// IDEIntf // IDEIntf
IDEWindowIntf, SrcEditorIntf, IDEMsgIntf, IDEDialogs, LazConfigStorage, IDEWindowIntf, SrcEditorIntf, IDEMsgIntf, IDEDialogs, LazConfigStorage,
IDEHelpIntf, PackageIntf, TextTools, IDECommands, LazIDEIntf, IDEHelpIntf, PackageIntf, IDECommands, LazIDEIntf,
IDEExternToolIntf, IDEExternToolIntf,
// IDE // IDE
Project, DialogProcs, PackageSystem, PackageDefs, LazarusIDEStrConsts, Project, DialogProcs, PackageSystem, PackageDefs, LazarusIDEStrConsts,
IDEOptionDefs, etFPCMsgParser, BasePkgManager, AddToProjectDlg, IDEOptionDefs, etFPCMsgParser, BasePkgManager,
EnvironmentOpts; EnvironmentOpts;
@ -217,14 +217,14 @@ type
UnitFilterBeginsSpeedButton: TSpeedButton; UnitFilterBeginsSpeedButton: TSpeedButton;
UnitFilterContainsSpeedButton: TSpeedButton; UnitFilterContainsSpeedButton: TSpeedButton;
UnitFilterEdit: TEdit; UnitFilterEdit: TEdit;
procedure BrowseTreeViewMouseMove(Sender: TObject; Shift: TShiftState; X, procedure BrowseTreeViewMouseMove(Sender: TObject; {%H-}Shift: TShiftState; {%H-}X,
Y: Integer); {%H-}Y: Integer);
procedure FormDeactivate(Sender: TObject); procedure FormDeactivate(Sender: TObject);
procedure UseIdentifierInCurUnitMenuItemClick(Sender: TObject); procedure UseIdentifierInCurUnitMenuItemClick(Sender: TObject);
procedure UsePkgInCurUnitMenuItemClick(Sender: TObject); procedure UsePkgInCurUnitMenuItemClick(Sender: TObject);
procedure UsePkgInProjectMenuItemClick(Sender: TObject); procedure UsePkgInProjectMenuItemClick(Sender: TObject);
procedure UseUnitInCurUnitMenuItemClick(Sender: TObject); procedure UseUnitInCurUnitMenuItemClick(Sender: TObject);
procedure BrowseTreeViewMouseDown(Sender: TOBject; Button: TMouseButton; procedure BrowseTreeViewMouseDown(Sender: TOBject; {%H-}Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure BrowseTreeViewShowHint(Sender: TObject; HintInfo: PHintInfo); procedure BrowseTreeViewShowHint(Sender: TObject; HintInfo: PHintInfo);
procedure CollapseAllPackagesMenuItemClick(Sender: TObject); procedure CollapseAllPackagesMenuItemClick(Sender: TObject);

4
ide/codehelp.pas
View File

@ -45,7 +45,7 @@ uses
// codetools // codetools
CodeAtom, CodeTree, CodeToolManager, FindDeclarationTool, BasicCodeTools, CodeAtom, CodeTree, CodeToolManager, FindDeclarationTool, BasicCodeTools,
KeywordFuncLists, PascalParserTool, CodeCache, CacheCodeTools, CustomCodeTool, KeywordFuncLists, PascalParserTool, CodeCache, CacheCodeTools, CustomCodeTool,
FileProcs, CTXMLFixFragment, DefineTemplates, CodeToolsStructs, FileProcs, DefineTemplates, CodeToolsStructs,
// synedit // synedit
SynHighlighterPas, SynHighlighterPas,
// IDEIntf // IDEIntf
@ -236,7 +236,7 @@ type
FSrcToDocMap: TAvgLvlTree; // tree of TCHSourceToFPDocFile sorted for SourceFilename FSrcToDocMap: TAvgLvlTree; // tree of TCHSourceToFPDocFile sorted for SourceFilename
FDeclarationCache: TDeclarationInheritanceCache; FDeclarationCache: TDeclarationInheritanceCache;
procedure AddHandler(HandlerType: TCodeHelpManagerHandler; procedure AddHandler(HandlerType: TCodeHelpManagerHandler;
const AMethod: TMethod; AsLast: boolean = false); const AMethod: TMethod; {%H-}AsLast: boolean = false);
procedure RemoveHandler(HandlerType: TCodeHelpManagerHandler; procedure RemoveHandler(HandlerType: TCodeHelpManagerHandler;
const AMethod: TMethod); const AMethod: TMethod);
procedure FreeHandlers; procedure FreeHandlers;

6
ide/etmessageframe.pas
View File

@ -33,11 +33,11 @@ interface
uses uses
Math, strutils, Classes, SysUtils, UTF8Process, FileProcs, LazFileCache, Math, strutils, Classes, SysUtils, UTF8Process, FileProcs, LazFileCache,
LazUTF8Classes, LazFileUtils, LazUTF8, AvgLvlTree, LazConfigStorage, SynEdit, LazUTF8Classes, LazFileUtils, LazUTF8, AvgLvlTree, SynEdit,
SynEditMarks, LResources, Forms, Buttons, ExtCtrls, Controls, LMessages, SynEditMarks, LResources, Forms, Buttons, ExtCtrls, Controls, LMessages,
LCLType, Graphics, LCLIntf, Themes, ImgList, GraphType, Menus, Clipbrd, LCLType, Graphics, LCLIntf, Themes, ImgList, GraphType, Menus, Clipbrd,
Dialogs, StdCtrls, IDEExternToolIntf, IDEImagesIntf, MenuIntf, PackageIntf, Dialogs, StdCtrls, IDEExternToolIntf, IDEImagesIntf, MenuIntf, PackageIntf,
IDECommands, SrcEditorIntf, IDEDialogs, ProjectIntf, CompOptsIntf, IDECommands, IDEDialogs, ProjectIntf, CompOptsIntf,
LazarusIDEStrConsts, EnvironmentOpts, HelpFPCMessages, etSrcEditMarks, LazarusIDEStrConsts, EnvironmentOpts, HelpFPCMessages, etSrcEditMarks,
etQuickFixes, ExtTools, IDEOptionDefs, CompilerOptions; etQuickFixes, ExtTools, IDEOptionDefs, CompilerOptions;
@ -340,7 +340,7 @@ type
procedure SearchEditEnter(Sender: TObject); procedure SearchEditEnter(Sender: TObject);
procedure SearchEditExit(Sender: TObject); procedure SearchEditExit(Sender: TObject);
procedure SearchEditKeyDown(Sender: TObject; var Key: Word; procedure SearchEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); {%H-}Shift: TShiftState);
procedure SearchNextSpeedButtonClick(Sender: TObject); procedure SearchNextSpeedButtonClick(Sender: TObject);
procedure SearchPrevSpeedButtonClick(Sender: TObject); procedure SearchPrevSpeedButtonClick(Sender: TObject);
procedure ShowIDMenuItemClick(Sender: TObject); procedure ShowIDMenuItemClick(Sender: TObject);

7
ide/etmessageswnd.pas
View File

@ -30,9 +30,9 @@ unit etMessagesWnd;
interface interface
uses uses
Classes, SysUtils, FileUtil, LazConfigStorage, IDEMsgIntf, IDEImagesIntf, Classes, SysUtils, FileUtil, IDEMsgIntf, IDEImagesIntf,
IDEExternToolIntf, LazIDEIntf, SrcEditorIntf, BaseIDEIntf, SynEditMarks, IDEExternToolIntf, LazIDEIntf, SynEditMarks,
Forms, Controls, Graphics, Dialogs, LCLProc, etMessageFrame, etSrcEditMarks, Forms, Controls, Graphics, Dialogs, LCLProc, etMessageFrame,
etQuickFixes, LazarusIDEStrConsts; etQuickFixes, LazarusIDEStrConsts;
type type
@ -220,6 +220,7 @@ function TMessagesView.CreateView(aCaptionPrefix: string): TExtToolView;
var var
i: Integer; i: Integer;
begin begin
Result:=nil;
if TryCaption(aCaptionPrefix,Result) then exit; if TryCaption(aCaptionPrefix,Result) then exit;
if (aCaptionPrefix<>'') and (aCaptionPrefix[length(aCaptionPrefix)] in ['0'..'9']) if (aCaptionPrefix<>'') and (aCaptionPrefix[length(aCaptionPrefix)] in ['0'..'9'])
then then

14
ide/etquickfixes.pas
View File

@ -71,7 +71,7 @@ type
public public
function IsApplicable(Msg: TMessageLine; out Identifier: string): boolean; function IsApplicable(Msg: TMessageLine; out Identifier: string): boolean;
procedure CreateMenuItems(Fixes: TMsgQuickFixes); override; procedure CreateMenuItems(Fixes: TMsgQuickFixes); override;
procedure QuickFix(Fixes: TMsgQuickFixes; Msg: TMessageLine); override; procedure QuickFix({%H-}Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
end; end;
{ TQuickFixLocalVariableNotUsed_Remove } { TQuickFixLocalVariableNotUsed_Remove }
@ -80,7 +80,7 @@ type
public public
function IsApplicable(Msg: TMessageLine; out Identifier: string): boolean; function IsApplicable(Msg: TMessageLine; out Identifier: string): boolean;
procedure CreateMenuItems(Fixes: TMsgQuickFixes); override; procedure CreateMenuItems(Fixes: TMsgQuickFixes); override;
procedure QuickFix(Fixes: TMsgQuickFixes; Msg: TMessageLine); override; procedure QuickFix({%H-}Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
end; end;
{ TQuickFixLocalVarNotInitialized_AddAssignment } { TQuickFixLocalVarNotInitialized_AddAssignment }
@ -89,7 +89,7 @@ type
public public
function IsApplicable(Msg: TMessageLine; out Identifier: string): boolean; function IsApplicable(Msg: TMessageLine; out Identifier: string): boolean;
procedure CreateMenuItems(Fixes: TMsgQuickFixes); override; procedure CreateMenuItems(Fixes: TMsgQuickFixes); override;
procedure QuickFix(Fixes: TMsgQuickFixes; Msg: TMessageLine); override; procedure QuickFix({%H-}Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
end; end;
{ TQuickFixUnitNotFound_Remove } { TQuickFixUnitNotFound_Remove }
@ -99,7 +99,7 @@ type
function IsApplicable(Msg: TMessageLine; function IsApplicable(Msg: TMessageLine;
out MissingUnitName, UsedByUnit: string): boolean; out MissingUnitName, UsedByUnit: string): boolean;
procedure CreateMenuItems(Fixes: TMsgQuickFixes); override; procedure CreateMenuItems(Fixes: TMsgQuickFixes); override;
procedure QuickFix(Fixes: TMsgQuickFixes; Msg: TMessageLine); override; procedure QuickFix({%H-}Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
end; end;
{ TQuickFixClassWithAbstractMethods { TQuickFixClassWithAbstractMethods
@ -110,7 +110,7 @@ type
public public
function IsApplicable(Msg: TMessageLine; out aClassName: string): boolean; function IsApplicable(Msg: TMessageLine; out aClassName: string): boolean;
procedure CreateMenuItems(Fixes: TMsgQuickFixes); override; procedure CreateMenuItems(Fixes: TMsgQuickFixes); override;
procedure QuickFix(Fixes: TMsgQuickFixes; Msg: TMessageLine); override; procedure QuickFix({%H-}Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
end; end;
{ TQuickFixSrcPathOfPkgContains_OpenPkg { TQuickFixSrcPathOfPkgContains_OpenPkg
@ -122,7 +122,7 @@ type
public public
function IsApplicable(Msg: TMessageLine; out PkgName: string): boolean; function IsApplicable(Msg: TMessageLine; out PkgName: string): boolean;
procedure CreateMenuItems(Fixes: TMsgQuickFixes); override; procedure CreateMenuItems(Fixes: TMsgQuickFixes); override;
procedure QuickFix(Fixes: TMsgQuickFixes; Msg: TMessageLine); override; procedure QuickFix({%H-}Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
end; end;
{ TQuickFix_HideWithIDEDirective - hide with IDE directive %H- } { TQuickFix_HideWithIDEDirective - hide with IDE directive %H- }
@ -141,7 +141,7 @@ type
function IsApplicable(Msg: TMessageLine; out ToolData: TIDEExternalToolData; function IsApplicable(Msg: TMessageLine; out ToolData: TIDEExternalToolData;
out IDETool: TObject): boolean; out IDETool: TObject): boolean;
procedure CreateMenuItems(Fixes: TMsgQuickFixes); override; procedure CreateMenuItems(Fixes: TMsgQuickFixes); override;
procedure QuickFix(Fixes: TMsgQuickFixes; Msg: TMessageLine); override; procedure QuickFix({%H-}Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
end; end;
{ TIDEQuickFixes } { TIDEQuickFixes }

6
ide/helpoptions.pas
View File

@ -36,9 +36,9 @@ interface
uses uses
Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, LCLProc, LResources, Forms, Controls, Graphics, Dialogs,
FileUtil, Laz2_XMLCfg, LazFileCache, StdCtrls, Buttons, ExtCtrls, FileUtil, Laz2_XMLCfg, LazFileCache, Buttons, ExtCtrls,
IDEContextHelpEdit, EnvironmentOpts, ButtonPanel, ObjectInspector, EnvironmentOpts, ObjectInspector,
LazHelpIntf, IDEWindowIntf, IDEDialogs, IDEOptionsIntf, MacroIntf, LazConf, LazHelpIntf, IDEWindowIntf, IDEOptionsIntf, MacroIntf, LazConf,
LazarusIDEStrConsts, IDEProcs, IDEOptionDefs; LazarusIDEStrConsts, IDEProcs, IDEOptionDefs;
type type

8
ide/idefpdocfilesearch.pas
View File

@ -6,8 +6,8 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ButtonPanel, Buttons, ComCtrls, ExtCtrls, LCLType, Buttons, ComCtrls, ExtCtrls, LCLType,
LazarusIDEStrConsts, PackageSystem, PackageDefs; PackageSystem, PackageDefs;
type type
@ -22,8 +22,8 @@ type
SearchTextLabel: TLabel; SearchTextLabel: TLabel;
Splitter1: TSplitter; Splitter1: TSplitter;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
procedure OnIdle(Sender: TObject; var Done: Boolean); procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
private private
FIdleConnected: boolean; FIdleConnected: boolean;
procedure SetIdleConnected(AValue: boolean); procedure SetIdleConnected(AValue: boolean);

2
ide/ideguicmdline.pas
View File

@ -41,7 +41,7 @@ interface
uses uses
Classes, SysUtils, math, FileUtil, lazutf8classes, LazConf, LCLProc, Classes, SysUtils, math, FileUtil, lazutf8classes, LazConf, LCLProc,
LazarusIDEStrConsts, IDECmdLine; IDECmdLine;
procedure ParseGuiCmdLineParams(var SkipAutoLoadingLastProject, procedure ParseGuiCmdLineParams(var SkipAutoLoadingLastProject,
StartedByStartLazarus, StartedByStartLazarus,

14
ide/idehelpmanager.pas
View File

@ -37,19 +37,19 @@ uses
Buttons, StdCtrls, Dialogs, ExtCtrls, FileProcs, Graphics, ButtonPanel, Buttons, StdCtrls, Dialogs, ExtCtrls, FileProcs, Graphics, ButtonPanel,
LConvEncoding, lazutf8classes, LConvEncoding, lazutf8classes,
// CodeTools // CodeTools
BasicCodeTools, CodeToolManager, CodeAtom, CodeCache, CustomCodeTool, CodeTree, BasicCodeTools, CodeToolManager, CodeCache, CustomCodeTool, CodeTree,
PascalParserTool, FindDeclarationTool, PascalParserTool, FindDeclarationTool,
// IDEIntf // IDEIntf
PropEdits, ObjectInspector, FormEditingIntf, ProjectIntf, TextTools, PropEdits, ObjectInspector, ProjectIntf, TextTools,
IDEDialogs, LazHelpIntf, LazHelpHTML, HelpFPDoc, MacroIntf, IDEWindowIntf, IDEDialogs, LazHelpIntf, LazHelpHTML, HelpFPDoc, MacroIntf, IDEWindowIntf,
IDEMsgIntf, PackageIntf, LazIDEIntf, HelpIntfs, IDEHelpIntf, IDEMsgIntf, PackageIntf, LazIDEIntf, HelpIntfs, IDEHelpIntf,
IDEExternToolIntf, IDEExternToolIntf,
// IDE // IDE
LazarusIDEStrConsts, TransferMacros, DialogProcs, IDEOptionDefs, LazarusIDEStrConsts, TransferMacros, DialogProcs, IDEOptionDefs,
ObjInspExt, EnvironmentOpts, AboutFrm, Project, MainBar, etMessagesWnd, ObjInspExt, EnvironmentOpts, AboutFrm, Project, MainBar,
IDEFPDocFileSearch, PackageDefs, PackageSystem, IDEFPDocFileSearch, PackageDefs, PackageSystem,
HelpOptions, MainIntf, LazConf, HelpFPCMessages, CodeHelp, HelpOptions, MainIntf, LazConf, HelpFPCMessages, CodeHelp,
IDEContextHelpEdit, IDEWindowHelp, CodeBrowser; IDEWindowHelp, CodeBrowser;
type type
@ -214,7 +214,7 @@ type
procedure ShowHelpForObjectInspector(Sender: TObject); override; procedure ShowHelpForObjectInspector(Sender: TObject); override;
procedure ShowHelpForIDEControl(Sender: TControl); override; procedure ShowHelpForIDEControl(Sender: TControl); override;
function CreateHint(aHintWindow: THintWindow; ScreenPos: TPoint; function CreateHint(aHintWindow: THintWindow; ScreenPos: TPoint;
const BaseURL: string; var TheHint: string; out HintWinRect: TRect): boolean; const {%H-}BaseURL: string; var TheHint: string; out HintWinRect: TRect): boolean;
override; deprecated 'Use THintWindowManager class instead'; override; deprecated 'Use THintWindowManager class instead';
function GetHintForSourcePosition(const ExpandedFilename: string; function GetHintForSourcePosition(const ExpandedFilename: string;
const CodePos: TPoint; out BaseURL, HTMLHint: string; const CodePos: TPoint; out BaseURL, HTMLHint: string;
@ -251,7 +251,7 @@ type
BtnPanel: TButtonPanel; BtnPanel: TButtonPanel;
NodesGroupBox: TGroupBox; NodesGroupBox: TGroupBox;
NodesListBox: TListBox; NodesListBox: TListBox;
procedure HelpSelectorDialogClose(Sender: TObject; var CloseAction: TCloseAction); procedure HelpSelectorDialogClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure NodesListBoxDblClick(Sender: TObject); procedure NodesListBoxDblClick(Sender: TObject);
private private
FNodes: THelpNodeQueryList; FNodes: THelpNodeQueryList;
@ -801,6 +801,7 @@ begin
if ElementName='' then break; if ElementName='' then break;
ContextList.Add(pihcType,ElementName); ContextList.Add(pihcType,ElementName);
until false; until false;
ErrMsg:='TLazIDEHTMLProvider.OpenFPDoc ShowHelpForPascalContexts';
ShowHelpForPascalContexts(Filename,Point(1,1),PascalHelpContextLists,ErrMsg); ShowHelpForPascalContexts(Filename,Point(1,1),PascalHelpContextLists,ErrMsg);
finally finally
if PascalHelpContextLists<>nil then begin if PascalHelpContextLists<>nil then begin
@ -1619,6 +1620,7 @@ begin
if FindDeclarationOfOIProperty(AnInspector,nil,Code,Caret,NewTopLine) then if FindDeclarationOfOIProperty(AnInspector,nil,Code,Caret,NewTopLine) then
begin begin
if NewTopLine=0 then ; if NewTopLine=0 then ;
ErrMsg:='TIDEHelpManager.ShowHelpForObjectInspector ShowHelpForSourcePosition';
ShowHelpForSourcePosition(Code.Filename,Caret,ErrMsg); ShowHelpForSourcePosition(Code.Filename,Caret,ErrMsg);
end; end;
end else begin end else begin

2
ide/newprojectdlg.pp
View File

@ -48,7 +48,7 @@ type
Splitter1: TSplitter; Splitter1: TSplitter;
procedure HelpButtonClick(Sender: TObject); procedure HelpButtonClick(Sender: TObject);
procedure ListBoxDblClick(Sender: TObject); procedure ListBoxDblClick(Sender: TObject);
procedure ListBoxSelectionChange(Sender: TObject; User: boolean); procedure ListBoxSelectionChange(Sender: TObject; {%H-}User: boolean);
private private
FProjectDescriptor: TProjectDescriptor; FProjectDescriptor: TProjectDescriptor;
procedure FillHelpLabel; procedure FillHelpLabel;

15
ide/projectinspector.pas
View File

@ -57,7 +57,7 @@ interface
uses uses
Classes, SysUtils, LCLProc, LCLType, Forms, Controls, Buttons, ComCtrls, Classes, SysUtils, LCLProc, LCLType, Forms, Controls, Buttons, ComCtrls,
Menus, Dialogs, FileUtil, LazFileCache, ExtCtrls, Graphics, Menus, Dialogs, FileUtil, LazFileCache, ExtCtrls, Graphics,
CodeToolManager, CodeCache, TreeFilterEdit, CodeToolManager, TreeFilterEdit,
// IDEIntf // IDEIntf
IDEHelpIntf, IDECommands, IDEDialogs, IDEImagesIntf, LazIDEIntf, ProjectIntf, IDEHelpIntf, IDECommands, IDEDialogs, IDEImagesIntf, LazIDEIntf, ProjectIntf,
PackageIntf, PackageIntf,
@ -108,13 +108,13 @@ type
procedure FormDropFiles(Sender: TObject; const FileNames: array of String); procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
procedure ItemsPopupMenuPopup(Sender: TObject); procedure ItemsPopupMenuPopup(Sender: TObject);
procedure ItemsTreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView; procedure ItemsTreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage; Node: TTreeNode; {%H-}State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean); var {%H-}PaintImages, {%H-}DefaultDraw: Boolean);
procedure ItemsTreeViewDblClick(Sender: TObject); procedure ItemsTreeViewDblClick(Sender: TObject);
procedure ItemsTreeViewDragDrop(Sender, Source: TObject; X, Y: Integer); procedure ItemsTreeViewDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure ItemsTreeViewDragOver(Sender, Source: TObject; X, Y: Integer; procedure ItemsTreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean); State: TDragState; var Accept: Boolean);
procedure ItemsTreeViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure ItemsTreeViewKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
procedure ItemsTreeViewSelectionChanged(Sender: TObject); procedure ItemsTreeViewSelectionChanged(Sender: TObject);
procedure MoveDependencyUpClick(Sender: TObject); procedure MoveDependencyUpClick(Sender: TObject);
procedure MoveDependencyDownClick(Sender: TObject); procedure MoveDependencyDownClick(Sender: TObject);
@ -170,13 +170,13 @@ type
procedure SetShowDirectoryHierarchy(const AValue: boolean); procedure SetShowDirectoryHierarchy(const AValue: boolean);
procedure SetSortAlphabetically(const AValue: boolean); procedure SetSortAlphabetically(const AValue: boolean);
procedure SetupComponents; procedure SetupComponents;
function OnTreeViewGetImageIndex(Str: String; Data: TObject; var AIsEnabled: Boolean): Integer; function OnTreeViewGetImageIndex({%H-}Str: String; Data: TObject; var {%H-}AIsEnabled: Boolean): Integer;
procedure OnProjectBeginUpdate(Sender: TObject); procedure OnProjectBeginUpdate(Sender: TObject);
procedure OnProjectEndUpdate(Sender: TObject; ProjectChanged: boolean); procedure OnProjectEndUpdate(Sender: TObject; ProjectChanged: boolean);
procedure EnableI18NForSelectedLFM(TheEnable: boolean); procedure EnableI18NForSelectedLFM(TheEnable: boolean);
protected protected
procedure KeyUp(var Key: Word; Shift: TShiftState); override; procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure IdleHandler(Sender: TObject; var Done: Boolean); procedure IdleHandler(Sender: TObject; var {%H-}Done: Boolean);
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -1101,7 +1101,8 @@ end;
procedure TProjectInspectorForm.OnProjectEndUpdate(Sender: TObject; procedure TProjectInspectorForm.OnProjectEndUpdate(Sender: TObject;
ProjectChanged: boolean); ProjectChanged: boolean);
begin begin
UpdateAll; if ProjectChanged then
UpdateAll;
EndUpdate; EndUpdate;
end; end;

2
ide/publishprojectdlg.pas
View File

@ -73,7 +73,7 @@ type
procedure BrowseDestDirBitBtnCLICK(Sender: TObject); procedure BrowseDestDirBitBtnCLICK(Sender: TObject);
procedure DestDirGroupBoxRESIZE(Sender: TObject); procedure DestDirGroupBoxRESIZE(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure HelpButtonClick(Sender: TObject); procedure HelpButtonClick(Sender: TObject);
procedure OkButtonCLICK(Sender: TObject); procedure OkButtonCLICK(Sender: TObject);

2
ide/qfinitlocalvardlg.pas
View File

@ -34,7 +34,7 @@ interface
uses uses
Classes, SysUtils, Math, contnrs, LazLogger, Classes, SysUtils, Math, contnrs, LazLogger,
Forms, Controls, Graphics, Dialogs, ButtonPanel, ExtCtrls, StdCtrls, Forms, Controls, Graphics, Dialogs, ButtonPanel, ExtCtrls,
CodeToolManager, CodeCache, StdCodeTools, CodeToolManager, CodeCache, StdCodeTools,
LazIDEIntf, IDEDialogs, LazIDEIntf, IDEDialogs,
LazarusIDEStrConsts; LazarusIDEStrConsts;

2
lcl/dialogs.pp
View File

@ -638,7 +638,7 @@ begin
if (Flags and MB_OK) = MB_OK then if (Flags and MB_OK) = MB_OK then
Buttons := [mbOK] Buttons := [mbOK]
else else
Buttons := [mbOK]; {%H-}Buttons := [mbOK];
if (Flags and MB_ICONINFORMATION) = MB_ICONINFORMATION then if (Flags and MB_ICONINFORMATION) = MB_ICONINFORMATION then

2
packager/adddirtopkgdlg.pas
View File

@ -52,7 +52,7 @@ type
procedure ButtonPanel1CancelClick(Sender: TObject); procedure ButtonPanel1CancelClick(Sender: TObject);
procedure ButtonPanel1OkClick(Sender: TObject); procedure ButtonPanel1OkClick(Sender: TObject);
procedure DirButtonClick(Sender: TObject); procedure DirButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
private private

15
packager/addtopackagedlg.pas
View File

@ -76,7 +76,7 @@ type
end; end;
TOnGetUnitRegisterInfo = procedure(Sender: TObject; const AFilename: string; TOnGetUnitRegisterInfo = procedure(Sender: TObject; const AFilename: string;
var TheUnitName: string; var HasRegisterProc: boolean) of object; out TheUnitName: string; out HasRegisterProc: boolean) of object;
{ TAddToPackageDlg } { TAddToPackageDlg }
@ -121,7 +121,7 @@ type
FilesListView: TListView; FilesListView: TListView;
NewFileBtnPanel: TPanel; NewFileBtnPanel: TPanel;
AddFilesBtnPanel: TPanel; AddFilesBtnPanel: TPanel;
procedure AddToPackageDlgClose(Sender: TObject; var CloseAction: TCloseAction); procedure AddToPackageDlgClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure AddToPackageDlgKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure AddToPackageDlgKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure AncestorComboBoxChange(Sender: TObject); procedure AncestorComboBoxChange(Sender: TObject);
procedure AncestorComboBoxCloseUp(Sender: TObject); procedure AncestorComboBoxCloseUp(Sender: TObject);
@ -137,7 +137,7 @@ type
procedure FilesAddButtonClick(Sender: TObject); procedure FilesAddButtonClick(Sender: TObject);
procedure FilesDeleteButtonClick(Sender: TObject); procedure FilesDeleteButtonClick(Sender: TObject);
procedure FilesDirButtonClick(Sender: TObject); procedure FilesDirButtonClick(Sender: TObject);
procedure FilesListViewSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); procedure FilesListViewSelectItem(Sender: TObject; {%H-}Item: TListItem; {%H-}Selected: Boolean);
procedure FilesShortenButtonClick(Sender: TObject); procedure FilesShortenButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
@ -192,7 +192,7 @@ type
property ActivatePage: TAddToPkgType read GetActivatePage write SetActivatePage; property ActivatePage: TAddToPkgType read GetActivatePage write SetActivatePage;
end; end;
function ShowAddToPackageDlg(Pkg: TLazPackage; var Params: TAddToPkgResult; function ShowAddToPackageDlg(Pkg: TLazPackage; out Params: TAddToPkgResult;
OnGetIDEFileInfo: TGetIDEFileStateEvent; OnGetIDEFileInfo: TGetIDEFileStateEvent;
OnGetUnitRegisterInfo: TOnGetUnitRegisterInfo; OnGetUnitRegisterInfo: TOnGetUnitRegisterInfo;
var Page: TAddToPkgType): TModalResult; var Page: TAddToPkgType): TModalResult;
@ -210,13 +210,14 @@ implementation
{$R *.lfm} {$R *.lfm}
function ShowAddToPackageDlg(Pkg: TLazPackage; var Params: TAddToPkgResult; function ShowAddToPackageDlg(Pkg: TLazPackage; out Params: TAddToPkgResult;
OnGetIDEFileInfo: TGetIDEFileStateEvent; OnGetIDEFileInfo: TGetIDEFileStateEvent;
OnGetUnitRegisterInfo: TOnGetUnitRegisterInfo; OnGetUnitRegisterInfo: TOnGetUnitRegisterInfo; var Page: TAddToPkgType
var Page: TAddToPkgType): TModalResult; ): TModalResult;
var var
AddDlg: TAddToPackageDlg; AddDlg: TAddToPackageDlg;
begin begin
Params:=nil;
AddDlg:=TAddToPackageDlg.Create(nil); AddDlg:=TAddToPackageDlg.Create(nil);
AddDlg.OnGetIDEFileInfo:=OnGetIDEFileInfo; AddDlg.OnGetIDEFileInfo:=OnGetIDEFileInfo;
AddDlg.OnGetUnitRegisterInfo:=OnGetUnitRegisterInfo; AddDlg.OnGetUnitRegisterInfo:=OnGetUnitRegisterInfo;

6
packager/cleanpkgdeps.pas
View File

@ -32,8 +32,8 @@ unit CleanPkgDeps;
interface interface
uses uses
Classes, SysUtils, contnrs, FileUtil, AvgLvlTree, LazLogger, LvlGraphCtrl, Classes, SysUtils, contnrs, FileUtil, AvgLvlTree, LazLogger,
Forms, Controls, Graphics, Dialogs, ButtonPanel, ComCtrls, ExtCtrls, StdCtrls, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls, StdCtrls,
Buttons, LazarusIDEStrConsts, Project, PackageDefs, IDEImagesIntf; Buttons, LazarusIDEStrConsts, Project, PackageDefs, IDEImagesIntf;
const const
@ -64,7 +64,7 @@ type
procedure SelectAllBitBtnClick(Sender: TObject); procedure SelectAllBitBtnClick(Sender: TObject);
procedure SelectNoneBitBtnClick(Sender: TObject); procedure SelectNoneBitBtnClick(Sender: TObject);
procedure TransitivityTreeViewMouseDown(Sender: TObject; procedure TransitivityTreeViewMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); {%H-}Button: TMouseButton; {%H-}Shift: TShiftState; X, Y: Integer);
private private
function GetTVNodeChecked(TVNode: TTreeNode): boolean; function GetTVNodeChecked(TVNode: TTreeNode): boolean;
procedure SetTVNodeChecked(TVNode: TTreeNode; AValue: boolean); procedure SetTVNodeChecked(TVNode: TTreeNode; AValue: boolean);

20
packager/packageeditor.pas
View File

@ -37,11 +37,11 @@ uses
LCLType, LCLProc, Menus, Dialogs, FileUtil, LazFileCache, ExtCtrls, LCLType, LCLProc, Menus, Dialogs, FileUtil, LazFileCache, ExtCtrls,
contnrs, contnrs,
// IDEIntf CodeTools // IDEIntf CodeTools
CodeToolManager, CodeCache, CodeTree, CodeToolManager, CodeCache,
TreeFilterEdit, TreeFilterEdit,
IDEImagesIntf, MenuIntf, LazIDEIntf, ProjectIntf, CodeToolsStructs, IDEImagesIntf, MenuIntf, LazIDEIntf, ProjectIntf, CodeToolsStructs,
FormEditingIntf, PackageIntf, IDEHelpIntf, IDEOptionsIntf, SrcEditorIntf, FormEditingIntf, PackageIntf, IDEHelpIntf, IDEOptionsIntf,
IDEMsgIntf, IDEExternToolIntf, IDEExternToolIntf,
// IDE // IDE
IDEDialogs, IDEProcs, LazarusIDEStrConsts, IDEDefs, CompilerOptions, IDEDialogs, IDEProcs, LazarusIDEStrConsts, IDEDefs, CompilerOptions,
ComponentReg, UnitResources, EnvironmentOpts, DialogProcs, InputHistory, ComponentReg, UnitResources, EnvironmentOpts, DialogProcs, InputHistory,
@ -244,8 +244,8 @@ type
procedure FormDropFiles(Sender: TObject; const FileNames: array of String); procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
procedure ItemsPopupMenuPopup(Sender: TObject); procedure ItemsPopupMenuPopup(Sender: TObject);
procedure ItemsTreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView; procedure ItemsTreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage; Node: TTreeNode; {%H-}State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean); var {%H-}PaintImages, {%H-}DefaultDraw: Boolean);
procedure ItemsTreeViewDragDrop(Sender, Source: TObject; X, Y: Integer); procedure ItemsTreeViewDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure ItemsTreeViewDragOver(Sender, Source: TObject; X, Y: Integer; procedure ItemsTreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean); State: TDragState; var Accept: Boolean);
@ -260,15 +260,15 @@ type
procedure MinVersionEditChange(Sender: TObject); procedure MinVersionEditChange(Sender: TObject);
procedure MoveDownBtnClick(Sender: TObject); procedure MoveDownBtnClick(Sender: TObject);
procedure MoveUpBtnClick(Sender: TObject); procedure MoveUpBtnClick(Sender: TObject);
procedure OnIdle(Sender: TObject; var Done: Boolean); procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure OpenFileMenuItemClick(Sender: TObject); procedure OpenFileMenuItemClick(Sender: TObject);
procedure OptionsBitBtnClick(Sender: TObject); procedure OptionsBitBtnClick(Sender: TObject);
procedure PackageEditorFormClose(Sender: TObject; var CloseAction: TCloseAction); procedure PackageEditorFormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure PackageEditorFormCloseQuery(Sender: TObject; var CanClose: boolean); procedure PackageEditorFormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure PublishClick(Sender: TObject); procedure PublishClick(Sender: TObject);
procedure ReAddMenuItemClick(Sender: TObject); procedure ReAddMenuItemClick(Sender: TObject);
procedure RegisteredListBoxDrawItem(Control: TWinControl; Index: Integer; procedure RegisteredListBoxDrawItem({%H-}Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState); ARect: TRect; {%H-}State: TOwnerDrawState);
procedure RemoveBitBtnClick(Sender: TObject); procedure RemoveBitBtnClick(Sender: TObject);
procedure RevertClick(Sender: TObject); procedure RevertClick(Sender: TObject);
procedure SaveAsClick(Sender: TObject); procedure SaveAsClick(Sender: TObject);
@ -311,7 +311,7 @@ type
procedure SetShowDirectoryHierarchy(const AValue: boolean); procedure SetShowDirectoryHierarchy(const AValue: boolean);
procedure SetSortAlphabetically(const AValue: boolean); procedure SetSortAlphabetically(const AValue: boolean);
procedure SetupComponents; procedure SetupComponents;
function OnTreeViewGetImageIndex(Str: String; Data: TObject; var AIsEnabled: Boolean): Integer; function OnTreeViewGetImageIndex({%H-}Str: String; Data: TObject; var {%H-}AIsEnabled: Boolean): Integer;
procedure UpdateNodeImage(TVNode: TTreeNode; NodeData: TPENodeData); procedure UpdateNodeImage(TVNode: TTreeNode; NodeData: TPENodeData);
procedure UpdatePending; procedure UpdatePending;
function CanUpdate(Flag: TPEFlag; Immediately: boolean): boolean; function CanUpdate(Flag: TPEFlag; Immediately: boolean): boolean;

13
packager/pkgmanager.pas
View File

@ -114,8 +114,8 @@ type
procedure OnBeforeReadPackage(Sender: TObject); procedure OnBeforeReadPackage(Sender: TObject);
procedure OnPackageEditorFreeEditor(APackage: TLazPackage); procedure OnPackageEditorFreeEditor(APackage: TLazPackage);
procedure OnPackageEditorGetUnitRegisterInfo(Sender: TObject; procedure OnPackageEditorGetUnitRegisterInfo(Sender: TObject;
const AFilename: string; var TheUnitName: string; const AFilename: string; out TheUnitName: string;
var HasRegisterProc: boolean); out HasRegisterProc: boolean);
function PackageGraphCheckInterPkgFiles(IDEObject: TObject; function PackageGraphCheckInterPkgFiles(IDEObject: TObject;
PkgList: TFPList; out FilesChanged: boolean): boolean; PkgList: TFPList; out FilesChanged: boolean): boolean;
@ -187,7 +187,7 @@ type
const Directory: string; const Directory: string;
ShowAbort: boolean): TModalResult; ShowAbort: boolean): TModalResult;
function DoGetUnitRegisterInfo(const AFilename: string; function DoGetUnitRegisterInfo(const AFilename: string;
var TheUnitName: string; var HasRegisterProc: boolean; out TheUnitName: string; out HasRegisterProc: boolean;
IgnoreErrors: boolean): TModalResult; IgnoreErrors: boolean): TModalResult;
procedure SaveAutoInstallDependencies; procedure SaveAutoInstallDependencies;
procedure LoadStaticCustomPackages; procedure LoadStaticCustomPackages;
@ -925,7 +925,8 @@ begin
end; end;
procedure TPkgManager.OnPackageEditorGetUnitRegisterInfo(Sender: TObject; procedure TPkgManager.OnPackageEditorGetUnitRegisterInfo(Sender: TObject;
const AFilename: string; var TheUnitName: string; var HasRegisterProc: boolean); const AFilename: string; out TheUnitName: string; out HasRegisterProc: boolean
);
begin begin
DoGetUnitRegisterInfo(AFilename,TheUnitName,HasRegisterProc,true); DoGetUnitRegisterInfo(AFilename,TheUnitName,HasRegisterProc,true);
end; end;
@ -1482,8 +1483,8 @@ begin
Result:=mrOk; Result:=mrOk;
end; end;
function TPkgManager.DoGetUnitRegisterInfo(const AFilename: string; function TPkgManager.DoGetUnitRegisterInfo(const AFilename: string; out
var TheUnitName: string; var HasRegisterProc: boolean; IgnoreErrors: boolean TheUnitName: string; out HasRegisterProc: boolean; IgnoreErrors: boolean
): TModalResult; ): TModalResult;
function ErrorsHandled: boolean; function ErrorsHandled: boolean;