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

LCL: use {} .. {} to make fpdoc < 2.5.1 happy

Browse Source 
git-svn-id: trunk@22491 -
This commit is contained in:
vincents 2009-11-08 19:18:18 +00:00
parent 45f2217c8a
commit 1f00732641
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/graphics.pp
View File

@ -761,7 +761,7 @@ type
FPaletteModified: Boolean; FPaletteModified: Boolean;
protected protected
procedure Changed(Sender: TObject); virtual; procedure Changed(Sender: TObject); virtual;
function Equals(Graphic: TGraphic): Boolean; virtual; {$IF declared(vmtEquals)}overload;{$IFEND} function Equals(Graphic: TGraphic): Boolean; virtual; {$IF declared(vmtEquals)}overload;{$ENDIF}
procedure DefineProperties(Filer: TFiler); override; procedure DefineProperties(Filer: TFiler); override;
procedure Draw(ACanvas: TCanvas; const Rect: TRect); virtual; abstract; procedure Draw(ACanvas: TCanvas; const Rect: TRect); virtual; abstract;
function GetEmpty: Boolean; virtual; abstract; function GetEmpty: Boolean; virtual; abstract;
@ -789,7 +789,7 @@ type
procedure Clear; virtual; procedure Clear; virtual;
{$IF declared(vmtEquals)} {$IF declared(vmtEquals)}
function Equals(Obj: TObject): Boolean; override; overload; function Equals(Obj: TObject): Boolean; override; overload;
{$IFEND} {$ENDIF}
function LazarusResourceTypeValid(const AResourceType: string): boolean; virtual; function LazarusResourceTypeValid(const AResourceType: string): boolean; virtual;
procedure LoadFromFile(const Filename: string); virtual; procedure LoadFromFile(const Filename: string); virtual;
procedure LoadFromStream(Stream: TStream); virtual; abstract; procedure LoadFromStream(Stream: TStream); virtual; abstract;