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

lcl: reverted r22427 #c614f0dff7, fpdoc 2.5.1 has been fixed

Browse Source 
git-svn-id: trunk@22440 -
This commit is contained in:
vincents 2009-11-05 09:13:43 +00:00
parent 232dc9feaa
commit cd5f7242c6
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/graphics.pp
View File

@ -753,7 +753,6 @@ type
OnProgress - Generic progress indicator event. Propagates out to TPicture
and TImage OnProgress events.}
{$IFDEF VER2_5}{$DEFINE HAS_TOBJECT_EQUALS}{$ENDIF}
TGraphic = class(TPersistent)
private
FModified: Boolean;
@ -762,7 +761,7 @@ type
FPaletteModified: Boolean;
protected
procedure Changed(Sender: TObject); virtual;
function Equals(Graphic: TGraphic): Boolean; virtual; {$IFDEF HAS_TOBJECT_EQUALS}overload;{$ENDIF}
function Equals(Graphic: TGraphic): Boolean; virtual; {$IF declared(vmtEquals)}overload;{$IFEND}
procedure DefineProperties(Filer: TFiler); override;
procedure Draw(ACanvas: TCanvas; const Rect: TRect); virtual; abstract;
function GetEmpty: Boolean; virtual; abstract;
@ -788,9 +787,9 @@ type
procedure Assign(ASource: TPersistent); override;
constructor Create; virtual;
procedure Clear; virtual;
{$IFDEF HAS_TOBJECT_EQUALS}
{$IF declared(vmtEquals)}
function Equals(Obj: TObject): Boolean; override; overload;
{$ENDIF}
{$IFEND}
function LazarusResourceTypeValid(const AResourceType: string): boolean; virtual;
procedure LoadFromFile(const Filename: string); virtual;
procedure LoadFromStream(Stream: TStream); virtual; abstract;