mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Create transparent images

Browse Source 
And moved to one unit
This commit is contained in:
ronaldhordijk
2005-09-03 11:22:04 +00:00
parent a96726e8db
commit b6e3adf177
6 changed files with 145 additions and 628 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
2.10/Source/Render.pas
View File

@ -45,7 +45,7 @@ type
end;
PBucket = ^TBucket;
TBucketArray = array of TBucket;
PBucketArray = ^PBucketArray;
type
TBaseRenderer = class
@ -67,10 +67,13 @@ type
destructor Destroy; override;
procedure SetCP(CP: TControlPoint);
function GetImage: TBitmap; virtual; abstract;
procedure Render; virtual; abstract;
function GetImage: TBitmap; virtual; abstract;
procedure UpdateImage(CP: TControlPoint); virtual;
procedure Stop;
procedure SaveImage(const FileName: String); virtual;
procedure Stop; virtual;
property OnProgress: TOnProgress
read FOnProgress
@ -107,10 +110,12 @@ type
destructor Destroy; override;
procedure SetCP(CP: TControlPoint);
function GetImage: TBitmap;
procedure Render;
procedure RenderMaxMem(MaxMem: Int64);
function GetImage: TBitmap;
procedure UpdateImage(CP: TControlPoint);
procedure SaveImage(const FileName: String);
procedure Stop;
@ -223,6 +228,24 @@ begin
end;
///////////////////////////////////////////////////////////////////////////////
procedure TRenderer.RenderMaxMem(MaxMem: Int64);
begin
FMaxMem := MaxMem;
Render;
end;
///////////////////////////////////////////////////////////////////////////////
procedure TRenderer.UpdateImage(CP: TControlPoint);
begin
end;
///////////////////////////////////////////////////////////////////////////////
procedure TRenderer.SaveImage(const FileName: String);
begin
if assigned(FRenderer) then
FRenderer.SaveImage(FileName);
end;
{ TBaseRenderer }
@ -291,14 +314,7 @@ begin
end;
///////////////////////////////////////////////////////////////////////////////
procedure TRenderer.RenderMaxMem(MaxMem: Int64);
begin
FMaxMem := MaxMem;
Render;
end;
///////////////////////////////////////////////////////////////////////////////
procedure TRenderer.UpdateImage(CP: TControlPoint);
procedure TBaseRenderer.SaveImage(const FileName: String);
begin
end;