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

Added extracting of TIMs and PNGs from all files.

Browse Source
This commit is contained in:
Vladimir Kryvian
2015-08-06 15:45:09 +03:00
parent ecfbb344b9
commit b5680c2fe8
7 changed files with 125 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
umain.pas
View File

@@ -28,6 +28,8 @@ type
actExtractTims: TAction;
actChangeFile: TAction;
actChangeBackColor: TAction;
actExtractTimsAll: TAction;
actExtractPngsAll: TAction;
actShowFileInfo: TAction;
actPngImport: TAction;
actStopScan: TAction;
@@ -50,6 +52,9 @@ type
dlgOpenFile: TOpenDialog;
dlgSavePNG: TSavePictureDialog;
dlgSaveFile: TSaveDialog;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
N22: TMenuItem;
mnExtractAllPngs3: TMenuItem;
mnExtractAllTims3: TMenuItem;
N21: TMenuItem;
@@ -117,8 +122,10 @@ type
procedure actCloseFileExecute(Sender: TObject);
procedure actCloseFilesExecute(Sender: TObject);
procedure actExitExecute(Sender: TObject);
procedure actExtractPngsAllExecute(Sender: TObject);
procedure actExtractPngsExecute(Sender: TObject);
procedure actExtractTimExecute(Sender: TObject);
procedure actExtractTimsAllExecute(Sender: TObject);
procedure actExtractTimsExecute(Sender: TObject);
procedure actOpenLabExecute(Sender: TObject);
procedure actOpenRepoExecute(Sender: TObject);
@@ -372,6 +379,58 @@ begin
Close;
end;
procedure TfrmMain.actExtractPngsAllExecute(Sender: TObject);
var
I, J, OFFSET, BIT_MODE, SIZE: Integer;
FName, Path: string;
IsImage: Boolean;
ScanTim: TTimInfo;
TIM: PTIM;
Image: PDrawSurf;
begin
lblStatus.Caption := sStatusBarPngsExtracting;
for J := 1 to ScanResults.Count do begin
FName := ScanResults[J - 1].ScanFile;
IsImage := ScanResults[J - 1].IsImage;
New(Image);
Image^ := nil;
pbProgress.Position := 0;
pbProgress.Max := ScanResults[J - 1].Count;
for I := 1 to ScanResults[J - 1].Count do
begin
ScanTim := TimInfoByIdx[I - 1];
OFFSET := ScanTim.Position;
SIZE := ScanTim.Size;
BIT_MODE := ScanTim.BitMode;
Path := SysToUTF8(IncludeTrailingPathDelimiter(ExtractFilePath(ParamStrUTF8(0)) + cExtractedPngsDir));
CreateDirUTF8(Path);
Path := IncludeTrailingPathDelimiter(Path + ExtractFileName(FName));
CreateDirUTF8(Path);
TIM := LoadTimFromFile(FName, OFFSET, IsImage, SIZE);
Tim2Png(TIM, cbbCLUT.ItemIndex, Image, cbbTranspMode.ItemIndex);
Path := Path + FormatPngName(FName, I - 1, BIT_MODE, 0);
SaveImage(Path, Image, False);
{$IFDEF Linux}FpChmod(Path, &777);{$IFEND}
Image^.Free;
Image^ := nil;
FreeTIM(TIM);
pbProgress.Position := I;
Application.ProcessMessages;
end;
Dispose(Image);
lblStatus.Caption := sStatusBarExtracted;
pbProgress.Position := 0;
end;
end;
procedure TfrmMain.actExtractPngsExecute(Sender: TObject);
var
I, OFFSET, BIT_MODE, SIZE: Integer;
@@ -437,6 +496,49 @@ begin
FreeTIM(TIM);
end;
procedure TfrmMain.actExtractTimsAllExecute(Sender: TObject);
var
I, J, OFFSET, BIT_MODE, SIZE, MAGIC: Integer;
FName, Path: string;
IsImage: Boolean;
TIM: PTIM;
ScanTim: TTimInfo;
begin
lblStatus.Caption := sStatusBarFilesExtracting;
for J := 1 to ScanResults.Count do begin
FName := ScanResults[J - 1].ScanFile;
IsImage := ScanResults[J - 1].IsImage;
pbProgress.Position := 0;
pbProgress.Max := ScanResults[J - 1].Count;
for I := 1 to ScanResults[J - 1].Count do
begin
ScanTim := TimInfoByIdx[I - 1];
OFFSET := ScanTim.Position;
SIZE := ScanTim.Size;
BIT_MODE := ScanTim.BitMode;
MAGIC := ScanTim.Magic;
Path := SysToUTF8(IncludeTrailingPathDelimiter(ExtractFilePath(ParamStrUTF8(0)) + cExtractedFilesDir));
CreateDirUTF8(Path);
Path := IncludeTrailingPathDelimiter(Path + ExtractFileName(FName));
CreateDirUTF8(Path);
TIM := LoadTimFromFile(FName, OFFSET, IsImage, SIZE);
Path := Path + FormatFileName(FName, I - 1, BIT_MODE, MAGIC);
SaveTimToFile(Path, TIM);
{$IFDEF Linux}FpChmod(Path, &777);{$IFEND}
FreeTIM(TIM);
pbProgress.Position := I;
Application.ProcessMessages;
end;
lblStatus.Caption := sStatusBarExtracted;
pbProgress.Position := 0;
end;
end;
procedure TfrmMain.actExtractTimsExecute(Sender: TObject);
var
I, OFFSET, BIT_MODE, SIZE, MAGIC: Integer;
@@ -839,6 +941,8 @@ begin
RemoveGridSelection;
cbbFiles.Enabled := (cbbFiles.Items.Count <> 0);
actExtractTimsAll.Enabled := cbbFiles.Enabled;
pnlList.Enabled := cbbFiles.Enabled;
actCloseFile.Enabled := cbbFiles.Enabled;
@@ -852,6 +956,8 @@ begin
actPngExport.Enabled := (Surf^ <> nil) and actReplaceTim.Enabled;
actPngImport.Enabled := actReplaceTim.Enabled;
actExtractTim.Enabled := actReplaceTim.Enabled;
actExtractTims.Enabled := actReplaceTim.Enabled;
actExtractPngs.Enabled := actReplaceTim.Enabled;
pnlImageOptions.Enabled := actReplaceTim.Enabled;
end;