diff --git a/tim2view.lpi b/tim2view.lpi index f89d45a..8cd825b 100644 --- a/tim2view.lpi +++ b/tim2view.lpi @@ -23,7 +23,7 @@ - + @@ -346,7 +346,7 @@ - + @@ -364,7 +364,6 @@ - diff --git a/tim2view.lps b/tim2view.lps index 48babc1..c78bb91 100644 --- a/tim2view.lps +++ b/tim2view.lps @@ -23,8 +23,8 @@ - - + + @@ -52,7 +52,7 @@ - + @@ -84,8 +84,8 @@ - - + + diff --git a/tim2view.res b/tim2view.res index 936de87..6be6f84 100644 Binary files a/tim2view.res and b/tim2view.res differ diff --git a/ucommon.pas b/ucommon.pas index bdb182a..975850b 100644 --- a/ucommon.pas +++ b/ucommon.pas @@ -3,7 +3,7 @@ unit ucommon; interface const - cProgramName = 'Tim2View SVN.r84 by [Lab 313] (for ' + + cProgramName = 'Tim2View SVN.r85 by [Lab 313] (for ' + {$IFDEF Linux}'Linux' + {$IFEND} {$IFDEF Darwin}'Mac OS X' + {$IFEND} {$IFDEF Windows}'Windows' + {$IFEND} diff --git a/umain.pas b/umain.pas index 0e24730..0969c58 100644 --- a/umain.pas +++ b/umain.pas @@ -551,7 +551,7 @@ end; procedure TfrmMain.FormCreate(Sender: TObject); begin - Settings := TSettings.Create(ExtractFilePath(ParamStrUTF8(0))); + Settings := TSettings.Create(ExtractFilePath(ParamStr(0))); cbbBitMode.Tag := NativeInt($FF);