diff --git a/tim2view.lpi b/tim2view.lpi
index 1119521..5f7185f 100644
--- a/tim2view.lpi
+++ b/tim2view.lpi
@@ -23,7 +23,8 @@
-
+
+
@@ -364,11 +365,12 @@
+
+
-
diff --git a/tim2view.lps b/tim2view.lps
index d1b8b16..095d910 100644
--- a/tim2view.lps
+++ b/tim2view.lps
@@ -26,8 +26,8 @@
-
-
+
+
@@ -54,7 +54,7 @@
-
+
@@ -86,8 +86,8 @@
-
-
+
+
@@ -130,8 +130,8 @@
-
-
+
+
@@ -160,7 +160,7 @@
-
+
diff --git a/tim2view.res b/tim2view.res
index 05e4cf6..c6f48d1 100644
Binary files a/tim2view.res and b/tim2view.res differ
diff --git a/ucommon.pas b/ucommon.pas
index c1dc54b..cb32504 100644
--- a/ucommon.pas
+++ b/ucommon.pas
@@ -3,7 +3,7 @@ unit ucommon;
interface
const
- cProgramName = 'Tim2View SVN.r77 by [Lab 313] (for ' +
+ cProgramName = 'Tim2View SVN.r79 by [Lab 313] (for ' +
{$IFDEF Linux}'Linux' + {$IFEND}
{$IFDEF Darwin}'Mac OS X' + {$IFEND}
{$IFDEF Windows}'Windows' + {$IFEND}
diff --git a/udrawtim.pas b/udrawtim.pas
index 792545b..471457f 100644
--- a/udrawtim.pas
+++ b/udrawtim.pas
@@ -206,6 +206,7 @@ begin
INDEXES := PrepareIMAGE(TIM);
COLORS := GetTimColorsCount(TIM);
+ COLORS := ifthen(COLORS = 0, 256, COLORS);
IDX := 0;
R := 0;
diff --git a/umain.pas b/umain.pas
index a362010..4375bf2 100644
--- a/umain.pas
+++ b/umain.pas
@@ -247,7 +247,7 @@ begin
if not dlgSavePNG.Execute then Exit;
New(Image);
- Image := nil;
+ Image^ := nil;
Tim2Png(TIM, cbbCLUT.ItemIndex, Image, cbbTranspMode.ItemIndex, True);
SaveImage(dlgSavePNG.FileName, Image, TIMisIndexed(TIM));
FreeTIM(TIM);
@@ -294,8 +294,7 @@ begin
lvList.ItemIndex := 0;
lvList.Items[0].Focused := True;
lvList.Items[0].Selected := True;
-
- //ShowTim;
+ lvList.Items[0].MakeVisible(False);
end;
procedure TfrmMain.actAboutExecute(Sender: TObject);
diff --git a/usettings.pas b/usettings.pas
index 93cc2f1..254240c 100644
--- a/usettings.pas
+++ b/usettings.pas
@@ -79,7 +79,7 @@ end;
function TSettings.FBackColorRead: TColor;
begin
- Result := FIniFile.ReadInteger(sMain, 'BackColor', clBtnFace);
+ Result := FIniFile.ReadInteger(sMain, 'BackColor', clFuchsia);
end;
procedure TSettings.FBitModeWrite(Mode: Integer);