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

IDE: clean up

Browse Source 
git-svn-id: trunk@48202 -
This commit is contained in:
mattias 2015-03-10 12:17:56 +00:00
parent 43b50cc556
commit 575e80296a
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/newdialog.pas
View File

@ -144,7 +144,7 @@ type
property NewItem: TNewIDEItemTemplate Read FNewItem;
end;
function ShowNewIDEItemDialog(var NewItem: TNewIDEItemTemplate): TModalResult;
function ShowNewIDEItemDialog(out NewItem: TNewIDEItemTemplate): TModalResult;
implementation
@ -152,7 +152,7 @@ implementation
{$R *.lfm}
function ShowNewIDEItemDialog(var NewItem: TNewIDEItemTemplate): TModalResult;
function ShowNewIDEItemDialog(out NewItem: TNewIDEItemTemplate): TModalResult;
var
NewOtherDialog: TNewOtherDialog;
begin

3
ide/sourcefilemanager.pas
View File

@ -115,7 +115,7 @@ type
// methods for publish project
procedure OnCopyFile(const Filename: string; var Copy: boolean; Data: TObject);
procedure OnCopyError(const ErrorData: TCopyErrorData;
var Handled: boolean; Data: TObject);
var {%H-}Handled: boolean; {%H-}Data: TObject);
public
constructor Create;
destructor Destroy; override;
@ -658,6 +658,7 @@ begin
end;
if Result = nil then // should never happen
Result := AnUnitInfo.OpenEditorInfo[0];
// ToDo: WantedTopLine
end;
function TFileOpener.OpenResource: TModalResult;