paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:19:18 +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 OnIdle(Sender: TObject; var Done: Boolean);
procedure RenderAndFilterOptions; procedure RenderAndFilterOptions;
public public
constructor Create(aCustomOptions: TMemo); constructor CreateWithMemo(aCustomOptions: TMemo);
destructor Destroy; override; destructor Destroy; override;
public public
property IdleConnected: Boolean read FIdleConnected write SetIdleConnected; property IdleConnected: Boolean read FIdleConnected write SetIdleConnected;
@ -49,7 +49,7 @@ implementation
{ TfrmAllCompilerOptions } { TfrmAllCompilerOptions }
constructor TfrmAllCompilerOptions.Create(aCustomOptions: TMemo); constructor TfrmAllCompilerOptions.CreateWithMemo(aCustomOptions: TMemo);
begin begin
inherited Create(Nil); inherited Create(Nil);
fCustomOptions := aCustomOptions; fCustomOptions := aCustomOptions;

4
ide/compileroptions.pp
View File

@ -1359,10 +1359,10 @@ end;
procedure TBaseCompilerOptions.LoadFromXMLConfig(AXMLConfig: TXMLConfig; procedure TBaseCompilerOptions.LoadFromXMLConfig(AXMLConfig: TXMLConfig;
const Path: string); const Path: string);
var var
p, s: String; p: String;
b, PathDelimChange: boolean; b, PathDelimChange: boolean;
FileVersion: Integer; FileVersion: Integer;
i, Cnt: LongInt; i: LongInt;
dit: TCompilerDbgSymbolType; dit: TCompilerDbgSymbolType;
function f(const Filename: string): string; 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 var
AllOpts: TfrmAllCompilerOptions; AllOpts: TfrmAllCompilerOptions;
begin begin
AllOpts := TfrmAllCompilerOptions.Create(memoCustomOptions); AllOpts := TfrmAllCompilerOptions.CreateWithMemo(memoCustomOptions);
try try
if AllOpts.ShowModal = mrOK then if AllOpts.ShowModal = mrOK then
; ;