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

12
2.10/Source/formPostProcess.pas
View File

@ -56,8 +56,7 @@ var
implementation
uses
ImageDLLLoader, ICOLoader, PNGLOader, HIPSLoader, BMPLoader, PCXLoader, WMFLoader,
LinarBitmap, FileUtils, JPEGLoader, JPEG, Registry, Global;
Registry, Global;
{$R *.dfm}
@ -235,14 +234,7 @@ end;
///////////////////////////////////////////////////////////////////////////////
procedure TfrmPostProcess.btnSaveClick(Sender: TObject);
begin
with TLinearBitmap.Create do
try
Assign(FRenderer.GetImage);
JPEGLoader.Default.Quality := JPEGQuality;
SaveToFile(FImagename);
finally
Free;
end;
FRenderer.SaveImage(FImagename);
end;
///////////////////////////////////////////////////////////////////////////////