paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 13:32:31 +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 LoadFromLazarusResource(const ResName: String); virtual; abstract;
procedure LoadFromClipboardFormat(FormatID: TClipboardFormat); virtual; abstract; procedure LoadFromClipboardFormat(FormatID: TClipboardFormat); virtual; abstract;
procedure SaveToClipboardFormat(FormatID: TClipboardFormat); virtual; abstract; procedure SaveToClipboardFormat(FormatID: TClipboardFormat); virtual; abstract;
constructor Create; virtual; constructor Create;
constructor VirtualCreate; virtual;
property Empty: Boolean read GetEmpty; property Empty: Boolean read GetEmpty;
property Height: Integer read GetHeight write SetHeight; property Height: Integer read GetHeight write SetHeight;
property Modified: Boolean read FModified write SetModified; property Modified: Boolean read FModified write SetModified;
@ -618,7 +619,7 @@ type
procedure WriteData(Stream: TStream); override; procedure WriteData(Stream: TStream); override;
procedure WriteStream(Stream: TStream; WriteSize: Boolean); virtual; procedure WriteStream(Stream: TStream; WriteSize: Boolean); virtual;
public public
constructor Create; override; constructor VirtualCreate; override;
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
procedure FreeImage; procedure FreeImage;
@ -868,6 +869,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.43 2002/09/10 06:49:18 lazarus
MG: scrollingwincontrol from Andrew MG: scrollingwincontrol from Andrew