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

IDE: less warnings

Browse Source 
git-svn-id: trunk@42164 -
This commit is contained in:
mattias 2013-07-20 20:57:48 +00:00
parent 0e0d820f79
commit f8fcc4305b
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/allcompileroptions.pas
View File

@ -34,7 +34,7 @@ type
procedure OnIdle(Sender: TObject; var Done: Boolean);
procedure RenderAndFilterOptions;
public
constructor Create(aCustomOptions: TMemo);
constructor CreateWithMemo(aCustomOptions: TMemo);
destructor Destroy; override;
public
property IdleConnected: Boolean read FIdleConnected write SetIdleConnected;
@ -49,7 +49,7 @@ implementation
{ TfrmAllCompilerOptions }
constructor TfrmAllCompilerOptions.Create(aCustomOptions: TMemo);
constructor TfrmAllCompilerOptions.CreateWithMemo(aCustomOptions: TMemo);
begin
inherited Create(Nil);
fCustomOptions := aCustomOptions;

4
ide/compileroptions.pp
View File

@ -1359,10 +1359,10 @@ end;
procedure TBaseCompilerOptions.LoadFromXMLConfig(AXMLConfig: TXMLConfig;
const Path: string);
var
p, s: String;
p: String;
b, PathDelimChange: boolean;
FileVersion: Integer;
i, Cnt: LongInt;
i: LongInt;
dit: TCompilerDbgSymbolType;
function f(const Filename: string): string;

2
ide/frames/compiler_other_options.pas
View File

@ -112,7 +112,7 @@ procedure TCompilerOtherOptionsFrame.btnAllOptionsClick(Sender: TObject);
var
AllOpts: TfrmAllCompilerOptions;
begin
AllOpts := TfrmAllCompilerOptions.Create(memoCustomOptions);
AllOpts := TfrmAllCompilerOptions.CreateWithMemo(memoCustomOptions);
try
if AllOpts.ShowModal = mrOK then
;