diff --git a/output/tim2view_linux_i386 b/output/tim2view_linux_i386 new file mode 100644 index 0000000..0beaabb Binary files /dev/null and b/output/tim2view_linux_i386 differ diff --git a/output/tim2view_win32.exe b/output/tim2view_win32.exe index 9424044..128fbbc 100644 Binary files a/output/tim2view_win32.exe and b/output/tim2view_win32.exe differ diff --git a/output/tim2view_win64.exe b/output/tim2view_win64.exe index 67b8fbb..cb1f502 100644 Binary files a/output/tim2view_win64.exe and b/output/tim2view_win64.exe differ diff --git a/tim2view.lpi b/tim2view.lpi index ddecd1b..95f9393 100644 --- a/tim2view.lpi +++ b/tim2view.lpi @@ -26,8 +26,8 @@ - - + + @@ -41,6 +41,7 @@ + @@ -80,6 +81,7 @@ + @@ -119,6 +121,7 @@ + @@ -158,6 +161,7 @@ + @@ -197,6 +201,7 @@ + @@ -315,6 +320,7 @@ + diff --git a/ucommon.pas b/ucommon.pas index 075e7a2..684054e 100644 --- a/ucommon.pas +++ b/ucommon.pas @@ -3,7 +3,7 @@ unit ucommon; interface const - cProgramName = 'Tim2View SVN.r89 by [Lab 313] (for ' + + cProgramName = 'Tim2View SVN.r90 by [Lab 313] (for ' + {$IFDEF Linux}'Linux' + {$IFEND} {$IFDEF Darwin}'Mac OS X' + {$IFEND} {$IFDEF Windows}'Windows' + {$IFEND} diff --git a/umain.lfm b/umain.lfm index f6060b9..920e1a5 100644 --- a/umain.lfm +++ b/umain.lfm @@ -494,7 +494,7 @@ object frmMain: TfrmMain OnCreate = FormCreate OnDropFiles = FormDropFiles Position = poScreenCenter - LCLVersion = '1.4.2.0' + LCLVersion = '1.5' object pnlStatus: TPanel Left = 0 Height = 30 @@ -673,7 +673,7 @@ object frmMain: TfrmMain TitleFont.Name = 'Tahoma' ColWidths = ( 102 - 150 + 133 ) Cells = ( 10 @@ -873,7 +873,7 @@ object frmMain: TfrmMain Title = 'Please, select File...' DefaultExt = '.bin' Filter = 'All Files (*.*)|*.*' - Options = [ofHideReadOnly, ofNoChangeDir, ofAllowMultiSelect, ofNoNetworkButton, ofEnableSizing, ofForceShowHidden] + Options = [ofHideReadOnly, ofNoChangeDir, ofAllowMultiSelect, ofNoNetworkButton, ofOldStyleDialog, ofEnableSizing, ofForceShowHidden] left = 560 top = 112 end diff --git a/umain.pas b/umain.pas index 585efba..4625cb4 100644 --- a/umain.pas +++ b/umain.pas @@ -317,7 +317,9 @@ end; procedure TfrmMain.actAddToSendtoExecute(Sender: TObject); begin + {$IFDEF windows} Settings.AddToSendTo(not (Sender as TAction).Checked); + {$IFEND} end; procedure TfrmMain.actChangeBackColorExecute(Sender: TObject); diff --git a/usettings.pas b/usettings.pas index c927ad5..83ef016 100644 --- a/usettings.pas +++ b/usettings.pas @@ -64,8 +64,8 @@ const { TSettings } -procedure TSettings.AddToSendTo(Delete: Boolean); {$IFDEF windows} +procedure TSettings.AddToSendTo(Delete: Boolean); var path: string; begin @@ -76,12 +76,8 @@ begin end else FCreateSendtoShortcut; -{$ELSE} -begin -{$ENDIF} end; -{$IFDEF windows} function TSettings.FGetSendtoShortcutPath: WideString; var PIDL: PItemIDList;