paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 19:58:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less hints

Browse Source 
git-svn-id: trunk@49112 -
This commit is contained in:
mattias 2015-05-19 21:05:37 +00:00
parent 48512f8dc4
commit e5ab0fcfc8
3 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/askcompnamedlg.pas
View File

@ -55,8 +55,6 @@ function ShowComponentNameDialog(ALookupRoot: TComponent; ANewComponent: TCompon
implementation
uses Math;
{$R *.lfm}
function ShowComponentNameDialog(ALookupRoot: TComponent; ANewComponent: TComponent): string;

4
ide/newdialog.pas
View File

@ -138,7 +138,7 @@ type
procedure UpdateDescription;
function FindItem(const aName: string): TTreeNode;
public
constructor Create(TheOwner: TComponent; AOnlyModules: boolean);
constructor Create(TheOwner: TComponent; AOnlyModules: boolean); reintroduce;
destructor Destroy; override;
public
property NewItem: TNewIDEItemTemplate Read FNewItem;
@ -150,8 +150,6 @@ function ShowNewIDEItemDialog(out NewItem: TNewIDEItemTemplate;
implementation
uses Math;
{$R *.lfm}
function ShowNewIDEItemDialog(out NewItem: TNewIDEItemTemplate;

4
ide/runparamsopts.pas
View File

@ -115,8 +115,8 @@ type
procedure HelpButtonClick(Sender: TObject);
procedure OkButtonClick(Sender: TObject);
procedure HostApplicationBrowseBtnClick(Sender: TObject);
procedure UserOverridesListViewSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
procedure UserOverridesListViewSelectItem(Sender: TObject; {%H-}Item: TListItem;
{%H-}Selected: Boolean);
procedure WorkingDirectoryBtnClick(Sender: TObject);
procedure UserOverridesAddButtonClick(Sender: TObject);
procedure UserOverridesEditButtonClick(Sender: TObject);