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;