paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 09:30:37 +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; property NewItem: TNewIDEItemTemplate Read FNewItem;
end; end;
function ShowNewIDEItemDialog(var NewItem: TNewIDEItemTemplate): TModalResult; function ShowNewIDEItemDialog(out NewItem: TNewIDEItemTemplate): TModalResult;
implementation implementation
@ -152,7 +152,7 @@ implementation
{$R *.lfm} {$R *.lfm}
function ShowNewIDEItemDialog(var NewItem: TNewIDEItemTemplate): TModalResult; function ShowNewIDEItemDialog(out NewItem: TNewIDEItemTemplate): TModalResult;
var var
NewOtherDialog: TNewOtherDialog; NewOtherDialog: TNewOtherDialog;
begin begin

3
ide/sourcefilemanager.pas
View File

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