Persona/tim2view
3
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed opening files in Open dialog.

Browse Source
This commit is contained in:
Vladimir Kryvian
2015-08-05 19:39:54 +03:00
parent efa1081a60
commit c901976e1a
8 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
output/tim2view_linux_i386 Normal file
View File

Binary file not shown.

BIN
output/tim2view_win32.exe
View File

Binary file not shown.

BIN
output/tim2view_win64.exe
View File

Binary file not shown.

10
tim2view.lpi
View File

@@ -26,8 +26,8 @@
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="1"/>
<RevisionNr Value="88"/>
<BuildNr Value="20"/>
<RevisionNr Value="90"/>
<BuildNr Value="33"/>
<StringTable CompanyName="Lab 313" FileDescription="The best TIMs tool ever!:)" ProductVersion=""/>
</VersionInfo>
<BuildModes Count="6">
@@ -41,6 +41,7 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir);lazpaint\bgrabitmap"/>
<Libraries Value="$(TyphonDir)\..\binLibraries\$(TargetCPU)-$(TargetOS)"/>
<OtherUnitFiles Value="lazpaint\bgrabitmap"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
@@ -80,6 +81,7 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir);lazpaint\bgrabitmap"/>
<Libraries Value="$(TyphonDir)\..\binLibraries\$(TargetCPU)-$(TargetOS)"/>
<OtherUnitFiles Value="lazpaint\bgrabitmap"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
@@ -119,6 +121,7 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir);lazpaint\bgrabitmap"/>
<Libraries Value="$(TyphonDir)\..\binLibraries\$(TargetCPU)-$(TargetOS)"/>
<OtherUnitFiles Value="lazpaint\bgrabitmap"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
@@ -158,6 +161,7 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir);lazpaint\bgrabitmap"/>
<Libraries Value="$(TyphonDir)\..\binLibraries\$(TargetCPU)-$(TargetOS)"/>
<OtherUnitFiles Value="lazpaint\bgrabitmap"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
@@ -197,6 +201,7 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir);lazpaint\bgrabitmap"/>
<Libraries Value="$(TyphonDir)\..\binLibraries\$(TargetCPU)-$(TargetOS)"/>
<OtherUnitFiles Value="lazpaint\bgrabitmap"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
@@ -315,6 +320,7 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir);lazpaint\bgrabitmap"/>
<Libraries Value="$(TyphonDir)\..\binLibraries\$(TargetCPU)-$(TargetOS)"/>
<OtherUnitFiles Value="lazpaint\bgrabitmap"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>

2
ucommon.pas
View File

@@ -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}

6
umain.lfm
View File

@@ -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

2
umain.pas
View File

@@ -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);

6
usettings.pas
View File

@@ -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;