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

Fixed extracting.

Browse Source
This commit is contained in:
Vladimir Kryvian
2015-08-06 16:14:08 +03:00
parent b5680c2fe8
commit 48c2f53961
8 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
umain.pas
View File

@@ -52,8 +52,8 @@ type
dlgOpenFile: TOpenDialog;
dlgSavePNG: TSavePictureDialog;
dlgSaveFile: TSaveDialog;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
mnExtractAllTimsAll: TMenuItem;
mnExtractAllPngsAll: TMenuItem;
N22: TMenuItem;
mnExtractAllPngs3: TMenuItem;
mnExtractAllTims3: TMenuItem;
@@ -391,6 +391,9 @@ begin
lblStatus.Caption := sStatusBarPngsExtracting;
for J := 1 to ScanResults.Count do begin
cbbFiles.ItemIndex := J - 1;
actChangeFile.Execute;
FName := ScanResults[J - 1].ScanFile;
IsImage := ScanResults[J - 1].IsImage;
@@ -415,7 +418,7 @@ begin
Tim2Png(TIM, cbbCLUT.ItemIndex, Image, cbbTranspMode.ItemIndex);
Path := Path + FormatPngName(FName, I - 1, BIT_MODE, 0);
SaveImage(Path, Image, False);
SaveImage(Path, Image, TIMisIndexed(TIM));
{$IFDEF Linux}FpChmod(Path, &777);{$IFEND}
Image^.Free;
Image^ := nil;
@@ -466,7 +469,7 @@ begin
Tim2Png(TIM, cbbCLUT.ItemIndex, Image, cbbTranspMode.ItemIndex);
Path := Path + FormatPngName(FName, I - 1, BIT_MODE, 0);
SaveImage(Path, Image, False);
SaveImage(Path, Image, TIMisIndexed(TIM));
{$IFDEF Linux}FpChmod(Path, &777);{$IFEND}
Image^.Free;
Image^ := nil;
@@ -507,6 +510,9 @@ begin
lblStatus.Caption := sStatusBarFilesExtracting;
for J := 1 to ScanResults.Count do begin
cbbFiles.ItemIndex := J - 1;
actChangeFile.Execute;
FName := ScanResults[J - 1].ScanFile;
IsImage := ScanResults[J - 1].IsImage;