diff --git a/tim2view.lpi b/tim2view.lpi index 1eced2f..0991418 100644 --- a/tim2view.lpi +++ b/tim2view.lpi @@ -110,7 +110,7 @@ - + @@ -118,7 +118,18 @@ + + + + + + + + + + + diff --git a/tim2view.lps b/tim2view.lps index 8a75eb9..6629cd4 100644 --- a/tim2view.lps +++ b/tim2view.lps @@ -12,7 +12,7 @@ - + @@ -23,9 +23,9 @@ - - - + + + @@ -36,7 +36,7 @@ - + @@ -45,7 +45,7 @@ - + @@ -55,8 +55,8 @@ - - + + @@ -67,7 +67,7 @@ - + @@ -78,7 +78,7 @@ - + @@ -88,7 +88,7 @@ - + @@ -97,7 +97,7 @@ - + @@ -107,7 +107,7 @@ - + @@ -118,7 +118,7 @@ - + @@ -129,7 +129,7 @@ - + @@ -139,7 +139,7 @@ - + @@ -366,123 +366,123 @@ - + - + - + - + - + - + - + - + - + - + - + - - + + - - + + - + - + - + - + - - + + - + - - + + - + - - + + - + - - + + - - + + - + - - + + - - + + - - + + - + diff --git a/ucommon.pas b/ucommon.pas index 26f4424..6325df1 100644 --- a/ucommon.pas +++ b/ucommon.pas @@ -3,7 +3,7 @@ unit ucommon; interface const - cProgramName = 'Tim2View SVN.r62 by [Lab 313] (for ' + + cProgramName = 'Tim2View SVN.r63 by [Lab 313] (for ' + {$IFDEF Linux}'Linux' + {$IFEND} {$IFDEF Darwin}'Mac OS X' + {$IFEND} {$IFDEF Windows}'Windows' + {$IFEND} @@ -29,6 +29,7 @@ type TBytesArray = array [0 .. cMaxFileSize - 1] of byte; PBytesArray = ^TBytesArray; +function ExtractJustName(const Path: string): string; function Min(A, B: Integer): Integer; function Max(A, B: Integer): Integer; @@ -52,4 +53,10 @@ begin Result := B; end; +function ExtractJustName(const Path: string): string; +begin + Result := ExtractFileName(Path); + Result := Copy(Result, 1, Length(Result) - Length(ExtractFileExt(Result))); +end; + end. diff --git a/umain.pas b/umain.pas index 6606dde..fe2b59b 100644 --- a/umain.pas +++ b/umain.pas @@ -951,13 +951,13 @@ end; function TfrmMain.FormatTimName(const FileName: string; ListIdx_, BitMode: Integer): string; begin - Result := Format(cAutoExtractionTimFormat, [ExtractFileNameWithoutExt(FileName), ListIdx_ + 1, BitMode]); + Result := Format(cAutoExtractionTimFormat, [ExtractJustName(FileName), ListIdx_ + 1, BitMode]); end; function TfrmMain.FormatPngName(const FileName: string; ListIdx_, BitMode, Clut: Integer): string; begin - Result := Format(cAutoExtractionPngFormat, [ExtractFileNameWithoutExt(FileName), ListIdx_ + 1, BitMode, Clut + 1]); + Result := Format(cAutoExtractionPngFormat, [ExtractJustName(FileName), ListIdx_ + 1, BitMode, Clut + 1]); end; procedure TfrmMain.ShowTim;