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

2
.gitignore vendored
View File

@@ -2,3 +2,5 @@ lib/
*.res *.res
*.lps *.lps
*.t2v *.t2v
output/PNGS/
output/FILES/

BIN
output/tim2view_linux_i386
View File

Binary file not shown.

BIN
output/tim2view_linux_x86_64
View File

Binary file not shown.

BIN
output/tim2view_win32_i386.exe
View File

Binary file not shown.

BIN
output/tim2view_win64_x86_64.exe
View File

Binary file not shown.

2
tim2view.lpi
View File

@@ -27,7 +27,7 @@
<AutoIncrementBuild Value="True"/> <AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="1"/> <MajorVersionNr Value="1"/>
<RevisionNr Value="90"/> <RevisionNr Value="90"/>
<BuildNr Value="56"/> <BuildNr Value="61"/>
<StringTable CompanyName="Lab 313" FileDescription="The best TIMs tool ever!:)" ProductVersion=""/> <StringTable CompanyName="Lab 313" FileDescription="The best TIMs tool ever!:)" ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="6"> <BuildModes Count="6">

5
umain.lfm
View File

@@ -901,11 +901,12 @@ object frmMain: TfrmMain
object N22: TMenuItem object N22: TMenuItem
Caption = '-' Caption = '-'
end end
object MenuItem2: TMenuItem object mnExtractAllTimsAll: TMenuItem
Action = actExtractTimsAll Action = actExtractTimsAll
end end
object MenuItem3: TMenuItem object mnExtractAllPngsAll: TMenuItem
Action = actExtractPngsAll Action = actExtractPngsAll
ShortCut = 24691
end end
end end
object mnOptions: TMenuItem object mnOptions: TMenuItem

14
umain.pas
View File

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