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

IDE: fixed compilation

Browse Source 
git-svn-id: trunk@27898 -
This commit is contained in:
mattias 2010-10-27 17:15:33 +00:00
parent 8967e57968
commit fb92de044b
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ideintf/ideexterntoolintf.pas
View File

@ -69,6 +69,7 @@ type
fCmdLineParams: string;
FEnvironmentOverrides: TStringList;
fFilename: string;
FHideMainForm: boolean;
FOnParseLine: TOnIDEExtToolParseLine;
FScanners: TStrings;
FScanOutput: boolean;
@ -106,6 +107,7 @@ type
property ShowAllOutput: boolean read FShowAllOutput write SetShowAllOutput;
property OnParseLine: TOnIDEExtToolParseLine read FOnParseLine write FOnParseLine;
property Scanners: TStrings read FScanners write SetScanners;
property HideMainForm: boolean read FHideMainForm write FHideMainForm default true;
end;
type
@ -152,6 +154,7 @@ begin
FScanOutput:=Src.FScanOutput;
FShowAllOutput:=Src.FShowAllOutput;
FScanners.Assign(Src.FScanners);
FHideMainForm:=Src.HideMainForm;
end else
inherited Assign(Source);
end;
@ -161,6 +164,7 @@ begin
inherited Create;
FEnvironmentOverrides:=TStringList.Create;
FScanners:=TStringList.Create;
FHideMainForm:=true;
Clear;
end;
@ -181,6 +185,7 @@ begin
fScanOutputForMakeMessages:=false;
FScanOutput:=false;
FShowAllOutput:=false;
FHideMainForm:=true;
FEnvironmentOverrides.Clear;
FScanners.Clear;
end;
@ -197,6 +202,7 @@ begin
fScanOutputForMakeMessages:=Config.GetValue(
'ScanOutputForMakeMessages/Value',false);
FShowAllOutput:=Config.GetValue('ShowAllOutput/Value',false);
FHideMainForm:=Config.GetValue('HideMainForm/Value',true);
Config.GetValue('EnvironmentOverrides/',FEnvironmentOverrides);
Config.GetValue('Scanners/',FScanners);
Result:=mrOk;
@ -216,6 +222,7 @@ begin
'ScanOutputForMakeMessages/Value',fScanOutputForMakeMessages,
false);
Config.SetDeleteValue('ShowAllOutput/Value',FShowAllOutput,false);
Config.SetDeleteValue('HideMainForm/Value',FHideMainForm,true);
Config.SetValue('EnvironmentOverrides/',FEnvironmentOverrides);
Config.SetValue('Scanners/',FScanners);
Result:=mrOk;

1
lcl/grids.pas
View File

@ -522,7 +522,6 @@ type
stored IsValueCheckedStored;
property ValueUnchecked: string read GetValueUnchecked write SetValueUnchecked
stored IsValueUncheckedStored;
end;
TGridPropertyBackup=record