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;