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

Small fix.

Browse Source
This commit is contained in:
meffi@lab313.ru
2015-03-05 20:06:58 +00:00
parent 0f9db56afa
commit a05074fa9a
5 changed files with 11 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
tim2view.lps
View File

@@ -18,9 +18,8 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="umain"/> <UnitName Value="umain"/>
<IsVisibleTab Value="True"/> <TopLine Value="554"/>
<TopLine Value="691"/> <CursorPos X="59" Y="566"/>
<CursorPos X="81" Y="710"/>
<UsageCount Value="816"/> <UsageCount Value="816"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@@ -40,9 +39,9 @@
<Filename Value="ucommon.pas"/> <Filename Value="ucommon.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="ucommon"/> <UnitName Value="ucommon"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<TopLine Value="15"/> <CursorPos X="71" Y="11"/>
<CursorPos X="73" Y="11"/>
<UsageCount Value="816"/> <UsageCount Value="816"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
@@ -51,7 +50,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="utim"/> <UnitName Value="utim"/>
<EditorIndex Value="10"/> <EditorIndex Value="10"/>
<TopLine Value="420"/> <TopLine Value="384"/>
<CursorPos Y="401"/> <CursorPos Y="401"/>
<UsageCount Value="816"/> <UsageCount Value="816"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@@ -71,8 +70,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="usettings"/> <UnitName Value="usettings"/>
<EditorIndex Value="9"/> <EditorIndex Value="9"/>
<TopLine Value="58"/> <CursorPos X="15" Y="59"/>
<CursorPos X="35" Y="63"/>
<UsageCount Value="816"/> <UsageCount Value="816"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit7>
@@ -137,7 +135,7 @@
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<TopLine Value="7"/> <TopLine Value="7"/>
<CursorPos X="32" Y="35"/> <CursorPos X="32" Y="35"/>
<UsageCount Value="96"/> <UsageCount Value="98"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit14> </Unit14>
</Units> </Units>

2
ucommon.pas
View File

@@ -3,7 +3,7 @@ unit ucommon;
interface interface
const const
cProgramName = 'Tim2View SVN.r88 by [Lab 313] (for ' + cProgramName = 'Tim2View SVN.r89 by [Lab 313] (for ' +
{$IFDEF Linux}'Linux' + {$IFEND} {$IFDEF Linux}'Linux' + {$IFEND}
{$IFDEF Darwin}'Mac OS X' + {$IFEND} {$IFDEF Darwin}'Mac OS X' + {$IFEND}
{$IFDEF Windows}'Windows' + {$IFEND} {$IFDEF Windows}'Windows' + {$IFEND}

2
umain.lfm
View File

@@ -604,7 +604,7 @@ object frmMain: TfrmMain
Alignment = taCenter Alignment = taCenter
AutoSize = True AutoSize = True
Caption = 'Type' Caption = 'Type'
Width = 37 Width = 36
end end
item item
Alignment = taCenter Alignment = taCenter

3
umain.pas
View File

@@ -557,8 +557,7 @@ begin
cbbBitMode.Tag := NativeInt($FF); cbbBitMode.Tag := NativeInt($FF);
actAddToSendto.Checked := Settings.SendToShortcutExists; {$IFDEF windows}actAddToSendto.Checked := Settings.SendToShortcutExists;{$ENDIF}
actStretch.Checked := Settings.StretchMode; actStretch.Checked := Settings.StretchMode;
cbbTranspMode.ItemIndex := Settings.TranspMode; cbbTranspMode.ItemIndex := Settings.TranspMode;
LastDir := Settings.LastDir; LastDir := Settings.LastDir;

2
usettings.pas
View File

@@ -55,7 +55,7 @@ uses FileUtil
{$IFDEF windows} {$IFDEF windows}
,windows, shlobj {for special folders}, ActiveX, ComObj ,windows, shlobj {for special folders}, ActiveX, ComObj
{$IFEND} {$ENDIF}
; ;
const const