paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 12:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: fixed compilation

Browse Source 
git-svn-id: trunk@27683 -
This commit is contained in:
zeljko 2010-10-13 17:42:49 +00:00
parent f5f7e74be4
commit 59710747e4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/jcf2/Settings/JcfSettings.pas
View File

@ -85,7 +85,7 @@ type
destructor Destroy; override; destructor Destroy; override;
class function GetGroupCaption: String; override; class function GetGroupCaption: String; override;
class function GetInstance: TAbstractIDEOptions; override; class function GetInstance: TAbstractIDEOptions; override;
procedure DoAfterWrite; override; procedure DoAfterWrite(Restore: boolean); override;
procedure Read; procedure Read;
procedure ReadFromFile(const psFileName: string; const pbMustExist: boolean); procedure ReadFromFile(const psFileName: string; const pbMustExist: boolean);
@ -252,7 +252,7 @@ begin
Result := FormatSettings; Result := FormatSettings;
end; end;
procedure TFormatSettings.DoAfterWrite; procedure TFormatSettings.DoAfterWrite(Restore: boolean);
begin begin
{ settings are now in need of saving } { settings are now in need of saving }
Dirty := True; Dirty := True;