diff --git a/tim2view.lpi b/tim2view.lpi index 6f0379a..1119521 100644 --- a/tim2view.lpi +++ b/tim2view.lpi @@ -23,8 +23,7 @@ - - + @@ -38,7 +37,7 @@ - + @@ -82,7 +81,7 @@ - + @@ -126,7 +125,7 @@ - + @@ -170,7 +169,7 @@ - + @@ -214,7 +213,7 @@ - + @@ -225,7 +224,7 @@ - + @@ -351,7 +350,7 @@ - + @@ -369,7 +368,6 @@ - diff --git a/tim2view.lps b/tim2view.lps index 8450797..d1b8b16 100644 --- a/tim2view.lps +++ b/tim2view.lps @@ -3,7 +3,7 @@ - + @@ -23,10 +23,11 @@ + - - + + @@ -50,7 +51,6 @@ - @@ -159,8 +159,8 @@ - - + + diff --git a/tim2view.res b/tim2view.res index 46491ec..05e4cf6 100644 Binary files a/tim2view.res and b/tim2view.res differ diff --git a/umain.pas b/umain.pas index 17e6863..a362010 100644 --- a/umain.pas +++ b/umain.pas @@ -246,6 +246,8 @@ begin dlgSavePNG.FileName := FormatPngName(SelectedScanResult.ScanFile, TIM^.dwTimNumber, SelectedTimInfo.BitMode, cbbCLUT.ItemIndex); if not dlgSavePNG.Execute then Exit; + New(Image); + Image := nil; Tim2Png(TIM, cbbCLUT.ItemIndex, Image, cbbTranspMode.ItemIndex, True); SaveImage(dlgSavePNG.FileName, Image, TIMisIndexed(TIM)); FreeTIM(TIM); @@ -414,7 +416,7 @@ begin Tim2Png(TIM, cbbCLUT.ItemIndex, Image, cbbTranspMode.ItemIndex, False); Path := Path + FormatPngName(FName, I - 1, BIT_MODE, 0); - SaveImage(Path, Image, TIMisIndexed(TIM)); + SaveImage(Path, Image, False); {$IFDEF Linux}FpChmod(Path, &777);{$IFEND} Image^.Free; Image^ := nil;