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

Added CLT, PXL support.

Browse Source 
Added Mixed TIM with CLUT support.
Some longtime bugs fixed.
This commit is contained in:
meffi@lab313.ru
2015-03-05 17:37:13 +00:00
parent 347d12c47a
commit 0f9db56afa
11 changed files with 439 additions and 403 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
ucommon.pas
View File

@@ -3,26 +3,26 @@ unit ucommon;
interface
const
cProgramName = 'Tim2View SVN.r86 by [Lab 313] (for ' +
cProgramName = 'Tim2View SVN.r88 by [Lab 313] (for ' +
{$IFDEF Linux}'Linux' + {$IFEND}
{$IFDEF Darwin}'Mac OS X' + {$IFEND}
{$IFDEF Windows}'Windows' + {$IFEND}
')';
cExtractedTimsDir = 'TIMS';
cExtractedFilesDir = 'FILES';
cExtractedPngsDir = 'PNGS';
cMaxFileSize = $2EAEED80;
cAutoExtractionTimFormat = '%s_%.6d_%.2db' + '.tim';
cAutoExtractionFileFormat = '%s_%.6d_%.2db' + '.%s' {tim|clt|pxl};
cAutoExtractionPngFormat = '%s_%.6d_%.2db_%.2dc' + '.png';
sStatusBarScanningFile = 'Scanning File...';
sStatusBarTimsExtracting = 'TIMs Extracting...';
sStatusBarFilesExtracting = 'Files Extracting...';
sStatusBarPngsExtracting = 'PNGs Extracting...';
sStatusBarExtracted = 'Extracted Successfully!';
sStatusBarParsingResult = 'Parsing Result...';
sScanResultGood = 'Scan completed!';
sSelectDirCaption = 'Please, select directory for scan...';
sThisTimHasNoCLUT = 'No CLUT';
sThisFileHasNoCLUT = 'No CLUT';
type
TBytesArray = array [0 .. cMaxFileSize - 1] of byte;
@@ -40,4 +40,4 @@ begin
Result := Copy(Result, 1, Length(Result) - Length(ExtractFileExt(Result)));
end;
end.
end.