Persona/tim2view
3
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Free image and project options fixes.

Browse Source
This commit is contained in:
meffi@lab313.ru
2014-04-27 23:45:38 +00:00
parent 911e5cb01a
commit 00585ad31c
4 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
umain.pas
View File

@@ -246,6 +246,8 @@ begin
dlgSavePNG.FileName := FormatPngName(SelectedScanResult.ScanFile, TIM^.dwTimNumber, SelectedTimInfo.BitMode, cbbCLUT.ItemIndex);
if not dlgSavePNG.Execute then Exit;
New(Image);
Image := nil;
Tim2Png(TIM, cbbCLUT.ItemIndex, Image, cbbTranspMode.ItemIndex, True);
SaveImage(dlgSavePNG.FileName, Image, TIMisIndexed(TIM));
FreeTIM(TIM);
@@ -414,7 +416,7 @@ begin
Tim2Png(TIM, cbbCLUT.ItemIndex, Image, cbbTranspMode.ItemIndex, False);
Path := Path + FormatPngName(FName, I - 1, BIT_MODE, 0);
SaveImage(Path, Image, TIMisIndexed(TIM));
SaveImage(Path, Image, False);
{$IFDEF Linux}FpChmod(Path, &777);{$IFEND}
Image^.Free;
Image^ := nil;