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

MG: gradient fill, minor issues from Andrew

Browse Source 
git-svn-id: trunk@2669 -
This commit is contained in:
lazarus 2002-08-18 04:56:36 +00:00
parent 6b2f597021
commit dd48a75dad
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/graphics.pp
View File

@ -332,7 +332,8 @@ type
procedure LoadFromLazarusResource(const ResName: String); virtual; abstract;
procedure LoadFromClipboardFormat(FormatID: TClipboardFormat); virtual; abstract;
procedure SaveToClipboardFormat(FormatID: TClipboardFormat); virtual; abstract;
constructor Create; virtual;
constructor Create;
constructor VirtualCreate; virtual;
property Empty: Boolean read GetEmpty;
property Height: Integer read GetHeight write SetHeight;
property Modified: Boolean read FModified write SetModified;
@ -618,7 +619,7 @@ type
procedure WriteData(Stream: TStream); override;
procedure WriteStream(Stream: TStream; WriteSize: Boolean); virtual;
public
constructor Create; override;
constructor VirtualCreate; override;
destructor Destroy; override;
procedure Assign(Source: TPersistent); override;
procedure FreeImage;
@ -868,6 +869,9 @@ end.
{ =============================================================================
$Log$
Revision 1.44 2002/09/12 05:56:15 lazarus
MG: gradient fill, minor issues from Andrew
Revision 1.43 2002/09/10 06:49:18 lazarus
MG: scrollingwincontrol from Andrew