mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
DEL: (не)большая чистка, файлы *.lrs нет необходимости версионировать (провероно Win&Lin)
This commit is contained in:
zolotov-alex
parent
4003b67b2f
commit
8732a62ce7
59 changed files with 3563 additions and 5354 deletions
|
|
@ -1,7 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TdmCommander','FORMDATA',[
|
||||
'TPF0'#12'TdmCommander'#11'dmCommander'#6'Height'#3','#1#16'HorizontalOffset'
|
||||
+#3#205#1#14'VerticalOffset'#3#217#0#5'Width'#3#144#1#0#10'TImageList'#7'imgL'
|
||||
+'ist'#4'left'#2'K'#3'top'#2'x'#0#0#0
|
||||
]);
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TdmDlg','FORMDATA',[
|
||||
'TPF0'#6'TdmDlg'#5'dmDlg'#6'Height'#3','#1#16'HorizontalOffset'#3'x'#1#14'Ver'
|
||||
+'ticalOffset'#3#238#0#5'Width'#3#144#1#0#11'TOpenDialog'#10'OpenDialog'#11'F'
|
||||
+'ilterIndex'#2#0#4'left'#2'A'#3'top'#2'H'#0#0#11'TSaveDialog'#10'SaveDialog'
|
||||
+#11'FilterIndex'#2#0#4'left'#2'A'#3'top'#2'h'#0#0#0
|
||||
]);
|
||||
|
|
@ -1,29 +1,29 @@
|
|||
unit dmDialogs;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Dialogs;
|
||||
|
||||
type
|
||||
TdmDlg = class(TDataModule)
|
||||
OpenDialog: TOpenDialog;
|
||||
SaveDialog: TSaveDialog;
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
dmDlg: TdmDlg;
|
||||
|
||||
implementation
|
||||
|
||||
initialization
|
||||
{$I dmDialogs.lrs}
|
||||
|
||||
end.
|
||||
|
||||
unit dmDialogs;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Dialogs;
|
||||
|
||||
type
|
||||
TdmDlg = class(TDataModule)
|
||||
OpenDialog: TOpenDialog;
|
||||
SaveDialog: TSaveDialog;
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
dmDlg: TdmDlg;
|
||||
|
||||
implementation
|
||||
|
||||
initialization
|
||||
{$I dmdialogs.lrs}
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
30
dmhigh.lrs
30
dmhigh.lrs
|
|
@ -1,30 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TdmHighl','FORMDATA',[
|
||||
'TPF0'#8'TdmHighl'#7'dmHighl'#8'OnCreate'#7#13'dmHighlCreate'#9'OnDestroy'#7
|
||||
+#14'dmHighlDestroy'#6'Height'#3','#1#16'HorizontalOffset'#3#192#1#14'Vertica'
|
||||
+'lOffset'#3#218#0#5'Width'#3#144#1#0#10'TSynPasSyn'#10'SynPasSyn1'#7'Enabled'
|
||||
+#8#4'left'#2'*'#3'top'#2'B'#0#0#10'TSynCppSyn'#10'SynCppSyn1'#13'DefaultFilt'
|
||||
+'er'#6'3C++ Files (*.c,*.cpp,*.h,*.hpp)|*.c;*.cpp;*.h;*.hpp'#7'Enabled'#8#4
|
||||
+'left'#2'*'#3'top'#2'h'#0#0#11'TSynJavaSyn'#11'SynJavaSyn1'#13'DefaultFilter'
|
||||
+#6#26'Java Files (*.java)|*.java'#7'Enabled'#8#4'left'#2')'#3'top'#3#151#0#0
|
||||
+#0#11'TSynHTMLSyn'#11'SynHTMLSyn1'#13'DefaultFilter'#6')HTML Document (*.htm'
|
||||
+',*.html)|*.htm;*.html'#7'Enabled'#8#4'left'#2'*'#3'top'#3#184#0#0#0#10'TSyn'
|
||||
+'XMLSyn'#10'SynXMLSyn1'#16'WantBracesParsed'#8#13'DefaultFilter'#6'LXML Docu'
|
||||
+'ment (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd'#7'Ena'
|
||||
+'bled'#8#4'left'#2'*'#3'top'#3#224#0#0#0#10'TSynLFMSyn'#10'SynLFMSyn1'#13'De'
|
||||
+'faultFilter'#6' Lazarus Form Files (*.lfm)|*.lfm'#7'Enabled'#8#4'left'#2')'
|
||||
+#3'top'#3#0#1#0#0#22'TSynUNIXShellScriptSyn'#22'SynUNIXShellScriptSyn1'#13'D'
|
||||
+'efaultFilter'#6#30'UNIX Shell Scripts (*.sh)|*.sh'#7'Enabled'#8#4'left'#2'U'
|
||||
+#3'top'#3#224#0#0#0#10'TSynPHPSyn'#10'SynPHPSyn1'#13'DefaultFilter'#6'APHP F'
|
||||
+'iles (*.php,*.php3,*.phtml,*.inc)|*.php;*.php3;*.phtml;*.inc'#7'Enabled'#8#4
|
||||
+'left'#2'U'#3'top'#2'B'#0#0#10'TSynTeXSyn'#10'SynTeXSyn1'#13'DefaultFilter'#6
|
||||
+#23'TeX Files (*.tex)|*.tex'#7'Enabled'#8#4'left'#2'U'#3'top'#2'h'#0#0#10'TS'
|
||||
+'ynSQLSyn'#10'SynSQLSyn1'#10'SQLDialect'#7#9'sqlSybase'#13'DefaultFilter'#6
|
||||
+#23'SQL Files (*.sql)|*.sql'#7'Enabled'#8#4'left'#2'U'#3'top'#3#151#0#0#0#12
|
||||
+'TSynMultiSyn'#12'SynMultiSyn1'#7'Schemes'#14#0#7'Enabled'#8#4'left'#2'U'#3
|
||||
+'top'#3#185#0#0#0#11'TSynPerlSyn'#11'SynPerlSyn1'#13'DefaultFilter'#6',Perl '
|
||||
+'Files (*.pl,*.pm,*.cgi)|*.pl;*.pm;*.cgi'#7'Enabled'#8#4'left'#2'X'#3'top'#3
|
||||
+#0#1#0#0#10'TSynCssSyn'#10'SynCssSyn1'#13'DefaultFilter'#6'#Cascading Styles'
|
||||
+'heets (*.css)|*.css'#7'Enabled'#8#4'left'#2':'#3'top'#3'0'#1#0#0#0
|
||||
]);
|
||||
|
|
@ -32,14 +32,14 @@ Col1=33
|
|||
Col2=48
|
||||
Col3=76
|
||||
Col4=216
|
||||
Viewer.left=0
|
||||
Viewer.top=312
|
||||
Viewer.height=358
|
||||
Viewer.width=587
|
||||
Editor.left=354
|
||||
Editor.top=1384
|
||||
Editor.height=1879
|
||||
Editor.width=1140
|
||||
Viewer.left=232
|
||||
Viewer.top=240
|
||||
Viewer.height=216
|
||||
Viewer.width=350
|
||||
Editor.left=0
|
||||
Editor.top=8
|
||||
Editor.height=751
|
||||
Editor.width=1028
|
||||
|
||||
[Colors]
|
||||
BackColor=16777215
|
||||
|
|
@ -53,7 +53,7 @@ zip=87,X:\DC\svn\doublecmd\plugins\zip\bin\zip.wcx
|
|||
7z=87,X:\Totalcmd\Plugins\wcx\7zip\7zip.wcx
|
||||
|
||||
[left]
|
||||
path=D:\web\test\
|
||||
path=d:\svn\
|
||||
|
||||
[right]
|
||||
path=D:\\
|
||||
|
|
|
|||
483
doublecmd.lpi
483
doublecmd.lpi
|
|
@ -6,12 +6,12 @@
|
|||
<General>
|
||||
<Flags>
|
||||
<SaveClosedFiles Value="False"/>
|
||||
<MainUnitHasUsesSectionForAllUnits Value="False"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=""/>
|
||||
<Title Value="Double Commander"/>
|
||||
<ActiveEditorIndexAtStart Value="3"/>
|
||||
</General>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
|
|
@ -47,16 +47,14 @@
|
|||
<PackageName Value="JPEGForLazarus"/>
|
||||
</Item5>
|
||||
</RequiredPackages>
|
||||
<Units Count="12">
|
||||
<Units Count="31">
|
||||
<Unit0>
|
||||
<Filename Value="doublecmd.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="doublecmd"/>
|
||||
<CursorPos X="25" Y="65"/>
|
||||
<TopLine Value="59"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<CursorPos X="36" Y="59"/>
|
||||
<TopLine Value="43"/>
|
||||
<UsageCount Value="200"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="fbtnchangedlg.pas"/>
|
||||
|
|
@ -84,216 +82,309 @@
|
|||
<Filename Value="fmain.pas"/>
|
||||
<ComponentName Value="frmMain"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="fMain.lrs"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fmain.lrs"/>
|
||||
<UnitName Value="fMain"/>
|
||||
<CursorPos X="29" Y="893"/>
|
||||
<TopLine Value="878"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<CursorPos X="29" Y="1525"/>
|
||||
<TopLine Value="1515"/>
|
||||
<UsageCount Value="95"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="uwcxprototypes.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="uWCXprototypes"/>
|
||||
<CursorPos X="28" Y="8"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<TopLine Value="1"/>
|
||||
<UsageCount Value="162"/>
|
||||
<UsageCount Value="163"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="uOSUtils.pas"/>
|
||||
<UnitName Value="uOSUtils"/>
|
||||
<CursorPos X="19" Y="263"/>
|
||||
<TopLine Value="237"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="13"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="uglobs.pas"/>
|
||||
<UnitName Value="uGlobs"/>
|
||||
<CursorPos X="24" Y="116"/>
|
||||
<TopLine Value="45"/>
|
||||
<EditorIndex Value="7"/>
|
||||
<UsageCount Value="12"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="..\lazarus\lcl\actnlist.pas"/>
|
||||
<UnitName Value="ActnList"/>
|
||||
<CursorPos X="29" Y="206"/>
|
||||
<TopLine Value="192"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="..\lazarus\lcl\lcltype.pp"/>
|
||||
<UnitName Value="LCLType"/>
|
||||
<CursorPos X="3" Y="2417"/>
|
||||
<TopLine Value="2403"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<ComponentName Value="frmViewer"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="fViewer.lrs"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fviewer.lrs"/>
|
||||
<UnitName Value="fViewer"/>
|
||||
<CursorPos X="16" Y="344"/>
|
||||
<TopLine Value="328"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="framepanel.pas"/>
|
||||
<ComponentName Value="FrameFilePanel"/>
|
||||
<HasResources Value="True"/>
|
||||
<UnitName Value="framePanel"/>
|
||||
<CursorPos X="36" Y="71"/>
|
||||
<TopLine Value="59"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<CursorPos X="36" Y="568"/>
|
||||
<TopLine Value="559"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="feditor.pas"/>
|
||||
<ComponentName Value="frmEditor"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceFilename Value="fEditor.lrs"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="feditor.lrs"/>
|
||||
<UnitName Value="fEditor"/>
|
||||
<CursorPos X="20" Y="642"/>
|
||||
<TopLine Value="627"/>
|
||||
<EditorIndex Value="8"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
<CursorPos X="30" Y="668"/>
|
||||
<TopLine Value="664"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="fLngForm.pas"/>
|
||||
<ComponentName Value="frmLng"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fLngForm.lrs"/>
|
||||
<UnitName Value="fLngForm"/>
|
||||
<CursorPos X="48" Y="38"/>
|
||||
<TopLine Value="34"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="fMsg.pas"/>
|
||||
<ComponentName Value="frmMsg"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fMsg.lrs"/>
|
||||
<UnitName Value="fMsg"/>
|
||||
<CursorPos X="18" Y="57"/>
|
||||
<TopLine Value="55"/>
|
||||
<UsageCount Value="21"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="dmdialogs.pas"/>
|
||||
<ComponentName Value="dmDlg"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="dmdialogs.lrs"/>
|
||||
<UnitName Value="dmDialogs"/>
|
||||
<CursorPos X="27" Y="12"/>
|
||||
<TopLine Value="5"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="dmhigh.pas"/>
|
||||
<ComponentName Value="dmHighl"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="dmhigh.lrs"/>
|
||||
<UnitName Value="dmHigh"/>
|
||||
<CursorPos X="31" Y="51"/>
|
||||
<TopLine Value="44"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="feditorconf.pas"/>
|
||||
<ComponentName Value="frmEditorConf"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="feditorconf.lrs"/>
|
||||
<UnitName Value="fEditorConf"/>
|
||||
<CursorPos X="21" Y="366"/>
|
||||
<TopLine Value="361"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit11>
|
||||
<Unit12>
|
||||
<Filename Value="ffindview.pas"/>
|
||||
<ComponentName Value="frmFindView"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="ffindview.lrs"/>
|
||||
<UnitName Value="fFindView"/>
|
||||
<CursorPos X="32" Y="72"/>
|
||||
<TopLine Value="67"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit12>
|
||||
<Unit13>
|
||||
<Filename Value="fAbout.pas"/>
|
||||
<ComponentName Value="frmAbout"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fAbout.lrs"/>
|
||||
<UnitName Value="fAbout"/>
|
||||
<CursorPos X="34" Y="77"/>
|
||||
<TopLine Value="70"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit13>
|
||||
<Unit14>
|
||||
<Filename Value="foptions.pas"/>
|
||||
<ComponentName Value="frmOptions"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="foptions.lrs"/>
|
||||
<UnitName Value="fOptions"/>
|
||||
<CursorPos X="33" Y="352"/>
|
||||
<TopLine Value="346"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit14>
|
||||
<Unit15>
|
||||
<Filename Value="fFileOpDlg.pas"/>
|
||||
<ComponentName Value="frmFileOp"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fFileOpDlg.lrs"/>
|
||||
<UnitName Value="fFileOpDlg"/>
|
||||
<CursorPos X="35" Y="133"/>
|
||||
<TopLine Value="123"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit15>
|
||||
<Unit16>
|
||||
<Filename Value="fmkdir.pas"/>
|
||||
<ComponentName Value="frmMkDir"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fmkdir.lrs"/>
|
||||
<UnitName Value="fMkDir"/>
|
||||
<CursorPos X="33" Y="48"/>
|
||||
<TopLine Value="41"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit16>
|
||||
<Unit17>
|
||||
<Filename Value="fCopyDlg.pas"/>
|
||||
<ComponentName Value="frmCopyDlg"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fCopyDlg.lrs"/>
|
||||
<UnitName Value="fCopyDlg"/>
|
||||
<CursorPos X="33" Y="41"/>
|
||||
<TopLine Value="36"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit17>
|
||||
<Unit18>
|
||||
<Filename Value="fcomparefiles.pas"/>
|
||||
<ComponentName Value="frmCompareFiles"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fcomparefiles.lrs"/>
|
||||
<UnitName Value="fCompareFiles"/>
|
||||
<CursorPos X="35" Y="161"/>
|
||||
<TopLine Value="152"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit18>
|
||||
<Unit19>
|
||||
<Filename Value="fmovedlg.pas"/>
|
||||
<ComponentName Value="frmMoveDlg"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fmovedlg.lrs"/>
|
||||
<UnitName Value="fMoveDlg"/>
|
||||
<CursorPos X="37" Y="48"/>
|
||||
<TopLine Value="37"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit19>
|
||||
<Unit20>
|
||||
<Filename Value="fFindDlg.pas"/>
|
||||
<ComponentName Value="frmFindDlg"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fFindDlg.lrs"/>
|
||||
<UnitName Value="fFindDlg"/>
|
||||
<CursorPos X="34" Y="514"/>
|
||||
<TopLine Value="506"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit20>
|
||||
<Unit21>
|
||||
<Filename Value="fhotdir.pas"/>
|
||||
<ComponentName Value="frmHotDir"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fhotdir.lrs"/>
|
||||
<UnitName Value="fHotDir"/>
|
||||
<CursorPos X="43" Y="66"/>
|
||||
<TopLine Value="62"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit21>
|
||||
<Unit22>
|
||||
<Filename Value="fsymlink.pas"/>
|
||||
<ComponentName Value="frmSymLink"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fsymlink.lrs"/>
|
||||
<UnitName Value="fSymLink"/>
|
||||
<CursorPos X="41" Y="67"/>
|
||||
<TopLine Value="61"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit22>
|
||||
<Unit23>
|
||||
<Filename Value="fhardlink.pas"/>
|
||||
<ComponentName Value="frmHardLink"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fhardlink.lrs"/>
|
||||
<UnitName Value="fHardLink"/>
|
||||
<CursorPos X="37" Y="65"/>
|
||||
<TopLine Value="61"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit23>
|
||||
<Unit24>
|
||||
<Filename Value="fmultirename.pas"/>
|
||||
<ComponentName Value="frmMultiRename"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fmultirename.lrs"/>
|
||||
<UnitName Value="fMultiRename"/>
|
||||
<CursorPos X="35" Y="464"/>
|
||||
<TopLine Value="461"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit24>
|
||||
<Unit25>
|
||||
<Filename Value="fpackdlg.pas"/>
|
||||
<ComponentName Value="PackDlg"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fpackdlg.lrs"/>
|
||||
<UnitName Value="fPackDlg"/>
|
||||
<CursorPos X="46" Y="159"/>
|
||||
<TopLine Value="149"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit25>
|
||||
<Unit26>
|
||||
<Filename Value="flinker.pas"/>
|
||||
<ComponentName Value="frmLinker"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="flinker.lrs"/>
|
||||
<UnitName Value="fLinker"/>
|
||||
<CursorPos X="44" Y="168"/>
|
||||
<TopLine Value="162"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit26>
|
||||
<Unit27>
|
||||
<Filename Value="fsplitter.pas"/>
|
||||
<ComponentName Value="frmSplitter"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fsplitter.lrs"/>
|
||||
<UnitName Value="fSplitter"/>
|
||||
<CursorPos X="44" Y="191"/>
|
||||
<TopLine Value="187"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit27>
|
||||
<Unit28>
|
||||
<Filename Value="fattrib.pas"/>
|
||||
<ComponentName Value="frmAttrib"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fattrib.lrs"/>
|
||||
<UnitName Value="fAttrib"/>
|
||||
<CursorPos X="9" Y="64"/>
|
||||
<TopLine Value="52"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit28>
|
||||
<Unit29>
|
||||
<Filename Value="ffileproperties.pas"/>
|
||||
<ComponentName Value="frmFileProperties"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="ffileproperties.lrs"/>
|
||||
<UnitName Value="fFileProperties"/>
|
||||
<CursorPos X="18" Y="264"/>
|
||||
<TopLine Value="253"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit29>
|
||||
<Unit30>
|
||||
<Filename Value="fchown.pas"/>
|
||||
<ComponentName Value="frmChown"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="fchown.lrs"/>
|
||||
<UnitName Value="fChown"/>
|
||||
<CursorPos X="51" Y="178"/>
|
||||
<TopLine Value="160"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit30>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="uglobs.pas"/>
|
||||
<Caret Line="266" Column="7" TopLine="247"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="132" Column="9" TopLine="128"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="133" Column="1" TopLine="127"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="72" Column="20" TopLine="66"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="doublecmd.lpr"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="doublecmd.lpr"/>
|
||||
<Caret Line="67" Column="16" TopLine="41"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="doublecmd.lpr"/>
|
||||
<Caret Line="1" Column="1" TopLine="25"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="129" Column="14" TopLine="118"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="uglobs.pas"/>
|
||||
<Caret Line="104" Column="8" TopLine="84"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="uglobs.pas"/>
|
||||
<Caret Line="105" Column="8" TopLine="90"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="uglobs.pas"/>
|
||||
<Caret Line="152" Column="1" TopLine="125"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="uglobs.pas"/>
|
||||
<Caret Line="196" Column="16" TopLine="180"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="uglobs.pas"/>
|
||||
<Caret Line="266" Column="16" TopLine="246"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="uglobs.pas"/>
|
||||
<Caret Line="76" Column="24" TopLine="62"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="feditor.pas"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="feditor.pas"/>
|
||||
<Caret Line="186" Column="30" TopLine="171"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="129" Column="14" TopLine="118"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="132" Column="30" TopLine="117"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="260" Column="23" TopLine="246"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="263" Column="16" TopLine="249"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="137" Column="14" TopLine="124"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="113" Column="21" TopLine="141"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="254" Column="36" TopLine="254"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="330" Column="1" TopLine="326"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="258" Column="12" TopLine="254"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="331" Column="17" TopLine="328"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="265" Column="9" TopLine="239"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="uglobs.pas"/>
|
||||
<Caret Line="91" Column="14" TopLine="65"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="265" Column="9" TopLine="239"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="fviewer.pas"/>
|
||||
<Caret Line="262" Column="20" TopLine="251"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
|
|
|
|||
|
|
@ -54,7 +54,9 @@ uses
|
|||
fCompareFiles,
|
||||
dmHigh,
|
||||
uPixMapManager, uVFS,
|
||||
KASComp, fbtnchangedlg, fconfigtoolbar, uWCXprototypes, uDCUtils, fPackDlg;
|
||||
KASComp, fbtnchangedlg, fconfigtoolbar, uWCXprototypes, uDCUtils, fPackDlg,
|
||||
fLngForm, dmDialogs, fViewer, fOptions, fCopyDlg, fMoveDlg, fFindDlg,
|
||||
fSymLink, fMultiRename, fSplitter;
|
||||
|
||||
{$IFDEF WIN32}
|
||||
{$R XP.res}
|
||||
|
|
|
|||
25
fAbout.lrs
25
fAbout.lrs
|
|
@ -1,25 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmAbout','FORMDATA',[
|
||||
'TPF0'#9'TfrmAbout'#8'frmAbout'#13'ActiveControl'#7#8'OKButton'#11'BorderIcon'
|
||||
+'s'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderStyle'#7#8'bsSingle'#7'Cap'
|
||||
+'tion'#6#5'About'#12'ClientHeight'#3'D'#1#11'ClientWidth'#3#20#2#10'KeyPrevi'
|
||||
+'ew'#9#9'OnKeyDown'#7#11'FormKeyDown'#6'OnShow'#7#12'frmAboutShow'#13'Pixels'
|
||||
+'PerInch'#2'`'#8'Position'#7#14'poScreenCenter'#10'TextHeight'#2#16#18'HorzS'
|
||||
+'crollBar.Page'#3#19#2#19'HorzScrollBar.Range'#3#9#2#18'VertScrollBar.Page'#3
|
||||
+'C'#1#19'VertScrollBar.Range'#3#25#1#4'Left'#3'*'#1#6'Height'#3'D'#1#3'Top'#3
|
||||
+'t'#1#5'Width'#3#20#2#0#6'TImage'#7'imgLogo'#8'AutoSize'#9#6'Center'#9#11'Tr'
|
||||
+'ansparent'#9#4'Left'#2#8#6'Height'#3#148#0#3'Top'#2#8#5'Width'#3#135#0#0#0#6
|
||||
+'TLabel'#10'lblVersion'#7'Caption'#6#17'version 0.1 alpha'#5'Color'#7#6'clNo'
|
||||
+'ne'#11'ParentColor'#8#4'Left'#2#24#6'Height'#2#14#3'Top'#3#200#0#5'Width'#2
|
||||
+'T'#0#0#7'TButton'#8'OKButton'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6
|
||||
+#6'Hmm...'#7'OnClick'#7#13'OKButtonClick'#8'TabOrder'#2#0#4'Left'#2' '#6'Hei'
|
||||
+'ght'#2#23#3'Top'#3' '#1#5'Width'#2'd'#0#0#6'TPanel'#6'Panel1'#10'BevelInner'
|
||||
+#7#8'bvRaised'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#3'1'#1#11'Clie'
|
||||
+'ntWidth'#3'q'#1#11'FullRepaint'#8#8'TabOrder'#2#1#4'Left'#3#152#0#6'Height'
|
||||
+#3'1'#1#3'Top'#2#8#5'Width'#3'q'#1#0#5'TMemo'#7'memInfo'#8'ReadOnly'#9#8'Tab'
|
||||
+'Order'#2#0#4'Left'#2#8#6'Height'#3'!'#1#3'Top'#2#8#5'Width'#3'a'#1#0#0#0#11
|
||||
+'TStaticText'#8'lblTitle'#8'AutoSize'#9#7'Caption'#6#16'Double Commander'#5
|
||||
+'Color'#7#9'clBtnFace'#10'Font.Color'#4#226'.5'#0#4'Left'#2#24#6'Height'#2#16
|
||||
+#3'Top'#3#176#0#5'Width'#2'd'#0#0#0
|
||||
]);
|
||||
|
|
@ -1,148 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmCompareFiles','FORMDATA',[
|
||||
'TPF0'#16'TfrmCompareFiles'#15'frmCompareFiles'#13'ActiveControl'#7#15'edtFil'
|
||||
+'eNameLeft'#7'Caption'#6#13'Compare files'#12'ClientHeight'#3#28#2#11'Client'
|
||||
+'Width'#3#15#3#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#10'Te'
|
||||
+'xtHeight'#2#15#18'HorzScrollBar.Page'#3#14#3#19'HorzScrollBar.Range'#3'm'#1
|
||||
+#18'VertScrollBar.Page'#3#27#2#19'VertScrollBar.Range'#2'4'#4'Left'#2'='#6'H'
|
||||
+'eight'#3#28#2#3'Top'#3'&'#2#5'Width'#3#15#3#0#9'TSplitter'#9'Splitter1'#6'H'
|
||||
+'eight'#3#220#1#5'Width'#2#5#6'Cursor'#7#8'crHSplit'#4'Left'#3'i'#1#6'Height'
|
||||
+#3#220#1#3'Top'#2')'#5'Width'#2#5#0#0#6'TPanel'#6'Panel1'#5'Align'#7#6'alLef'
|
||||
+'t'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3#220#1#11'ClientWidth'#3'i'
|
||||
+#1#11'FullRepaint'#8#8'TabOrder'#2#0#6'Height'#3#220#1#3'Top'#2')'#5'Width'#3
|
||||
+'i'#1#0#6'TPanel'#10'pnlLeftBox'#5'Align'#7#5'alTop'#10'BevelOuter'#7#6'bvNo'
|
||||
+'ne'#12'ClientHeight'#2#25#11'ClientWidth'#3'i'#1#11'FullRepaint'#8#8'TabOrd'
|
||||
+'er'#2#0#8'OnResize'#7#16'pnlLeftBoxResize'#6'Height'#2#25#5'Width'#3'i'#1#0
|
||||
+#5'TEdit'#15'edtFileNameLeft'#8'TabOrder'#2#0#4'Text'#6#2'pp'#6'Height'#2#20
|
||||
+#5'Width'#3'3'#1#0#0#7'TButton'#15'btnFileNameLeft'#25'BorderSpacing.InnerBo'
|
||||
+'rder'#2#2#7'Caption'#6#3'...'#8'TabOrder'#2#1#4'Left'#3'C'#1#6'Height'#2#20
|
||||
+#5'Width'#2#20#0#0#0#8'TSynEdit'#7'lstLeft'#5'Align'#7#8'alClient'#10'Font.C'
|
||||
+'olor'#7#7'clBlack'#11'Font.Height'#2#13#9'Font.Name'#6#13'adobe-courier'#10
|
||||
+'Font.Pitch'#7#10'fpVariable'#6'Height'#3#195#1#4'Name'#6#7'lstLeft'#11'Pare'
|
||||
+'ntColor'#8#11'ParentCtl3D'#8#8'TabOrder'#2#1#5'Width'#3'i'#1#23'BookMarkOpt'
|
||||
+'ions.Xoffset'#2#238#17'Gutter.DigitCount'#2#2#17'Gutter.LeftOffset'#2#0#14
|
||||
+'Gutter.Visible'#8#12'Gutter.Width'#2#15#23'Gutter.CodeFoldingWidth'#2#14#10
|
||||
+'Keystrokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'Shor'
|
||||
+'tCut'#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'S'
|
||||
+'hortCut'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8
|
||||
+'ShortCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'S'
|
||||
+'hortCut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'S'
|
||||
+'hortCut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'S'
|
||||
+'hortCut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8
|
||||
+'ShortCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8
|
||||
+'ShortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8
|
||||
+'ShortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'S'
|
||||
+'hortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8
|
||||
+'ShortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'S'
|
||||
+'hortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8
|
||||
+'ShortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'S'
|
||||
+'hortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8
|
||||
+'ShortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201
|
||||
+#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3
|
||||
+#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Comman'
|
||||
+'d'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7
|
||||
+'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8
|
||||
+#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1
|
||||
+#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3
|
||||
+#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Comma'
|
||||
+'nd'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7
|
||||
+'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0
|
||||
+#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X'
|
||||
+'@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortC'
|
||||
+'ut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'S'
|
||||
+'hortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1
|
||||
+#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3
|
||||
+'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Comman'
|
||||
+'d'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'C'
|
||||
+'ommand'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1
|
||||
+#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'
|
||||
+#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3
|
||||
+'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCu'
|
||||
+'t'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'Sh'
|
||||
+'ortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1
|
||||
+#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3
|
||||
+#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Comm'
|
||||
+'and'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7
|
||||
+'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'
|
||||
,#0#0#8'ReadOnly'#9#19'OnSpecialLineColors'#7#24'lstLeftSpecialLineColors'#14
|
||||
+'OnStatusChange'#7#19'lstLeftStatusChange'#6'Cursor'#7#7'crIBeam'#6'Height'#3
|
||||
+#195#1#3'Top'#2#25#5'Width'#3'i'#1#0#0#0#6'TPanel'#6'Panel2'#5'Align'#7#8'al'
|
||||
+'Client'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3#220#1#11'ClientWidth'
|
||||
+#3#161#1#11'FullRepaint'#8#8'TabOrder'#2#1#4'Left'#3'n'#1#6'Height'#3#220#1#3
|
||||
+'Top'#2')'#5'Width'#3#161#1#0#6'TPanel'#11'pnlRightBox'#5'Align'#7#5'alTop'
|
||||
+#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2#25#11'ClientWidth'#3#161#1#11
|
||||
+'FullRepaint'#8#8'TabOrder'#2#0#8'OnResize'#7#17'pnlRightBoxResize'#6'Height'
|
||||
+#2#25#5'Width'#3#161#1#0#5'TEdit'#16'edtFileNameRight'#8'TabOrder'#2#0#4'Tex'
|
||||
+'t'#6#3'ppp'#4'Left'#2#10#6'Height'#2#20#5'Width'#3'X'#1#0#0#7'TButton'#16'b'
|
||||
+'tnFileNameRight'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'...'#8'Ta'
|
||||
+'bOrder'#2#1#4'Left'#3'r'#1#6'Height'#2#20#5'Width'#2#20#0#0#0#8'TSynEdit'#8
|
||||
+'lstRight'#5'Align'#7#8'alClient'#10'Font.Color'#7#7'clBlack'#11'Font.Height'
|
||||
+#2#13#9'Font.Name'#6#13'adobe-courier'#10'Font.Pitch'#7#10'fpVariable'#6'Hei'
|
||||
+'ght'#3#195#1#4'Name'#6#8'lstRight'#11'ParentColor'#8#11'ParentCtl3D'#8#8'Ta'
|
||||
+'bOrder'#2#1#5'Width'#3#161#1#23'BookMarkOptions.Xoffset'#2#238#14'Gutter.Vi'
|
||||
+'sible'#8#23'Gutter.CodeFoldingWidth'#2#14#10'Keystrokes'#14#1#7'Command'#2#3
|
||||
+#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3#211
|
||||
+#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2'h'
|
||||
+#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'#2
|
||||
+#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2#5
|
||||
+#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8
|
||||
+'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6#8
|
||||
+'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2#10
|
||||
+#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2#14#8
|
||||
+'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2#9#8
|
||||
+'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13#8
|
||||
+'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8
|
||||
+'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8
|
||||
+'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8
|
||||
+'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8
|
||||
+'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0
|
||||
+#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3
|
||||
+'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Comman'
|
||||
+'d'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Co'
|
||||
+'mmand'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@'
|
||||
+#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'Short'
|
||||
+'Cut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3
|
||||
+#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Comm'
|
||||
+'and'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7
|
||||
+'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@'
|
||||
+#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3
|
||||
+'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortC'
|
||||
+'ut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8
|
||||
+'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-'
|
||||
+#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3
|
||||
+'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Comman'
|
||||
+'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C'
|
||||
+'ommand'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1
|
||||
+#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@'
|
||||
+#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3
|
||||
+'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCu'
|
||||
+'t'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'Sh'
|
||||
+'ortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1
|
||||
+#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3
|
||||
+'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Comma'
|
||||
+'nd'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7
|
||||
+'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1
|
||||
+#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#8'ReadOnly'#9#19'OnSpecialLineColo'
|
||||
+'rs'#7#25'lstRightSpecialLineColors'#14'OnStatusChange'#7#20'lstRightStatusC'
|
||||
+'hange'#6'Cursor'#7#7'crIBeam'#6'Height'#3#195#1#3'Top'#2#25#5'Width'#3#161#1
|
||||
+#0#0#0#10'TStatusBar'#12'pnlStatusBar'#6'Panels'#14#1#4'Text'#6#19'Number of'
|
||||
+' changes: '#5'Width'#2'2'#0#0#6'Height'#2#23#3'Top'#3#5#2#5'Width'#3#15#3#0
|
||||
+#0#6'TPanel'#10'pnlButtons'#5'Align'#7#5'alTop'#10'BevelOuter'#7#6'bvNone'#12
|
||||
,'ClientHeight'#2')'#11'ClientWidth'#3#15#3#11'FullRepaint'#8#8'TabOrder'#2#2
|
||||
+#6'Height'#2')'#5'Width'#3#15#3#0#7'TButton'#10'btnCompare'#25'BorderSpacing'
|
||||
+'.InnerBorder'#2#2#7'Caption'#6#13'Compare files'#7'OnClick'#7#15'btnCompare'
|
||||
+'Click'#8'TabOrder'#2#0#4'Left'#2#5#6'Height'#2#23#3'Top'#2#8#5'Width'#2'`'#0
|
||||
+#0#7'TButton'#11'btnNextDiff'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6
|
||||
+#15'Next difference'#8'TabOrder'#2#1#4'Left'#2'x'#6'Height'#2#23#3'Top'#2#8#5
|
||||
+'Width'#2'z'#0#0#7'TButton'#11'btnPrevDiff'#25'BorderSpacing.InnerBorder'#2#2
|
||||
+#7'Caption'#6#19'Previous difference'#8'TabOrder'#2#2#4'Left'#3#0#1#6'Height'
|
||||
+#2#23#3'Top'#2#8#5'Width'#3#147#0#0#0#9'TCheckBox'#10'chbBinMode'#11'AllowGr'
|
||||
+'ayed'#9#7'Caption'#6#11'Binary mode'#8'TabOrder'#2#3#4'Left'#3#168#1#6'Heig'
|
||||
+'ht'#2#13#3'Top'#2#8#5'Width'#2'N'#0#0#7'TButton'#8'btnClose'#25'BorderSpaci'
|
||||
+'ng.InnerBorder'#2#2#7'Caption'#6#5'Close'#7'OnClick'#7#13'btnCloseClick'#8
|
||||
+'TabOrder'#2#4#4'Left'#3#136#2#6'Height'#2#23#3'Top'#2#8#5'Width'#2'2'#0#0#9
|
||||
+'TCheckBox'#16'chbKeepScrolling'#11'AllowGrayed'#9#7'Caption'#6#14'Keep scro'
|
||||
+'lling'#8'TabOrder'#2#5#4'Left'#3#16#2#6'Height'#2#13#3'Top'#2#8#5'Width'#2
|
||||
+'V'#0#0#0#0
|
||||
]);
|
||||
25
fCopyDlg.lrs
25
fCopyDlg.lrs
|
|
@ -1,25 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmCopyDlg','FORMDATA',[
|
||||
'TPF0'#241#11'TfrmCopyDlg'#10'frmCopyDlg'#4'Left'#3#255#0#6'Height'#3#162#0#3
|
||||
+'Top'#3#198#0#5'Width'#3'Y'#1#18'HorzScrollBar.Page'#3'X'#1#19'HorzScrollBar'
|
||||
+'.Range'#3'Q'#1#18'VertScrollBar.Page'#3#161#0#19'VertScrollBar.Range'#3#143
|
||||
+#0#13'ActiveControl'#7#5'btnOK'#11'BorderIcons'#11#12'biSystemMenu'#10'biMin'
|
||||
+'imize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#10'frmCopyDlg'#10'OnKey'
|
||||
+'Press'#7#18'frmCopyDlgKeyPress'#6'OnShow'#7#14'frmCopyDlgShow'#8'Position'#7
|
||||
+#14'poScreenCenter'#0#6'TLabel'#10'lblCopySrc'#4'Left'#2#8#6'Height'#2#14#3
|
||||
+'Top'#2#8#5'Width'#2'3'#7'Caption'#6#10'lblCopySrc'#5'Color'#7#6'clNone'#11
|
||||
+'ParentColor'#8#0#0#6'TLabel'#11'lblFileType'#4'Left'#2#8#6'Height'#2#14#3'T'
|
||||
+'op'#2'@'#5'Width'#2'3'#7'Caption'#6#11'lblFileType'#5'Color'#7#6'clNone'#11
|
||||
+'ParentColor'#8#0#0#7'TBitBtn'#5'btnOK'#4'Left'#3#176#0#6'Height'#2#23#3'Top'
|
||||
+#2'x'#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'&OK'#7
|
||||
+'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrde'
|
||||
+'r'#2#0#0#0#7'TBitBtn'#9'btnCancel'#4'Left'#3#8#1#6'Height'#2#23#3'Top'#2'x'
|
||||
+#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2#2#6'Cancel'#9#7'Caption'#6#6
|
||||
+'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrd'
|
||||
+'er'#2#1#0#0#5'TEdit'#6'edtDst'#4'Left'#2#8#6'Height'#2#24#3'Top'#2' '#5'Wid'
|
||||
+'th'#3'I'#1#8'TabOrder'#2#2#0#0#9'TComboBox'#11'cmbFileType'#4'Left'#2#8#6'H'
|
||||
+'eight'#2#21#3'Top'#2'X'#5'Width'#3'I'#1#16'AutoCompleteText'#11#22'cbactEnd'
|
||||
+'OfLineComplete'#20'cbactSearchAscending'#0#7'Enabled'#8#10'ItemHeight'#2#18
|
||||
+#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#3#0#0#0
|
||||
]);
|
||||
127
fEditor.lrs
127
fEditor.lrs
|
|
@ -1,127 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmEditor','FORMDATA',[
|
||||
'TPF0'#241#10'TfrmEditor'#9'frmEditor'#4'Left'#3#180#1#6'Height'#3#232#1#3'To'
|
||||
+'p'#3'$'#1#5'Width'#3#221#2#18'HorzScrollBar.Page'#3#220#2#18'VertScrollBar.'
|
||||
+'Page'#3#211#1#19'VertScrollBar.Range'#2#19#13'ActiveControl'#7#6'Editor'#7
|
||||
+'Caption'#6#9'frmEditor'#10'KeyPreview'#9#4'Menu'#7#9'MainMenu1'#7'OnClose'#7
|
||||
+#14'frmEditorClose'#12'OnCloseQuery'#7#14'FormCloseQuery'#9'OnDestroy'#7#11
|
||||
+'FormDestroy'#8'Position'#7#14'poScreenCenter'#0#10'TStatusBar'#9'StatusBar'
|
||||
+#6'Height'#2#23#3'Top'#3#189#1#5'Width'#3#221#2#6'Panels'#14#1#5'Width'#2'2'
|
||||
+#0#1#5'Width'#3#150#0#0#1#5'Width'#2'2'#0#1#5'Width'#2'2'#0#0#11'SimplePanel'
|
||||
+#8#0#0#8'TSynEdit'#6'Editor'#6'Height'#3#189#1#5'Width'#3#221#2#5'Align'#7#8
|
||||
+'alClient'#7'Anchors'#11#5'akTop'#0#10'Font.Color'#7#7'clBlack'#11'Font.Heig'
|
||||
+'ht'#2#13#9'Font.Name'#6#13'adobe-courier'#10'Font.Pitch'#7#7'fpFixed'#11'Pa'
|
||||
+'rentColor'#8#11'ParentCtl3D'#8#8'TabOrder'#2#0#9'OnKeyDown'#7#13'EditorKeyD'
|
||||
+'own'#10'OnKeyPress'#7#14'EditorKeyPress'#7'OnKeyUp'#7#11'EditorKeyUp'#23'Bo'
|
||||
+'okMarkOptions.Xoffset'#2'"'#24'BookMarkOptions.OnChange'#13#22'Gutter.ShowL'
|
||||
+'ineNumbers'#9#15'Gutter.OnChange'#13#23'Gutter.CodeFoldingWidth'#2#14#10'Ke'
|
||||
+'ystrokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortC'
|
||||
+'ut'#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'Sho'
|
||||
+'rtCut'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8
|
||||
+'ShortCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'S'
|
||||
+'hortCut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'S'
|
||||
+'hortCut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'S'
|
||||
+'hortCut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8
|
||||
+'ShortCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8
|
||||
+'ShortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8
|
||||
+'ShortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'S'
|
||||
+'hortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8
|
||||
+'ShortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'S'
|
||||
+'hortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8
|
||||
+'ShortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'S'
|
||||
+'hortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8
|
||||
+'ShortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201
|
||||
+#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3
|
||||
+#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Comman'
|
||||
+'d'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7
|
||||
+'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8
|
||||
+#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1
|
||||
+#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3
|
||||
+#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Comma'
|
||||
+'nd'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7
|
||||
+'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0
|
||||
+#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X'
|
||||
+'@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortC'
|
||||
+'ut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'S'
|
||||
+'hortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1
|
||||
+#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3
|
||||
+'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Comman'
|
||||
+'d'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'C'
|
||||
+'ommand'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1
|
||||
+#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'
|
||||
+#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3
|
||||
+'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCu'
|
||||
+'t'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'Sh'
|
||||
+'ortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1
|
||||
+#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3
|
||||
+#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Comm'
|
||||
+'and'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7
|
||||
+'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'
|
||||
+#0#0#22'SelectedColor.OnChange'#13#8'OnChange'#7#12'EditorChange'#13'OnRepla'
|
||||
+'ceText'#7#17'EditorReplaceText'#14'OnStatusChange'#7#18'EditorStatusChange'
|
||||
+#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2'0'#3'top'#2#8#0#9'TMenuItem'#6'miFi'
|
||||
+'le'#7'Caption'#6#5'&File'#0#9'TMenuItem'#4'New1'#6'Action'#7#10'actFileNew'
|
||||
+#7'OnClick'#7#17'actFileNewExecute'#0#0#9'TMenuItem'#5'Open1'#6'Action'#7#11
|
||||
+'actFileOpen'#7'OnClick'#7#18'actFileOpenExecute'#0#0#9'TMenuItem'#5'Save1'#6
|
||||
+'Action'#7#11'actFileSave'#7'OnClick'#7#18'actFileSaveExecute'#0#0#9'TMenuIt'
|
||||
,'em'#7'SaveAs1'#6'Action'#7#13'actFileSaveAs'#7'OnClick'#7#20'actFileSaveAsE'
|
||||
+'xecute'#0#0#9'TMenuItem'#5'miDiv'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#10'miC'
|
||||
+'onfHigh'#6'Action'#7#11'actConfHigh'#7'OnClick'#7#18'actConfHighExecute'#0#0
|
||||
+#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#5'Exit1'#6'Action'#7
|
||||
+#11'actFileExit'#7'OnClick'#7#18'actFileExitExecute'#0#0#0#9'TMenuItem'#6'mi'
|
||||
+'Edit'#7'Caption'#6#5'&Edit'#0#9'TMenuItem'#6'miUndo'#6'Action'#7#11'actEdit'
|
||||
+'Undo'#7'OnClick'#7#18'actEditUndoExecute'#0#0#9'TMenuItem'#2'N3'#7'Caption'
|
||||
+#6#1'-'#0#0#9'TMenuItem'#5'miCut'#6'Action'#7#10'actEditCut'#7'OnClick'#7#17
|
||||
+'actEditCutExecute'#0#0#9'TMenuItem'#6'miCopy'#6'Action'#7#11'actEditCopy'#7
|
||||
+'OnClick'#7#18'actEditCopyExecute'#0#0#9'TMenuItem'#7'miPaste'#6'Action'#7#12
|
||||
+'actEditPaste'#7'OnClick'#7#19'actEditPasteExecute'#0#0#9'TMenuItem'#2'N4'#7
|
||||
+'Caption'#6#1'-'#0#0#9'TMenuItem'#6'miFind'#6'Action'#7#11'actEditFind'#7'On'
|
||||
+'Click'#7#18'actEditFindExecute'#0#0#9'TMenuItem'#9'miReplace'#6'Action'#7#11
|
||||
+'actEditRplc'#7'OnClick'#7#18'actEditRplcExecute'#0#0#0#9'TMenuItem'#11'miHi'
|
||||
+'ghlight'#7'Caption'#6#16'Syntax highlight'#0#0#9'TMenuItem'#5'Help1'#7'Capt'
|
||||
+'ion'#6#5'&Help'#0#9'TMenuItem'#7'miAbout'#6'Action'#7#8'actAbout'#7'OnClick'
|
||||
+#7#15'actAboutExecute'#0#0#0#0#11'TActionList'#11'ActListEdit'#4'left'#3#128
|
||||
+#0#3'top'#3#232#0#0#7'TAction'#8'actAbout'#8'Category'#6#4'Help'#7'Caption'#6
|
||||
+#5'About'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7
|
||||
+#15'actAboutExecute'#0#0#7'TAction'#11'actFileOpen'#8'Category'#6#4'File'#7
|
||||
+'Caption'#6#5'&Open'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'O'
|
||||
+'nExecute'#7#18'actFileOpenExecute'#8'ShortCut'#3'O@'#0#0#7'TAction'#12'actF'
|
||||
+'ileClose'#8'Category'#6#4'File'#7'Caption'#6#6'&Close'#18'DisableIfNoHandle'
|
||||
+'r'#9#8'HelpType'#7#9'htKeyword'#0#0#7'TAction'#11'actFileSave'#8'Category'#6
|
||||
+#4'File'#7'Caption'#6#5'&Save'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKe'
|
||||
+'yword'#9'OnExecute'#7#18'actFileSaveExecute'#8'ShortCut'#2'q'#0#0#7'TAction'
|
||||
+#13'actFileSaveAs'#8'Category'#6#4'File'#7'Caption'#6#10'Save &As..'#18'Disa'
|
||||
+'bleIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#20'actFileSaveA'
|
||||
+'sExecute'#0#0#7'TAction'#10'actFileNew'#8'Category'#6#4'File'#7'Caption'#6#4
|
||||
+'&New'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#17
|
||||
+'actFileNewExecute'#8'ShortCut'#3'N@'#0#0#7'TAction'#11'actFileExit'#8'Categ'
|
||||
+'ory'#6#4'File'#7'Caption'#6#5'E&xit'#18'DisableIfNoHandler'#9#8'HelpType'#7
|
||||
+#9'htKeyword'#9'OnExecute'#7#18'actFileExitExecute'#8'ShortCut'#3'X@'#0#0#7
|
||||
+'TAction'#10'actSaveAll'#8'Category'#6#4'File'#7'Caption'#6#9'Sa&ve All'#18
|
||||
+'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#8'ShortCut'#3'S`'#0#0#7'TA'
|
||||
+'ction'#11'actEditFind'#8'Category'#6#4'Edit'#7'Caption'#6#5'&Find'#18'Disab'
|
||||
+'leIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#18'actEditFindEx'
|
||||
+'ecute'#8'ShortCut'#3'F@'#0#0#7'TAction'#11'actEditRplc'#8'Category'#6#4'Edi'
|
||||
+'t'#7'Caption'#6#8'&Replace'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyw'
|
||||
+'ord'#9'OnExecute'#7#18'actEditRplcExecute'#8'ShortCut'#3'R@'#0#0#7'TAction'
|
||||
+#8'actSave2'#8'Category'#6#4'File'#7'Caption'#6#8'actSave2'#18'DisableIfNoHa'
|
||||
+'ndler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#15'actSave2Execute'#8'Sh'
|
||||
+'ortCut'#3'S@'#0#0#7'TAction'#11'actConfHigh'#8'Category'#6#4'File'#7'Captio'
|
||||
+'n'#6#11'actConfHigh'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9
|
||||
+'OnExecute'#7#18'actConfHighExecute'#0#0#7'TAction'#10'actEditCut'#8'Categor'
|
||||
+'y'#6#4'Edit'#7'Caption'#6#3'Cut'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'h'
|
||||
+'tKeyword'#9'OnExecute'#7#17'actEditCutExecute'#8'ShortCut'#3'X@'#0#0#7'TAct'
|
||||
+'ion'#11'actEditCopy'#8'Category'#6#4'Edit'#7'Caption'#6#4'Copy'#18'DisableI'
|
||||
+'fNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#18'actEditCopyExecu'
|
||||
+'te'#8'ShortCut'#3'C@'#0#0#7'TAction'#12'actEditPaste'#8'Category'#6#4'Edit'
|
||||
+#7'Caption'#6#5'Paste'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9
|
||||
+'OnExecute'#7#19'actEditPasteExecute'#8'ShortCut'#3'V@'#0#0#7'TAction'#11'ac'
|
||||
+'tEditUndo'#8'Category'#6#4'Edit'#7'Caption'#6#4'Undo'#18'DisableIfNoHandler'
|
||||
+#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#18'actEditUndoExecute'#8'ShortC'
|
||||
+'ut'#3'Z@'#0#0#7'TAction'#11'actEditRedo'#8'Category'#6#4'Edit'#7'Caption'#6
|
||||
+#11'actEditRedo'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#0#0#7'T'
|
||||
+'Action'#16'actEditSelectAll'#8'Category'#6#4'Edit'#7'Caption'#6#10'Select&A'
|
||||
+'ll'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#23'a'
|
||||
+'ctEditSelectAllExecute'#8'ShortCut'#3'A@'#0#0#0#0
|
||||
]);
|
||||
|
|
@ -1,91 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmEditorConf','FORMDATA',[
|
||||
'TPF0'#14'TfrmEditorConf'#13'frmEditorConf'#13'ActiveControl'#7#7'grColor'#7
|
||||
+'Caption'#6#20'Editor configuration'#12'ClientHeight'#3''''#1#11'ClientWidth'
|
||||
+#3#227#1#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'`'#8'Position'#7#14
|
||||
+'poScreenCenter'#10'TextHeight'#2#16#10'AutoScroll'#9#4'Left'#3#154#2#6'Heig'
|
||||
+'ht'#3''''#1#3'Top'#3#211#1#5'Width'#3#227#1#0#6'TLabel'#8'lbSample'#7'Capti'
|
||||
+'on'#6#6'Sample'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#8#6'Height'
|
||||
+#2#14#3'Top'#3#184#0#5'Width'#2'#'#0#0#6'TLabel'#12'lbPredefined'#7'Caption'
|
||||
+#6#10'Predefined'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#8#6'Heigh'
|
||||
+'t'#2#14#3'Top'#3#136#0#5'Width'#2'5'#0#0#9'TDrawGrid'#7'grColor'#11'AutoAdv'
|
||||
+'ance'#7#6'aaDown'#5'Color'#7#7'clWhite'#8'ColCount'#2#4#15'DefaultColWidth'
|
||||
+#2#30#14'DefaultDrawing'#8#16'DefaultRowHeight'#2#30#10'FixedColor'#7#9'clBt'
|
||||
+'nFace'#9'FixedCols'#2#0#9'FixedRows'#2#0#13'GridLineWidth'#2#0#7'Options'#11
|
||||
+#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'go'
|
||||
+'RangeSelect'#14'goSmoothScroll'#0#8'RowCount'#2#4#10'ScrollBars'#7#10'ssAut'
|
||||
+'oBoth'#8'TabOrder'#2#0#7'TabStop'#9#15'VisibleColCount'#2#4#15'VisibleRowCo'
|
||||
+'unt'#2#4#10'OnDrawCell'#7#15'grColorDrawCell'#11'OnMouseDown'#7#16'grColorM'
|
||||
+'ouseDown'#4'Left'#2#8#6'Height'#3#128#0#3'Top'#2#8#5'Width'#3#128#0#0#0#8'T'
|
||||
+'ListBox'#7'lbNames'#7'OnClick'#7#12'lbNamesClick'#8'TabOrder'#2#1#4'Left'#3
|
||||
+#240#0#6'Height'#3#192#0#5'Width'#3#201#0#0#0#9'TCheckBox'#6'cbBold'#11'Allo'
|
||||
+'wGrayed'#9#7'Caption'#6#6'cbBold'#7'OnClick'#7#11'cbBoldClick'#8'TabOrder'#2
|
||||
+#2#4'Left'#3#137#0#6'Height'#2#13#3'Top'#2'8'#5'Width'#2'5'#0#0#9'TCheckBox'
|
||||
+#11'cbUnderline'#11'AllowGrayed'#9#7'Caption'#6#11'cbUnderline'#7'OnClick'#7
|
||||
+#11'cbBoldClick'#8'TabOrder'#2#3#4'Left'#3#136#0#6'Height'#2#13#3'Top'#2#8#5
|
||||
+'Width'#2'M'#0#0#9'TCheckBox'#11'cbStrikeOut'#11'AllowGrayed'#9#7'Caption'#6
|
||||
+#11'cbStrikeOut'#7'OnClick'#7#11'cbBoldClick'#8'TabOrder'#2#4#4'Left'#3#136#0
|
||||
+#6'Height'#2#13#3'Top'#2#24#5'Width'#2'L'#0#0#9'TCheckBox'#8'cbItalic'#11'Al'
|
||||
+'lowGrayed'#9#7'Caption'#6#8'cbItalic'#7'OnClick'#7#11'cbBoldClick'#8'TabOrd'
|
||||
+'er'#2#5#4'Left'#3#136#0#6'Height'#2#13#3'Top'#2'('#5'Width'#2'6'#0#0#9'TCom'
|
||||
+'boBox'#13'cmbPredefined'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'
|
||||
+#20'cbactSearchAscending'#0#10'ItemHeight'#2#18#9'MaxLength'#2#0#8'OnChange'
|
||||
+#7#19'cmbPredefinedChange'#11'ParentCtl3D'#8#5'Style'#7#14'csDropDownList'#8
|
||||
+'TabOrder'#2#6#4'Left'#2#8#6'Height'#2#21#3'Top'#3#152#0#5'Width'#3#208#0#0#0
|
||||
+#7'TBitBtn'#9'btnCancel'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Ca'
|
||||
+'ncel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#7'OnClick'
|
||||
+#7#14'btnCancelClick'#8'TabOrder'#2#9#4'Left'#3'n'#1#6'Height'#2#25#3'Top'#3
|
||||
+#240#0#5'Width'#2'K'#0#0#7'TBitBtn'#5'btnOK'#25'BorderSpacing.InnerBorder'#2
|
||||
+#2#7'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9
|
||||
+'NumGlyphs'#2#0#7'OnClick'#7#10'btnOKClick'#8'TabOrder'#2#7#4'Left'#3#16#1#6
|
||||
+'Height'#2#25#3'Top'#3#240#0#5'Width'#2'K'#0#0#8'TSynEdit'#9'edtSample'#11'F'
|
||||
+'ont.Height'#2#244#9'Font.Name'#6#7'courier'#6'Height'#2'8'#4'Name'#6#9'edtS'
|
||||
+'ample'#11'ParentColor'#8#11'ParentCtl3D'#8#8'TabOrder'#2#8#5'Width'#3#232#0
|
||||
+#24'BookMarkOptions.OnChange'#13#15'Gutter.OnChange'#13#23'Gutter.CodeFoldin'
|
||||
+'gWidth'#2#14#10'Keystrokes'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Comm'
|
||||
+'and'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7
|
||||
+'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'C'
|
||||
+'ommand'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7
|
||||
+'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7
|
||||
+'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7
|
||||
+'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7
|
||||
+'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7
|
||||
+'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7
|
||||
+'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'C'
|
||||
+'ommand'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7
|
||||
+'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'C'
|
||||
+'ommand'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7
|
||||
+'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'C'
|
||||
+'ommand'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7
|
||||
+'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1
|
||||
+#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- '
|
||||
+#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3
|
||||
+'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCu'
|
||||
+'t'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8
|
||||
+'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'C'
|
||||
+'ommand'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0
|
||||
,#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3
|
||||
+'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'Short'
|
||||
+'Cut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8
|
||||
+'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'['
|
||||
+#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command'
|
||||
+#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Com'
|
||||
+'mand'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7
|
||||
+'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0
|
||||
+#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4'
|
||||
+'@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'
|
||||
+#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'Short'
|
||||
+'Cut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8
|
||||
+'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a'
|
||||
+#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3
|
||||
+'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Comman'
|
||||
+'d'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'C'
|
||||
+'ommand'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1
|
||||
+#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C'
|
||||
+'`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCu'
|
||||
+'t'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'Sh'
|
||||
+'ortCut'#3'B`'#0#0#13'Lines.Strings'#1#6#23'bla bla ble ble blu blu'#6#23'bl'
|
||||
+'u blu ble ble bla bla'#0#22'SelectedColor.OnChange'#13#6'Cursor'#7#7'crIBea'
|
||||
+'m'#4'Left'#2#8#6'Height'#2'8'#3'Top'#3#209#0#5'Width'#3#232#0#0#0#0
|
||||
]);
|
||||
|
|
@ -1,24 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmFileOp','FORMDATA',[
|
||||
'TPF0'#241#10'TfrmFileOp'#9'frmFileOp'#4'Left'#3#22#1#6'Height'#3#144#0#3'Top'
|
||||
+#3#234#0#5'Width'#3#146#1#18'HorzScrollBar.Page'#3#145#1#19'HorzScrollBar.Ra'
|
||||
+'nge'#3'Q'#1#18'VertScrollBar.Page'#3#143#0#19'VertScrollBar.Range'#3#137#0
|
||||
+#13'ActiveControl'#7#9'btnCancel'#11'BorderIcons'#11#12'biSystemMenu'#10'biM'
|
||||
+'inimize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#9'frmFileOp'#7'OnClos'
|
||||
+'e'#7#9'FormClose'#6'OnShow'#7#8'FormShow'#8'Position'#7#14'poScreenCenter'
|
||||
+#13'ShowInTaskBar'#7#8'stAlways'#0#6'TLabel'#11'lblFileName'#6'Height'#2#13#5
|
||||
+'Width'#2';'#7'Caption'#6#11'lblFileName'#5'Color'#7#6'clNone'#10'Font.Color'
|
||||
+#7#7'clBlack'#11'Font.Height'#2#13#9'Font.Name'#6#15'adobe-helvetica'#10'Fon'
|
||||
+'t.Pitch'#7#10'fpVariable'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#0
|
||||
+#0#6'TLabel'#12'lblEstimated'#6'Height'#2#14#3'Top'#2'`'#5'Width'#2':'#7'Cap'
|
||||
+'tion'#6#12'lblEstimated'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#12'TPro'
|
||||
+'gressBar'#8'pbSecond'#6'Height'#2#22#3'Top'#2'@'#5'Width'#3#128#1#3'Max'#2
|
||||
+'d'#6'Smooth'#9#8'TabOrder'#2#0#11'BarShowText'#9#0#0#12'TProgressBar'#7'pbF'
|
||||
+'irst'#6'Height'#2#22#3'Top'#2' '#5'Width'#3#129#1#3'Max'#2'd'#8'Position'#2
|
||||
+#20#6'Smooth'#9#8'TabOrder'#2#1#11'BarShowText'#9#0#0#7'TBitBtn'#9'btnCancel'
|
||||
+#4'Left'#3#160#0#6'Height'#2#25#3'Top'#2'`'#5'Width'#2'Y'#25'BorderSpacing.I'
|
||||
+'nnerBorder'#2#2#6'Cancel'#9#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11
|
||||
+'ModalResult'#2#2#9'NumGlyphs'#2#0#7'OnClick'#7#14'btnCancelClick'#8'TabOrde'
|
||||
+'r'#2#2#0#0#0
|
||||
]);
|
||||
149
fFindDlg.lrs
149
fFindDlg.lrs
|
|
@ -1,149 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmFindDlg','FORMDATA',[
|
||||
'TPF0'#241#11'TfrmFindDlg'#10'frmFindDlg'#4'Left'#3#26#1#6'Height'#3#220#1#3
|
||||
+'Top'#3#231#0#5'Width'#3#29#2#18'HorzScrollBar.Page'#3#28#2#18'VertScrollBar'
|
||||
+'.Page'#3#219#1#19'VertScrollBar.Range'#3'<'#1#13'ActiveControl'#7#16'edtFin'
|
||||
+'dPathStart'#7'Caption'#6#10'frmFindDlg'#10'KeyPreview'#9#7'OnClose'#7#15'fr'
|
||||
+'mFindDlgClose'#12'OnCloseQuery'#7#14'FormCloseQuery'#10'OnKeyPress'#7#12'Fo'
|
||||
+'rmKeyPress'#6'OnShow'#7#14'frmFindDlgShow'#8'Position'#7#14'poScreenCenter'
|
||||
+#13'ShowInTaskBar'#7#8'stAlways'#0#9'TSplitter'#9'Splitter1'#6'Cursor'#7#8'c'
|
||||
+'rVSplit'#6'Height'#2#1#3'Top'#3''''#1#5'Width'#3#29#2#5'Align'#7#5'alTop'#12
|
||||
+'ResizeAnchor'#7#5'akTop'#0#0#6'TPanel'#6'Panel2'#6'Height'#3''''#1#5'Width'
|
||||
+#3#29#2#5'Align'#7#5'alTop'#10'BevelOuter'#7#6'bvNone'#11'FullRepaint'#8#8'T'
|
||||
+'abOrder'#2#0#0#12'TPageControl'#9'pgcSearch'#6'Height'#3'('#1#5'Width'#3#190
|
||||
+#1#10'ActivePage'#7#10'tsStandard'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
|
||||
+'t'#0#8'TabIndex'#2#0#8'TabOrder'#2#0#0#9'TTabSheet'#10'tsStandard'#7'Captio'
|
||||
+'n'#6#8'Standard'#0#6'TLabel'#16'lblFindPathStart'#4'Left'#2#8#6'Height'#2#14
|
||||
+#3'Top'#2'2'#5'Width'#2#30#7'Caption'#6#7'FileDir'#5'Color'#7#6'clNone'#11'P'
|
||||
+'arentColor'#8#0#0#6'TLabel'#15'lblFindFileMask'#4'Left'#2#8#6'Height'#2#14#3
|
||||
+'Top'#2#4#5'Width'#2')'#7'Caption'#6#8'FileMask'#5'Color'#7#6'clNone'#11'Par'
|
||||
+'entColor'#8#0#0#5'TEdit'#16'edtFindPathStart'#4'Left'#2#8#6'Height'#2#24#3
|
||||
+'Top'#2'C'#5'Width'#3'j'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'T'
|
||||
+'abOrder'#2#0#0#0#7'TButton'#9'btnSelDir'#4'Left'#3'z'#1#6'Height'#2#25#3'To'
|
||||
+'p'#2'B'#5'Width'#2#25#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.'
|
||||
+'InnerBorder'#2#4#7'Caption'#6#3'...'#7'OnClick'#7#14'btnSelDirClick'#8'TabO'
|
||||
+'rder'#2#2#0#0#9'TComboBox'#15'cmbFindFileMask'#4'Left'#2#8#6'Height'#2#21#3
|
||||
+'Top'#2#25#5'Width'#3'j'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16
|
||||
+'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0
|
||||
+#10'ItemHeight'#2#18#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Te'
|
||||
+'xt'#6#1'*'#0#0#9'TGroupBox'#10'gbFindData'#4'Left'#2#8#6'Height'#3#145#0#3
|
||||
+'Top'#2'w'#5'Width'#3#162#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7
|
||||
+'Caption'#6#9'Find Data'#7'Enabled'#8#11'ParentCtl3D'#8#8'TabOrder'#2#3#0#9
|
||||
+'TCheckBox'#10'cbCaseSens'#4'Left'#2#18#6'Height'#2#13#3'Top'#2'a'#5'Width'#2
|
||||
+'X'#7'Caption'#6#14'Case sensitive'#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtFindT'
|
||||
+'ext'#4'Left'#2#16#6'Height'#2#24#3'Top'#2#9#5'Width'#3':'#1#7'Anchors'#11#5
|
||||
+'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1#0#0#9'TCheckBox'#12'cbNoThisT'
|
||||
+'ext'#4'Left'#3#154#0#6'Height'#2#13#3'Top'#2'a'#5'Width'#3#177#0#7'Caption'
|
||||
+#6'"Find files NOT containing the text'#8'TabOrder'#2#2#0#0#9'TCheckBox'#13
|
||||
+'cbReplaceText'#4'Left'#2#16#6'Height'#2#13#3'Top'#2')'#5'Width'#2'P'#7'Capt'
|
||||
+'ion'#6#12'Replace text'#8'OnChange'#7#19'cbReplaceTextChange'#8'TabOrder'#2
|
||||
+#4#0#0#5'TEdit'#14'edtReplaceText'#4'Left'#2#16#6'Height'#2#23#3'Top'#2'A'#5
|
||||
+'Width'#3'Z'#1#7'Enabled'#8#8'TabOrder'#2#3#0#0#0#9'TCheckBox'#12'cbFindInFi'
|
||||
+'le'#4'Left'#2#12#6'Height'#2#13#3'Top'#2'b'#5'Width'#2'C'#7'Caption'#6#12'F'
|
||||
+'ind in file'#7'OnClick'#7#17'cbFindInFileClick'#8'TabOrder'#2#4#0#0#0#9'TTa'
|
||||
+'bSheet'#10'tsAdvanced'#7'Caption'#6#8'Advanced'#10'ImageIndex'#2#1#0#9'TDat'
|
||||
+'eEdit'#10'deDateFrom'#4'Left'#2#4#6'Height'#2#23#3'Top'#2')'#5'Width'#2'P'
|
||||
+#23'CalendarDisplaySettings'#11#14'dsShowHeadings'#14'dsShowDayNames'#0#9'OK'
|
||||
+'Caption'#6#2'OK'#13'CancelCaption'#6#6'Cancel'#8'ReadOnly'#8#11'ButtonWidth'
|
||||
+#2#23#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'3'#2#0#0'/'#2#0#0'/* XPM */'
|
||||
+#10'static char *calendar[] = {'#10'/* columns rows colors chars-per-pixel *'
|
||||
+'/'#10'"14 12 17 1",'#10'" c black",'#10'". c #800000",'#10'"X c #008000",'
|
||||
+#10'"o c #808000",'#10'"O c navy",'#10'"+ c #800080",'#10'"@ c #008080",'#10
|
||||
+'"# c #808080",'#10'"$ c #C0C0C0",'#10'"% c red",'#10'"& c green",'#10'"* c '
|
||||
+'yellow",'#10'"= c blue",'#10'"- c magenta",'#10'"; c cyan",'#10'": c gray10'
|
||||
+'0",'#10'"> c None",'#10'/* pixels */'#10'">> >>",'#10'">>:$$$$$$$$'
|
||||
+':O#",'#10'">>::::::::::O#",'#10'">>:: :: :O#",'#10'">>: :: ::::O#",'#10
|
||||
+'">>:: :: $:O#",'#10'">>:: ::::: :O#",'#10'">>:: ::$:$ :O#",'#10'">>: : '
|
||||
+' $:O#",'#10'">>::::::::::O#",'#10'">> O OO O O#",'#10'">>>###########"'
|
||||
+#10'};'#10#9'NumGlyphs'#2#1#7'Enabled'#8#8'TabOrder'#2#0#0#0#9'TDateEdit'#8
|
||||
+'deDateTo'#4'Left'#3#164#0#6'Height'#2#23#3'Top'#2')'#5'Width'#2'P'#23'Calen'
|
||||
+'darDisplaySettings'#11#14'dsShowHeadings'#14'dsShowDayNames'#0#9'OKCaption'
|
||||
+#6#2'OK'#13'CancelCaption'#6#6'Cancel'#8'ReadOnly'#8#11'ButtonWidth'#2#23#5
|
||||
+'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'3'#2#0#0'/'#2#0#0'/* XPM */'#10'sta'
|
||||
+'tic char *calendar[] = {'#10'/* columns rows colors chars-per-pixel */'#10
|
||||
+'"14 12 17 1",'#10'" c black",'#10'". c #800000",'#10'"X c #008000",'#10'"o'
|
||||
+' c #808000",'#10'"O c navy",'#10'"+ c #800080",'#10'"@ c #008080",'#10'"# c'
|
||||
+' #808080",'#10'"$ c #C0C0C0",'#10'"% c red",'#10'"& c green",'#10'"* c yell'
|
||||
,'ow",'#10'"= c blue",'#10'"- c magenta",'#10'"; c cyan",'#10'": c gray100",'
|
||||
+#10'"> c None",'#10'/* pixels */'#10'">> >>",'#10'">>:$$$$$$$$:O#",'
|
||||
+#10'">>::::::::::O#",'#10'">>:: :: :O#",'#10'">>: :: ::::O#",'#10'">>:: '
|
||||
+':: $:O#",'#10'">>:: ::::: :O#",'#10'">>:: ::$:$ :O#",'#10'">>: : $:O#'
|
||||
+'",'#10'">>::::::::::O#",'#10'">> O OO O O#",'#10'">>>###########"'#10'};'
|
||||
+#10#9'NumGlyphs'#2#1#7'Enabled'#8#8'TabOrder'#2#1#0#0#9'TCheckBox'#10'cbDate'
|
||||
+'From'#4'Left'#2#4#6'Height'#2#13#3'Top'#2#22#5'Width'#2'H'#7'Caption'#6#10
|
||||
+'Date From:'#8'OnChange'#7#16'cbDateFromChange'#8'TabOrder'#2#2#0#0#9'TCheck'
|
||||
+'Box'#14'cbNotOlderThan'#4'Left'#2#4#6'Height'#2#13#3'Top'#3#136#0#5'Width'#2
|
||||
+'Z'#7'Caption'#6#15'Not older than:'#8'OnChange'#7#20'cbNotOlderThanChange'#8
|
||||
+'TabOrder'#2#3#0#0#9'TSpinEdit'#14'seNotOlderThan'#4'Left'#2#4#6'Height'#2#20
|
||||
+#3'Top'#3#161#0#5'Width'#2'j'#7'Enabled'#8#8'TabOrder'#2#4#0#0#9'TComboBox'
|
||||
+#11'cbDelayUnit'#4'Left'#3#164#0#6'Height'#2#21#3'Top'#3#160#0#5'Width'#2'n'
|
||||
+#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'
|
||||
+#0#7'Enabled'#8#9'ItemIndex'#2#2#13'Items.Strings'#1#6#9'Minute(s)'#6#7'Hour'
|
||||
+'(s)'#6#6'Day(s)'#6#7'Week(s)'#6#8'Month(s)'#6#7'Year(s)'#0#9'MaxLength'#2#0
|
||||
+#8'TabOrder'#2#5#4'Text'#6#6'Day(s)'#0#0#9'TCheckBox'#14'cbFileSizeFrom'#4'L'
|
||||
+'eft'#2#4#6'Height'#2#13#3'Top'#3#193#0#5'Width'#2'X'#7'Caption'#6#15'File S'
|
||||
+'ize From:'#8'OnChange'#7#20'cbFileSizeFromChange'#8'TabOrder'#2#6#0#0#9'TCh'
|
||||
+'eckBox'#8'cbDateTo'#4'Left'#3#164#0#6'Height'#2#13#3'Top'#2#22#5'Width'#2'>'
|
||||
+#7'Caption'#6#8'Date To:'#8'OnChange'#7#14'cbDateToChange'#8'TabOrder'#2#7#0
|
||||
+#0#9'TCheckBox'#12'cbFileSizeTo'#4'Left'#3#164#0#6'Height'#2#13#3'Top'#3#193
|
||||
+#0#5'Width'#2'N'#7'Caption'#6#13'File Size To:'#8'OnChange'#7#18'cbFileSizeT'
|
||||
+'oChange'#8'TabOrder'#2#8#0#0#9'TSpinEdit'#14'seFileSizeFrom'#4'Left'#2#4#6
|
||||
+'Height'#2#20#3'Top'#3#217#0#5'Width'#2'j'#7'Enabled'#8#8'TabOrder'#2#9#0#0#9
|
||||
+'TSpinEdit'#12'seFileSizeTo'#4'Left'#3#164#0#6'Height'#2#20#3'Top'#3#217#0#5
|
||||
+'Width'#2'n'#7'Enabled'#8#8'TabOrder'#2#10#0#0#9'TComboBox'#15'cbUnitOfMeasu'
|
||||
+'re'#4'Left'#3#28#1#6'Height'#2#21#3'Top'#3#217#0#5'Width'#2'H'#16'AutoCompl'
|
||||
+'eteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'ItemInd'
|
||||
+'ex'#2#1#13'Items.Strings'#1#6#4'Byte'#6#5'Kbyte'#6#5'Mbyte'#6#5'Gbyte'#0#9
|
||||
+'MaxLength'#2#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#11#4'Text'#6#5'K'
|
||||
+'byte'#0#0#9'TCheckBox'#10'cbTimeFrom'#4'Left'#2#4#6'Height'#2#13#3'Top'#2'I'
|
||||
+#5'Width'#2'E'#7'Caption'#6#10'Time from:'#8'OnChange'#7#16'cbTimeFromChange'
|
||||
+#8'TabOrder'#2#12#0#0#9'TCheckBox'#8'cbTimeTo'#4'Left'#3#164#0#6'Height'#2#13
|
||||
+#3'Top'#2'I'#5'Width'#2':'#7'Caption'#6#8'Time to:'#8'OnChange'#7#14'cbTimeT'
|
||||
+'oChange'#8'TabOrder'#2#13#0#0#9'TMaskEdit'#10'meTimeFrom'#4'Left'#2#4#6'Hei'
|
||||
+'ght'#2#23#3'Top'#2'a'#5'Width'#2'P'#7'Enabled'#8#8'EditMask'#6#8'00:00:00'#9
|
||||
+'MaxLength'#2#8#11'ParentColor'#8#8'TabOrder'#2#14#4'Text'#6#8'00:00:00'#8'O'
|
||||
+'nChange'#7#12'meTimeChange'#0#0#9'TMaskEdit'#8'meTimeTo'#4'Left'#3#164#0#6
|
||||
+'Height'#2#23#3'Top'#2'a'#5'Width'#2'P'#7'Enabled'#8#8'EditMask'#6#8'00:00:0'
|
||||
+'0'#9'MaxLength'#2#8#11'ParentColor'#8#8'TabOrder'#2#15#4'Text'#6#8'00:00:00'
|
||||
+#8'OnChange'#7#12'meTimeChange'#0#0#0#0#7'TButton'#8'btnClose'#4'Left'#3#198
|
||||
+#1#6'Height'#2#25#3'Top'#2'G'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'
|
||||
+#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#6'&Close'#7'OnClick'#7#13
|
||||
+'btnCloseClick'#8'TabOrder'#2#3#0#0#7'TButton'#7'btnStop'#4'Left'#3#198#1#6
|
||||
+'Height'#2#25#3'Top'#2'g'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0
|
||||
+#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#7'Enab'
|
||||
+'led'#8#7'OnClick'#7#12'btnStopClick'#8'TabOrder'#2#1#0#0#7'TButton'#8'btnSt'
|
||||
+'art'#4'Left'#3#198#1#6'Height'#2#25#3'Top'#2''''#5'Width'#2'K'#7'Anchors'#11
|
||||
+#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#6'&Sta'
|
||||
+'rt'#7'Default'#9#7'OnClick'#7#13'btnStartClick'#8'TabOrder'#2#2#0#0#0#6'TPa'
|
||||
+'nel'#6'Panel1'#6'Height'#3#180#0#3'Top'#3'('#1#5'Width'#3#29#2#5'Align'#7#8
|
||||
+'alClient'#10'BevelOuter'#7#6'bvNone'#11'FullRepaint'#8#8'TabOrder'#2#1#0#6
|
||||
+'TPanel'#6'Panel3'#6'Height'#2'6'#5'Width'#3#29#2#5'Align'#7#5'alTop'#10'Bev'
|
||||
+'elInner'#7#8'bvRaised'#10'BevelOuter'#7#9'bvLowered'#11'FullRepaint'#8#8'Ta'
|
||||
+'bOrder'#2#0#0#6'TLabel'#9'lblStatus'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#30
|
||||
+#5'Width'#2','#7'Caption'#6#9'lblStatus'#5'Color'#7#6'clNone'#10'Font.Color'
|
||||
+#7#7'clBlack'#11'Font.Height'#2#13#9'Font.Name'#6#15'adobe-helvetica'#10'Fon'
|
||||
+'t.Pitch'#7#10'fpVariable'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#0
|
||||
+#0#6'TLabel'#10'lblCurrent'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#12#5'Width'#2
|
||||
+'1'#7'Caption'#6#10'lblCurrent'#5'Color'#7#6'clNone'#10'Font.Color'#7#7'clBl'
|
||||
+'ack'#11'Font.Height'#2#13#9'Font.Name'#6#15'adobe-helvetica'#10'Font.Pitch'
|
||||
+#7#10'fpVariable'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#0#0#0#8'TL'
|
||||
+'istBox'#14'lsFoundedFiles'#6'Height'#2'L'#3'Top'#2'6'#5'Width'#3#29#2#5'Ali'
|
||||
,'gn'#7#8'alClient'#11'MultiSelect'#9#10'OnDblClick'#7#22'lsFoundedFilesDblCl'
|
||||
+'ick'#9'PopupMenu'#7#13'PopupMenuFind'#8'TabOrder'#2#1#0#0#6'TPanel'#6'Panel'
|
||||
+'4'#6'Height'#2'2'#3'Top'#3#130#0#5'Width'#3#29#2#5'Align'#7#8'alBottom'#8'T'
|
||||
+'abOrder'#2#2#0#7'TButton'#7'btnView'#4'Left'#2#24#6'Height'#2#25#3'Top'#2#14
|
||||
+#5'Width'#2'h'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#5'&View'#7'OnC'
|
||||
+'lick'#7#12'btnViewClick'#8'TabOrder'#2#0#0#0#7'TButton'#12'btnNewSearch'#4
|
||||
+'Left'#3#152#0#6'Height'#2#25#3'Top'#2#14#5'Width'#2'h'#25'BorderSpacing.Inn'
|
||||
+'erBorder'#2#4#7'Caption'#6#11'&New search'#7'OnClick'#7#17'btnNewSearchClic'
|
||||
+'k'#8'TabOrder'#2#1#0#0#7'TButton'#11'btnGoToPath'#4'Left'#3#24#1#6'Height'#2
|
||||
+#25#3'Top'#2#14#5'Width'#2'h'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6
|
||||
+#11'&Go to file'#7'OnClick'#7#16'btnGoToPathClick'#8'TabOrder'#2#2#0#0#7'TBu'
|
||||
+'tton'#16'btnWorkWithFound'#4'Left'#3#152#1#6'Height'#2#25#3'Top'#2#14#5'Wid'
|
||||
+'th'#2'h'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#16'Feed to &listbox'
|
||||
+#7'OnClick'#7#21'btnWorkWithFoundClick'#8'TabOrder'#2#3#0#0#0#0#10'TPopupMen'
|
||||
+'u'#13'PopupMenuFind'#4'left'#3#152#0#3'top'#3#152#1#0#9'TMenuItem'#14'miSho'
|
||||
+'wInViewer'#7'Caption'#6#14'Show In Viewer'#7'OnClick'#7#19'miShowInViewerCl'
|
||||
+'ick'#0#0#0#0
|
||||
]);
|
||||
|
|
@ -1,23 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmHardLink','FORMDATA',[
|
||||
'TPF0'#12'TfrmHardLink'#11'frmHardLink'#13'ActiveControl'#7#6'edtNew'#7'Capti'
|
||||
+'on'#6#11'frmHardLink'#12'ClientHeight'#3#148#0#11'ClientWidth'#3#161#1#10'K'
|
||||
+'eyPreview'#9#10'OnKeyPress'#7#19'frmHardLinkKeyPress'#13'PixelsPerInch'#2'`'
|
||||
+#8'Position'#7#16'poMainFormCenter'#10'TextHeight'#2#16#18'HorzScrollBar.Pag'
|
||||
+'e'#3#160#1#19'HorzScrollBar.Range'#3#155#1#18'VertScrollBar.Page'#3#147#0#19
|
||||
+'VertScrollBar.Range'#3#145#0#4'Left'#3'$'#1#6'Height'#3#148#0#3'Top'#3#224#0
|
||||
+#5'Width'#3#161#1#0#6'TLabel'#6'lblNew'#7'Caption'#6#6'lblNew'#5'Color'#7#6
|
||||
+'clNone'#11'ParentColor'#8#4'Left'#2#8#6'Height'#2#14#3'Top'#2'@'#5'Width'#2
|
||||
+' '#0#0#6'TLabel'#6'lblDst'#7'Caption'#6#6'lblDst'#5'Color'#7#6'clNone'#11'P'
|
||||
+'arentColor'#8#4'Left'#2#8#6'Height'#2#14#3'Top'#2#8#5'Width'#2#27#0#0#5'TEd'
|
||||
+'it'#6'edtNew'#8'TabOrder'#2#1#4'Left'#2#8#6'Height'#2#24#3'Top'#2'X'#5'Widt'
|
||||
+'h'#3#145#1#0#0#5'TEdit'#6'edtDst'#8'TabOrder'#2#3#4'Left'#2#8#6'Height'#2#24
|
||||
+#3'Top'#2' '#5'Width'#3#145#1#0#0#7'TBitBtn'#5'btnOK'#25'BorderSpacing.Inner'
|
||||
+'Border'#2#2#7'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResu'
|
||||
+'lt'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#10'btnOKClick'#8'TabOrder'#2#0#4'Left'
|
||||
+#3#248#0#6'Height'#2#23#3'Top'#2'x'#5'Width'#2'K'#0#0#7'TBitBtn'#9'btnCancel'
|
||||
+#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCanc'
|
||||
+'el'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#2#4'Left'#3'P'#1#6'H'
|
||||
+'eight'#2#23#3'Top'#2'x'#5'Width'#2'K'#0#0#0
|
||||
]);
|
||||
41
fLinker.lrs
41
fLinker.lrs
|
|
@ -1,41 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmLinker','FORMDATA',[
|
||||
'TPF0'#10'TfrmLinker'#9'frmLinker'#13'ActiveControl'#7#6'edSave'#11'BorderIco'
|
||||
+'ns'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderStyle'#7#8'bsSingle'#7'Ca'
|
||||
+'ption'#6#6'Linker'#12'ClientHeight'#3'['#1#11'ClientWidth'#3';'#1#13'Pixels'
|
||||
+'PerInch'#2'`'#18'HorzScrollBar.Page'#3':'#1#19'HorzScrollBar.Range'#3'!'#1
|
||||
+#18'VertScrollBar.Page'#3'Z'#1#19'VertScrollBar.Range'#3'K'#1#4'Left'#3#1#2#6
|
||||
+'Height'#3'['#1#3'Top'#3#252#0#5'Width'#3';'#1#0#12'TProgressBar'#8'prbrWork'
|
||||
+#5'Align'#7#8'alBottom'#3'Max'#2'd'#8'TabOrder'#2#0#6'Height'#2#19#3'Top'#3
|
||||
+'H'#1#5'Width'#3';'#1#0#0#9'TGroupBox'#8'gbSaveTo'#7'Caption'#6#10'Save to..'
|
||||
+'.'#12'ClientHeight'#2'/'#11'ClientWidth'#3#213#0#11'ParentCtl3D'#8#8'TabOrd'
|
||||
+'er'#2#1#6'Height'#2'A'#3'Top'#3#0#1#5'Width'#3#217#0#0#6'TLabel'#11'lblFile'
|
||||
+'Name'#7'Caption'#6#11'lblFileName'#5'Color'#7#6'clNone'#11'ParentColor'#8#4
|
||||
+'Left'#2#6#6'Height'#2#14#3'Top'#2#1#5'Width'#2'6'#0#0#5'TEdit'#6'edSave'#8
|
||||
+'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#24#3'Top'#2#17#5'Width'#3#168#0#0#0#7
|
||||
+'TButton'#7'btnSave'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'...'#7
|
||||
+'OnClick'#7#12'btnSaveClick'#8'TabOrder'#2#1#4'Left'#3#182#0#6'Height'#2#25#3
|
||||
+'Top'#2#17#5'Width'#2#25#0#0#0#9'TGroupBox'#11'grbxControl'#7'Caption'#6#4'I'
|
||||
+'tem'#12'ClientHeight'#3#231#0#11'ClientWidth'#2'T'#11'ParentCtl3D'#8#8'TabO'
|
||||
+'rder'#2#2#4'Left'#3#224#0#6'Height'#3#249#0#5'Width'#2'X'#0#7'TButton'#7'sp'
|
||||
+'btnUp'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#2'Up'#7'OnClick'#7#12
|
||||
+'spbtnUpClick'#14'ParentShowHint'#8#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2
|
||||
+#23#4'Hint'#6#2'Up'#3'Top'#2#1#5'Width'#2'K'#0#0#7'TButton'#9'spbtnDown'#25
|
||||
+'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#4'Down'#7'OnClick'#7#14'spbtnDo'
|
||||
+'wnClick'#14'ParentShowHint'#8#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2#23#4
|
||||
+'Hint'#6#4'Down'#3'Top'#2'!'#5'Width'#2'K'#0#0#7'TButton'#8'spbtnDel'#25'Bor'
|
||||
+'derSpacing.InnerBorder'#2#2#7'Caption'#6#6'Delete'#7'OnClick'#7#13'spbtnDel'
|
||||
+'Click'#14'ParentShowHint'#8#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#23#4'Hi'
|
||||
+'nt'#6#6'Delete'#3'Top'#2'A'#5'Width'#2'K'#0#0#0#7'TButton'#5'btnOK'#25'Bord'
|
||||
+'erSpacing.InnerBorder'#2#2#7'Caption'#6#2'OK'#7'OnClick'#7#10'btnOKClick'#8
|
||||
+'TabOrder'#2#3#4'Left'#3#227#0#6'Height'#2#25#3'Top'#3#6#1#5'Width'#2'X'#0#0
|
||||
+#7'TButton'#7'btnExit'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#4'Exit'
|
||||
+#11'ModalResult'#2#2#8'TabOrder'#2#4#4'Left'#3#224#0#6'Height'#2#25#3'Top'#3
|
||||
+'('#1#5'Width'#2'X'#0#0#8'TListBox'#7'lstFile'#8'TabOrder'#2#5#6'Height'#3
|
||||
+#248#0#3'Top'#2#8#5'Width'#3#212#0#0#0#11'TSaveDialog'#10'dlgSaveAll'#5'Titl'
|
||||
+'e'#6#18#209#238#245#240#224#237#232#242#252' '#244#224#233#235' '#234#224
|
||||
+#234#6'Filter'#6#13'All files|*.*'#11'FilterIndex'#2#0#5'Title'#6#18#209#238
|
||||
+#245#240#224#237#232#242#252' '#244#224#233#235' '#234#224#234#4'left'#3#160
|
||||
+#0#3'top'#3#240#0#0#0#0
|
||||
]);
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmLng','FORMDATA',[
|
||||
'TPF0'#7'TfrmLng'#6'frmLng'#7'Caption'#6#6'frmLng'#12'ClientHeight'#3'X'#1#11
|
||||
+'ClientWidth'#3''''#2#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'N'#10
|
||||
+'TextHeight'#2#16#18'HorzScrollBar.Page'#3'&'#2#18'VertScrollBar.Page'#3'W'#1
|
||||
+#4'Left'#3#188#1#6'Height'#3'X'#1#3'Top'#3#190#1#5'Width'#3''''#2#0#0
|
||||
]);
|
||||
238
fMain.lrs
238
fMain.lrs
|
|
@ -1,238 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmMain','FORMDATA',[
|
||||
'TPF0'#241#8'TfrmMain'#7'frmMain'#4'Left'#3#245#0#6'Height'#3'P'#1#3'Top'#3
|
||||
+#170#0#5'Width'#3#13#2#18'HorzScrollBar.Page'#3#12#2#18'VertScrollBar.Page'#3
|
||||
+';'#1#19'VertScrollBar.Range'#2'O'#13'ActiveControl'#7#12'pnlNotebooks'#7'Ca'
|
||||
+'ption'#6#16'Double Commander'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2
|
||||
+#13#9'Font.Name'#6#9'Helvetica'#10'Font.Pitch'#7#10'fpVariable'#10'KeyPrevie'
|
||||
+'w'#9#4'Menu'#7#7'mnuMain'#10'OnActivate'#7#12'FormActivate'#7'OnClose'#7#12
|
||||
+'frmMainClose'#9'OnDestroy'#7#11'FormDestroy'#9'OnKeyDown'#7#11'FormKeyDown'
|
||||
+#10'OnKeyPress'#7#12'FormKeyPress'#7'OnKeyUp'#7#12'frmMainKeyUp'#8'OnResize'
|
||||
+#7#10'FormResize'#6'OnShow'#7#11'frmMainShow'#8'Position'#7#15'poDesktopCent'
|
||||
+'er'#8'ShowHint'#9#0#6'TPanel'#9'pnlButton'#6'Height'#2#22#3'Top'#2#23#5'Wid'
|
||||
+'th'#3#13#2#5'Align'#7#5'alTop'#11'FullRepaint'#8#8'TabOrder'#2#0#7'Visible'
|
||||
+#8#0#0#6'TPanel'#7'pnlDisk'#6'Height'#2#24#3'Top'#2'-'#5'Width'#3#13#2#5'Ali'
|
||||
+'gn'#7#5'alTop'#7'Caption'#6#7'pnlDisk'#11'FullRepaint'#8#11'ParentColor'#8#8
|
||||
+'TabOrder'#2#1#0#11'TKAStoolBar'#7'dskLeft'#4'Left'#2#1#6'Height'#2#22#3'Top'
|
||||
+#2#1#5'Width'#3'b'#1#5'Align'#7#6'alLeft'#11'ParentColor'#8#8'TabOrder'#2#0
|
||||
+#17'OnToolButtonClick'#7#22'dskLeftToolButtonClick'#15'CheckToolButton'#9#11
|
||||
+'FlatButtons'#9#11'IsDiskPanel'#9#0#0#11'TKAStoolBar'#8'dskRight'#4'Left'#3
|
||||
+'c'#1#6'Height'#2#22#3'Top'#2#1#5'Width'#3#169#0#5'Align'#7#8'alClient'#7'An'
|
||||
+'chors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#8'TabOrder'#2#1#17'OnToolButtonC'
|
||||
+'lick'#7#23'dskRightToolButtonClick'#15'CheckToolButton'#9#11'FlatButtons'#9
|
||||
+#11'IsDiskPanel'#9#0#0#0#6'TPanel'#10'pnlCommand'#6'Height'#2'B'#3'Top'#3#250
|
||||
+#0#5'Width'#3#13#2#5'Align'#7#8'alBottom'#7'Anchors'#11#6'akLeft'#7'akRight'
|
||||
+#0#10'BevelOuter'#7#9'bvLowered'#11'FullRepaint'#8#11'ParentColor'#8#8'TabOr'
|
||||
+'der'#2#2#0#6'TLabel'#14'lblCommandPath'#4'Left'#2#1#6'Height'#2#14#3'Top'#2
|
||||
+#8#5'Width'#2#23#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#4'Path'#5'Co'
|
||||
+'lor'#7#6'clNone'#11'ParentColor'#8#13'ShowAccelChar'#8#0#0#6'TPanel'#7'pnlK'
|
||||
+'eys'#4'Left'#2#1#6'Height'#2#27#3'Top'#2'&'#5'Width'#3#11#2#5'Align'#7#8'al'
|
||||
+'Bottom'#7'Anchors'#11#6'akLeft'#7'akRight'#0#10'BevelOuter'#7#9'bvLowered'
|
||||
+#11'FullRepaint'#8#8'TabOrder'#2#0#8'OnResize'#7#13'pnlKeysResize'#0#12'TSpe'
|
||||
+'edButton'#5'btnF3'#4'Left'#2#1#6'Height'#2#23#3'Top'#2#4#5'Width'#2'K'#6'Ac'
|
||||
+'tion'#7#7'actView'#5'Color'#7#9'clBtnFace'#4'Flat'#9#9'NumGlyphs'#2#0#0#0#12
|
||||
+'TSpeedButton'#5'btnF4'#4'Left'#2'L'#6'Height'#2#23#3'Top'#2#4#5'Width'#2'K'
|
||||
+#6'Action'#7#7'actEdit'#5'Color'#7#9'clBtnFace'#4'Flat'#9#9'NumGlyphs'#2#0#0
|
||||
+#0#12'TSpeedButton'#5'btnF5'#4'Left'#3#151#0#6'Height'#2#23#3'Top'#2#4#5'Wid'
|
||||
+'th'#2'K'#6'Action'#7#7'actCopy'#5'Color'#7#9'clBtnFace'#4'Flat'#9#9'NumGlyp'
|
||||
+'hs'#2#0#0#0#12'TSpeedButton'#5'btnF6'#4'Left'#3#226#0#6'Height'#2#23#3'Top'
|
||||
+#2#4#5'Width'#2'K'#6'Action'#7#9'actRename'#5'Color'#7#9'clBtnFace'#4'Flat'#9
|
||||
+#9'NumGlyphs'#2#0#0#0#12'TSpeedButton'#5'btnF7'#4'Left'#3'-'#1#6'Height'#2#23
|
||||
+#3'Top'#2#4#5'Width'#2'K'#6'Action'#7#10'actMakeDir'#5'Color'#7#9'clBtnFace'
|
||||
+#4'Flat'#9#9'NumGlyphs'#2#0#0#0#12'TSpeedButton'#5'btnF8'#4'Left'#3'x'#1#6'H'
|
||||
+'eight'#2#23#3'Top'#2#4#5'Width'#2'K'#6'Action'#7#9'actDelete'#5'Color'#7#9
|
||||
+'clBtnFace'#4'Flat'#9#9'NumGlyphs'#2#0#0#0#12'TSpeedButton'#6'btnF10'#4'Left'
|
||||
+#3#27#2#6'Height'#2#23#3'Top'#2#4#5'Width'#2'K'#6'Action'#7#7'actExit'#5'Col'
|
||||
+'or'#7#9'clBtnFace'#4'Flat'#9#9'NumGlyphs'#2#0#0#0#12'TSpeedButton'#5'btnF9'
|
||||
+#4'Left'#3#192#1#6'Height'#2#22#3'Top'#2#4#5'Width'#2'Y'#6'Action'#7#11'actS'
|
||||
+'howMenu'#5'Color'#7#9'clBtnFace'#4'Flat'#9#9'NumGlyphs'#2#0#0#0#0#9'TComboB'
|
||||
+'ox'#10'edtCommand'#4'Left'#2'8'#6'Height'#2#21#3'Top'#2#8#5'Width'#3#176#2#7
|
||||
+'TabStop'#8#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearc'
|
||||
+'hAscending'#0#10'ItemHeight'#2#18#9'MaxLength'#2#0#9'OnKeyDown'#7#17'edtCom'
|
||||
+'mandKeyDown'#7'OnKeyUp'#7#15'edtCommandKeyUp'#11'ParentCtl3D'#8#8'TabOrder'
|
||||
+#2#1#0#0#0#6'TPanel'#12'pnlNotebooks'#6'Height'#3#181#0#3'Top'#2'E'#5'Width'
|
||||
+#3#13#2#5'Align'#7#8'alClient'#11'FullRepaint'#8#8'TabOrder'#2#3#7'TabStop'#9
|
||||
+#0#9'TNotebook'#6'nbLeft'#4'Left'#2#1#6'Height'#3#179#0#3'Top'#2#1#5'Width'#3
|
||||
+#135#1#5'Align'#7#6'alLeft'#17'OnCloseTabClicked'#7#23'NoteBookCloseTabClick'
|
||||
+'ed'#7'Options'#11#19'nboShowCloseButtons'#0#0#0#9'TSplitter'#9'Splitter1'#4
|
||||
+'Left'#3#136#1#6'Height'#3#179#0#3'Top'#2#1#5'Width'#2#4#11'ResizeStyle'#7#6
|
||||
+'rsLine'#0#0#9'TNotebook'#7'nbRight'#4'Left'#3#140#1#6'Height'#3#179#0#3'Top'
|
||||
+#2#1#5'Width'#3#128#0#5'Align'#7#8'alClient'#17'OnCloseTabClicked'#7#23'Note'
|
||||
+'BookCloseTabClicked'#7'Options'#11#19'nboShowCloseButtons'#0#0#0#0#11'TKASt'
|
||||
+'oolBar'#11'MainToolBar'#6'Height'#2#23#5'Width'#3#13#2#5'Align'#7#5'alTop'#8
|
||||
+'TabOrder'#2#4#11'OnMouseDown'#7#20'MainToolBarMouseDown'#17'OnToolButtonCli'
|
||||
+'ck'#7#26'MainToolBarToolButtonClick'#11'FlatButtons'#9#0#0#9'TMainMenu'#7'm'
|
||||
+'nuMain'#4'left'#3#27#1#3'top'#2#8#0#9'TMenuItem'#8'mnuFiles'#7'Caption'#6#5
|
||||
+'Files'#0#9'TMenuItem'#12'mnuFilesLink'#6'Action'#7#11'actHardLink'#7'OnClic'
|
||||
,'k'#7#18'actHardLinkExecute'#0#0#9'TMenuItem'#15'mnuFilesSymLink'#6'Action'#7
|
||||
+#10'actSymLink'#7'OnClick'#7#17'actSymLinkExecute'#0#0#9'TMenuItem'#7'miLine'
|
||||
+'1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#14'mnuFilesAttrib'#6'Action'#7#8'actC'
|
||||
+'hMod'#7'OnClick'#7#15'actChModExecute'#0#0#9'TMenuItem'#13'mnuFilesChown'#6
|
||||
+'Action'#7#8'actChown'#7'OnClick'#7#15'actChownExecute'#0#0#9'TMenuItem'#18
|
||||
+'mnuFilesProperties'#6'Action'#7#17'actFileProperties'#7'OnClick'#7#24'actFi'
|
||||
+'lePropertiesExecute'#0#0#9'TMenuItem'#13'mnuFilesSpace'#6'Action'#7#17'actC'
|
||||
+'alculateSpace'#7'OnClick'#7#24'actCalculateSpaceExecute'#0#0#9'TMenuItem'#14
|
||||
+'mnuFilesCmpCnt'#6'Action'#7#18'actCompareContents'#7'OnClick'#7#25'actCompa'
|
||||
+'reContentsExecute'#0#0#9'TMenuItem'#13'miMultiRename'#6'Action'#7#14'actMul'
|
||||
+'tiRename'#7'OnClick'#7#21'actMultiRenameExecute'#0#0#9'TMenuItem'#7'miLine2'
|
||||
+#7'Caption'#6#1'-'#0#0#9'TMenuItem'#12'mnuPackFiles'#6'Action'#7#12'actPackF'
|
||||
+'iles'#7'OnClick'#7#19'actPackFilesExecute'#0#0#9'TMenuItem'#13'mnuFilesSpli'
|
||||
+'t'#6'Action'#7#14'actFileSpliter'#7'OnClick'#7#21'actFileSpliterExecute'#0#0
|
||||
+#9'TMenuItem'#15'mnuFilesCombine'#6'Action'#7#13'actFileLinker'#7'Caption'#6
|
||||
+#13'Combine Files'#7'OnClick'#7#20'actFileLinkerExecute'#0#0#9'TMenuItem'#7
|
||||
+'miLine3'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#19'mnuFilesShwSysFiles'#6'Actio'
|
||||
+'n'#7#15'actShowSysFiles'#7'OnClick'#7#22'actShowSysFilesExecute'#0#0#9'TMen'
|
||||
+'uItem'#7'miLine4'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6'miExit'#6'Action'#7#7
|
||||
+'actExit'#7'OnClick'#7#14'actExitExecute'#0#0#0#9'TMenuItem'#7'mnuMark'#7'Ca'
|
||||
+'ption'#6#5'&Mark'#0#9'TMenuItem'#13'mnuMarkSGroup'#6'Action'#7#11'actMarkPl'
|
||||
+'us'#7'OnClick'#7#18'actMarkPlusExecute'#0#0#9'TMenuItem'#13'mnuMarkUGroup'#6
|
||||
+'Action'#7#12'actMarkMinus'#7'OnClick'#7#19'actMarkMinusExecute'#0#0#9'TMenu'
|
||||
+'Item'#11'mnuMarkSAll'#6'Action'#7#14'actMarkMarkAll'#7'OnClick'#7#21'actMar'
|
||||
+'kMarkAllExecute'#0#0#9'TMenuItem'#11'mnuMarkUAll'#6'Action'#7#16'actMarkUnm'
|
||||
+'arkAll'#7'OnClick'#7#23'actMarkUnmarkAllExecute'#0#0#9'TMenuItem'#13'mnuMar'
|
||||
+'kInvert'#6'Action'#7#13'actMarkInvert'#7'OnClick'#7#20'actMarkInvertExecute'
|
||||
+#0#0#9'TMenuItem'#7'miLine5'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#13'mnuMarkCm'
|
||||
+'pDir'#7'Caption'#6#20'&Compare Directories'#7'Enabled'#8#8'ShortCut'#3'10'#0
|
||||
+#0#0#9'TMenuItem'#6'mnuCmd'#7'Caption'#6#9'&Commands'#0#9'TMenuItem'#12'mnuC'
|
||||
+'mdSearch'#6'Action'#7#9'actSearch'#7'OnClick'#7#16'actSearchExecute'#0#0#9
|
||||
+'TMenuItem'#16'mnuCmdDirHotlist'#6'Action'#7#13'actDirHotList'#7'OnClick'#7
|
||||
+#20'actDirHotListExecute'#0#0#9'TMenuItem'#7'miLine6'#7'Caption'#6#1'-'#0#0#9
|
||||
+'TMenuItem'#9'miRunTerm'#6'Action'#7#10'actRunTerm'#7'OnClick'#7#17'actRunTe'
|
||||
+'rmExecute'#0#0#9'TMenuItem'#7'miLine9'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#22
|
||||
+'mnuCmdSwapSourceTarget'#7'Caption'#6#18'Source &<-> Target'#7'Enabled'#8#8
|
||||
+'ShortCut'#3'U@'#0#0#9'TMenuItem'#20'mnuCmdTargetIsSource'#7'Caption'#6#16'T'
|
||||
+'arget &= Source'#7'Enabled'#8#0#0#0#9'TMenuItem'#7'mnuShow'#7'Caption'#6#5
|
||||
+'&Show'#0#9'TMenuItem'#11'mnuShowName'#6'Action'#7#13'actSortByName'#7'OnCli'
|
||||
+'ck'#7#20'actSortByNameExecute'#0#0#9'TMenuItem'#16'mnuShowExtension'#6'Acti'
|
||||
+'on'#7#12'actSortByExt'#7'OnClick'#7#19'actSortByExtExecute'#0#0#9'TMenuItem'
|
||||
+#11'mnuShowSize'#6'Action'#7#13'actSortBySize'#7'OnClick'#7#20'actSortBySize'
|
||||
+'Execute'#0#0#9'TMenuItem'#11'mnuShowTime'#6'Action'#7#13'actSortByDate'#7'O'
|
||||
+'nClick'#7#20'actSortByDateExecute'#0#0#9'TMenuItem'#13'mnuShowAttrib'#6'Act'
|
||||
+'ion'#7#13'actSortByAttr'#7'OnClick'#7#20'actSortByAttrExecute'#0#0#9'TMenuI'
|
||||
+'tem'#7'miLine7'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#14'mnuShowReverse'#6'Act'
|
||||
+'ion'#7#15'actReverseOrder'#7'OnClick'#7#22'actReverseOrderExecute'#0#0#9'TM'
|
||||
+'enuItem'#13'mnuShowReread'#6'Action'#7#10'actRefresh'#7'OnClick'#7#17'actRe'
|
||||
+'freshExecute'#0#0#0#9'TMenuItem'#9'mnuConfig'#7'Caption'#6#14'C&onfiguratio'
|
||||
+'n'#0#9'TMenuItem'#16'mnuConfigOptions'#6'Action'#7#10'actOptions'#7'OnClick'
|
||||
+#7#17'actOptionsExecute'#0#0#0#9'TMenuItem'#7'mnuHelp'#7'Caption'#6#5'&Help'
|
||||
+#7'OnClick'#7#12'mnuHelpClick'#0#9'TMenuItem'#12'mnuHelpAbout'#6'Action'#7#8
|
||||
+'actAbout'#8'ShortCut'#2'p'#7'OnClick'#7#15'actAboutExecute'#0#0#0#0#11'TAct'
|
||||
+'ionList'#9'actionLst'#4'left'#3'!'#1#3'top'#2'@'#0#7'TAction'#7'actExit'#8
|
||||
+'Category'#6#4'File'#7'Caption'#6#4'Exit'#18'DisableIfNoHandler'#9#8'HelpTyp'
|
||||
+'e'#7#9'htKeyword'#9'OnExecute'#7#14'actExitExecute'#0#0#7'TAction'#7'actVie'
|
||||
+'w'#8'Category'#6#7'Classic'#7'Caption'#6#7'View F3'#18'DisableIfNoHandler'#9
|
||||
+#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#14'actViewExecute'#0#0#7'TAction'
|
||||
+#7'actEdit'#8'Category'#6#7'Classic'#7'Caption'#6#7'Edit F4'#18'DisableIfNoH'
|
||||
+'andler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#14'actEditExecute'#0#0#7
|
||||
+'TAction'#7'actCopy'#8'Category'#6#7'Classic'#7'Caption'#6#7'Copy F5'#18'Dis'
|
||||
+'ableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#14'actCopyExec'
|
||||
+'ute'#0#0#7'TAction'#9'actRename'#8'Category'#6#7'Classic'#7'Caption'#6#9'Re'
|
||||
+'name F6'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7
|
||||
,#16'actRenameExecute'#0#0#7'TAction'#10'actMakeDir'#8'Category'#6#7'Classic'
|
||||
+#7'Caption'#6#10'MakeDir F7'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyw'
|
||||
+'ord'#9'OnExecute'#7#17'actMakeDirExecute'#0#0#7'TAction'#9'actDelete'#8'Cat'
|
||||
+'egory'#6#7'Classic'#7'Caption'#6#9'Delete F8'#18'DisableIfNoHandler'#9#8'He'
|
||||
+'lpType'#7#9'htKeyword'#9'OnExecute'#7#16'actDeleteExecute'#0#0#7'TAction'#8
|
||||
+'actAbout'#8'Category'#6#4'Help'#7'Caption'#6#5'About'#18'DisableIfNoHandler'
|
||||
+#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#15'actAboutExecute'#0#0#7'TActi'
|
||||
+'on'#15'actShowSysFiles'#8'Category'#6#4'File'#7'Caption'#6#17'Show System F'
|
||||
+'iles'#7'Checked'#9#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'On'
|
||||
+'Execute'#7#22'actShowSysFilesExecute'#0#0#7'TAction'#10'actOptions'#8'Categ'
|
||||
+'ory'#6#6'Config'#7'Caption'#6#10'Options...'#18'DisableIfNoHandler'#9#8'Hel'
|
||||
+'pType'#7#9'htKeyword'#9'OnExecute'#7#17'actOptionsExecute'#0#0#7'TAction'#18
|
||||
+'actCompareContents'#8'Category'#6#4'File'#7'Caption'#6#20'Compare by &Conte'
|
||||
+'nts'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#25
|
||||
+'actCompareContentsExecute'#0#0#7'TAction'#11'actShowMenu'#8'Category'#6#7'C'
|
||||
+'lassic'#7'Caption'#6#7'Menu F9'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'ht'
|
||||
+'Keyword'#9'OnExecute'#7#18'actShowMenuExecute'#0#0#7'TAction'#10'actRefresh'
|
||||
+#8'Category'#6#4'Show'#7'Caption'#6#8'&Refresh'#18'DisableIfNoHandler'#9#8'H'
|
||||
+'elpType'#7#9'htKeyword'#9'OnExecute'#7#17'actRefreshExecute'#8'ShortCut'#3
|
||||
+'R@'#0#0#7'TAction'#9'actSearch'#8'Category'#6#8'Commands'#7'Caption'#6#7'&S'
|
||||
+'earch'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#16
|
||||
+'actSearchExecute'#8'ShortCut'#3'6P'#0#0#7'TAction'#13'actDirHotList'#8'Cate'
|
||||
+'gory'#6#8'Commands'#7'Caption'#6#18'Directory &hotlist'#18'DisableIfNoHandl'
|
||||
+'er'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#20'actDirHotListExecute'#8
|
||||
+'ShortCut'#3'D@'#0#0#7'TAction'#14'actMarkMarkAll'#8'Category'#6#4'Mark'#7'C'
|
||||
+'aption'#6#11'&Select All'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeywor'
|
||||
+'d'#9'OnExecute'#7#21'actMarkMarkAllExecute'#0#0#7'TAction'#13'actMarkInvert'
|
||||
+#8'Category'#6#4'Mark'#7'Caption'#6#17'Invert Selections'#18'DisableIfNoHand'
|
||||
+'ler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#20'actMarkInvertExecute'#0
|
||||
+#0#7'TAction'#16'actMarkUnmarkAll'#8'Category'#6#4'Mark'#7'Caption'#6#12'Uns'
|
||||
+'elect All'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'
|
||||
+#7#23'actMarkUnmarkAllExecute'#0#0#7'TAction'#10'actDelete2'#8'Category'#6#7
|
||||
+'Classic'#7'Caption'#6#10'actDelete2'#18'DisableIfNoHandler'#9#8'HelpType'#7
|
||||
+#9'htKeyword'#9'OnExecute'#7#17'actDelete2Execute'#0#0#7'TAction'#16'actPath'
|
||||
+'ToCmdLine'#7'Caption'#6#16'actPathToCmdLine'#18'DisableIfNoHandler'#9#8'Hel'
|
||||
+'pType'#7#9'htKeyword'#9'OnExecute'#7#23'actPathToCmdLineExecute'#8'ShortCut'
|
||||
+#3'P@'#0#0#7'TAction'#11'actMarkPlus'#8'Category'#6#4'Mark'#7'Caption'#6#14
|
||||
+'Select a group'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExe'
|
||||
+'cute'#7#18'actMarkPlusExecute'#0#0#7'TAction'#12'actMarkMinus'#8'Category'#6
|
||||
+#4'Mark'#7'Caption'#6#16'Unselect a group'#18'DisableIfNoHandler'#9#8'HelpTy'
|
||||
+'pe'#7#9'htKeyword'#9'OnExecute'#7#19'actMarkMinusExecute'#0#0#7'TAction'#8
|
||||
+'actChMod'#8'Category'#6#4'File'#7'Caption'#6#17'Change Attributes'#18'Disab'
|
||||
+'leIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#15'actChModExecu'
|
||||
+'te'#0#0#7'TAction'#10'actSymLink'#8'Category'#6#4'File'#7'Caption'#6#17'Cre'
|
||||
+'ate symlink...'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExe'
|
||||
+'cute'#7#17'actSymLinkExecute'#0#0#7'TAction'#11'actHardLink'#8'Category'#6#4
|
||||
+'File'#7'Caption'#6#14'Create link...'#18'DisableIfNoHandler'#9#8'HelpType'#7
|
||||
+#9'htKeyword'#9'OnExecute'#7#18'actHardLinkExecute'#0#0#7'TAction'#15'actRev'
|
||||
+'erseOrder'#8'Category'#6#4'Show'#7'Caption'#6#13'Reverse order'#18'DisableI'
|
||||
+'fNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#22'actReverseOrderE'
|
||||
+'xecute'#0#0#7'TAction'#13'actSortByName'#8'Category'#6#4'Show'#7'Caption'#6
|
||||
+#4'Name'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7
|
||||
+#20'actSortByNameExecute'#0#0#7'TAction'#12'actSortByExt'#8'Category'#6#4'Sh'
|
||||
+'ow'#7'Caption'#6#9'Extension'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKe'
|
||||
+'yword'#9'OnExecute'#7#19'actSortByExtExecute'#0#0#7'TAction'#13'actSortBySi'
|
||||
+'ze'#8'Category'#6#4'Show'#7'Caption'#6#4'Size'#18'DisableIfNoHandler'#9#8'H'
|
||||
+'elpType'#7#9'htKeyword'#9'OnExecute'#7#20'actSortBySizeExecute'#0#0#7'TActi'
|
||||
+'on'#13'actSortByDate'#8'Category'#6#4'Show'#7'Caption'#6#4'Date'#18'Disable'
|
||||
+'IfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#20'actSortByDateEx'
|
||||
+'ecute'#0#0#7'TAction'#13'actSortByAttr'#8'Category'#6#4'Show'#7'Caption'#6#6
|
||||
+'Attrib'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7
|
||||
+#20'actSortByAttrExecute'#0#0#7'TAction'#14'actMultiRename'#8'Category'#6#4
|
||||
+'File'#7'Caption'#6#17'Multi Rename Tool'#18'DisableIfNoHandler'#9#8'HelpTyp'
|
||||
+'e'#7#9'htKeyword'#9'OnExecute'#7#21'actMultiRenameExecute'#0#0#7'TAction'#10
|
||||
,'actShiftF5'#8'Category'#6#8'Commands'#7'Caption'#6#10'actShiftF5'#18'Disabl'
|
||||
+'eIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#17'actShiftF5Exec'
|
||||
+'ute'#8'ShortCut'#3'40'#0#0#7'TAction'#10'actShiftF6'#8'Category'#6#8'Comman'
|
||||
+'ds'#7'Caption'#6#10'actShiftF6'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'ht'
|
||||
+'Keyword'#9'OnExecute'#7#17'actShiftF6Execute'#8'ShortCut'#3'50'#0#0#7'TActi'
|
||||
+'on'#10'actShiftF4'#8'Category'#6#8'Commands'#7'Caption'#6#10'actShiftF4'#18
|
||||
+'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#17'actShift'
|
||||
+'F4Execute'#0#0#7'TAction'#13'actDirHistory'#8'Category'#6#8'Commands'#7'Cap'
|
||||
+'tion'#6#13'actDirHistory'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeywor'
|
||||
+'d'#9'OnExecute'#7#20'actDirHistoryExecute'#8'ShortCut'#3'H@'#0#0#7'TAction'
|
||||
+#9'actCtrlF8'#8'Category'#6#8'Commands'#7'Caption'#6#9'actCtrlF8'#18'Disable'
|
||||
+'IfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#16'actCtrlF8Execut'
|
||||
+'e'#8'ShortCut'#3'7P'#0#0#7'TAction'#10'actRunTerm'#8'Category'#6#8'Commands'
|
||||
+#7'Caption'#6#8'Run Term'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'
|
||||
+#9'OnExecute'#7#17'actRunTermExecute'#8'ShortCut'#3'T@'#0#0#7'TAction'#17'ac'
|
||||
+'tCalculateSpace'#8'Category'#6#4'File'#7'Caption'#6#28'Calculate &Occupied '
|
||||
+'Space...'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7
|
||||
+#24'actCalculateSpaceExecute'#0#0#7'TAction'#17'actFileProperties'#8'Categor'
|
||||
+'y'#6#4'File'#7'Caption'#6#20'Show File Properties'#18'DisableIfNoHandler'#9
|
||||
+#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#24'actFilePropertiesExecute'#0#0#7
|
||||
+'TAction'#8'actChown'#8'Category'#6#4'File'#7'Caption'#6#5'Chown'#18'Disable'
|
||||
+'IfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#15'actChownExecute'
|
||||
+#0#0#7'TAction'#13'actFileLinker'#8'Category'#6#4'File'#7'Caption'#6#10'Link'
|
||||
+' Files'#18'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7
|
||||
+#20'actFileLinkerExecute'#0#0#7'TAction'#14'actFileSpliter'#8'Category'#6#4
|
||||
+'File'#7'Caption'#6#10'Split File'#18'DisableIfNoHandler'#9#8'HelpType'#7#9
|
||||
+'htKeyword'#9'OnExecute'#7#21'actFileSpliterExecute'#0#0#7'TAction'#9'actNew'
|
||||
+'Tab'#8'Category'#6#4'Tabs'#7'Caption'#6#9'actNewTab'#18'DisableIfNoHandler'
|
||||
+#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#16'actNewTabExecute'#0#0#7'TAct'
|
||||
+'ion'#12'actRemoveTab'#8'Category'#6#4'Tabs'#7'Caption'#6#12'actRemoveTab'#18
|
||||
+'DisableIfNoHandler'#9#8'HelpType'#7#9'htKeyword'#9'OnExecute'#7#19'actRemov'
|
||||
+'eTabExecute'#0#0#7'TAction'#12'actPackFiles'#8'Category'#6#4'File'#7'Captio'
|
||||
+'n'#6#13'Pack files...'#18'DisableIfNoHandler'#9#9'OnExecute'#7#19'actPackFi'
|
||||
+'lesExecute'#8'ShortCut'#4't'#128#0#0#0#0#0#10'TPopupMenu'#9'pmHotList'#4'le'
|
||||
+'ft'#3#152#0#3'top'#3#136#0#0#9'TMenuItem'#9'MenuItem3'#7'Caption'#6#9'New I'
|
||||
+'tem1'#0#0#0#10'TPopupMenu'#10'pmFileList'#7'OnPopup'#7#15'pmFileListPopup'#4
|
||||
+'left'#3#216#0#3'top'#3#136#0#0#9'TMenuItem'#5'file1'#7'Caption'#6#4'file'#0
|
||||
+#0#0#10'TPopupMenu'#12'pmDirHistory'#9'AutoPopup'#8#4'left'#3#184#0#3'top'#3
|
||||
+#136#0#0#9'TMenuItem'#9'MenuItem4'#7'Caption'#6#9'New Item1'#0#0#0#10'TPopup'
|
||||
+'Menu'#9'pmToolBar'#3'Tag'#2#255#4'left'#2'x'#3'top'#3#136#0#0#9'TMenuItem'#6
|
||||
+'tbEdit'#7'Caption'#6#4'Edit'#7'OnClick'#7#11'tbEditClick'#0#0#9'TMenuItem'#8
|
||||
+'tbDelete'#7'Caption'#6#6'Delete'#7'OnClick'#7#11'DeleteClick'#0#0#0#0
|
||||
]);
|
||||
19
fMkDir.lrs
19
fMkDir.lrs
|
|
@ -1,19 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmMkDir','FORMDATA',[
|
||||
'TPF0'#241#9'TfrmMkDir'#8'frmMkDir'#4'Left'#3'4'#1#6'Height'#2'['#3'Top'#3#219
|
||||
+#0#5'Width'#3'P'#1#18'HorzScrollBar.Page'#3'O'#1#19'HorzScrollBar.Range'#3'I'
|
||||
+#1#18'VertScrollBar.Page'#2'Z'#19'VertScrollBar.Range'#2'Y'#13'ActiveControl'
|
||||
+#7#8'edtMkDir'#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsD'
|
||||
+'ialog'#7'Caption'#6#8'frmMkDir'#10'KeyPreview'#9#10'OnKeyPress'#7#12'FormKe'
|
||||
+'yPress'#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#10'lblMakeDir'#4'Left'
|
||||
+#2#8#6'Height'#2#14#3'Top'#2#8#5'Width'#2'1'#7'Caption'#6#10'lblMakeDir'#5'C'
|
||||
+'olor'#7#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#8'edtMkDir'#4'Left'#2#8#6
|
||||
+'Height'#2#24#3'Top'#2' '#5'Width'#3'A'#1#8'TabOrder'#2#0#0#0#7'TBitBtn'#5'b'
|
||||
+'tnOK'#4'Left'#3#167#0#6'Height'#2#23#3'Top'#2'@'#5'Width'#2'K'#25'BorderSpa'
|
||||
+'cing.InnerBorder'#2#2#7'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11
|
||||
+'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#7'TBitBtn'#9'btnCance'
|
||||
+'l'#4'Left'#3#255#0#6'Height'#2#23#3'Top'#2'@'#5'Width'#2'K'#25'BorderSpacin'
|
||||
+'g.InnerBorder'#2#2#6'Cancel'#9#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'
|
||||
+#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#0
|
||||
]);
|
||||
27
fMoveDlg.lrs
27
fMoveDlg.lrs
|
|
@ -1,27 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmMoveDlg','FORMDATA',[
|
||||
'TPF0'#11'TfrmMoveDlg'#10'frmMoveDlg'#13'ActiveControl'#7#5'btnOK'#7'Caption'
|
||||
+#6#10'frmMoveDlg'#12'ClientHeight'#3#147#0#11'ClientWidth'#3'Y'#1#10'KeyPrev'
|
||||
+'iew'#9#10'OnKeyPress'#7#18'frmMoveDlgKeyPress'#6'OnShow'#7#14'frmMoveDlgSho'
|
||||
+'w'#13'PixelsPerInch'#2'N'#8'Position'#7#14'poScreenCenter'#10'TextHeight'#2
|
||||
+#16#18'HorzScrollBar.Page'#3'X'#1#19'HorzScrollBar.Range'#3'Q'#1#18'VertScro'
|
||||
+'llBar.Page'#3#146#0#19'VertScrollBar.Range'#3#145#0#4'Left'#3#191#1#6'Heigh'
|
||||
+'t'#3#147#0#3'Top'#3'X'#1#5'Width'#3'Y'#1#0#6'TLabel'#10'lblMoveSrc'#7'Capti'
|
||||
+'on'#6#10'lblMoveSrc'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#8#6'H'
|
||||
+'eight'#2#13#3'Top'#2#8#5'Width'#2'A'#0#0#6'TLabel'#11'lblFileType'#7'Captio'
|
||||
+'n'#6#11'lblFileType'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#8#6'H'
|
||||
+'eight'#2#13#3'Top'#2'@'#5'Width'#2'?'#0#0#7'TBitBtn'#5'btnOK'#7'Anchors'#11
|
||||
+#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'&OK'
|
||||
+#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOr'
|
||||
+'der'#2#0#4'Left'#3#170#0#6'Height'#2#23#3'Top'#2'x'#5'Width'#2'K'#0#0#7'TBi'
|
||||
+'tBtn'#9'btnCancel'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.Inn'
|
||||
+'erBorder'#2#2#6'Cancel'#9#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'M'
|
||||
+'odalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#4'Left'#3#4#1#6'Height'#2
|
||||
+#23#3'Top'#2'x'#5'Width'#2'K'#0#0#5'TEdit'#6'edtDst'#8'TabOrder'#2#2#4'Text'
|
||||
+#6#6'edtDst'#4'Left'#2#8#6'Height'#2#24#3'Top'#2' '#5'Width'#3'I'#1#0#0#9'TC'
|
||||
+'omboBox'#11'cmbFileType'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'
|
||||
+#20'cbactSearchAscending'#0#7'Enabled'#8#10'ItemHeight'#2#18#9'MaxLength'#2#0
|
||||
+#11'ParentCtl3D'#8#8'TabOrder'#2#3#4'Left'#2#8#6'Height'#2#24#3'Top'#2'X'#5
|
||||
+'Width'#3'I'#1#0#0#0
|
||||
]);
|
||||
11
fMsg.lrs
11
fMsg.lrs
|
|
@ -1,11 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmMsg','FORMDATA',[
|
||||
'TPF0'#7'TfrmMsg'#6'frmMsg'#7'Caption'#6#6'frmMsg'#12'ClientHeight'#3#254#0#11
|
||||
+'ClientWidth'#3#170#1#10'KeyPreview'#9#8'OnCreate'#7#10'FormCreate'#10'OnKey'
|
||||
+'Press'#7#12'FormKeyPress'#6'OnShow'#7#10'frmMsgShow'#13'PixelsPerInch'#2'`'
|
||||
+#10'TextHeight'#2#16#18'HorzScrollBar.Page'#3#169#1#18'VertScrollBar.Page'#3
|
||||
+#253#0#4'Left'#3'D'#1#6'Height'#3#254#0#3'Top'#3'V'#1#5'Width'#3#170#1#0#6'T'
|
||||
+'Label'#6'lblMsg'#7'Caption'#6#6'lblMsg'#5'Color'#7#6'clNone'#11'ParentColor'
|
||||
+#8#4'Left'#2' '#6'Height'#2#14#3'Top'#2#16#5'Width'#2#30#0#0#0
|
||||
]);
|
||||
|
|
@ -1,98 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmMultiRename','FORMDATA',[
|
||||
'TPF0'#15'TfrmMultiRename'#14'frmMultiRename'#13'ActiveControl'#7#6'edName'#7
|
||||
+'Caption'#6#11'MultiRename'#12'ClientHeight'#3'b'#1#11'ClientWidth'#3'`'#2#13
|
||||
+'PixelsPerInch'#2'`'#8'Position'#7#16'poMainFormCenter'#10'TextHeight'#2#16
|
||||
+#18'HorzScrollBar.Page'#3'_'#2#19'HorzScrollBar.Range'#3'['#2#18'VertScrollB'
|
||||
+'ar.Page'#3'a'#1#19'VertScrollBar.Range'#3'Y'#1#4'Left'#3''''#1#6'Height'#3
|
||||
+'b'#1#3'Top'#3#24#2#5'Width'#3'`'#2#0#9'TGroupBox'#7'gbMaska'#7'Caption'#6#4
|
||||
+'Mask'#12'ClientHeight'#2'W'#11'ClientWidth'#3#172#0#11'ParentCtl3D'#8#8'Tab'
|
||||
+'Order'#2#0#6'Height'#2'i'#3'Top'#3#208#0#5'Width'#3#176#0#0#6'TLabel'#6'lbN'
|
||||
+'ame'#7'Caption'#6#9'File Name'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Lef'
|
||||
+'t'#2#6#6'Height'#2#14#5'Width'#2'/'#0#0#6'TLabel'#5'lbExt'#7'Caption'#6#9'E'
|
||||
+'xtension'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#14
|
||||
+#3'Top'#2')'#5'Width'#2'0'#0#0#5'TEdit'#6'edName'#8'OnChange'#7#14'cmbxFontC'
|
||||
+'hange'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#20#3'Top'#2#17#5'Width'#3#136
|
||||
+#0#0#0#5'TEdit'#5'edExt'#8'OnChange'#7#14'cmbxFontChange'#8'TabOrder'#2#2#4
|
||||
+'Left'#2#6#6'Height'#2#20#3'Top'#2'9'#5'Width'#3#136#0#3'Tag'#2#25#0#0#7'TBu'
|
||||
+'tton'#11'btnNameMenu'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'...'
|
||||
+#7'OnClick'#7#16'btnNameMenuClick'#8'TabOrder'#2#1#4'Left'#3#150#0#6'Height'
|
||||
+#2#19#3'Top'#2#17#5'Width'#2#16#0#0#7'TButton'#10'btnExtMenu'#25'BorderSpaci'
|
||||
+'ng.InnerBorder'#2#2#7'Caption'#6#3'...'#7'OnClick'#7#15'btnExtMenuClick'#8
|
||||
+'TabOrder'#2#3#4'Left'#3#150#0#6'Height'#2#20#3'Top'#2'9'#5'Width'#2#16#0#0#0
|
||||
+#9'TGroupBox'#13'gbFindReplace'#7'Caption'#6#15'Find && Replace'#12'ClientHe'
|
||||
+'ight'#2'W'#11'ClientWidth'#3#133#0#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'
|
||||
+#3#176#0#6'Height'#2'i'#3'Top'#3#208#0#5'Width'#3#137#0#0#6'TLabel'#6'lbFind'
|
||||
+#7'Caption'#6#7'Find...'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6
|
||||
+'Height'#2#14#5'Width'#2'!'#0#0#6'TLabel'#9'lbReplace'#7'Caption'#6#10'Repla'
|
||||
+'ce...'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#14#3
|
||||
+'Top'#2')'#5'Width'#2'3'#0#0#5'TEdit'#6'edFind'#8'OnChange'#7#14'cmbxFontCha'
|
||||
+'nge'#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#20#3'Top'#2#17#5'Width'#2'x'#0
|
||||
+#0#5'TEdit'#9'edReplace'#8'OnChange'#7#14'cmbxFontChange'#8'TabOrder'#2#1#4
|
||||
+'Left'#2#6#6'Height'#2#20#3'Top'#2'9'#5'Width'#2'x'#0#0#0#9'TGroupBox'#11'gb'
|
||||
+'FontStyle'#7'Caption'#6#15'File Name Style'#12'ClientHeight'#2#31#11'Client'
|
||||
+'Width'#3#133#0#11'ParentCtl3D'#8#8'TabOrder'#2#2#4'Left'#3#208#1#6'Height'#2
|
||||
+'1'#3'Top'#3#208#0#5'Width'#3#137#0#0#9'TComboBox'#8'cmbxFont'#16'AutoComple'
|
||||
+'teText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHei'
|
||||
+'ght'#2#18#9'ItemIndex'#2#0#13'Items.Strings'#1#6#9'no change'#6#9'uppercase'
|
||||
+#6#9'lowercase'#6#14'first char big'#0#9'MaxLength'#2#0#8'OnChange'#7#14'cmb'
|
||||
+'xFontChange'#11'ParentCtl3D'#8#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0
|
||||
+#4'Text'#6#9'no change'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#1#5'Width'#2'x'#0
|
||||
+#0#0#9'TGroupBox'#9'gbCounter'#7'Caption'#6#7'Counter'#12'ClientHeight'#2'W'
|
||||
+#11'ClientWidth'#3#133#0#11'ParentCtl3D'#8#8'TabOrder'#2#3#4'Left'#3'@'#1#6
|
||||
+'Height'#2'i'#3'Top'#3#208#0#5'Width'#3#137#0#0#6'TLabel'#6'lbStNb'#7'Captio'
|
||||
+'n'#6#12'Start Number'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6
|
||||
+'Height'#2#14#3'Top'#2#1#5'Width'#2'A'#0#0#6'TLabel'#10'lbInterval'#7'Captio'
|
||||
+'n'#6#8'Interval'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Heigh'
|
||||
+'t'#2#14#3'Top'#2'9'#5'Width'#2''''#0#0#6'TLabel'#7'lbWidth'#7'Caption'#6#5
|
||||
+'Width'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6'Height'#2#14#3
|
||||
+'Top'#2#28#5'Width'#2#29#0#0#5'TEdit'#5'edPoc'#9'MaxLength'#2#5#8'OnChange'#7
|
||||
+#11'edPocChange'#8'TabOrder'#2#0#4'Text'#6#1'1'#4'Left'#2'P'#6'Height'#2#20#3
|
||||
+'Top'#2#1#5'Width'#2'0'#0#0#5'TEdit'#10'edInterval'#9'MaxLength'#2#5#8'OnCha'
|
||||
+'nge'#7#16'edIntervalChange'#8'TabOrder'#2#1#4'Text'#6#1'1'#4'Left'#2'P'#6'H'
|
||||
+'eight'#2#20#3'Top'#2'6'#5'Width'#2'0'#0#0#9'TComboBox'#9'cmbxWidth'#16'Auto'
|
||||
+'CompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'I'
|
||||
+'temHeight'#2#18#9'ItemIndex'#2#0#13'Items.Strings'#1#6#2'01'#6#2'02'#6#2'03'
|
||||
+#6#2'04'#6#2'05'#6#2'06'#6#2'07'#6#2'08'#6#2'09'#6#2'10'#0#9'MaxLength'#2#0#8
|
||||
+'OnChange'#7#14'cmbxFontChange'#11'ParentCtl3D'#8#5'Style'#7#14'csDropDownLi'
|
||||
+'st'#8'TabOrder'#2#2#4'Text'#6#2'01'#4'Left'#2'P'#6'Height'#2#21#3'Top'#2#25
|
||||
+#5'Width'#2'2'#0#0#0#7'TButton'#5'btnOK'#25'BorderSpacing.InnerBorder'#2#2#7
|
||||
+'Caption'#6#2'OK'#7'OnClick'#7#10'btnOKClick'#8'TabOrder'#2#4#4'Left'#3'@'#1
|
||||
+#6'Height'#2#25#3'Top'#3'@'#1#5'Width'#2'A'#0#0#7'TButton'#9'btnCancel'#25'B'
|
||||
+'orderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8
|
||||
+'TabOrder'#2#5#4'Left'#3#136#1#6'Height'#2#25#3'Top'#3'@'#1#5'Width'#2'A'#0#0
|
||||
+#9'TGroupBox'#5'gbLog'#7'Caption'#6#10'Log Result'#12'ClientHeight'#2'@'#11
|
||||
+'ClientWidth'#3#133#0#11'ParentCtl3D'#8#8'TabOrder'#2#6#4'Left'#3#208#1#6'He'
|
||||
+'ight'#2'R'#3'Top'#3#7#1#5'Width'#3#137#0#0#5'TEdit'#6'edFile'#8'TabOrder'#2
|
||||
,#0#4'Left'#2#6#6'Height'#2#20#3'Top'#2#16#5'Width'#2'x'#0#0#9'TCheckBox'#5'c'
|
||||
+'bLog'#11'AllowGrayed'#9#7'Caption'#6#3'Log'#7'OnClick'#7#10'cbLogClick'#8'T'
|
||||
+'abOrder'#2#1#4'Left'#2#8#6'Height'#2#13#3'Top'#2'('#5'Width'#2'&'#0#0#0#7'T'
|
||||
+'Button'#10'btnRestore'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#11'Re'
|
||||
+'store All'#7'OnClick'#7#15'btnRestoreClick'#8'TabOrder'#2#7#4'Left'#2#8#6'H'
|
||||
+'eight'#2#25#3'Top'#3'>'#1#5'Width'#3#136#0#0#0#9'TListView'#8'lsvwFile'#7'C'
|
||||
+'olumns'#14#1#8'AutoSize'#9#7'Caption'#6#13'Old File Name'#5'Width'#3#190#0#0
|
||||
+#1#8'AutoSize'#9#7'Caption'#6#13'New File Name'#5'Width'#3#190#0#0#1#8'AutoS'
|
||||
+'ize'#9#7'Caption'#6#9'File Path'#5'Width'#3#190#0#0#0#8'TabOrder'#2#8#9'Vie'
|
||||
+'wStyle'#7#8'vsReport'#4'Left'#2#2#6'Height'#3#201#0#3'Top'#2#2#5'Width'#3'['
|
||||
+#2#0#0#10'TPopupMenu'#10'ppNameMenu'#9'AutoPopup'#8#7'OnPopup'#7#15'ppNameMe'
|
||||
+'nuPopup'#4'left'#3'@'#1#3'top'#3#192#0#0#9'TMenuItem'#10'miNextName'#7'Capt'
|
||||
+'ion'#6#7'Name...'#0#9'TMenuItem'#6'miName'#7'Caption'#6#6'[N]ame'#7'OnClick'
|
||||
+#7#9'NameClick'#0#0#9'TMenuItem'#7'miNameX'#7'Caption'#6#7'[Nx]ame'#7'OnClic'
|
||||
+'k'#7#10'NameXClick'#0#0#9'TMenuItem'#8'miNameXX'#7'Caption'#6#9'[Nx:x]ame'#7
|
||||
+'OnClick'#7#11'NameXXClick'#0#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9
|
||||
+'TMenuItem'#15'miNextExtension'#7'Caption'#6#12'Extension...'#0#9'TMenuItem'
|
||||
+#9'Extension'#7'Caption'#6#11'[E]xtension'#7'OnClick'#7#14'ExtensionClick'#0
|
||||
+#0#9'TMenuItem'#12'miExtensionX'#7'Caption'#6#12'[Ex]xtension'#7'OnClick'#7
|
||||
+#15'ExtensionXClick'#0#0#9'TMenuItem'#13'miExtensionXX'#7'Caption'#6#14'[Ex:'
|
||||
+'x]xtension'#7'OnClick'#7#16'ExtensionXXClick'#0#0#0#9'TMenuItem'#2'N2'#7'Ca'
|
||||
+'ption'#6#1'-'#0#0#9'TMenuItem'#9'miCounter'#7'Caption'#6#9'[C]ounter'#7'OnC'
|
||||
+'lick'#7#12'CounterClick'#0#0#9'TMenuItem'#2'N3'#7'Caption'#6#1'-'#0#0#9'TMe'
|
||||
+'nuItem'#6'miNext'#7'Caption'#6#7'Time...'#0#9'TMenuItem'#6'miYear'#7'Captio'
|
||||
+'n'#6#6'[Y]ear'#7'Enabled'#8#0#0#9'TMenuItem'#7'miMonth'#7'Caption'#6#7'[Mo]'
|
||||
+'nth'#7'Enabled'#8#0#0#9'TMenuItem'#5'miDay'#7'Caption'#6#5'[D]ay'#7'Enabled'
|
||||
+#8#0#0#9'TMenuItem'#2'N4'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6'miHour'#7'Cap'
|
||||
+'tion'#6#6'[H]our'#7'Enabled'#8#0#0#9'TMenuItem'#8'miMinute'#7'Caption'#6#8
|
||||
+'[Mi]nute'#7'Enabled'#8#0#0#9'TMenuItem'#8'miSecond'#7'Caption'#6#8'[S]econd'
|
||||
+#7'Enabled'#8#0#0#0#0#0
|
||||
]);
|
||||
171
fOptions.lrs
171
fOptions.lrs
|
|
@ -1,171 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmOptions','FORMDATA',[
|
||||
'TPF0'#241#11'TfrmOptions'#10'frmOptions'#4'Left'#3'0'#1#6'Height'#3'8'#1#3'T'
|
||||
+'op'#2'~'#5'Width'#3#200#1#18'HorzScrollBar.Page'#3#199#1#18'VertScrollBar.P'
|
||||
+'age'#3'7'#1#19'VertScrollBar.Range'#2')'#13'ActiveControl'#7#12'PageControl'
|
||||
+'1'#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderStyle'#7#8
|
||||
+'bsSingle'#7'Caption'#6#7'Options'#9'Icon.Data'#10':'#3#0#0'6'#3#0#0'BM6'#3#0
|
||||
+#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0#24#0#0#0#0#0#0#3#0#0'd'#0
|
||||
+#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#135'J '#135'J '#135'J '#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#135'J '#190#165#146
|
||||
+#184#156#134#184#156#134#135'J '#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#133#138#136#133#138#136#133#138#136#255#255#255
|
||||
+#255#255#255#135'J '#204#187#173#167#145'}'#181#149'z'#174#139'r'#135'J '#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#133#138#136#158#161
|
||||
+#160#133#138#136#255#255#255#255#255#255#135'J '#204#187#173#164#141'x'#162
|
||||
+#138't'#180#149'z'#179#147'|'#135'J '#255#255#255#255#255#255#255#255#255#133
|
||||
+#138#136#210#211#212#194#195#196#133#138#136#255#255#255#255#255#255#255#255
|
||||
+#255#135'J '#212#200#189#164#141'x'#164#141'x'#190#165#146#135'J '#255#255
|
||||
+#255#255#255#255#133#138#136#226#227#228#194#196#198#133#138#136#133#138#136
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#135'J '#204#187#173#204#187
|
||||
+#173#179#147'|'#135'J '#133#138#136#133#138#136#211#211#212#189#190#191#133
|
||||
+#138#136#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#135'J '#135'J '#135'J '#133#131'}'#170#173#173#200#201#202
|
||||
+#189#190#191#133#138#136#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#181#183#184#133#138#136#183#184#185#133#138#136#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#133
|
||||
+#138#136#133#138#136#133#138#136#133#138#136#208#209#210#163#164#164#133#138
|
||||
+#136#133#138#136#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#133#138#136#243#243#243#239#240#240#237#238#238#234
|
||||
+#236#236#182#185#186#133#138#136#255#255#255#133#138#136#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#133#138#136#245#246#246
|
||||
+#169#172#171#133#138#136#247#247#247#226#227#229#170#173#173#236#238#238#255
|
||||
+#255#255#255#255#255#133#138#136#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#133#138#136#255#255#255#255#255#255#133#138#136
|
||||
+#250#250#250#133#138#136#255#255#255#255#255#255#255#255#255#255#255#255#133
|
||||
+#138#136#135#140#138#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#133#138#136#238#240#240#133#138#136#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#255#133#138#136#240#240#240#133#138#136#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#133#138#136#233#235
|
||||
+#236#133#138#136#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#133#138#136#238#239#239#133#138#136#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#133#138#136#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#133#138#136
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
|
||||
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#8'Position'
|
||||
+#7#16'poMainFormCenter'#0#12'TPageControl'#12'PageControl1'#6'Height'#3#16#1
|
||||
+#5'Width'#3#200#1#10'ActivePage'#7#7'tsFonts'#5'Align'#7#8'alClient'#8'TabIn'
|
||||
+'dex'#2#3#8'TabOrder'#2#0#0#9'TTabSheet'#5'tsLng'#7'Caption'#6#8'Language'#0
|
||||
+#8'TListBox'#7'lngList'#6'Height'#3#242#0#5'Width'#3#196#1#5'Align'#7#8'alCl'
|
||||
+'ient'#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#0#9'TTabSheet'#7'tsBehav'#7'Cap'
|
||||
+'tion'#6#9'Behaviour'#10'ImageIndex'#2#1#0#6'TLabel'#7'lblTerm'#4'Left'#2#8#6
|
||||
+'Height'#2#14#3'Top'#2#16#5'Width'#2'-'#7'Caption'#6#9'Terminal:'#5'Color'#7
|
||||
+#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#10'lblRunTerm'#4'Left'#2#8#6'Heig'
|
||||
+'ht'#2#14#3'Top'#2'0'#5'Width'#2'A'#7'Caption'#6#13'Run terminal:'#5'Color'#7
|
||||
+#6'clNone'#11'ParentColor'#8#0#0#5'TEdit'#7'edtTerm'#4'Left'#2'`'#6'Height'#2
|
||||
+#24#3'Top'#2#8#5'Width'#3'9'#1#8'TabOrder'#2#0#4'Text'#6'%/usr/X11R6/bin/xte'
|
||||
+'rm -e bash -i -c %s'#0#0#9'TGroupBox'#2'gb'#4'Left'#2#8#6'Height'#3#148#0#3
|
||||
+'Top'#2'P'#5'Width'#3#225#0#11'ParentCtl3D'#8#8'TabOrder'#2#2#0#9'TCheckBox'
|
||||
+#11'cbDirSelect'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#253#5'Width'#2'K'#11'Al'
|
||||
+'lowGrayed'#9#7'Caption'#6#11'cbDirSelect'#8'TabOrder'#2#0#0#0#9'TCheckBox'
|
||||
+#19'cbCaseSensitiveSort'#4'Left'#2#8#6'Height'#2#13#3'Top'#2'-'#5'Width'#2'v'
|
||||
+#11'AllowGrayed'#9#7'Caption'#6#19'cbCaseSensitiveSort'#8'TabOrder'#2#1#0#0#9
|
||||
+'TCheckBox'#10'cbLynxLike'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#21#5'Width'#2
|
||||
,'J'#11'AllowGrayed'#9#7'Caption'#6#10'cbLynxLike'#8'TabOrder'#2#2#0#0#9'TChe'
|
||||
+'ckBox'#21'cbShortFileSizeFormat'#4'Left'#2#8#6'Height'#2#13#3'Top'#2'E'#5'W'
|
||||
+'idth'#2'}'#11'AllowGrayed'#9#7'Caption'#6#21'cbShortFileSizeFormat'#8'TabOr'
|
||||
+'der'#2#3#0#0#9'TCheckBox'#13'cbSeparateExt'#4'Left'#2#8#6'Height'#2#13#3'To'
|
||||
+'p'#2'e'#5'Width'#2'Z'#11'AllowGrayed'#9#7'Caption'#6#13'cbSeparateExt'#8'Ta'
|
||||
+'bOrder'#2#4#0#0#0#5'TEdit'#10'edtRunTerm'#4'Left'#2'`'#6'Height'#2#24#3'Top'
|
||||
+#2'('#5'Width'#3'9'#1#8'TabOrder'#2#1#4'Text'#6#20'/usr/X11R6/bin/xterm'#0#0
|
||||
+#0#9'TTabSheet'#7'tsTools'#7'Caption'#6#5'Tools'#10'ImageIndex'#2#2#0#9'TChe'
|
||||
+'ckBox'#11'cbExtEditor'#4'Left'#2#8#6'Height'#2#20#5'Width'#2'W'#11'AllowGra'
|
||||
+'yed'#9#7'Caption'#6#11'cbExtEditor'#7'OnClick'#7#16'cbExtEditorClick'#8'Tab'
|
||||
+'Order'#2#0#0#0#5'TEdit'#12'edtExtEditor'#4'Left'#2#24#6'Height'#2#24#3'Top'
|
||||
+#2' '#5'Width'#3'9'#1#8'TabOrder'#2#1#4'Text'#6#10'gEdit "%s"'#0#0#9'TCheckB'
|
||||
+'ox'#11'cbExtDiffer'#4'Left'#2#8#6'Height'#2#20#3'Top'#2'8'#5'Width'#2'T'#11
|
||||
+'AllowGrayed'#9#7'Caption'#6#11'cbExtDiffer'#7'OnClick'#7#16'cbExtDifferClic'
|
||||
+'k'#8'TabOrder'#2#2#0#0#5'TEdit'#12'edtExtDiffer'#4'Left'#2#24#6'Height'#2#24
|
||||
+#3'Top'#2'X'#5'Width'#3'9'#1#8'TabOrder'#2#3#4'Text'#6#18'gtk-diff "%s" "%s"'
|
||||
+#0#0#9'TCheckBox'#11'cbExtViewer'#4'Left'#2#8#6'Height'#2#20#3'Top'#2'x'#5'W'
|
||||
+'idth'#2'^'#11'AllowGrayed'#9#7'Caption'#6#11'cbExtViewer'#7'OnClick'#7#16'c'
|
||||
+'bExtViewerClick'#8'TabOrder'#2#4#0#0#5'TEdit'#12'edtExtViewer'#4'Left'#2#24
|
||||
+#6'Height'#2#24#3'Top'#3#152#0#5'Width'#3'9'#1#8'TabOrder'#2#5#4'Text'#6#10
|
||||
+'emacs "%s"'#0#0#0#9'TTabSheet'#7'tsFonts'#7'Caption'#6#5'Fonts'#10'ImageInd'
|
||||
+'ex'#2#3#0#6'TLabel'#11'lblMainFont'#6'Height'#2#14#3'Top'#2#24#5'Width'#2'.'
|
||||
+#7'Caption'#6#9'Main font'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLab'
|
||||
+'el'#13'lblEditorFont'#6'Height'#2#14#3'Top'#2'`'#5'Width'#2'4'#7'Caption'#6
|
||||
+#11'Editor font'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#13'lbl'
|
||||
+'ViewerFont'#6'Height'#2#14#3'Top'#3#168#0#5'Width'#2'8'#7'Caption'#6#11'Vie'
|
||||
+'wer font'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#9'TComboBox'#10'cbMain'
|
||||
+'Font'#4'Left'#2'N'#6'Height'#2#21#3'Top'#2#16#5'Width'#3#16#1#16'AutoComple'
|
||||
+'teText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHei'
|
||||
+'ght'#2#18#9'MaxLength'#2#0#8'OnChange'#7#16'cbMainFontChange'#11'ParentCtl3'
|
||||
+'D'#8#8'TabOrder'#2#0#0#0#9'TComboBox'#12'cbEditorFont'#4'Left'#2'N'#6'Heigh'
|
||||
+'t'#2#21#3'Top'#2'W'#5'Width'#3#16#1#16'AutoCompleteText'#11#22'cbactEndOfLi'
|
||||
+'neComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#18#9'MaxLength'#2#0
|
||||
+#8'OnChange'#7#18'cbEditorFontChange'#11'ParentCtl3D'#8#8'TabOrder'#2#1#0#0#5
|
||||
+'TEdit'#8'edtTest1'#4'Left'#2'N'#6'Height'#2#24#3'Top'#2'0'#5'Width'#3#0#1#8
|
||||
+'TabOrder'#2#2#4'Text'#6#16'Example '#207#240#238#226#229#240#234#224#0#0#5
|
||||
+'TEdit'#8'edtTest2'#4'Left'#2'N'#6'Height'#2#24#3'Top'#2'x'#5'Width'#3#1#1#8
|
||||
+'TabOrder'#2#3#4'Text'#6#16'Example '#207#240#238#226#229#240#234#224#0#0#5
|
||||
+'TEdit'#8'edtTest3'#4'Left'#2'N'#6'Height'#2#24#3'Top'#3#192#0#5'Width'#3#1#1
|
||||
+#8'TabOrder'#2#4#4'Text'#6#16'Example '#207#240#238#226#229#240#234#224#0#0#9
|
||||
+'TComboBox'#12'cbViewerFont'#4'Left'#2'N'#6'Height'#2#21#3'Top'#3#159#0#5'Wi'
|
||||
+'dth'#3#16#1#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSear'
|
||||
+'chAscending'#0#10'ItemHeight'#2#18#9'MaxLength'#2#0#8'OnChange'#7#18'cbView'
|
||||
+'erFontChange'#11'ParentCtl3D'#8#8'TabOrder'#2#5#0#0#7'TButton'#13'btnSelMai'
|
||||
+'nFnt'#4'Left'#3'h'#1#6'Height'#2#23#3'Top'#2#16#5'Width'#2#23#25'BorderSpac'
|
||||
+'ing.InnerBorder'#2#4#7'Caption'#6#3'...'#7'OnClick'#7#18'btnSelMainFntClick'
|
||||
+#8'TabOrder'#2#7#0#0#7'TButton'#13'btnSelEditFnt'#4'Left'#3'h'#1#6'Height'#2
|
||||
+#23#3'Top'#2'W'#5'Width'#2#23#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6
|
||||
+#3'...'#7'OnClick'#7#18'btnSelEditFntClick'#8'TabOrder'#2#9#0#0#7'TButton'#13
|
||||
+'btnSelViewFnt'#4'Left'#3'h'#1#6'Height'#2#23#3'Top'#3#159#0#5'Width'#2#23#25
|
||||
+'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'...'#7'OnClick'#7#18'btnSelVi'
|
||||
+'ewFntClick'#8'TabOrder'#2#11#0#0#9'TSpinEdit'#11'edtMainSize'#4'Left'#3'T'#1
|
||||
+#6'Height'#2#23#3'Top'#2'1'#5'Width'#2'D'#8'MaxValue'#2#25#8'MinValue'#2#8#8
|
||||
+'TabOrder'#2#6#5'Value'#2#14#0#0#9'TSpinEdit'#13'edtEditorSize'#4'Left'#3'T'
|
||||
+#1#6'Height'#2#23#3'Top'#2'y'#5'Width'#2'D'#8'MaxValue'#2#25#8'MinValue'#2#8
|
||||
+#8'TabOrder'#2#8#5'Value'#2#14#0#0#9'TSpinEdit'#13'edtViewerSize'#4'Left'#3
|
||||
+'T'#1#6'Height'#2#23#3'Top'#3#192#0#5'Width'#2'D'#8'MaxValue'#2#25#8'MinValu'
|
||||
+'e'#2#8#8'TabOrder'#2#10#5'Value'#2#14#0#0#0#9'TTabSheet'#7'tsColor'#7'Capti'
|
||||
+'on'#6#5'Color'#0#6'TLabel'#10'cTextLabel'#4'Left'#2#25#6'Height'#2#13#3'Top'
|
||||
+#2#31#5'Width'#2#24#7'Caption'#6#4'Text'#5'Color'#7#6'clNone'#11'ParentColor'
|
||||
+#8#0#0#6'TLabel'#14'cBackGrndLabel'#4'Left'#2#23#6'Height'#2#13#3'Top'#2':'#5
|
||||
+'Width'#2'F'#7'Caption'#6#10'BackGround'#5'Color'#7#6'clNone'#11'ParentColor'
|
||||
+#8#0#0#9'TColorBox'#10'cTextColor'#4'Left'#2'l'#6'Height'#2#24#3'Top'#2#26#5
|
||||
+'Width'#2'd'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSear'
|
||||
,'chAscending'#0#13'Items.Strings'#1#6#7'clBlack'#6#8'clMaroon'#6#7'clGreen'#6
|
||||
+#7'clOlive'#6#6'clNavy'#6#8'clPurple'#6#6'clTeal'#6#6'clGray'#6#8'clSilver'#6
|
||||
+#5'clRed'#6#6'clLime'#6#8'clYellow'#6#6'clBlue'#6#9'clFuchsia'#6#6'clAqua'#6
|
||||
+#8'clSilver'#6#6'clGray'#6#7'clWhite'#6#7'clCream'#6#6'clNone'#6#9'clDefault'
|
||||
+#0#9'MaxLength'#2#0#8'TabOrder'#2#0#0#0#9'TColorBox'#14'cbackgrndcolor'#4'Le'
|
||||
+'ft'#2'l'#6'Height'#2#24#3'Top'#2'5'#5'Width'#2'd'#16'AutoCompleteText'#11#22
|
||||
+'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#13'Items.Strings'#1#6#7
|
||||
+'clBlack'#6#8'clMaroon'#6#7'clGreen'#6#7'clOlive'#6#6'clNavy'#6#8'clPurple'#6
|
||||
+#6'clTeal'#6#6'clGray'#6#8'clSilver'#6#5'clRed'#6#6'clLime'#6#8'clYellow'#6#6
|
||||
+'clBlue'#6#9'clFuchsia'#6#6'clAqua'#6#8'clSilver'#6#6'clGray'#6#7'clWhite'#6
|
||||
+#7'clCream'#6#6'clNone'#6#9'clDefault'#0#9'MaxLength'#2#0#8'TabOrder'#2#1#0#0
|
||||
+#7'TButton'#7'Button1'#4'Left'#3#209#0#6'Height'#2#25#3'Top'#2#26#5'Width'#2
|
||||
+#27#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#2'>>'#7'OnClick'#7#12'But'
|
||||
+'ton1Click'#8'TabOrder'#2#2#0#0#7'TButton'#7'Button2'#4'Left'#3#208#0#6'Heig'
|
||||
+'ht'#2#25#3'Top'#2'5'#5'Width'#2#28#25'BorderSpacing.InnerBorder'#2#4#7'Capt'
|
||||
+'ion'#6#2'>>'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#3#0#0#0#9'TTabShee'
|
||||
+'t'#8'tfHotKey'#7'Caption'#6#8'Hot Keys'#0#6'TLabel'#10'lblActions'#4'Left'#2
|
||||
+#14#6'Height'#2#14#3'Top'#2#4#5'Width'#2'$'#7'Caption'#6#7'Actions'#5'Color'
|
||||
+#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#9'lblHotKey'#4'Left'#2#14#6'Hei'
|
||||
+'ght'#2#14#3'Top'#2'4'#5'Width'#2''''#7'Caption'#6#7'Hot Key'#5'Color'#7#6'c'
|
||||
+'lNone'#11'ParentColor'#8#0#0#9'TComboBox'#9'cbActions'#4'Left'#2#14#6'Heigh'
|
||||
+'t'#2#21#3'Top'#2#20#5'Width'#3'('#1#16'AutoCompleteText'#11#22'cbactEndOfLi'
|
||||
+'neComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#6'Sorted'#9#5'Style'
|
||||
+#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#5'TEdit'#8'edHotKey'#4'Left'#2#14#6
|
||||
+'Height'#2#23#3'Top'#2'D'#5'Width'#3#160#0#9'OnKeyDown'#7#15'edHotKeyKeyDown'
|
||||
+#8'TabOrder'#2#1#0#0#7'TButton'#11'btSetHotKey'#4'Left'#3#182#0#6'Height'#2
|
||||
+#25#3'Top'#2'B'#5'Width'#3#128#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
|
||||
+#6#10'Set HotKey'#7'OnClick'#7#16'btSetHotKeyClick'#8'TabOrder'#2#2#0#0#0#0#6
|
||||
+'TPanel'#6'Panel1'#6'Height'#2'('#3'Top'#3#16#1#5'Width'#3#200#1#5'Align'#7#8
|
||||
+'alBottom'#11'FullRepaint'#8#8'TabOrder'#2#1#0#7'TBitBtn'#5'btnOK'#4'Left'#3
|
||||
+#24#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#25'BorderSpacing.InnerBorder'#2
|
||||
+#2#7'Caption'#6#3'&OK'#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0
|
||||
+#7'OnClick'#7#10'btnOKClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#9'btnCancel'#4'L'
|
||||
+'eft'#3'p'#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#25'BorderSpacing.InnerB'
|
||||
+'order'#2#2#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2
|
||||
+#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#0#11'TFontDialog'#6'dlgFnt'#5'Title'#6
|
||||
+#13#194#251#225#240#224#242#252' '#248#240#232#244#242#4'left'#3#224#0#3'top'
|
||||
+#2#16#0#0#12'TColorDialog'#14'optColorDialog'#5'Title'#6#12#194#251#225#240
|
||||
+#224#242#252' '#246#226#229#242#4'left'#3#224#0#3'top'#2'1'#0#0#0
|
||||
]);
|
||||
|
|
@ -1,43 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmSplitter','FORMDATA',[
|
||||
'TPF0'#12'TfrmSplitter'#11'frmSplitter'#13'ActiveControl'#7#12'edFileSource'
|
||||
+#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderStyle'#7#8'bs'
|
||||
+'Single'#7'Caption'#6#8'Splitter'#12'ClientHeight'#3#244#0#11'ClientWidth'#3
|
||||
+'s'#1#13'PixelsPerInch'#2'`'#10'TextHeight'#2#16#18'HorzScrollBar.Page'#3'r'
|
||||
+#1#19'HorzScrollBar.Range'#3'q'#1#18'VertScrollBar.Page'#3#243#0#19'VertScro'
|
||||
+'llBar.Range'#3#227#0#4'Left'#3'+'#1#6'Height'#3#244#0#3'Top'#3#230#0#5'Widt'
|
||||
+'h'#3's'#1#0#12'TProgressBar'#9'prgbrDoIt'#3'Max'#2'd'#8'TabOrder'#2#5#6'Hei'
|
||||
+'ght'#2#27#3'Top'#3#213#0#5'Width'#3'q'#1#0#0#9'TGroupBox'#8'grbxFile'#7'Cap'
|
||||
+'tion'#6#9'File name'#12'ClientHeight'#2'w'#11'ClientWidth'#3#181#0#11'Paren'
|
||||
+'tCtl3D'#8#8'TabOrder'#2#0#6'Height'#3#137#0#5'Width'#3#185#0#0#6'TLabel'#12
|
||||
+'lbFileSource'#7'Caption'#6#11'File source'#5'Color'#7#6'clNone'#11'ParentCo'
|
||||
+'lor'#8#4'Left'#2#6#6'Height'#2#14#3'Top'#2#9#5'Width'#2'4'#0#0#6'TLabel'#11
|
||||
+'lbDirTarget'#7'Caption'#6#16'Directory target'#5'Color'#7#6'clNone'#11'Pare'
|
||||
+'ntColor'#8#4'Left'#2#6#6'Height'#2#14#3'Top'#2'A'#5'Width'#2'N'#0#0#5'TEdit'
|
||||
+#12'edFileSource'#8'ReadOnly'#9#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#23#3
|
||||
+'Top'#2'!'#5'Width'#3#144#0#0#0#5'TEdit'#11'edDirTarget'#8'TabOrder'#2#1#4'L'
|
||||
+'eft'#2#6#6'Height'#2#23#3'Top'#2'Y'#5'Width'#3#144#0#0#0#7'TButton'#11'btnF'
|
||||
+'TChoice'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'...'#7'OnClick'#7
|
||||
+#16'btnFTChoiceClick'#8'TabOrder'#2#2#4'Left'#3#158#0#6'Height'#2#23#3'Top'#2
|
||||
+'Y'#5'Width'#2#19#0#0#0#9'TGroupBox'#8'grbxSize'#7'Caption'#6#9'File size'#12
|
||||
+'ClientHeight'#2'/'#11'ClientWidth'#3#181#0#11'ParentCtl3D'#8#8'TabOrder'#2#1
|
||||
+#6'Height'#2'A'#3'Top'#3#144#0#5'Width'#3#185#0#0#9'TComboBox'#8'cmbxSize'#16
|
||||
+'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0
|
||||
+#10'ItemHeight'#2#18#9'ItemIndex'#2#0#13'Items.Strings'#1#6#15'1457664B - 3.'
|
||||
+'5"'#6#19'98078KB - ZIP 100MB'#6#16'650MB - CD 650MB'#6#16'700MB - CD 700MB'
|
||||
+#0#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Text'#6#15'1457664B '
|
||||
+'- 3.5"'#4'Left'#2#6#6'Height'#2#21#3'Top'#2#9#5'Width'#3#168#0#0#0#0#9'TGro'
|
||||
+'upBox'#9'grbxWatch'#7'Caption'#6#10'Watchtower'#12'ClientHeight'#3#159#0#11
|
||||
+'ClientWidth'#3#173#0#11'ParentCtl3D'#8#8'TabOrder'#2#2#4'Left'#3#192#0#6'He'
|
||||
+'ight'#3#177#0#5'Width'#3#177#0#0#5'TMemo'#8'memWatch'#5'Color'#7#7'clBlack'
|
||||
+#10'Font.Color'#7#8'clYellow'#11'Font.Height'#2#11#9'Font.Name'#6#12'MS Shel'
|
||||
+'l Dlg'#10'Font.Pitch'#7#10'fpVariable'#8'ReadOnly'#9#10'ScrollBars'#7#10'ss'
|
||||
+'AutoBoth'#8'TabOrder'#2#0#7'TabStop'#8#8'WordWrap'#8#4'Left'#2#6#6'Height'#3
|
||||
+#138#0#3'Top'#2#9#5'Width'#3#161#0#0#0#0#7'TButton'#5'btnOK'#25'BorderSpacin'
|
||||
+'g.InnerBorder'#2#2#7'Caption'#6#2'OK'#7'OnClick'#7#10'btnOKClick'#8'TabOrde'
|
||||
+'r'#2#3#4'Left'#3#192#0#6'Height'#2#25#3'Top'#3#184#0#5'Width'#2'K'#0#0#7'TB'
|
||||
+'utton'#9'btnCancel'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#4'Exit'
|
||||
+#11'ModalResult'#2#2#8'TabOrder'#2#4#4'Left'#3' '#1#6'Height'#2#25#3'Top'#3
|
||||
+#184#0#5'Width'#2'K'#0#0#0
|
||||
]);
|
||||
23
fSymLink.lrs
23
fSymLink.lrs
|
|
@ -1,23 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmSymLink','FORMDATA',[
|
||||
'TPF0'#11'TfrmSymLink'#10'frmSymLink'#13'ActiveControl'#7#5'btnOK'#7'Caption'
|
||||
+#6#10'frmSymLink'#12'ClientHeight'#3#138#0#11'ClientWidth'#3'c'#1#10'KeyPrev'
|
||||
+'iew'#9#10'OnKeyPress'#7#18'frmSymLinkKeyPress'#13'PixelsPerInch'#2'`'#8'Pos'
|
||||
+'ition'#7#14'poScreenCenter'#10'TextHeight'#2#16#18'HorzScrollBar.Page'#3'b'
|
||||
+#1#19'HorzScrollBar.Range'#3'X'#1#21'HorzScrollBar.Visible'#9#18'VertScrollB'
|
||||
+'ar.Page'#3#137#0#19'VertScrollBar.Range'#2'w'#21'VertScrollBar.Visible'#9#4
|
||||
+'Left'#3'#'#1#6'Height'#3#138#0#3'Top'#3#233#0#5'Width'#3'c'#1#0#6'TLabel'#6
|
||||
+'lblNew'#7'Caption'#6#6'lblNew'#5'Color'#7#6'clNone'#11'ParentColor'#8#6'Hei'
|
||||
+'ght'#2#14#5'Width'#2' '#0#0#6'TLabel'#6'lblDst'#7'Caption'#6#6'lblDst'#5'Co'
|
||||
+'lor'#7#6'clNone'#11'ParentColor'#8#6'Height'#2#14#3'Top'#2'('#5'Width'#2#27
|
||||
+#0#0#5'TEdit'#6'edtNew'#8'TabOrder'#2#1#6'Height'#2#23#3'Top'#2#16#5'Width'#3
|
||||
+'X'#1#0#0#5'TEdit'#6'edtDst'#8'TabOrder'#2#3#6'Height'#2#23#3'Top'#2'@'#5'Wi'
|
||||
+'dth'#3'X'#1#0#0#7'TBitBtn'#5'btnOK'#25'BorderSpacing.InnerBorder'#2#2#7'Cap'
|
||||
+'tion'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyp'
|
||||
+'hs'#2#0#7'OnClick'#7#10'btnOKClick'#8'TabOrder'#2#0#4'Left'#3#176#0#6'Heigh'
|
||||
+'t'#2#23#3'Top'#2'`'#5'Width'#2'X'#0#0#7'TBitBtn'#9'btnCancel'#25'BorderSpac'
|
||||
+'ing.InnerBorder'#2#2#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalR'
|
||||
+'esult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#2#4'Left'#3#13#1#6'Height'#2#23#3
|
||||
+'Top'#2'`'#5'Width'#2'K'#0#0#0
|
||||
]);
|
||||
70
fViewer.lrs
70
fViewer.lrs
|
|
@ -1,70 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmViewer','FORMDATA',[
|
||||
'TPF0'#241#10'TfrmViewer'#9'frmViewer'#4'Left'#3']'#1#6'Height'#3#17#1#3'Top'
|
||||
+#3#31#1#5'Width'#3'@'#1#18'HorzScrollBar.Page'#3'?'#1#18'VertScrollBar.Page'
|
||||
+#3#252#0#19'VertScrollBar.Range'#2#19#13'ActiveControl'#7#13'ScrollBarVert'#7
|
||||
+'Caption'#6#9'frmViewer'#10'KeyPreview'#9#4'Menu'#7#8'MainMenu'#7'OnClose'#7
|
||||
+#14'frmViewerClose'#9'OnDestroy'#7#11'FormDestroy'#9'OnKeyDown'#7#16'frmView'
|
||||
+'erKeyDown'#10'OnKeyPress'#7#12'FormKeyPress'#7'OnKeyUp'#7#14'frmViewerKeyUp'
|
||||
+#8'Position'#7#9'poDefault'#0#10'TStatusBar'#6'Status'#6'Height'#2#23#3'Top'
|
||||
+#3#230#0#5'Width'#3'@'#1#6'Panels'#14#1#5'Width'#3#200#0#0#1#5'Width'#2'F'#0
|
||||
+#1#5'Width'#3#150#0#0#1#5'Width'#2'2'#0#0#11'SimplePanel'#8#0#0#9'TNotebook'
|
||||
+#7'nbPages'#6'Height'#3#230#0#5'Width'#3'@'#1#5'Align'#7#8'alClient'#9'PageI'
|
||||
+'ndex'#2#0#8'ShowTabs'#8#0#5'TPage'#6'pgText'#7'Caption'#6#6'pgText'#0#10'TS'
|
||||
+'crollBar'#13'ScrollBarVert'#4'Left'#3')'#1#6'Height'#3#222#0#5'Width'#2#15#5
|
||||
+'Align'#7#7'alRight'#7'Anchors'#11#5'akTop'#7'akRight'#0#4'Kind'#7#10'sbVert'
|
||||
+'ical'#3'Max'#3#232#3#8'PageSize'#2#1#11'ParentCtl3D'#8#8'Position'#2'2'#8'T'
|
||||
+'abOrder'#2#0#8'OnScroll'#7#19'ScrollBarVertScroll'#0#0#14'TViewerControl'#13
|
||||
+'ViewerControl'#6'Cursor'#7#7'crIBeam'#6'Height'#3#222#0#5'Width'#3')'#1#11
|
||||
+'Font.Height'#2#242#9'Font.Name'#6#5'fixed'#10'Font.Pitch'#7#7'fpFixed'#5'Al'
|
||||
+'ign'#7#8'alClient'#16'OnMouseWheelDown'#7#27'ViewerControlMouseWheelDown'#14
|
||||
+'OnMouseWheelUp'#7#25'ViewerControlMouseWheelUp'#0#0#0#5'TPage'#7'pgImage'#7
|
||||
+'Caption'#6#7'pgImage'#0#10'TScrollBox'#9'ScrollBox'#6'Height'#3#212#1#5'Wid'
|
||||
+'th'#3#20#3#18'HorzScrollBar.Page'#3#19#3#18'VertScrollBar.Page'#3#211#1#5'A'
|
||||
+'lign'#7#8'alClient'#11'ParentCtl3D'#8#8'TabOrder'#2#0#7'TabStop'#9#0#6'TIma'
|
||||
+'ge'#5'Image'#6'Height'#3#212#1#5'Width'#3#20#3#5'Align'#7#8'alClient'#0#0#0
|
||||
+#0#0#9'TMainMenu'#8'MainMenu'#4'left'#2'X'#3'top'#2#8#0#9'TMenuItem'#6'miFil'
|
||||
+'e'#7'Caption'#6#5'&File'#0#9'TMenuItem'#6'miPrev'#7'Caption'#6#9'&Previous'
|
||||
+#8'ShortCut'#2'P'#7'OnClick'#7#11'miPrevClick'#0#0#9'TMenuItem'#6'miNext'#7
|
||||
+'Caption'#6#5'&Next'#8'ShortCut'#2'N'#7'OnClick'#7#11'miNextClick'#0#0#9'TMe'
|
||||
+'nuItem'#11'miSeparator'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#9'miSavePos'#7'C'
|
||||
+'aption'#6#14'&Save Position'#7'OnClick'#7#14'miSavePosClick'#0#0#9'TMenuIte'
|
||||
+'m'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#6'miExit'#7'Caption'#6#5'E&xit'
|
||||
+#7'OnClick'#7#11'miExitClick'#0#0#0#9'TMenuItem'#6'miEdit'#7'Caption'#6#5'&E'
|
||||
+'dit'#0#9'TMenuItem'#17'miCopyToClipboard'#7'Caption'#6#17'Copy To Clipboard'
|
||||
+#7'OnClick'#7#22'miCopyToClipboardClick'#0#0#9'TMenuItem'#11'miSelectAll'#7
|
||||
+'Caption'#6#10'Select All'#7'OnClick'#7#16'miSelectAllClick'#0#0#0#9'TMenuIt'
|
||||
+'em'#6'miView'#7'Caption'#6#5'&View'#0#9'TMenuItem'#6'miText'#7'Caption'#6#4
|
||||
+'Text'#7'OnClick'#7#11'miTextClick'#0#0#9'TMenuItem'#5'miBin'#7'Caption'#6#3
|
||||
+'Bin'#7'OnClick'#7#10'miBinClick'#0#0#9'TMenuItem'#5'miHex'#7'Caption'#6#3'H'
|
||||
+'ex'#7'OnClick'#7#10'miHexClick'#0#0#9'TMenuItem'#10'miWrapText'#7'Caption'#6
|
||||
+#9'Wrap Text'#7'OnClick'#7#15'miWrapTextClick'#0#0#9'TMenuItem'#6'miDiv2'#7
|
||||
+'Caption'#6#1'-'#0#0#9'TMenuItem'#10'miGraphics'#7'Caption'#6#8'Graphics'#8
|
||||
+'ShortCut'#2'6'#7'OnClick'#7#15'miGraphicsClick'#0#0#9'TMenuItem'#6'miDiv1'#7
|
||||
+'Caption'#6#1'-'#0#0#9'TMenuItem'#8'miSearch'#7'Caption'#6#6'Search'#8'Short'
|
||||
+'Cut'#2'r'#7'OnClick'#7#13'miSearchClick'#0#0#0#9'TMenuItem'#7'miImage'#7'Ca'
|
||||
+'ption'#6#6'&Image'#0#9'TMenuItem'#9'miStretch'#7'Caption'#6#7'Stretch'#7'On'
|
||||
+'Click'#7#14'miStretchClick'#0#0#0#9'TMenuItem'#7'miAbout'#7'Caption'#6#5'Ab'
|
||||
+'out'#0#9'TMenuItem'#8'miAbout2'#7'Caption'#6#6'About '#7'OnClick'#7#13'miAb'
|
||||
+'out2Click'#0#0#0#0#0
|
||||
]);
|
||||
|
||||
LazarusResources.Add('TfrmFindView','FORMDATA',[
|
||||
'TPF0'#12'TfrmFindView'#11'frmFindView'#13'ActiveControl'#7#12'cbDataToFind'#7
|
||||
+'Caption'#6#11'frmFindView'#12'ClientHeight'#2'^'#11'ClientWidth'#3'S'#1#6'O'
|
||||
+'nShow'#7#8'FormShow'#8'Position'#7#17'poOwnerFormCenter'#10'TextHeight'#2#16
|
||||
+#18'HorzScrollBar.Page'#3'T'#1#19'HorzScrollBar.Range'#3'K'#1#18'VertScrollB'
|
||||
+'ar.Page'#2'_'#19'VertScrollBar.Range'#2'V'#4'Left'#3#192#1#6'Height'#2'^'#3
|
||||
+'Top'#3'_'#1#5'Width'#3'S'#1#0#9'TComboBox'#12'cbDataToFind'#10'ItemHeight'#2
|
||||
+#18#9'MaxLength'#2#0#7'OnKeyUp'#7#17'cbDataToFindKeyUp'#11'ParentCtl3D'#8#8
|
||||
+'TabOrder'#2#0#4'Left'#2#16#6'Height'#2#23#3'Top'#2#16#5'Width'#3'8'#1#0#0#7
|
||||
+'TBitBtn'#7'btnFind'#7'Default'#9#7'OnClick'#7#12'btnFindClick'#7'Default'#9
|
||||
+#7'Caption'#6#4'Find'#8'TabOrder'#2#1#7'OnClick'#7#12'btnFindClick'#4'Left'#3
|
||||
+#176#0#6'Height'#2#25#3'Top'#2'8'#5'Width'#2'K'#0#0#7'TBitBtn'#8'btnClose'#4
|
||||
+'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#11'ModalResult'#2#2#7'Caption'#6#6
|
||||
+'Cancel'#8'TabOrder'#2#2#4'Left'#3#0#1#6'Height'#2#25#3'Top'#2'8'#5'Width'#2
|
||||
+'K'#0#0#9'TCheckBox'#10'cbCaseSens'#11'AllowGrayed'#9#8'AutoSize'#9#7'Captio'
|
||||
+'n'#6#10'cbCaseSens'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#3#4'Left'#2
|
||||
+#16#6'Height'#2#30#3'Top'#2'8'#5'Width'#3#153#0#0#0#0
|
||||
]);
|
||||
519
fattrib.lfm
519
fattrib.lfm
|
|
@ -1,264 +1,255 @@
|
|||
object frmAttrib: TfrmAttrib
|
||||
ActiveControl = cbReadOwner
|
||||
Caption = 'frmAttrib'
|
||||
ClientHeight = 272
|
||||
ClientWidth = 335
|
||||
HorzScrollBar.Page = 336
|
||||
HorzScrollBar.Range = 323
|
||||
VertScrollBar.Page = 273
|
||||
VertScrollBar.Range = 257
|
||||
Left = 391
|
||||
Height = 272
|
||||
Top = 258
|
||||
Width = 335
|
||||
object lblFileName: TLabel
|
||||
Caption = 'lblFileName'
|
||||
Font.Color = clBlack
|
||||
Font.Height = 13
|
||||
Font.Name = 'Helvetica'
|
||||
Font.Pitch = fpVariable
|
||||
Font.Style = [fsBold]
|
||||
Left = 104
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 219
|
||||
end
|
||||
object cbReadOwner: TCheckBox
|
||||
AllowGrayed = True
|
||||
AutoSize = True
|
||||
DragCursor = 65524
|
||||
TabOrder = 0
|
||||
Left = 112
|
||||
Height = 30
|
||||
Top = 48
|
||||
Width = 25
|
||||
end
|
||||
object cbWriteOwner: TCheckBox
|
||||
AllowGrayed = True
|
||||
AutoSize = True
|
||||
DragCursor = 65524
|
||||
TabOrder = 1
|
||||
Left = 184
|
||||
Height = 30
|
||||
Top = 48
|
||||
Width = 25
|
||||
end
|
||||
object cbExecOwner: TCheckBox
|
||||
AllowGrayed = True
|
||||
AutoSize = True
|
||||
DragCursor = 65524
|
||||
TabOrder = 2
|
||||
Left = 256
|
||||
Height = 30
|
||||
Top = 48
|
||||
Width = 25
|
||||
end
|
||||
object lblOwner: TLabel
|
||||
Caption = 'Owner'
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 54
|
||||
Width = 88
|
||||
end
|
||||
object lblGroup: TLabel
|
||||
Caption = 'Group'
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 94
|
||||
Width = 88
|
||||
end
|
||||
object cbReadGroup: TCheckBox
|
||||
AllowGrayed = True
|
||||
AutoSize = True
|
||||
DragCursor = 65524
|
||||
TabOrder = 3
|
||||
Left = 112
|
||||
Height = 30
|
||||
Top = 88
|
||||
Width = 25
|
||||
end
|
||||
object cbWriteGroup: TCheckBox
|
||||
AllowGrayed = True
|
||||
AutoSize = True
|
||||
DragCursor = 65524
|
||||
TabOrder = 4
|
||||
Left = 184
|
||||
Height = 30
|
||||
Top = 88
|
||||
Width = 25
|
||||
end
|
||||
object cbExecGroup: TCheckBox
|
||||
AllowGrayed = True
|
||||
AutoSize = True
|
||||
DragCursor = 65524
|
||||
TabOrder = 5
|
||||
Left = 256
|
||||
Height = 30
|
||||
Top = 88
|
||||
Width = 25
|
||||
end
|
||||
object lblOther: TLabel
|
||||
Caption = 'Other'
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 134
|
||||
Width = 82
|
||||
end
|
||||
object cbReadOther: TCheckBox
|
||||
AllowGrayed = True
|
||||
AutoSize = True
|
||||
DragCursor = 65524
|
||||
TabOrder = 6
|
||||
Left = 112
|
||||
Height = 30
|
||||
Top = 128
|
||||
Width = 25
|
||||
end
|
||||
object cbWriteOther: TCheckBox
|
||||
AllowGrayed = True
|
||||
AutoSize = True
|
||||
DragCursor = 65524
|
||||
TabOrder = 7
|
||||
Left = 184
|
||||
Height = 30
|
||||
Top = 128
|
||||
Width = 25
|
||||
end
|
||||
object cbExecOther: TCheckBox
|
||||
AllowGrayed = True
|
||||
AutoSize = True
|
||||
DragCursor = 65524
|
||||
TabOrder = 8
|
||||
Left = 256
|
||||
Height = 30
|
||||
Top = 128
|
||||
Width = 25
|
||||
end
|
||||
object lblRead: TLabel
|
||||
Caption = 'Read'
|
||||
Left = 104
|
||||
Height = 15
|
||||
Top = 32
|
||||
Width = 72
|
||||
end
|
||||
object lblWrite: TLabel
|
||||
Caption = 'Write'
|
||||
Left = 176
|
||||
Height = 15
|
||||
Top = 32
|
||||
Width = 63
|
||||
end
|
||||
object lblExec: TLabel
|
||||
Caption = 'Execute'
|
||||
Left = 240
|
||||
Height = 15
|
||||
Top = 32
|
||||
Width = 83
|
||||
end
|
||||
object btnOK: TBitBtn
|
||||
Default = True
|
||||
Kind = bkOK
|
||||
ModalResult = 1
|
||||
OnClick = btnOKClick
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
Caption = '&OK'
|
||||
TabOrder = 9
|
||||
OnClick = btnOKClick
|
||||
Left = 8
|
||||
Height = 25
|
||||
Top = 232
|
||||
Width = 75
|
||||
end
|
||||
object btnAll: TBitBtn
|
||||
OnClick = btnAllClick
|
||||
Caption = '&All'
|
||||
TabOrder = 10
|
||||
OnClick = btnAllClick
|
||||
Left = 88
|
||||
Height = 25
|
||||
Top = 232
|
||||
Width = 75
|
||||
end
|
||||
object btnSkip: TBitBtn
|
||||
OnClick = btnSkipClick
|
||||
Caption = 'Skip'
|
||||
TabOrder = 11
|
||||
OnClick = btnSkipClick
|
||||
Left = 168
|
||||
Height = 25
|
||||
Top = 232
|
||||
Width = 75
|
||||
end
|
||||
object btnCancel: TBitBtn
|
||||
Kind = bkCancel
|
||||
ModalResult = 2
|
||||
ModalResult = 2
|
||||
Caption = 'Cancel'
|
||||
TabOrder = 12
|
||||
Left = 248
|
||||
Height = 25
|
||||
Top = 232
|
||||
Width = 75
|
||||
end
|
||||
object lblTextAttr: TLabel
|
||||
AutoSize = True
|
||||
Caption = 'Representation in text:'
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 200
|
||||
Width = 144
|
||||
end
|
||||
object lblAttr: TLabel
|
||||
Caption = 'lblAttr'
|
||||
Font.Color = clBlack
|
||||
Font.Height = 13
|
||||
Font.Name = 'adobe-helvetica'
|
||||
Font.Pitch = fpVariable
|
||||
Font.Style = [fsBold]
|
||||
Left = 162
|
||||
Height = 16
|
||||
Top = 200
|
||||
Width = 151
|
||||
end
|
||||
object cbSuid: TCheckBox
|
||||
AllowGrayed = True
|
||||
AutoSize = True
|
||||
Caption = 'SUID'
|
||||
DragCursor = 65524
|
||||
TabOrder = 13
|
||||
Left = 112
|
||||
Height = 30
|
||||
Top = 168
|
||||
Width = 69
|
||||
end
|
||||
object cbSgid: TCheckBox
|
||||
AllowGrayed = True
|
||||
AutoSize = True
|
||||
Caption = 'SGID'
|
||||
DragCursor = 65524
|
||||
TabOrder = 14
|
||||
Left = 184
|
||||
Height = 30
|
||||
Top = 168
|
||||
Width = 59
|
||||
end
|
||||
object cbSticky: TCheckBox
|
||||
AllowGrayed = True
|
||||
AutoSize = True
|
||||
Caption = 'Sticky'
|
||||
DragCursor = 65524
|
||||
TabOrder = 15
|
||||
Left = 248
|
||||
Height = 30
|
||||
Top = 168
|
||||
Width = 65
|
||||
end
|
||||
object lblFile: TLabel
|
||||
Caption = 'Filename'
|
||||
Left = 8
|
||||
Height = 17
|
||||
Top = 6
|
||||
Width = 81
|
||||
end
|
||||
end
|
||||
inherited frmAttrib: TfrmAttrib
|
||||
Left = 391
|
||||
Height = 272
|
||||
Top = 258
|
||||
Width = 335
|
||||
HorzScrollBar.Page = 334
|
||||
HorzScrollBar.Range = 323
|
||||
VertScrollBar.Page = 271
|
||||
VertScrollBar.Range = 257
|
||||
ActiveControl = cbReadOwner
|
||||
Caption = 'frmAttrib'
|
||||
object lblFileName: TLabel
|
||||
Left = 104
|
||||
Height = 13
|
||||
Top = 8
|
||||
Width = 59
|
||||
Caption = 'lblFileName'
|
||||
Color = clNone
|
||||
Font.Color = clBlack
|
||||
Font.Height = 13
|
||||
Font.Name = 'Helvetica'
|
||||
Font.Pitch = fpVariable
|
||||
Font.Style = [fsBold]
|
||||
ParentColor = False
|
||||
end
|
||||
object lblOwner: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 54
|
||||
Width = 33
|
||||
Caption = 'Owner'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblGroup: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 94
|
||||
Width = 30
|
||||
Caption = 'Group'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblOther: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 134
|
||||
Width = 29
|
||||
Caption = 'Other'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblRead: TLabel
|
||||
Left = 104
|
||||
Height = 14
|
||||
Top = 32
|
||||
Width = 26
|
||||
Caption = 'Read'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblWrite: TLabel
|
||||
Left = 176
|
||||
Height = 14
|
||||
Top = 32
|
||||
Width = 27
|
||||
Caption = 'Write'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblExec: TLabel
|
||||
Left = 240
|
||||
Height = 14
|
||||
Top = 32
|
||||
Width = 40
|
||||
Caption = 'Execute'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblTextAttr: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 200
|
||||
Width = 113
|
||||
Caption = 'Representation in text:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblAttr: TLabel
|
||||
Left = 162
|
||||
Height = 13
|
||||
Top = 200
|
||||
Width = 30
|
||||
Caption = 'lblAttr'
|
||||
Color = clNone
|
||||
Font.Color = clBlack
|
||||
Font.Height = 13
|
||||
Font.Name = 'adobe-helvetica'
|
||||
Font.Pitch = fpVariable
|
||||
Font.Style = [fsBold]
|
||||
ParentColor = False
|
||||
end
|
||||
object lblFile: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 6
|
||||
Width = 43
|
||||
Caption = 'Filename'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object cbReadOwner: TCheckBox
|
||||
Left = 112
|
||||
Height = 13
|
||||
Top = 48
|
||||
Width = 20
|
||||
AllowGrayed = True
|
||||
TabOrder = 0
|
||||
end
|
||||
object cbWriteOwner: TCheckBox
|
||||
Left = 184
|
||||
Height = 13
|
||||
Top = 48
|
||||
Width = 20
|
||||
AllowGrayed = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object cbExecOwner: TCheckBox
|
||||
Left = 256
|
||||
Height = 13
|
||||
Top = 48
|
||||
Width = 20
|
||||
AllowGrayed = True
|
||||
TabOrder = 2
|
||||
end
|
||||
object cbReadGroup: TCheckBox
|
||||
Left = 112
|
||||
Height = 13
|
||||
Top = 88
|
||||
Width = 20
|
||||
AllowGrayed = True
|
||||
TabOrder = 3
|
||||
end
|
||||
object cbWriteGroup: TCheckBox
|
||||
Left = 184
|
||||
Height = 13
|
||||
Top = 88
|
||||
Width = 20
|
||||
AllowGrayed = True
|
||||
TabOrder = 4
|
||||
end
|
||||
object cbExecGroup: TCheckBox
|
||||
Left = 256
|
||||
Height = 13
|
||||
Top = 88
|
||||
Width = 20
|
||||
AllowGrayed = True
|
||||
TabOrder = 5
|
||||
end
|
||||
object cbReadOther: TCheckBox
|
||||
Left = 112
|
||||
Height = 13
|
||||
Top = 128
|
||||
Width = 20
|
||||
AllowGrayed = True
|
||||
TabOrder = 6
|
||||
end
|
||||
object cbWriteOther: TCheckBox
|
||||
Left = 184
|
||||
Height = 13
|
||||
Top = 128
|
||||
Width = 20
|
||||
AllowGrayed = True
|
||||
TabOrder = 7
|
||||
end
|
||||
object cbExecOther: TCheckBox
|
||||
Left = 256
|
||||
Height = 13
|
||||
Top = 128
|
||||
Width = 20
|
||||
AllowGrayed = True
|
||||
TabOrder = 8
|
||||
end
|
||||
object btnOK: TBitBtn
|
||||
Left = 8
|
||||
Height = 25
|
||||
Top = 232
|
||||
Width = 75
|
||||
Caption = '&OK'
|
||||
Default = True
|
||||
Kind = bkOK
|
||||
ModalResult = 1
|
||||
NumGlyphs = 0
|
||||
OnClick = btnOKClick
|
||||
TabOrder = 9
|
||||
end
|
||||
object btnAll: TBitBtn
|
||||
Left = 88
|
||||
Height = 25
|
||||
Top = 232
|
||||
Width = 75
|
||||
Caption = '&All'
|
||||
NumGlyphs = 0
|
||||
OnClick = btnAllClick
|
||||
TabOrder = 10
|
||||
end
|
||||
object btnSkip: TBitBtn
|
||||
Left = 168
|
||||
Height = 25
|
||||
Top = 232
|
||||
Width = 75
|
||||
Caption = 'Skip'
|
||||
NumGlyphs = 0
|
||||
OnClick = btnSkipClick
|
||||
TabOrder = 11
|
||||
end
|
||||
object btnCancel: TBitBtn
|
||||
Left = 248
|
||||
Height = 25
|
||||
Top = 232
|
||||
Width = 75
|
||||
Caption = 'Cancel'
|
||||
Kind = bkCancel
|
||||
ModalResult = 2
|
||||
NumGlyphs = 0
|
||||
TabOrder = 12
|
||||
end
|
||||
object cbSuid: TCheckBox
|
||||
Left = 112
|
||||
Height = 13
|
||||
Top = 168
|
||||
Width = 46
|
||||
AllowGrayed = True
|
||||
Caption = 'SUID'
|
||||
TabOrder = 13
|
||||
end
|
||||
object cbSgid: TCheckBox
|
||||
Left = 184
|
||||
Height = 13
|
||||
Top = 168
|
||||
Width = 46
|
||||
AllowGrayed = True
|
||||
Caption = 'SGID'
|
||||
TabOrder = 14
|
||||
end
|
||||
object cbSticky: TCheckBox
|
||||
Left = 248
|
||||
Height = 13
|
||||
Top = 168
|
||||
Width = 49
|
||||
AllowGrayed = True
|
||||
Caption = 'Sticky'
|
||||
TabOrder = 15
|
||||
end
|
||||
end
|
||||
|
|
|
|||
65
fattrib.lrs
65
fattrib.lrs
|
|
@ -1,65 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmAttrib','FORMDATA',[
|
||||
'TPF0'#10'TfrmAttrib'#9'frmAttrib'#13'ActiveControl'#7#11'cbReadOwner'#7'Capt'
|
||||
+'ion'#6#9'frmAttrib'#12'ClientHeight'#3#16#1#11'ClientWidth'#3'O'#1#18'HorzS'
|
||||
+'crollBar.Page'#3'P'#1#19'HorzScrollBar.Range'#3'C'#1#18'VertScrollBar.Page'
|
||||
+#3#17#1#19'VertScrollBar.Range'#3#1#1#4'Left'#3#135#1#6'Height'#3#16#1#3'Top'
|
||||
+#3#2#1#5'Width'#3'O'#1#0#6'TLabel'#11'lblFileName'#7'Caption'#6#11'lblFileNa'
|
||||
+'me'#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#13#9'Font.Name'#6#9'Helve'
|
||||
+'tica'#10'Font.Pitch'#7#10'fpVariable'#10'Font.Style'#11#6'fsBold'#0#4'Left'
|
||||
+#2'h'#6'Height'#2#15#3'Top'#2#8#5'Width'#3#219#0#0#0#9'TCheckBox'#11'cbReadO'
|
||||
+'wner'#11'AllowGrayed'#9#8'AutoSize'#9#10'DragCursor'#4#244#255#0#0#8'TabOrd'
|
||||
+'er'#2#0#4'Left'#2'p'#6'Height'#2#30#3'Top'#2'0'#5'Width'#2#25#0#0#9'TCheckB'
|
||||
+'ox'#12'cbWriteOwner'#11'AllowGrayed'#9#8'AutoSize'#9#10'DragCursor'#4#244
|
||||
+#255#0#0#8'TabOrder'#2#1#4'Left'#3#184#0#6'Height'#2#30#3'Top'#2'0'#5'Width'
|
||||
+#2#25#0#0#9'TCheckBox'#11'cbExecOwner'#11'AllowGrayed'#9#8'AutoSize'#9#10'Dr'
|
||||
+'agCursor'#4#244#255#0#0#8'TabOrder'#2#2#4'Left'#3#0#1#6'Height'#2#30#3'Top'
|
||||
+#2'0'#5'Width'#2#25#0#0#6'TLabel'#8'lblOwner'#7'Caption'#6#5'Owner'#4'Left'#2
|
||||
+#8#6'Height'#2#15#3'Top'#2'6'#5'Width'#2'X'#0#0#6'TLabel'#8'lblGroup'#7'Capt'
|
||||
+'ion'#6#5'Group'#4'Left'#2#8#6'Height'#2#15#3'Top'#2'^'#5'Width'#2'X'#0#0#9
|
||||
+'TCheckBox'#11'cbReadGroup'#11'AllowGrayed'#9#8'AutoSize'#9#10'DragCursor'#4
|
||||
+#244#255#0#0#8'TabOrder'#2#3#4'Left'#2'p'#6'Height'#2#30#3'Top'#2'X'#5'Width'
|
||||
+#2#25#0#0#9'TCheckBox'#12'cbWriteGroup'#11'AllowGrayed'#9#8'AutoSize'#9#10'D'
|
||||
+'ragCursor'#4#244#255#0#0#8'TabOrder'#2#4#4'Left'#3#184#0#6'Height'#2#30#3'T'
|
||||
+'op'#2'X'#5'Width'#2#25#0#0#9'TCheckBox'#11'cbExecGroup'#11'AllowGrayed'#9#8
|
||||
+'AutoSize'#9#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#5#4'Left'#3#0#1#6'He'
|
||||
+'ight'#2#30#3'Top'#2'X'#5'Width'#2#25#0#0#6'TLabel'#8'lblOther'#7'Caption'#6
|
||||
+#5'Other'#4'Left'#2#8#6'Height'#2#15#3'Top'#3#134#0#5'Width'#2'R'#0#0#9'TChe'
|
||||
+'ckBox'#11'cbReadOther'#11'AllowGrayed'#9#8'AutoSize'#9#10'DragCursor'#4#244
|
||||
+#255#0#0#8'TabOrder'#2#6#4'Left'#2'p'#6'Height'#2#30#3'Top'#3#128#0#5'Width'
|
||||
+#2#25#0#0#9'TCheckBox'#12'cbWriteOther'#11'AllowGrayed'#9#8'AutoSize'#9#10'D'
|
||||
+'ragCursor'#4#244#255#0#0#8'TabOrder'#2#7#4'Left'#3#184#0#6'Height'#2#30#3'T'
|
||||
+'op'#3#128#0#5'Width'#2#25#0#0#9'TCheckBox'#11'cbExecOther'#11'AllowGrayed'#9
|
||||
+#8'AutoSize'#9#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#8#4'Left'#3#0#1#6
|
||||
+'Height'#2#30#3'Top'#3#128#0#5'Width'#2#25#0#0#6'TLabel'#7'lblRead'#7'Captio'
|
||||
+'n'#6#4'Read'#4'Left'#2'h'#6'Height'#2#15#3'Top'#2' '#5'Width'#2'H'#0#0#6'TL'
|
||||
+'abel'#8'lblWrite'#7'Caption'#6#5'Write'#4'Left'#3#176#0#6'Height'#2#15#3'To'
|
||||
+'p'#2' '#5'Width'#2'?'#0#0#6'TLabel'#7'lblExec'#7'Caption'#6#7'Execute'#4'Le'
|
||||
+'ft'#3#240#0#6'Height'#2#15#3'Top'#2' '#5'Width'#2'S'#0#0#7'TBitBtn'#5'btnOK'
|
||||
+#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#7'OnClick'#7#10'btnOKCli'
|
||||
+'ck'#7'Default'#9#11'ModalResult'#2#1#7'Caption'#6#3'&OK'#8'TabOrder'#2#9#7
|
||||
+'OnClick'#7#10'btnOKClick'#4'Left'#2#8#6'Height'#2#25#3'Top'#3#232#0#5'Width'
|
||||
+#2'K'#0#0#7'TBitBtn'#6'btnAll'#7'OnClick'#7#11'btnAllClick'#7'Caption'#6#4'&'
|
||||
+'All'#8'TabOrder'#2#10#7'OnClick'#7#11'btnAllClick'#4'Left'#2'X'#6'Height'#2
|
||||
+#25#3'Top'#3#232#0#5'Width'#2'K'#0#0#7'TBitBtn'#7'btnSkip'#7'OnClick'#7#12'b'
|
||||
+'tnSkipClick'#7'Caption'#6#4'Skip'#8'TabOrder'#2#11#7'OnClick'#7#12'btnSkipC'
|
||||
+'lick'#4'Left'#3#168#0#6'Height'#2#25#3'Top'#3#232#0#5'Width'#2'K'#0#0#7'TBi'
|
||||
+'tBtn'#9'btnCancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#11'ModalResult'
|
||||
+#2#2#7'Caption'#6#6'Cancel'#8'TabOrder'#2#12#4'Left'#3#248#0#6'Height'#2#25#3
|
||||
+'Top'#3#232#0#5'Width'#2'K'#0#0#6'TLabel'#11'lblTextAttr'#8'AutoSize'#9#7'Ca'
|
||||
+'ption'#6#23'Representation in text:'#4'Left'#2#8#6'Height'#2#15#3'Top'#3#200
|
||||
+#0#5'Width'#3#144#0#0#0#6'TLabel'#7'lblAttr'#7'Caption'#6#7'lblAttr'#10'Font'
|
||||
+'.Color'#7#7'clBlack'#11'Font.Height'#2#13#9'Font.Name'#6#15'adobe-helvetica'
|
||||
+#10'Font.Pitch'#7#10'fpVariable'#10'Font.Style'#11#6'fsBold'#0#4'Left'#3#162
|
||||
+#0#6'Height'#2#16#3'Top'#3#200#0#5'Width'#3#151#0#0#0#9'TCheckBox'#6'cbSuid'
|
||||
+#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6#4'SUID'#10'DragCursor'#4#244
|
||||
+#255#0#0#8'TabOrder'#2#13#4'Left'#2'p'#6'Height'#2#30#3'Top'#3#168#0#5'Width'
|
||||
+#2'E'#0#0#9'TCheckBox'#6'cbSgid'#11'AllowGrayed'#9#8'AutoSize'#9#7'Caption'#6
|
||||
+#4'SGID'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#14#4'Left'#3#184#0#6'Hei'
|
||||
+'ght'#2#30#3'Top'#3#168#0#5'Width'#2';'#0#0#9'TCheckBox'#8'cbSticky'#11'Allo'
|
||||
+'wGrayed'#9#8'AutoSize'#9#7'Caption'#6#6'Sticky'#10'DragCursor'#4#244#255#0#0
|
||||
+#8'TabOrder'#2#15#4'Left'#3#248#0#6'Height'#2#30#3'Top'#3#168#0#5'Width'#2'A'
|
||||
+#0#0#6'TLabel'#7'lblFile'#7'Caption'#6#8'Filename'#4'Left'#2#8#6'Height'#2#17
|
||||
+#3'Top'#2#6#5'Width'#2'Q'#0#0#0
|
||||
]);
|
||||
418
fattrib.pas
418
fattrib.pas
|
|
@ -1,209 +1,209 @@
|
|||
unit fAttrib;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, fLngForm, uFileList, Buttons;
|
||||
|
||||
type
|
||||
TfrmAttrib = class(TfrmLng)
|
||||
lblFile: TLabel;
|
||||
lblFileName: TLabel;
|
||||
cbReadOwner: TCheckBox;
|
||||
cbWriteOwner: TCheckBox;
|
||||
cbExecOwner: TCheckBox;
|
||||
lblOwner: TLabel;
|
||||
lblGroup: TLabel;
|
||||
cbReadGroup: TCheckBox;
|
||||
cbWriteGroup: TCheckBox;
|
||||
cbExecGroup: TCheckBox;
|
||||
lblOther: TLabel;
|
||||
cbReadOther: TCheckBox;
|
||||
cbWriteOther: TCheckBox;
|
||||
cbExecOther: TCheckBox;
|
||||
lblRead: TLabel;
|
||||
lblWrite: TLabel;
|
||||
lblExec: TLabel;
|
||||
btnOK: TBitBtn;
|
||||
btnAll: TBitBtn;
|
||||
btnSkip: TBitBtn;
|
||||
btnCancel: TBitBtn;
|
||||
lblTextAttr: TLabel;
|
||||
lblAttr: TLabel;
|
||||
cbSuid: TCheckBox;
|
||||
cbSgid: TCheckBox;
|
||||
cbSticky: TCheckBox;
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
procedure btnAllClick(Sender: TObject);
|
||||
procedure btnSkipClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
iCurrent:Integer;
|
||||
ffileList:TFileList;
|
||||
public
|
||||
{ Public declarations }
|
||||
Path:String;
|
||||
|
||||
procedure LoadLng; override;
|
||||
procedure ShowFile(iIndex:Integer);
|
||||
procedure StoreData(FileList:TFileList);
|
||||
function FindNextSelected:Boolean;
|
||||
procedure ShowAttr(iMode:Integer);
|
||||
function GetModeFromForm:Integer;
|
||||
procedure ChangeMod;
|
||||
end;
|
||||
|
||||
procedure ShowAttrForm(FileList:TFileList; const aPath:String);
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uLng, uFileOp, BaseUnix;
|
||||
|
||||
procedure ShowAttrForm(FileList:TFileList; const aPath:String);
|
||||
begin
|
||||
with TfrmAttrib.Create(Application) do
|
||||
begin
|
||||
try
|
||||
Path:=aPath;
|
||||
StoreData(FileList);
|
||||
if FindNextSelected then
|
||||
begin
|
||||
ShowFile(iCurrent);
|
||||
ShowModal;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.ShowFile(iIndex:Integer);
|
||||
begin
|
||||
with ffileList.GetItem(iIndex)^ do
|
||||
begin
|
||||
lblFileName.Caption:=sName;
|
||||
ShowAttr(iMode);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.StoreData(FileList:TFileList);
|
||||
begin
|
||||
fFileList:=FileList;
|
||||
iCurrent:=0;
|
||||
end;
|
||||
|
||||
function TfrmAttrib.FindNextSelected:Boolean;
|
||||
var
|
||||
i:Integer;
|
||||
begin
|
||||
for i:=iCurrent to FFileList.Count-1 do
|
||||
begin
|
||||
if FFileList.GetItem(i)^.bSelected then
|
||||
begin
|
||||
iCurrent:=i;
|
||||
Result:=True;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
Result:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.ShowAttr(iMode:Integer);
|
||||
begin
|
||||
cbReadOwner.Checked:= ((iMode AND S_IRUSR) = S_IRUSR);
|
||||
cbWriteOwner.Checked:= ((iMode AND S_IWUSR) = S_IWUSR);
|
||||
cbExecOwner.Checked:= ((iMode AND S_IXUSR) = S_IXUSR);
|
||||
cbReadGroup.Checked:= ((iMode AND S_IRGRP) = S_IRGRP);
|
||||
cbWriteGroup.Checked:= ((iMode AND S_IWGRP) = S_IWGRP);
|
||||
cbExecGroup.Checked:= ((iMode AND S_IXGRP) = S_IXGRP);
|
||||
cbReadOther.Checked:= ((iMode AND S_IROTH) = S_IROTH);
|
||||
cbWriteOther.Checked:= ((iMode AND S_IWOTH) = S_IWOTH);
|
||||
cbExecOther.Checked:= ((iMode AND S_IXOTH) = S_IXOTH);
|
||||
|
||||
cbSuid.Checked:= ((iMode AND S_ISUID) = S_ISUID);
|
||||
cbSgid.Checked:= ((iMode AND S_ISGID) = S_ISGID);
|
||||
cbSticky.Checked:= ((iMode AND S_ISVTX) = S_ISVTX);
|
||||
|
||||
lblAttr.Caption:=AttrToStr(iMode);
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.LoadLng;
|
||||
begin
|
||||
// load strings
|
||||
Caption:=lngGetString(clngAttrChmod);
|
||||
|
||||
lblFile.Caption:=lngGetString(clngLinkColumnNameFile);
|
||||
lblOwner.Caption:=lngGetString(clngAttrOwner);
|
||||
lblGroup.Caption:=lngGetString(clngAttrGroup);
|
||||
lblOther.Caption:=lngGetString(clngAttrOther);
|
||||
lblRead.Caption:=lngGetString(clngAttrRead);
|
||||
lblWrite.Caption:=lngGetString(clngAttrWrite);
|
||||
lblExec.Caption:=lngGetString(clngAttrExec);
|
||||
lblTextAttr.Caption:=lngGetString(clngAttrTextRep);
|
||||
|
||||
btnCancel.Caption:=lngGetString(clngbutCancel);
|
||||
btnSkip.Caption:=lngGetString(clngbutSkip);
|
||||
btnAll.Caption:=lngGetString(clngbutAll);
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.ChangeMod;
|
||||
begin
|
||||
fpchmod(PChar(Path+ffileList.GetItem(iCurrent)^.sName),GetModeFromForm);
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.btnOKClick(Sender: TObject);
|
||||
begin
|
||||
ChangeMod;
|
||||
inc (iCurrent);
|
||||
if not FindNextSelected Then
|
||||
Close
|
||||
else
|
||||
ShowFile(iCurrent);
|
||||
end;
|
||||
|
||||
function TfrmAttrib.GetModeFromForm:Integer;
|
||||
begin
|
||||
Result:=0;
|
||||
if cbReadOwner.Checked then Result:=(Result OR S_IRUSR);
|
||||
if cbWriteOwner.Checked then Result:=(Result OR S_IWUSR);
|
||||
if cbExecOwner.Checked then Result:=(Result OR S_IXUSR);
|
||||
if cbReadGroup.Checked then Result:=(Result OR S_IRGRP);
|
||||
if cbWriteGroup.Checked then Result:=(Result OR S_IWGRP);
|
||||
if cbExecGroup.Checked then Result:=(Result OR S_IXGRP);
|
||||
if cbReadOther.Checked then Result:=(Result OR S_IROTH);
|
||||
if cbWriteOther.Checked then Result:=(Result OR S_IWOTH);
|
||||
if cbExecOther.Checked then Result:=(Result OR S_IXOTH);
|
||||
|
||||
if cbSuid.Checked then Result:=(Result OR S_ISUID);
|
||||
if cbSgid.Checked then Result:=(Result OR S_ISGID);
|
||||
if cbSticky.Checked then Result:=(Result OR S_ISVTX);
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.btnAllClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
repeat
|
||||
ChangeMod;
|
||||
inc (iCurrent);
|
||||
until not FindNextSelected;
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.btnSkipClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
inc (iCurrent);
|
||||
if not FindNextSelected Then
|
||||
Close
|
||||
else
|
||||
ShowFile(iCurrent);
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fAttrib.lrs}
|
||||
|
||||
end.
|
||||
unit fAttrib;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, fLngForm, uFileList, Buttons;
|
||||
|
||||
type
|
||||
TfrmAttrib = class(TfrmLng)
|
||||
lblFile: TLabel;
|
||||
lblFileName: TLabel;
|
||||
cbReadOwner: TCheckBox;
|
||||
cbWriteOwner: TCheckBox;
|
||||
cbExecOwner: TCheckBox;
|
||||
lblOwner: TLabel;
|
||||
lblGroup: TLabel;
|
||||
cbReadGroup: TCheckBox;
|
||||
cbWriteGroup: TCheckBox;
|
||||
cbExecGroup: TCheckBox;
|
||||
lblOther: TLabel;
|
||||
cbReadOther: TCheckBox;
|
||||
cbWriteOther: TCheckBox;
|
||||
cbExecOther: TCheckBox;
|
||||
lblRead: TLabel;
|
||||
lblWrite: TLabel;
|
||||
lblExec: TLabel;
|
||||
btnOK: TBitBtn;
|
||||
btnAll: TBitBtn;
|
||||
btnSkip: TBitBtn;
|
||||
btnCancel: TBitBtn;
|
||||
lblTextAttr: TLabel;
|
||||
lblAttr: TLabel;
|
||||
cbSuid: TCheckBox;
|
||||
cbSgid: TCheckBox;
|
||||
cbSticky: TCheckBox;
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
procedure btnAllClick(Sender: TObject);
|
||||
procedure btnSkipClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
iCurrent:Integer;
|
||||
ffileList:TFileList;
|
||||
public
|
||||
{ Public declarations }
|
||||
Path:String;
|
||||
|
||||
procedure LoadLng; override;
|
||||
procedure ShowFile(iIndex:Integer);
|
||||
procedure StoreData(FileList:TFileList);
|
||||
function FindNextSelected:Boolean;
|
||||
procedure ShowAttr(iMode:Integer);
|
||||
function GetModeFromForm:Integer;
|
||||
procedure ChangeMod;
|
||||
end;
|
||||
|
||||
procedure ShowAttrForm(FileList:TFileList; const aPath:String);
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uLng, uFileOp, BaseUnix;
|
||||
|
||||
procedure ShowAttrForm(FileList:TFileList; const aPath:String);
|
||||
begin
|
||||
with TfrmAttrib.Create(Application) do
|
||||
begin
|
||||
try
|
||||
Path:=aPath;
|
||||
StoreData(FileList);
|
||||
if FindNextSelected then
|
||||
begin
|
||||
ShowFile(iCurrent);
|
||||
ShowModal;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.ShowFile(iIndex:Integer);
|
||||
begin
|
||||
with ffileList.GetItem(iIndex)^ do
|
||||
begin
|
||||
lblFileName.Caption:=sName;
|
||||
ShowAttr(iMode);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.StoreData(FileList:TFileList);
|
||||
begin
|
||||
fFileList:=FileList;
|
||||
iCurrent:=0;
|
||||
end;
|
||||
|
||||
function TfrmAttrib.FindNextSelected:Boolean;
|
||||
var
|
||||
i:Integer;
|
||||
begin
|
||||
for i:=iCurrent to FFileList.Count-1 do
|
||||
begin
|
||||
if FFileList.GetItem(i)^.bSelected then
|
||||
begin
|
||||
iCurrent:=i;
|
||||
Result:=True;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
Result:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.ShowAttr(iMode:Integer);
|
||||
begin
|
||||
cbReadOwner.Checked:= ((iMode AND S_IRUSR) = S_IRUSR);
|
||||
cbWriteOwner.Checked:= ((iMode AND S_IWUSR) = S_IWUSR);
|
||||
cbExecOwner.Checked:= ((iMode AND S_IXUSR) = S_IXUSR);
|
||||
cbReadGroup.Checked:= ((iMode AND S_IRGRP) = S_IRGRP);
|
||||
cbWriteGroup.Checked:= ((iMode AND S_IWGRP) = S_IWGRP);
|
||||
cbExecGroup.Checked:= ((iMode AND S_IXGRP) = S_IXGRP);
|
||||
cbReadOther.Checked:= ((iMode AND S_IROTH) = S_IROTH);
|
||||
cbWriteOther.Checked:= ((iMode AND S_IWOTH) = S_IWOTH);
|
||||
cbExecOther.Checked:= ((iMode AND S_IXOTH) = S_IXOTH);
|
||||
|
||||
cbSuid.Checked:= ((iMode AND S_ISUID) = S_ISUID);
|
||||
cbSgid.Checked:= ((iMode AND S_ISGID) = S_ISGID);
|
||||
cbSticky.Checked:= ((iMode AND S_ISVTX) = S_ISVTX);
|
||||
|
||||
lblAttr.Caption:=AttrToStr(iMode);
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.LoadLng;
|
||||
begin
|
||||
// load strings
|
||||
Caption:=lngGetString(clngAttrChmod);
|
||||
|
||||
lblFile.Caption:=lngGetString(clngLinkColumnNameFile);
|
||||
lblOwner.Caption:=lngGetString(clngAttrOwner);
|
||||
lblGroup.Caption:=lngGetString(clngAttrGroup);
|
||||
lblOther.Caption:=lngGetString(clngAttrOther);
|
||||
lblRead.Caption:=lngGetString(clngAttrRead);
|
||||
lblWrite.Caption:=lngGetString(clngAttrWrite);
|
||||
lblExec.Caption:=lngGetString(clngAttrExec);
|
||||
lblTextAttr.Caption:=lngGetString(clngAttrTextRep);
|
||||
|
||||
btnCancel.Caption:=lngGetString(clngbutCancel);
|
||||
btnSkip.Caption:=lngGetString(clngbutSkip);
|
||||
btnAll.Caption:=lngGetString(clngbutAll);
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.ChangeMod;
|
||||
begin
|
||||
fpchmod(PChar(Path+ffileList.GetItem(iCurrent)^.sName),GetModeFromForm);
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.btnOKClick(Sender: TObject);
|
||||
begin
|
||||
ChangeMod;
|
||||
inc (iCurrent);
|
||||
if not FindNextSelected Then
|
||||
Close
|
||||
else
|
||||
ShowFile(iCurrent);
|
||||
end;
|
||||
|
||||
function TfrmAttrib.GetModeFromForm:Integer;
|
||||
begin
|
||||
Result:=0;
|
||||
if cbReadOwner.Checked then Result:=(Result OR S_IRUSR);
|
||||
if cbWriteOwner.Checked then Result:=(Result OR S_IWUSR);
|
||||
if cbExecOwner.Checked then Result:=(Result OR S_IXUSR);
|
||||
if cbReadGroup.Checked then Result:=(Result OR S_IRGRP);
|
||||
if cbWriteGroup.Checked then Result:=(Result OR S_IWGRP);
|
||||
if cbExecGroup.Checked then Result:=(Result OR S_IXGRP);
|
||||
if cbReadOther.Checked then Result:=(Result OR S_IROTH);
|
||||
if cbWriteOther.Checked then Result:=(Result OR S_IWOTH);
|
||||
if cbExecOther.Checked then Result:=(Result OR S_IXOTH);
|
||||
|
||||
if cbSuid.Checked then Result:=(Result OR S_ISUID);
|
||||
if cbSgid.Checked then Result:=(Result OR S_ISGID);
|
||||
if cbSticky.Checked then Result:=(Result OR S_ISVTX);
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.btnAllClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
repeat
|
||||
ChangeMod;
|
||||
inc (iCurrent);
|
||||
until not FindNextSelected;
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmAttrib.btnSkipClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
inc (iCurrent);
|
||||
if not FindNextSelected Then
|
||||
Close
|
||||
else
|
||||
ShowFile(iCurrent);
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fattrib.lrs}
|
||||
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -1,69 +0,0 @@
|
|||
LazarusResources.Add('TOneButtonChangeDlg','FORMDATA',[
|
||||
'TPF0'#19'TOneButtonChangeDlg'#18'OneButtonChangeDlg'#13'ActiveControl'#7#14
|
||||
+'id_btn_command'#11'BorderIcons'#11#0#11'BorderStyle'#7#8'bsDialog'#7'Captio'
|
||||
+'n'#6#20'Change single button'#12'ClientHeight'#3#240#0#11'ClientWidth'#3#21
|
||||
+#2#10'Font.Color'#7#9'clBtnText'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS '
|
||||
+'Sans Serif'#13'PixelsPerInch'#2'`'#8'Position'#7#14'poScreenCenter'#10'Text'
|
||||
+'Height'#2#13#18'HorzScrollBar.Page'#3#20#2#18'VertScrollBar.Page'#3#239#0#4
|
||||
+'Left'#3']'#1#6'Height'#3#240#0#3'Top'#3#180#1#5'Width'#3#21#2#11'HelpContex'
|
||||
+'t'#3#14#1#3'Tag'#2#1#0#6'TLabel'#7'Command'#8'AutoSize'#8#7'Caption'#6#9'&C'
|
||||
+'ommand:'#5'Color'#7#6'clNone'#12'FocusControl'#7#14'id_btn_command'#11'Pare'
|
||||
+'ntColor'#8#4'Left'#2#4#6'Height'#2#14#3'Top'#2#7#5'Width'#2'P'#3'Tag'#2#9#0
|
||||
+#0#6'TLabel'#10'Parameters'#8'AutoSize'#8#7'Caption'#6#12'&Parameters:'#5'Co'
|
||||
+'lor'#7#6'clNone'#12'FocusControl'#7#12'id_btn_param'#11'ParentColor'#8#4'Le'
|
||||
+'ft'#2#4#6'Height'#2#14#3'Top'#2'#'#5'Width'#2'P'#3'Tag'#2#10#0#0#6'TLabel'#9
|
||||
+'Startpath'#8'AutoSize'#8#7'Caption'#6#12'&Start path:'#5'Color'#7#6'clNone'
|
||||
+#12'FocusControl'#7#16'id_btn_startpath'#11'ParentColor'#8#4'Left'#2#4#6'Hei'
|
||||
+'ght'#2#14#3'Top'#2'<'#5'Width'#2'P'#3'Tag'#2#11#0#0#6'TLabel'#8'Iconfile'#8
|
||||
+'AutoSize'#8#7'Caption'#6#11'Icon &file:'#5'Color'#7#6'clNone'#12'FocusContr'
|
||||
+'ol'#7#19'id_btn_iconfilename'#11'ParentColor'#8#4'Left'#2#4#6'Height'#2#13#3
|
||||
+'Top'#2'U'#5'Width'#2'P'#3'Tag'#2#12#0#0#6'TLabel'#4'Icon'#8'AutoSize'#8#7'C'
|
||||
+'aption'#6#6'&Icon:'#5'Color'#7#6'clNone'#12'FocusControl'#7#11'id_btn_icon'
|
||||
+#11'ParentColor'#8#8'WordWrap'#9#4'Left'#2#4#6'Height'#2#14#3'Top'#2'n'#5'Wi'
|
||||
+'dth'#2'-'#3'Tag'#2#13#0#0#6'TLabel'#16'id_btn_iconindex'#8'AutoSize'#8#7'Ca'
|
||||
+'ption'#6#1'0'#5'Color'#7#6'clNone'#11'ParentColor'#8#8'WordWrap'#9#4'Left'#2
|
||||
+'6'#6'Height'#2#14#3'Top'#2'n'#5'Width'#2#25#0#0#6'TLabel'#7'Tooltip'#8'Auto'
|
||||
+'Size'#8#7'Caption'#6#9'&Tooltip:'#5'Color'#7#6'clNone'#12'FocusControl'#7#14
|
||||
+'id_btn_ToolTip'#11'ParentColor'#8#4'Left'#2#4#6'Height'#2#14#3'Top'#3#167#0
|
||||
+#5'Width'#2'P'#3'Tag'#2#14#0#0#9'TComboBox'#14'id_btn_command'#16'AutoComple'
|
||||
+'teText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#13'DropDow'
|
||||
+'nCount'#2#20#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'Item'
|
||||
+'Height'#2#13#9'MaxLength'#2#0#8'TabOrder'#2#0#4'Left'#2'U'#6'Height'#2#21#3
|
||||
+'Top'#2#6#5'Width'#3'*'#1#0#0#7'TButton'#12'id_btn_find1'#25'BorderSpacing.I'
|
||||
+'nnerBorder'#2#2#7'Caption'#6#2'>>'#7'OnClick'#7#17'id_btn_find1Click'#8'Tab'
|
||||
+'Order'#2#1#4'Left'#3#128#1#6'Height'#2#22#3'Top'#2#5#5'Width'#2#25#0#0#7'TB'
|
||||
+'utton'#14'id_btn_findbar'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#13
|
||||
+'Add Subbar >>'#8'TabOrder'#2#2#4'Left'#3#156#1#6'Height'#2#23#3'Top'#2#4#5
|
||||
+'Width'#2'n'#3'Tag'#2#15#0#0#8'TKASEdit'#12'id_btn_param'#11'Font.Height'#2
|
||||
+#245#9'Font.Name'#6#13'MS Sans Serif'#9'MaxLength'#3#3#1#8'TabOrder'#2#3#4'L'
|
||||
+'eft'#2'U'#6'Height'#2#21#3'Top'#2#31#5'Width'#3'*'#1#0#0#9'TCheckBox'#15'id'
|
||||
+'_btn_assymbol'#7'Caption'#6#14'Run mi&nimized'#8'TabOrder'#2#4#4'Left'#3#131
|
||||
+#1#6'Height'#2#13#3'Top'#2'"'#5'Width'#2'^'#3'Tag'#2#16#0#0#8'TKASEdit'#16'i'
|
||||
+'d_btn_startpath'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#9'M'
|
||||
+'axLength'#3#3#1#8'TabOrder'#2#6#4'Left'#2'U'#6'Height'#2#21#3'Top'#2'8'#5'W'
|
||||
+'idth'#3'*'#1#0#0#8'TKASEdit'#19'id_btn_iconfilename'#11'Font.Height'#2#245#9
|
||||
+'Font.Name'#6#13'MS Sans Serif'#9'MaxLength'#3#3#1#8'TabOrder'#2#7#4'Left'#2
|
||||
+'U'#6'Height'#2#21#3'Top'#2'Q'#5'Width'#3'*'#1#0#0#7'TButton'#15'id_btn_icon'
|
||||
+'file'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#2'>>'#7'OnClick'#7#20
|
||||
+'id_btn_iconfileClick'#8'TabOrder'#2#8#4'Left'#3#128#1#6'Height'#2#21#3'Top'
|
||||
+#2'Q'#5'Width'#2#25#0#0#8'TListBox'#11'id_btn_icon'#11'Font.Height'#2#245#9
|
||||
+'Font.Name'#6#13'MS Sans Serif'#10'ItemHeight'#2'$'#5'Style'#7#16'lbOwnerDra'
|
||||
+'wFixed'#8'TabOrder'#2#9#4'Left'#2'U'#6'Height'#2'6'#3'Top'#2'j'#5'Width'#3
|
||||
+'*'#1#0#0#8'TKASEdit'#14'id_btn_ToolTip'#11'Font.Height'#2#245#9'Font.Name'#6
|
||||
+#13'MS Sans Serif'#9'MaxLength'#3#3#1#8'TabOrder'#2#10#4'Left'#2'U'#6'Height'
|
||||
+#2#21#3'Top'#3#164#0#5'Width'#3'*'#1#0#0#7'TButton'#2'Ok'#25'BorderSpacing.I'
|
||||
+'nnerBorder'#2#2#7'Caption'#6#2'OK'#7'Default'#9#7'OnClick'#7#7'OkClick'#8'T'
|
||||
+'abOrder'#2#11#4'Left'#3#164#1#6'Height'#2#23#3'Top'#2'n'#5'Width'#2'd'#3'Ta'
|
||||
+'g'#3#161#15#0#0#7'TButton'#6'Cancel'#25'BorderSpacing.InnerBorder'#2#2#6'Ca'
|
||||
+'ncel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#7'OnClick'#7#11'CancelCl'
|
||||
+'ick'#8'TabOrder'#2#12#4'Left'#3#164#1#6'Height'#2#23#3'Top'#3#136#0#5'Width'
|
||||
+#2'd'#3'Tag'#3#162#15#0#0#7'TButton'#13'id_Globalhelp'#25'BorderSpacing.Inne'
|
||||
+'rBorder'#2#2#7'Caption'#6#5'&Help'#8'TabOrder'#2#13#4'Left'#3#164#1#6'Heigh'
|
||||
+'t'#2#23#3'Top'#3#162#0#5'Width'#2'd'#3'Tag'#3#163#15#0#0#9'TCheckBox'#16'id'
|
||||
+'_btn_maximized'#7'Caption'#6#14'Run ma&ximized'#8'TabOrder'#2#5#4'Left'#3
|
||||
+#131#1#6'Height'#2#13#3'Top'#2'2'#5'Width'#2'a'#3'Tag'#2#17#0#0#11'TOpenDial'
|
||||
+'og'#10'OpenDialog'#5'Title'#6#25#206#242#234#240#251#242#252' '#241#243#249
|
||||
,#229#241#242#226#243#254#249#232#233' '#244#224#233#235#11'FilterIndex'#2#0#5
|
||||
+'Title'#6#25#206#242#234#240#251#242#252' '#241#243#249#229#241#242#226#243
|
||||
+#254#249#232#233' '#244#224#233#235#4'left'#2' '#3'top'#3#240#1#0#0#0
|
||||
]);
|
||||
228
fchown.lfm
228
fchown.lfm
|
|
@ -1,112 +1,116 @@
|
|||
object frmChown: TfrmChown
|
||||
ActiveControl = btnCancel
|
||||
Caption = 'Change Owner/Group'
|
||||
ClientHeight = 160
|
||||
ClientWidth = 336
|
||||
Color = clBackground
|
||||
Position = poMainFormCenter
|
||||
HorzScrollBar.Page = 337
|
||||
HorzScrollBar.Range = 323
|
||||
VertScrollBar.Page = 161
|
||||
VertScrollBar.Range = 145
|
||||
Left = 329
|
||||
Height = 160
|
||||
Top = 222
|
||||
Width = 336
|
||||
object btnCancel: TBitBtn
|
||||
Kind = bkCancel
|
||||
ModalResult = 2
|
||||
ModalResult = 2
|
||||
Caption = 'Cancel'
|
||||
TabOrder = 5
|
||||
Left = 248
|
||||
Height = 25
|
||||
Top = 120
|
||||
Width = 75
|
||||
end
|
||||
object btnSkip: TBitBtn
|
||||
OnClick = btnSkipClick
|
||||
Caption = 'Skip'
|
||||
TabOrder = 4
|
||||
OnClick = btnSkipClick
|
||||
Left = 168
|
||||
Height = 25
|
||||
Top = 120
|
||||
Width = 75
|
||||
end
|
||||
object btnOK: TBitBtn
|
||||
Default = True
|
||||
Kind = bkOK
|
||||
ModalResult = 1
|
||||
OnClick = btnOKClick
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
Caption = '&OK'
|
||||
TabOrder = 2
|
||||
OnClick = btnOKClick
|
||||
Left = 8
|
||||
Height = 25
|
||||
Top = 120
|
||||
Width = 75
|
||||
end
|
||||
object btnAll: TBitBtn
|
||||
OnClick = btnAllClick
|
||||
Caption = '&All'
|
||||
TabOrder = 3
|
||||
OnClick = btnAllClick
|
||||
Left = 88
|
||||
Height = 25
|
||||
Top = 120
|
||||
Width = 75
|
||||
end
|
||||
object cbxUsers: TComboBox
|
||||
ItemHeight = 20
|
||||
MaxLength = 0
|
||||
ParentCtl3D = False
|
||||
Sorted = True
|
||||
TabOrder = 0
|
||||
Text = 'cbxUsers'
|
||||
Left = 96
|
||||
Height = 26
|
||||
Top = 40
|
||||
Width = 227
|
||||
end
|
||||
object cbxGroups: TComboBox
|
||||
ItemHeight = 20
|
||||
MaxLength = 0
|
||||
ParentCtl3D = False
|
||||
Sorted = True
|
||||
TabOrder = 1
|
||||
Text = 'cbxGroups'
|
||||
Left = 96
|
||||
Height = 26
|
||||
Top = 72
|
||||
Width = 227
|
||||
end
|
||||
object lblFileName: TLabel
|
||||
Caption = 'lblFileName'
|
||||
Font.Color = clBlack
|
||||
Font.Height = 13
|
||||
Font.Name = 'Helvetica'
|
||||
Font.Pitch = fpVariable
|
||||
Font.Style = [fsBold]
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 315
|
||||
end
|
||||
object lblOwner: TLabel
|
||||
Caption = 'Owner'
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 46
|
||||
Width = 80
|
||||
end
|
||||
object lblGroup: TLabel
|
||||
Caption = 'Group'
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 78
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
inherited frmChown: TfrmChown
|
||||
Left = 329
|
||||
Height = 160
|
||||
Top = 222
|
||||
Width = 336
|
||||
HorzScrollBar.Page = 335
|
||||
HorzScrollBar.Range = 323
|
||||
VertScrollBar.Page = 159
|
||||
VertScrollBar.Range = 145
|
||||
ActiveControl = btnCancel
|
||||
Caption = 'Change Owner/Group'
|
||||
Color = clBackground
|
||||
Position = poMainFormCenter
|
||||
object lblFileName: TLabel
|
||||
Left = 8
|
||||
Height = 13
|
||||
Top = 8
|
||||
Width = 59
|
||||
Caption = 'lblFileName'
|
||||
Color = clNone
|
||||
Font.Color = clBlack
|
||||
Font.Height = 13
|
||||
Font.Name = 'Helvetica'
|
||||
Font.Pitch = fpVariable
|
||||
Font.Style = [fsBold]
|
||||
ParentColor = False
|
||||
end
|
||||
object lblOwner: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 46
|
||||
Width = 33
|
||||
Caption = 'Owner'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblGroup: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 78
|
||||
Width = 30
|
||||
Caption = 'Group'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object btnCancel: TBitBtn
|
||||
Left = 248
|
||||
Height = 25
|
||||
Top = 120
|
||||
Width = 75
|
||||
Caption = 'Cancel'
|
||||
Kind = bkCancel
|
||||
ModalResult = 2
|
||||
NumGlyphs = 0
|
||||
TabOrder = 5
|
||||
end
|
||||
object btnSkip: TBitBtn
|
||||
Left = 168
|
||||
Height = 25
|
||||
Top = 120
|
||||
Width = 75
|
||||
Caption = 'Skip'
|
||||
NumGlyphs = 0
|
||||
OnClick = btnSkipClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object btnOK: TBitBtn
|
||||
Left = 8
|
||||
Height = 25
|
||||
Top = 120
|
||||
Width = 75
|
||||
Caption = '&OK'
|
||||
Default = True
|
||||
Kind = bkOK
|
||||
ModalResult = 1
|
||||
NumGlyphs = 0
|
||||
OnClick = btnOKClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object btnAll: TBitBtn
|
||||
Left = 88
|
||||
Height = 25
|
||||
Top = 120
|
||||
Width = 75
|
||||
Caption = '&All'
|
||||
NumGlyphs = 0
|
||||
OnClick = btnAllClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object cbxUsers: TComboBox
|
||||
Left = 96
|
||||
Height = 21
|
||||
Top = 40
|
||||
Width = 227
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
ItemHeight = 20
|
||||
MaxLength = 0
|
||||
ParentCtl3D = False
|
||||
Sorted = True
|
||||
TabOrder = 0
|
||||
Text = 'cbxUsers'
|
||||
end
|
||||
object cbxGroups: TComboBox
|
||||
Left = 96
|
||||
Height = 21
|
||||
Top = 72
|
||||
Width = 227
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
ItemHeight = 20
|
||||
MaxLength = 0
|
||||
ParentCtl3D = False
|
||||
Sorted = True
|
||||
TabOrder = 1
|
||||
Text = 'cbxGroups'
|
||||
end
|
||||
end
|
||||
|
|
|
|||
31
fchown.lrs
31
fchown.lrs
|
|
@ -1,31 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmChown','FORMDATA',[
|
||||
'TPF0'#9'TfrmChown'#8'frmChown'#13'ActiveControl'#7#9'btnCancel'#7'Caption'#6
|
||||
+#18'Change Owner/Group'#12'ClientHeight'#3#160#0#11'ClientWidth'#3'P'#1#5'Co'
|
||||
+'lor'#7#12'clBackground'#8'Position'#7#16'poMainFormCenter'#18'HorzScrollBar'
|
||||
+'.Page'#3'Q'#1#19'HorzScrollBar.Range'#3'C'#1#18'VertScrollBar.Page'#3#161#0
|
||||
+#19'VertScrollBar.Range'#3#145#0#4'Left'#3'I'#1#6'Height'#3#160#0#3'Top'#3
|
||||
+#222#0#5'Width'#3'P'#1#0#7'TBitBtn'#9'btnCancel'#4'Kind'#7#8'bkCancel'#11'Mo'
|
||||
+'dalResult'#2#2#11'ModalResult'#2#2#7'Caption'#6#6'Cancel'#8'TabOrder'#2#5#4
|
||||
+'Left'#3#248#0#6'Height'#2#25#3'Top'#2'x'#5'Width'#2'K'#0#0#7'TBitBtn'#7'btn'
|
||||
+'Skip'#7'OnClick'#7#12'btnSkipClick'#7'Caption'#6#4'Skip'#8'TabOrder'#2#4#7
|
||||
+'OnClick'#7#12'btnSkipClick'#4'Left'#3#168#0#6'Height'#2#25#3'Top'#2'x'#5'Wi'
|
||||
+'dth'#2'K'#0#0#7'TBitBtn'#5'btnOK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalRe'
|
||||
+'sult'#2#1#7'OnClick'#7#10'btnOKClick'#7'Default'#9#11'ModalResult'#2#1#7'Ca'
|
||||
+'ption'#6#3'&OK'#8'TabOrder'#2#2#7'OnClick'#7#10'btnOKClick'#4'Left'#2#8#6'H'
|
||||
+'eight'#2#25#3'Top'#2'x'#5'Width'#2'K'#0#0#7'TBitBtn'#6'btnAll'#7'OnClick'#7
|
||||
+#11'btnAllClick'#7'Caption'#6#4'&All'#8'TabOrder'#2#3#7'OnClick'#7#11'btnAll'
|
||||
+'Click'#4'Left'#2'X'#6'Height'#2#25#3'Top'#2'x'#5'Width'#2'K'#0#0#9'TComboBo'
|
||||
+'x'#8'cbxUsers'#10'ItemHeight'#2#20#9'MaxLength'#2#0#11'ParentCtl3D'#8#6'Sor'
|
||||
+'ted'#9#8'TabOrder'#2#0#4'Text'#6#8'cbxUsers'#4'Left'#2'`'#6'Height'#2#26#3
|
||||
+'Top'#2'('#5'Width'#3#227#0#0#0#9'TComboBox'#9'cbxGroups'#10'ItemHeight'#2#20
|
||||
+#9'MaxLength'#2#0#11'ParentCtl3D'#8#6'Sorted'#9#8'TabOrder'#2#1#4'Text'#6#9
|
||||
+'cbxGroups'#4'Left'#2'`'#6'Height'#2#26#3'Top'#2'H'#5'Width'#3#227#0#0#0#6'T'
|
||||
+'Label'#11'lblFileName'#7'Caption'#6#11'lblFileName'#10'Font.Color'#7#7'clBl'
|
||||
+'ack'#11'Font.Height'#2#13#9'Font.Name'#6#9'Helvetica'#10'Font.Pitch'#7#10'f'
|
||||
+'pVariable'#10'Font.Style'#11#6'fsBold'#0#4'Left'#2#8#6'Height'#2#15#3'Top'#2
|
||||
+#8#5'Width'#3';'#1#0#0#6'TLabel'#8'lblOwner'#7'Caption'#6#5'Owner'#4'Left'#2
|
||||
+#8#6'Height'#2#15#3'Top'#2'.'#5'Width'#2'P'#0#0#6'TLabel'#8'lblGroup'#7'Capt'
|
||||
+'ion'#6#5'Group'#4'Left'#2#8#6'Height'#2#15#3'Top'#2'N'#5'Width'#2'P'#0#0#0
|
||||
]);
|
||||
368
fchown.pas
368
fchown.pas
|
|
@ -1,184 +1,184 @@
|
|||
{
|
||||
File name: fChown.pas
|
||||
Date: 2003/07/03
|
||||
Author: Martin Matusu <xmat@volny.cz>
|
||||
|
||||
Copyright (C) 2003
|
||||
|
||||
This program is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU General Public License as
|
||||
published by the Free Software Foundation; either version 2 of the
|
||||
License, or (at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful, but
|
||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
in a file called COPYING along with this program; if not, write to
|
||||
the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
|
||||
02139, USA.
|
||||
}
|
||||
|
||||
{mate}
|
||||
|
||||
unit fChown;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, Buttons, fLngForm, uFileList;
|
||||
|
||||
type
|
||||
TfrmChown = class(TfrmLng)
|
||||
btnCancel: TBitBtn;
|
||||
btnSkip: TBitBtn;
|
||||
btnOK: TBitBtn;
|
||||
btnAll: TBitBtn;
|
||||
cbxUsers: TComboBox;
|
||||
cbxGroups: TComboBox;
|
||||
lblFileName: TLabel;
|
||||
lblOwner: TLabel;
|
||||
lblGroup: TLabel;
|
||||
procedure btnSkipClick(Sender: TObject);
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
procedure btnAllClick(Sender: TObject);
|
||||
|
||||
private
|
||||
{ Private declarations }
|
||||
bPerm: Boolean;
|
||||
iCurrent:Integer;
|
||||
ffileList:TFileList;
|
||||
public
|
||||
{ Public declarations }
|
||||
procedure LoadLng; override;
|
||||
procedure StoreData(FileList:TFileList);
|
||||
function FindNextSelected:Boolean;
|
||||
procedure ShowFile(iIndex:Integer);
|
||||
procedure ChangeOwner;
|
||||
end;
|
||||
|
||||
procedure ShowChownForm(FileList:TFileList; const aPath:String);
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
uses
|
||||
uLng, Unix, BaseUnix, uUsersGroups;
|
||||
|
||||
procedure ShowChownForm(FileList:TFileList; const aPath:String);
|
||||
begin
|
||||
with TfrmChown.Create(Application) do
|
||||
begin
|
||||
try
|
||||
// Path:=aPath;
|
||||
StoreData(FileList);
|
||||
if FindNextSelected then
|
||||
begin
|
||||
ShowFile(iCurrent);
|
||||
ShowModal;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmChown.StoreData(FileList:TFileList);
|
||||
begin
|
||||
fFileList:=FileList;
|
||||
iCurrent:=0;
|
||||
end;
|
||||
|
||||
function TfrmChown.FindNextSelected:Boolean;
|
||||
var
|
||||
i:Integer;
|
||||
begin
|
||||
Application.ProcessMessages;
|
||||
for i:=iCurrent to FFileList.Count-1 do
|
||||
begin
|
||||
if FFileList.GetItem(i)^.bSelected then
|
||||
begin
|
||||
iCurrent:=i;
|
||||
Result:=True;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
Result:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmChown.ShowFile(iIndex:Integer);
|
||||
var
|
||||
iMyUID: Cardinal;
|
||||
begin
|
||||
iMyUID:=fpGetUID; //get user's UID
|
||||
with ffileList.GetItem(iIndex)^ do
|
||||
begin
|
||||
bPerm:=(iMyUID=iOwner);
|
||||
lblFileName.Caption:=sName;
|
||||
cbxUsers.Text:=sOwner;
|
||||
if(imyUID=0) then GetUsers(cbxUsers.Items); //huh, a ROOT :))
|
||||
cbxUsers.Enabled:=(imyUID=0);
|
||||
cbxGroups.Text:=sGroup;
|
||||
if(bPerm or (iMyUID=0)) then
|
||||
GetUsrGroups(iMyUID,cbxGroups.Items);
|
||||
cbxGroups.Enabled:=(bPerm or (iMyUID=0));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmChown.btnSkipClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
inc (iCurrent);
|
||||
if not FindNextSelected Then
|
||||
Close
|
||||
else
|
||||
ShowFile(iCurrent);
|
||||
end;
|
||||
|
||||
procedure TfrmChown.LoadLng;
|
||||
begin
|
||||
// load strings
|
||||
Caption:=lngGetString(clngChownDlg);
|
||||
lblOwner.Caption:=lngGetString(clngChownOwner);
|
||||
lblGroup.Caption:=lngGetString(clngChownGroup);
|
||||
btnCancel.Caption:=lngGetString(clngbutCancel);
|
||||
btnSkip.Caption:=lngGetString(clngbutSkip);
|
||||
btnAll.Caption:=lngGetString(clngbutAll);
|
||||
end;
|
||||
|
||||
procedure TfrmChown.ChangeOwner;
|
||||
begin
|
||||
fpchown(PChar(ffileList.GetItem(iCurrent)^.sName),StrToUID(cbxUsers.Text),
|
||||
StrToGID(cbxGroups.Text));
|
||||
end;
|
||||
|
||||
procedure TfrmChown.btnOKClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if (bPerm) then
|
||||
ChangeOwner;
|
||||
btnSkipClick(Self);
|
||||
end;
|
||||
|
||||
procedure TfrmChown.btnAllClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
repeat
|
||||
if(bPerm) then
|
||||
ChangeOwner;
|
||||
inc (iCurrent);
|
||||
until not FindNextSelected;
|
||||
Close;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fChown.lrs}
|
||||
end.
|
||||
{/mate}
|
||||
{
|
||||
File name: fChown.pas
|
||||
Date: 2003/07/03
|
||||
Author: Martin Matusu <xmat@volny.cz>
|
||||
|
||||
Copyright (C) 2003
|
||||
|
||||
This program is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU General Public License as
|
||||
published by the Free Software Foundation; either version 2 of the
|
||||
License, or (at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful, but
|
||||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
in a file called COPYING along with this program; if not, write to
|
||||
the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
|
||||
02139, USA.
|
||||
}
|
||||
|
||||
{mate}
|
||||
|
||||
unit fChown;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, Buttons, fLngForm, uFileList;
|
||||
|
||||
type
|
||||
TfrmChown = class(TfrmLng)
|
||||
btnCancel: TBitBtn;
|
||||
btnSkip: TBitBtn;
|
||||
btnOK: TBitBtn;
|
||||
btnAll: TBitBtn;
|
||||
cbxUsers: TComboBox;
|
||||
cbxGroups: TComboBox;
|
||||
lblFileName: TLabel;
|
||||
lblOwner: TLabel;
|
||||
lblGroup: TLabel;
|
||||
procedure btnSkipClick(Sender: TObject);
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
procedure btnAllClick(Sender: TObject);
|
||||
|
||||
private
|
||||
{ Private declarations }
|
||||
bPerm: Boolean;
|
||||
iCurrent:Integer;
|
||||
ffileList:TFileList;
|
||||
public
|
||||
{ Public declarations }
|
||||
procedure LoadLng; override;
|
||||
procedure StoreData(FileList:TFileList);
|
||||
function FindNextSelected:Boolean;
|
||||
procedure ShowFile(iIndex:Integer);
|
||||
procedure ChangeOwner;
|
||||
end;
|
||||
|
||||
procedure ShowChownForm(FileList:TFileList; const aPath:String);
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
uses
|
||||
uLng, Unix, BaseUnix, uUsersGroups;
|
||||
|
||||
procedure ShowChownForm(FileList:TFileList; const aPath:String);
|
||||
begin
|
||||
with TfrmChown.Create(Application) do
|
||||
begin
|
||||
try
|
||||
// Path:=aPath;
|
||||
StoreData(FileList);
|
||||
if FindNextSelected then
|
||||
begin
|
||||
ShowFile(iCurrent);
|
||||
ShowModal;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmChown.StoreData(FileList:TFileList);
|
||||
begin
|
||||
fFileList:=FileList;
|
||||
iCurrent:=0;
|
||||
end;
|
||||
|
||||
function TfrmChown.FindNextSelected:Boolean;
|
||||
var
|
||||
i:Integer;
|
||||
begin
|
||||
Application.ProcessMessages;
|
||||
for i:=iCurrent to FFileList.Count-1 do
|
||||
begin
|
||||
if FFileList.GetItem(i)^.bSelected then
|
||||
begin
|
||||
iCurrent:=i;
|
||||
Result:=True;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
Result:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmChown.ShowFile(iIndex:Integer);
|
||||
var
|
||||
iMyUID: Cardinal;
|
||||
begin
|
||||
iMyUID:=fpGetUID; //get user's UID
|
||||
with ffileList.GetItem(iIndex)^ do
|
||||
begin
|
||||
bPerm:=(iMyUID=iOwner);
|
||||
lblFileName.Caption:=sName;
|
||||
cbxUsers.Text:=sOwner;
|
||||
if(imyUID=0) then GetUsers(cbxUsers.Items); //huh, a ROOT :))
|
||||
cbxUsers.Enabled:=(imyUID=0);
|
||||
cbxGroups.Text:=sGroup;
|
||||
if(bPerm or (iMyUID=0)) then
|
||||
GetUsrGroups(iMyUID,cbxGroups.Items);
|
||||
cbxGroups.Enabled:=(bPerm or (iMyUID=0));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmChown.btnSkipClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
inc (iCurrent);
|
||||
if not FindNextSelected Then
|
||||
Close
|
||||
else
|
||||
ShowFile(iCurrent);
|
||||
end;
|
||||
|
||||
procedure TfrmChown.LoadLng;
|
||||
begin
|
||||
// load strings
|
||||
Caption:=lngGetString(clngChownDlg);
|
||||
lblOwner.Caption:=lngGetString(clngChownOwner);
|
||||
lblGroup.Caption:=lngGetString(clngChownGroup);
|
||||
btnCancel.Caption:=lngGetString(clngbutCancel);
|
||||
btnSkip.Caption:=lngGetString(clngbutSkip);
|
||||
btnAll.Caption:=lngGetString(clngbutAll);
|
||||
end;
|
||||
|
||||
procedure TfrmChown.ChangeOwner;
|
||||
begin
|
||||
fpchown(PChar(ffileList.GetItem(iCurrent)^.sName),StrToUID(cbxUsers.Text),
|
||||
StrToGID(cbxGroups.Text));
|
||||
end;
|
||||
|
||||
procedure TfrmChown.btnOKClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if (bPerm) then
|
||||
ChangeOwner;
|
||||
btnSkipClick(Self);
|
||||
end;
|
||||
|
||||
procedure TfrmChown.btnAllClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
repeat
|
||||
if(bPerm) then
|
||||
ChangeOwner;
|
||||
inc (iCurrent);
|
||||
until not FindNextSelected;
|
||||
Close;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fchown.lrs}
|
||||
end.
|
||||
{/mate}
|
||||
|
|
|
|||
|
|
@ -1,80 +1,70 @@
|
|||
object frmCompareFiles: TfrmCompareFiles
|
||||
ActiveControl = edtFileNameLeft
|
||||
Caption = 'Compare files'
|
||||
ClientHeight = 540
|
||||
ClientWidth = 783
|
||||
PixelsPerInch = 96
|
||||
Position = poScreenCenter
|
||||
TextHeight = 15
|
||||
inherited frmCompareFiles: TfrmCompareFiles
|
||||
Left = 235
|
||||
Height = 540
|
||||
Top = 94
|
||||
Width = 783
|
||||
HorzScrollBar.Page = 782
|
||||
HorzScrollBar.Range = 365
|
||||
VertScrollBar.Page = 539
|
||||
VertScrollBar.Range = 52
|
||||
Left = 61
|
||||
Height = 540
|
||||
Top = 550
|
||||
Width = 783
|
||||
ActiveControl = edtFileNameLeft
|
||||
Caption = 'Compare files'
|
||||
Position = poScreenCenter
|
||||
object Splitter1: TSplitter
|
||||
Height = 476
|
||||
Width = 5
|
||||
Cursor = crHSplit
|
||||
Left = 361
|
||||
Height = 476
|
||||
Top = 41
|
||||
Width = 5
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Align = alLeft
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 476
|
||||
ClientWidth = 361
|
||||
FullRepaint = False
|
||||
TabOrder = 0
|
||||
Height = 476
|
||||
Top = 41
|
||||
Width = 361
|
||||
Align = alLeft
|
||||
BevelOuter = bvNone
|
||||
FullRepaint = False
|
||||
TabOrder = 0
|
||||
object pnlLeftBox: TPanel
|
||||
Height = 25
|
||||
Width = 361
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 25
|
||||
ClientWidth = 361
|
||||
FullRepaint = False
|
||||
TabOrder = 0
|
||||
OnResize = pnlLeftBoxResize
|
||||
Height = 25
|
||||
Width = 361
|
||||
object edtFileNameLeft: TEdit
|
||||
TabOrder = 0
|
||||
Text = 'pp'
|
||||
Height = 20
|
||||
Width = 307
|
||||
TabOrder = 0
|
||||
Text = 'pp'
|
||||
end
|
||||
object btnFileNameLeft: TButton
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = '...'
|
||||
TabOrder = 1
|
||||
Left = 323
|
||||
Height = 20
|
||||
Width = 20
|
||||
Caption = '...'
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object lstLeft: TSynEdit
|
||||
Height = 451
|
||||
Top = 25
|
||||
Width = 361
|
||||
Align = alClient
|
||||
Font.Color = clBlack
|
||||
Font.Height = 13
|
||||
Font.Name = 'adobe-courier'
|
||||
Font.Pitch = fpVariable
|
||||
Height = 451
|
||||
Name = 'lstLeft'
|
||||
ParentColor = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
Width = 361
|
||||
BookMarkOptions.Xoffset = -18
|
||||
BookMarkOptions.OnChange = nil
|
||||
Gutter.DigitCount = 2
|
||||
Gutter.LeftOffset = 0
|
||||
Gutter.Visible = False
|
||||
Gutter.Width = 15
|
||||
Gutter.OnChange = nil
|
||||
Gutter.CodeFoldingWidth = 14
|
||||
Keystrokes = <
|
||||
item
|
||||
|
|
@ -398,65 +388,59 @@ object frmCompareFiles: TfrmCompareFiles
|
|||
ShortCut = 24642
|
||||
end>
|
||||
ReadOnly = True
|
||||
SelectedColor.OnChange = nil
|
||||
OnSpecialLineColors = lstLeftSpecialLineColors
|
||||
OnStatusChange = lstLeftStatusChange
|
||||
Cursor = crIBeam
|
||||
Height = 451
|
||||
Top = 25
|
||||
Width = 361
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 476
|
||||
ClientWidth = 417
|
||||
FullRepaint = False
|
||||
TabOrder = 1
|
||||
Left = 366
|
||||
Height = 476
|
||||
Top = 41
|
||||
Width = 417
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
FullRepaint = False
|
||||
TabOrder = 1
|
||||
object pnlRightBox: TPanel
|
||||
Height = 25
|
||||
Width = 417
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 25
|
||||
ClientWidth = 417
|
||||
FullRepaint = False
|
||||
TabOrder = 0
|
||||
OnResize = pnlRightBoxResize
|
||||
Height = 25
|
||||
Width = 417
|
||||
object edtFileNameRight: TEdit
|
||||
TabOrder = 0
|
||||
Text = 'ppp'
|
||||
Left = 10
|
||||
Height = 20
|
||||
Width = 344
|
||||
TabOrder = 0
|
||||
Text = 'ppp'
|
||||
end
|
||||
object btnFileNameRight: TButton
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = '...'
|
||||
TabOrder = 1
|
||||
Left = 370
|
||||
Height = 20
|
||||
Width = 20
|
||||
Caption = '...'
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object lstRight: TSynEdit
|
||||
Height = 451
|
||||
Top = 25
|
||||
Width = 417
|
||||
Align = alClient
|
||||
Font.Color = clBlack
|
||||
Font.Height = 13
|
||||
Font.Name = 'adobe-courier'
|
||||
Font.Pitch = fpVariable
|
||||
Height = 451
|
||||
Name = 'lstRight'
|
||||
ParentColor = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
Width = 417
|
||||
BookMarkOptions.Xoffset = -18
|
||||
BookMarkOptions.OnChange = nil
|
||||
Gutter.Visible = False
|
||||
Gutter.OnChange = nil
|
||||
Gutter.CodeFoldingWidth = 14
|
||||
Keystrokes = <
|
||||
item
|
||||
|
|
@ -780,88 +764,79 @@ object frmCompareFiles: TfrmCompareFiles
|
|||
ShortCut = 24642
|
||||
end>
|
||||
ReadOnly = True
|
||||
SelectedColor.OnChange = nil
|
||||
OnSpecialLineColors = lstRightSpecialLineColors
|
||||
OnStatusChange = lstRightStatusChange
|
||||
Cursor = crIBeam
|
||||
Height = 451
|
||||
Top = 25
|
||||
Width = 417
|
||||
end
|
||||
end
|
||||
object pnlStatusBar: TStatusBar
|
||||
Height = 23
|
||||
Top = 517
|
||||
Width = 783
|
||||
Panels = <
|
||||
item
|
||||
Text = 'Number of changes: '
|
||||
Width = 50
|
||||
end>
|
||||
Height = 23
|
||||
Top = 517
|
||||
Width = 783
|
||||
end
|
||||
object pnlButtons: TPanel
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 41
|
||||
ClientWidth = 783
|
||||
FullRepaint = False
|
||||
TabOrder = 2
|
||||
Height = 41
|
||||
Width = 783
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
FullRepaint = False
|
||||
TabOrder = 2
|
||||
object btnCompare: TButton
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Compare files'
|
||||
OnClick = btnCompareClick
|
||||
TabOrder = 0
|
||||
Left = 5
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 96
|
||||
Caption = 'Compare files'
|
||||
OnClick = btnCompareClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object btnNextDiff: TButton
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Next difference'
|
||||
TabOrder = 1
|
||||
Left = 120
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 122
|
||||
Caption = 'Next difference'
|
||||
TabOrder = 1
|
||||
end
|
||||
object btnPrevDiff: TButton
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Previous difference'
|
||||
TabOrder = 2
|
||||
Left = 256
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 147
|
||||
Caption = 'Previous difference'
|
||||
TabOrder = 2
|
||||
end
|
||||
object chbBinMode: TCheckBox
|
||||
AllowGrayed = True
|
||||
Caption = 'Binary mode'
|
||||
TabOrder = 3
|
||||
Left = 424
|
||||
Height = 13
|
||||
Top = 8
|
||||
Width = 78
|
||||
AllowGrayed = True
|
||||
Caption = 'Binary mode'
|
||||
TabOrder = 3
|
||||
end
|
||||
object btnClose: TButton
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Close'
|
||||
OnClick = btnCloseClick
|
||||
TabOrder = 4
|
||||
Left = 648
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 50
|
||||
Caption = 'Close'
|
||||
OnClick = btnCloseClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object chbKeepScrolling: TCheckBox
|
||||
AllowGrayed = True
|
||||
Caption = 'Keep scrolling'
|
||||
TabOrder = 5
|
||||
Left = 528
|
||||
Height = 13
|
||||
Top = 8
|
||||
Width = 86
|
||||
AllowGrayed = True
|
||||
Caption = 'Keep scrolling'
|
||||
TabOrder = 5
|
||||
end
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -1,176 +1,176 @@
|
|||
unit fCompareFiles;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, fLngForm,
|
||||
ComCtrls, Buttons, SynEdit;
|
||||
|
||||
type
|
||||
TfrmCompareFiles = class(TFrmLng)
|
||||
Panel1: TPanel;
|
||||
Splitter1: TSplitter;
|
||||
Panel2: TPanel;
|
||||
pnlLeftBox: TPanel;
|
||||
pnlRightBox: TPanel;
|
||||
edtFileNameLeft: TEdit;
|
||||
btnFileNameLeft: TButton;
|
||||
edtFileNameRight: TEdit;
|
||||
btnFileNameRight: TButton;
|
||||
lstRight: TSynEdit;
|
||||
lstLeft: TSynEdit;
|
||||
pnlStatusBar: TStatusBar;
|
||||
pnlButtons: TPanel;
|
||||
btnCompare: TButton;
|
||||
btnNextDiff: TButton;
|
||||
btnPrevDiff: TButton;
|
||||
chbBinMode: TCheckBox;
|
||||
btnClose: TButton;
|
||||
chbKeepScrolling: TCheckBox;
|
||||
procedure btnCompareClick(Sender: TObject);
|
||||
procedure lstLeftSpecialLineColors(Sender: TObject; Line: Integer;
|
||||
var Special: Boolean; var FG, BG: TColor);
|
||||
procedure lstLeftStatusChange(Sender: TObject; Changes: TSynStatusChanges);
|
||||
procedure lstRightSpecialLineColors(Sender: TObject; Line: Integer;
|
||||
var Special: Boolean; var FG, BG: TColor);
|
||||
procedure lstRightStatusChange(Sender: TObject; Changes: TSynStatusChanges);
|
||||
procedure pnlLeftBoxResize(Sender: TObject);
|
||||
procedure pnlRightBoxResize(Sender: TObject);
|
||||
procedure btnCloseClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
procedure LoadLng; override;
|
||||
end;
|
||||
|
||||
procedure ShowCmpFiles(const sFile1, sFile2:String);
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
uses
|
||||
uCompareFiles, uLng, uGlobs;
|
||||
|
||||
procedure ShowCmpFiles(const sFile1, sFile2:String);
|
||||
begin
|
||||
with TfrmCompareFiles.Create(Application)do
|
||||
begin
|
||||
try
|
||||
edtFileNameLeft.Text:=sFile1;
|
||||
edtFileNameRight.Text:=sFile2;
|
||||
ShowModal;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.LoadLng;
|
||||
begin
|
||||
lstLeft.Font.Name:=gEditorFontName;
|
||||
lstLeft.Font.Style:=[];
|
||||
lstRight.Font.Name:=gEditorFontName;
|
||||
lstLeft.Font.Size:=gEditorSize;
|
||||
lstRight.Font.Size:=gEditorSize;
|
||||
lstRight.Font.Style:=[];
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.btnCompareClick(Sender: TObject);
|
||||
var
|
||||
iChanges : integer;
|
||||
begin
|
||||
if chbBinMode.Checked then
|
||||
iChanges := CompareFiles(edtFileNameLeft.Text, edtFileNameRight.Text,
|
||||
lstLeft.Lines, lstRight.Lines, cmInternalBin)
|
||||
else
|
||||
iChanges := CompareFiles(edtFileNameLeft.Text, edtFileNameRight.Text,
|
||||
lstLeft.Lines, lstRight.Lines, cmInternalText);
|
||||
{ CompareFiles(edtFileNameLeft.Text, edtFileNameRight.Text,
|
||||
lstLeft.Items, lstRight.Items, cmInternalText);}
|
||||
pnlStatusBar.Panels[0].Text := lngGetString(clngCompareDiffs) + ' ' + IntToStr(iChanges);
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.lstLeftSpecialLineColors(Sender: TObject;
|
||||
Line: Integer; var Special: Boolean; var FG, BG: TColor);
|
||||
var
|
||||
i:Integer;
|
||||
begin
|
||||
i:=Integer(lstLeft.Lines.Objects[Line-1]);
|
||||
if i = 0 then Exit;
|
||||
Special:=True;
|
||||
if chbBinMode.Checked then
|
||||
begin
|
||||
FG:=clRed;
|
||||
Exit;
|
||||
end;
|
||||
if i=1 then
|
||||
FG:=clRed
|
||||
else
|
||||
FG:=clGreen;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.lstLeftStatusChange(Sender: TObject;
|
||||
Changes: TSynStatusChanges);
|
||||
begin
|
||||
if (chbKeepScrolling.Checked) then
|
||||
begin
|
||||
lstRight.TopLine := lstLeft.TopLine;
|
||||
lstLeft.Invalidate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.lstRightSpecialLineColors(Sender: TObject;
|
||||
Line: Integer; var Special: Boolean; var FG, BG: TColor);
|
||||
var
|
||||
i:Integer;
|
||||
begin
|
||||
i:=Integer(lstRight.Lines.Objects[Line-1]);
|
||||
if i = 0 then Exit;
|
||||
Special:=True;
|
||||
if chbBinMode.Checked then
|
||||
begin
|
||||
FG:=clRed;
|
||||
Exit;
|
||||
end;
|
||||
if i=1 then
|
||||
FG:=clRed
|
||||
else
|
||||
FG:=clGreen;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.lstRightStatusChange(Sender: TObject;
|
||||
Changes: TSynStatusChanges);
|
||||
begin
|
||||
if (chbKeepScrolling.Checked) then
|
||||
begin
|
||||
lstLeft.TopLine := lstRight.TopLine;
|
||||
lstRight.Invalidate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.pnlLeftBoxResize(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
edtFileNameLeft.Width := pnlLeftBox.Width - btnFileNameLeft.Width;
|
||||
btnFileNameLeft.Left := pnlLeftBox.Width - btnFileNameLeft.Width;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.pnlRightBoxResize(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
edtFileNameRight.Width := pnlRightBox.Width - btnFileNameRight.Width;
|
||||
btnFileNameRight.Left := pnlRightBox.Width - btnFileNameRight.Width;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.btnCloseClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
Close();
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fCompareFiles.lrs}
|
||||
end.
|
||||
|
||||
unit fCompareFiles;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, fLngForm,
|
||||
ComCtrls, Buttons, SynEdit;
|
||||
|
||||
type
|
||||
TfrmCompareFiles = class(TFrmLng)
|
||||
Panel1: TPanel;
|
||||
Splitter1: TSplitter;
|
||||
Panel2: TPanel;
|
||||
pnlLeftBox: TPanel;
|
||||
pnlRightBox: TPanel;
|
||||
edtFileNameLeft: TEdit;
|
||||
btnFileNameLeft: TButton;
|
||||
edtFileNameRight: TEdit;
|
||||
btnFileNameRight: TButton;
|
||||
lstRight: TSynEdit;
|
||||
lstLeft: TSynEdit;
|
||||
pnlStatusBar: TStatusBar;
|
||||
pnlButtons: TPanel;
|
||||
btnCompare: TButton;
|
||||
btnNextDiff: TButton;
|
||||
btnPrevDiff: TButton;
|
||||
chbBinMode: TCheckBox;
|
||||
btnClose: TButton;
|
||||
chbKeepScrolling: TCheckBox;
|
||||
procedure btnCompareClick(Sender: TObject);
|
||||
procedure lstLeftSpecialLineColors(Sender: TObject; Line: Integer;
|
||||
var Special: Boolean; var FG, BG: TColor);
|
||||
procedure lstLeftStatusChange(Sender: TObject; Changes: TSynStatusChanges);
|
||||
procedure lstRightSpecialLineColors(Sender: TObject; Line: Integer;
|
||||
var Special: Boolean; var FG, BG: TColor);
|
||||
procedure lstRightStatusChange(Sender: TObject; Changes: TSynStatusChanges);
|
||||
procedure pnlLeftBoxResize(Sender: TObject);
|
||||
procedure pnlRightBoxResize(Sender: TObject);
|
||||
procedure btnCloseClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
procedure LoadLng; override;
|
||||
end;
|
||||
|
||||
procedure ShowCmpFiles(const sFile1, sFile2:String);
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
uses
|
||||
uCompareFiles, uLng, uGlobs;
|
||||
|
||||
procedure ShowCmpFiles(const sFile1, sFile2:String);
|
||||
begin
|
||||
with TfrmCompareFiles.Create(Application)do
|
||||
begin
|
||||
try
|
||||
edtFileNameLeft.Text:=sFile1;
|
||||
edtFileNameRight.Text:=sFile2;
|
||||
ShowModal;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.LoadLng;
|
||||
begin
|
||||
lstLeft.Font.Name:=gEditorFontName;
|
||||
lstLeft.Font.Style:=[];
|
||||
lstRight.Font.Name:=gEditorFontName;
|
||||
lstLeft.Font.Size:=gEditorSize;
|
||||
lstRight.Font.Size:=gEditorSize;
|
||||
lstRight.Font.Style:=[];
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.btnCompareClick(Sender: TObject);
|
||||
var
|
||||
iChanges : integer;
|
||||
begin
|
||||
if chbBinMode.Checked then
|
||||
iChanges := CompareFiles(edtFileNameLeft.Text, edtFileNameRight.Text,
|
||||
lstLeft.Lines, lstRight.Lines, cmInternalBin)
|
||||
else
|
||||
iChanges := CompareFiles(edtFileNameLeft.Text, edtFileNameRight.Text,
|
||||
lstLeft.Lines, lstRight.Lines, cmInternalText);
|
||||
{ CompareFiles(edtFileNameLeft.Text, edtFileNameRight.Text,
|
||||
lstLeft.Items, lstRight.Items, cmInternalText);}
|
||||
pnlStatusBar.Panels[0].Text := lngGetString(clngCompareDiffs) + ' ' + IntToStr(iChanges);
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.lstLeftSpecialLineColors(Sender: TObject;
|
||||
Line: Integer; var Special: Boolean; var FG, BG: TColor);
|
||||
var
|
||||
i:Integer;
|
||||
begin
|
||||
i:=Integer(lstLeft.Lines.Objects[Line-1]);
|
||||
if i = 0 then Exit;
|
||||
Special:=True;
|
||||
if chbBinMode.Checked then
|
||||
begin
|
||||
FG:=clRed;
|
||||
Exit;
|
||||
end;
|
||||
if i=1 then
|
||||
FG:=clRed
|
||||
else
|
||||
FG:=clGreen;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.lstLeftStatusChange(Sender: TObject;
|
||||
Changes: TSynStatusChanges);
|
||||
begin
|
||||
if (chbKeepScrolling.Checked) then
|
||||
begin
|
||||
lstRight.TopLine := lstLeft.TopLine;
|
||||
lstLeft.Invalidate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.lstRightSpecialLineColors(Sender: TObject;
|
||||
Line: Integer; var Special: Boolean; var FG, BG: TColor);
|
||||
var
|
||||
i:Integer;
|
||||
begin
|
||||
i:=Integer(lstRight.Lines.Objects[Line-1]);
|
||||
if i = 0 then Exit;
|
||||
Special:=True;
|
||||
if chbBinMode.Checked then
|
||||
begin
|
||||
FG:=clRed;
|
||||
Exit;
|
||||
end;
|
||||
if i=1 then
|
||||
FG:=clRed
|
||||
else
|
||||
FG:=clGreen;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.lstRightStatusChange(Sender: TObject;
|
||||
Changes: TSynStatusChanges);
|
||||
begin
|
||||
if (chbKeepScrolling.Checked) then
|
||||
begin
|
||||
lstLeft.TopLine := lstRight.TopLine;
|
||||
lstRight.Invalidate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.pnlLeftBoxResize(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
edtFileNameLeft.Width := pnlLeftBox.Width - btnFileNameLeft.Width;
|
||||
btnFileNameLeft.Left := pnlLeftBox.Width - btnFileNameLeft.Width;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.pnlRightBoxResize(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
edtFileNameRight.Width := pnlRightBox.Width - btnFileNameRight.Width;
|
||||
btnFileNameRight.Left := pnlRightBox.Width - btnFileNameRight.Width;
|
||||
end;
|
||||
|
||||
procedure TfrmCompareFiles.btnCloseClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
Close();
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fcomparefiles.lrs}
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -1,100 +0,0 @@
|
|||
{ Ýòî - ôàéë ðåñóðñîâ, àâòîìàòè÷åñêè ñîçäàííûé lazarus }
|
||||
|
||||
LazarusResources.Add('TButtonChangeDlg','FORMDATA',[
|
||||
'TPF0'#16'TButtonChangeDlg'#15'ButtonChangeDlg'#13'ActiveControl'#7#20'id_btn'
|
||||
+'_barfilesearch'#11'BorderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'b'
|
||||
+'sDialog'#7'Caption'#6#17'Change button bar'#12'ClientHeight'#3#25#1#11'Clie'
|
||||
+'ntWidth'#3'2'#2#10'Font.Color'#7#9'clBtnText'#11'Font.Height'#2#245#9'Font.'
|
||||
+'Name'#6#13'MS Sans Serif'#6'OnShow'#7#8'FormShow'#13'PixelsPerInch'#2'`'#8
|
||||
+'Position'#7#14'poScreenCenter'#10'TextHeight'#2#13#18'HorzScrollBar.Page'#3
|
||||
+'1'#2#18'VertScrollBar.Page'#3#24#1#4'Left'#3#24#1#6'Height'#3#25#1#3'Top'#3
|
||||
+'_'#1#5'Width'#3'2'#2#11'HelpContext'#3#14#1#3'Tag'#2#1#0#6'TLabel'#9'Button'
|
||||
+'bar'#8'AutoSize'#8#7'Caption'#6#12'&Button bar:'#5'Color'#7#6'clNone'#11'Pa'
|
||||
+'rentColor'#8#4'Left'#2#6#6'Height'#2#13#3'Top'#2#5#5'Width'#2'K'#3'Tag'#2#5
|
||||
+#0#0#6'TLabel'#6'Label1'#8'AutoSize'#8#5'Color'#7#13'clWindowFrame'#11'Paren'
|
||||
+'tColor'#8#11'Transparent'#8#4'Left'#2#251#6'Height'#2#2#3'Top'#2'P'#5'Width'
|
||||
+#3'2'#2#0#0#6'TLabel'#7'Command'#8'AutoSize'#8#7'Caption'#6#9'&Command:'#5'C'
|
||||
+'olor'#7#6'clNone'#12'FocusControl'#7#14'id_btn_command'#11'ParentColor'#8#4
|
||||
+'Left'#2#4#6'Height'#2#13#3'Top'#2'W'#5'Width'#2'Q'#3'Tag'#2#9#0#0#6'TLabel'
|
||||
+#10'Parameters'#8'AutoSize'#8#7'Caption'#6#12'&Parameters:'#5'Color'#7#6'clN'
|
||||
+'one'#12'FocusControl'#7#12'id_btn_param'#11'ParentColor'#8#4'Left'#2#4#6'He'
|
||||
+'ight'#2#13#3'Top'#2's'#5'Width'#2'Q'#3'Tag'#2#10#0#0#6'TLabel'#9'Startpath'
|
||||
+#8'AutoSize'#8#7'Caption'#6#12'&Start path:'#5'Color'#7#6'clNone'#12'FocusCo'
|
||||
+'ntrol'#7#16'id_btn_startpath'#11'ParentColor'#8#4'Left'#2#4#6'Height'#2#13#3
|
||||
+'Top'#3#140#0#5'Width'#2'Q'#3'Tag'#2#11#0#0#6'TLabel'#8'Iconfile'#8'AutoSize'
|
||||
+#8#7'Caption'#6#11'Icon &file:'#5'Color'#7#6'clNone'#12'FocusControl'#7#19'i'
|
||||
+'d_btn_iconfilename'#11'ParentColor'#8#4'Left'#2#4#6'Height'#2#13#3'Top'#3
|
||||
+#165#0#5'Width'#2'Q'#3'Tag'#2#12#0#0#6'TLabel'#5'IconX'#8'AutoSize'#8#7'Capt'
|
||||
+'ion'#6#6'Ic&on:'#5'Color'#7#6'clNone'#12'FocusControl'#7#11'id_btn_icon'#11
|
||||
+'ParentColor'#8#8'WordWrap'#9#4'Left'#2#4#6'Height'#2#13#3'Top'#3#190#0#5'Wi'
|
||||
+'dth'#2'1'#3'Tag'#2#13#0#0#6'TLabel'#16'id_btn_iconindex'#8'AutoSize'#8#7'Ca'
|
||||
+'ption'#6#1'0'#5'Color'#7#6'clNone'#11'ParentColor'#8#8'WordWrap'#9#4'Left'#2
|
||||
+'6'#6'Height'#2#14#3'Top'#3#190#0#5'Width'#2#25#0#0#6'TLabel'#7'Tooltip'#8'A'
|
||||
+'utoSize'#8#7'Caption'#6#9'&Tooltip:'#5'Color'#7#6'clNone'#12'FocusControl'#7
|
||||
+#14'id_btn_ToolTip'#11'ParentColor'#8#4'Left'#2#4#6'Height'#2#14#3'Top'#3#248
|
||||
+#0#5'Width'#2'Q'#3'Tag'#2#14#0#0#7'TButton'#20'id_btn_barfilesearch'#25'Bord'
|
||||
+'erSpacing.InnerBorder'#2#2#7'Caption'#6#2'>>'#8'TabOrder'#2#0#4'Left'#3#138
|
||||
+#1#6'Height'#2#21#3'Top'#2#2#5'Width'#2#24#0#0#7'TButton'#13'id_btn_delete'
|
||||
+#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#7'&Delete'#7'OnClick'#7#18'i'
|
||||
+'d_btn_deleteClick'#8'TabOrder'#2#2#4'Left'#2#4#6'Height'#2#23#3'Top'#2'4'#5
|
||||
+'Width'#2'M'#3'Tag'#2#8#0#0#7'TButton'#10'id_btn_add'#25'BorderSpacing.Inner'
|
||||
+'Border'#2#2#7'Caption'#6#7'&Append'#7'OnClick'#7#15'id_btn_addClick'#8'TabO'
|
||||
+'rder'#2#1#4'Left'#2#4#6'Height'#2#23#3'Top'#2#25#5'Width'#2'M'#3'Tag'#2#7#0
|
||||
+#0#9'TComboBox'#14'id_btn_command'#16'AutoCompleteText'#11#22'cbactEndOfLine'
|
||||
+'Complete'#20'cbactSearchAscending'#0#13'DropDownCount'#2#20#11'Font.Height'
|
||||
+#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'ItemHeight'#2#13#9'MaxLength'#2#0
|
||||
+#8'TabOrder'#2#4#4'Left'#2'U'#6'Height'#2#21#3'Top'#2'V'#5'Width'#3'*'#1#0#0
|
||||
+#7'TButton'#12'id_btn_find1'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#2
|
||||
+'>>'#7'OnClick'#7#17'id_btn_find1Click'#8'TabOrder'#2#5#4'Left'#3#128#1#6'He'
|
||||
+'ight'#2#22#3'Top'#2'U'#5'Width'#2#24#0#0#7'TButton'#14'id_btn_findbar'#25'B'
|
||||
+'orderSpacing.InnerBorder'#2#2#7'Caption'#6#14'Add S&ubbar >>'#8'TabOrder'#2
|
||||
+#6#4'Left'#3#164#1#6'Height'#2#23#3'Top'#2'T'#5'Width'#2'm'#3'Tag'#2#15#0#0#8
|
||||
+'TKASEdit'#12'id_btn_param'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans '
|
||||
+'Serif'#9'MaxLength'#3#3#1#8'TabOrder'#2#7#4'Left'#2'U'#6'Height'#2#21#3'Top'
|
||||
+#2'o'#5'Width'#3'*'#1#0#0#9'TCheckBox'#15'id_btn_assymbol'#7'Caption'#6#14'R'
|
||||
+'un mi&nimized'#8'TabOrder'#2#8#4'Left'#3#131#1#6'Height'#2#13#3'Top'#2'r'#5
|
||||
+'Width'#2'^'#3'Tag'#2#16#0#0#8'TKASEdit'#16'id_btn_startpath'#11'Font.Height'
|
||||
+#2#245#9'Font.Name'#6#13'MS Sans Serif'#9'MaxLength'#3#3#1#8'TabOrder'#2#10#4
|
||||
+'Left'#2'U'#6'Height'#2#21#3'Top'#3#136#0#5'Width'#3'*'#1#0#0#8'TKASEdit'#19
|
||||
+'id_btn_iconfilename'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'
|
||||
+#9'MaxLength'#3#3#1#8'TabOrder'#2#11#4'Left'#2'U'#6'Height'#2#21#3'Top'#3#161
|
||||
+#0#5'Width'#3'*'#1#0#0#7'TButton'#15'id_btn_iconfile'#25'BorderSpacing.Inner'
|
||||
+'Border'#2#2#7'Caption'#6#2'>>'#7'OnClick'#7#20'id_btn_iconfileClick'#8'TabO'
|
||||
+'rder'#2#12#4'Left'#3#128#1#6'Height'#2#21#3'Top'#3#160#0#5'Width'#2#24#0#0#8
|
||||
+'TListBox'#11'id_btn_icon'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans S'
|
||||
+'erif'#10'ItemHeight'#2'$'#5'Style'#7#16'lbOwnerDrawFixed'#8'TabOrder'#2#13#4
|
||||
+'Left'#2'U'#6'Height'#2'6'#3'Top'#3#186#0#5'Width'#3'*'#1#0#0#8'TKASEdit'#14
|
||||
+'id_btn_ToolTip'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#9'Ma'
|
||||
,'xLength'#3#3#1#8'TabOrder'#2#14#4'Left'#2'U'#6'Height'#2#21#3'Top'#3#245#0#5
|
||||
+'Width'#3'*'#1#0#0#7'TButton'#2'Ok'#25'BorderSpacing.InnerBorder'#2#2#7'Capt'
|
||||
+'ion'#6#2'OK'#7'Default'#9#7'OnClick'#7#7'OkClick'#8'TabOrder'#2#15#4'Left'#3
|
||||
+#164#1#6'Height'#2#23#3'Top'#3#187#0#5'Width'#2'm'#3'Tag'#3#161#15#0#0#7'TBu'
|
||||
+'tton'#6'Cancel'#25'BorderSpacing.InnerBorder'#2#2#6'Cancel'#9#7'Caption'#6#6
|
||||
+'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#17#4'Left'#3#164#1#6'Height'#2#23
|
||||
+#3'Top'#3#213#0#5'Width'#2'm'#3'Tag'#3#162#15#0#0#7'TButton'#13'id_Globalhel'
|
||||
+'p'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#5'&Help'#8'TabOrder'#2#16
|
||||
+#4'Left'#3#164#1#6'Height'#2#23#3'Top'#3#239#0#5'Width'#2'm'#3'Tag'#3#163#15
|
||||
+#0#0#9'TCheckBox'#16'id_btn_maximized'#7'Caption'#6#14'Run ma&ximized'#8'Tab'
|
||||
+'Order'#2#9#4'Left'#3#131#1#6'Height'#2#13#3'Top'#3#130#0#5'Width'#2'a'#3'Ta'
|
||||
+'g'#2#17#0#0#9'TGroupBox'#9'GroupBox1'#7'Caption'#6#10'Appearance'#12'Client'
|
||||
+'Height'#2';'#11'ClientWidth'#2'm'#8'TabOrder'#2#3#4'Left'#3#164#1#6'Height'
|
||||
+#2'M'#5'Width'#2'q'#3'Tag'#2#18#0#6'TLabel'#4'Size'#8'AutoSize'#8#7'Caption'
|
||||
+#6#6'S&ize:'#5'Color'#7#6'clNone'#12'FocusControl'#7#14'id_btn_barsize'#11'P'
|
||||
+'arentColor'#8#4'Left'#2#6#6'Height'#2#14#3'Top'#2#7#5'Width'#2'7'#3'Tag'#2#6
|
||||
+#0#0#8'TKASEdit'#14'id_btn_barsize'#11'Font.Height'#2#245#9'Font.Name'#6#13
|
||||
+'MS Sans Serif'#8'TabOrder'#2#0#4'Text'#6#1'0'#4'Left'#2'>'#6'Height'#2#21#5
|
||||
+'Width'#2'+'#0#0#9'TCheckBox'#12'id_FlatIcons'#7'Caption'#6#11'F&lat icons'#7
|
||||
+'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2
|
||||
+#13#3'Top'#2#18#5'Width'#2'G'#3'Tag'#2#19#0#0#9'TCheckBox'#13'id_SmallIcons'
|
||||
+#7'Caption'#6#12'S&mall icons'#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#2#13#3
|
||||
+'Top'#2'&'#5'Width'#2'O'#3'Tag'#2#20#0#0#0#10'TScrollBox'#11'tbScrollBox'#8
|
||||
+'TabOrder'#2#18#10'AutoScroll'#9#4'Left'#2'V'#6'Height'#2'2'#3'Top'#2#25#5'W'
|
||||
+'idth'#3'J'#1#0#11'TKAStoolBar'#10'id_btn_bar'#17'OnToolButtonClick'#7#25'id'
|
||||
+'_btn_barToolButtonClick'#15'CheckToolButton'#9#10'BevelOuter'#7#6'bvNone'#12
|
||||
+'ClientHeight'#2#23#11'ClientWidth'#3'('#1#8'TabOrder'#2#0#6'Height'#2#23#5
|
||||
+'Width'#3'('#1#0#0#0#11'TOpenDialog'#10'OpenDialog'#5'Title'#6#25#206#242#234
|
||||
+#240#251#242#252' '#241#243#249#229#241#242#226#243#254#249#232#233' '#244
|
||||
+#224#233#235#11'FilterIndex'#2#0#5'Title'#6#25#206#242#234#240#251#242#252' '
|
||||
+#241#243#249#229#241#242#226#243#254#249#232#233' '#244#224#233#235#4'left'#2
|
||||
+#8#3'top'#3#23#2#0#0#0
|
||||
]);
|
||||
|
|
@ -683,6 +683,6 @@ end;
|
|||
|
||||
|
||||
initialization
|
||||
{$I fEditor.lrs}
|
||||
{$I feditor.lrs}
|
||||
|
||||
end.
|
||||
|
|
|
|||
112
feditorconf.lfm
112
feditorconf.lfm
|
|
@ -1,36 +1,35 @@
|
|||
object frmEditorConf: TfrmEditorConf
|
||||
inherited frmEditorConf: TfrmEditorConf
|
||||
Left = 324
|
||||
Height = 295
|
||||
Top = 201
|
||||
Width = 483
|
||||
AutoScroll = True
|
||||
ActiveControl = grColor
|
||||
Caption = 'Editor configuration'
|
||||
ClientHeight = 295
|
||||
ClientWidth = 483
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
Position = poScreenCenter
|
||||
TextHeight = 16
|
||||
AutoScroll = True
|
||||
Left = 666
|
||||
Height = 295
|
||||
Top = 467
|
||||
Width = 483
|
||||
object lbSample: TLabel
|
||||
Caption = 'Sample'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 184
|
||||
Width = 35
|
||||
end
|
||||
object lbPredefined: TLabel
|
||||
Caption = 'Predefined'
|
||||
Caption = 'Sample'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lbPredefined: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 136
|
||||
Width = 53
|
||||
Caption = 'Predefined'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object grColor: TDrawGrid
|
||||
Left = 8
|
||||
Height = 128
|
||||
Top = 8
|
||||
Width = 128
|
||||
AutoAdvance = aaDown
|
||||
Color = clWhite
|
||||
ColCount = 4
|
||||
|
|
@ -46,63 +45,61 @@ object frmEditorConf: TfrmEditorConf
|
|||
ScrollBars = ssAutoBoth
|
||||
TabOrder = 0
|
||||
TabStop = True
|
||||
VisibleColCount = 4
|
||||
VisibleRowCount = 4
|
||||
OnDrawCell = grColorDrawCell
|
||||
OnMouseDown = grColorMouseDown
|
||||
Left = 8
|
||||
Height = 128
|
||||
Top = 8
|
||||
Width = 128
|
||||
end
|
||||
object lbNames: TListBox
|
||||
OnClick = lbNamesClick
|
||||
TabOrder = 1
|
||||
Left = 240
|
||||
Height = 192
|
||||
Width = 201
|
||||
OnClick = lbNamesClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object cbBold: TCheckBox
|
||||
AllowGrayed = True
|
||||
Caption = 'cbBold'
|
||||
OnClick = cbBoldClick
|
||||
TabOrder = 2
|
||||
Left = 137
|
||||
Height = 13
|
||||
Top = 56
|
||||
Width = 53
|
||||
AllowGrayed = True
|
||||
Caption = 'cbBold'
|
||||
OnClick = cbBoldClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object cbUnderline: TCheckBox
|
||||
AllowGrayed = True
|
||||
Caption = 'cbUnderline'
|
||||
OnClick = cbBoldClick
|
||||
TabOrder = 3
|
||||
Left = 136
|
||||
Height = 13
|
||||
Top = 8
|
||||
Width = 77
|
||||
AllowGrayed = True
|
||||
Caption = 'cbUnderline'
|
||||
OnClick = cbBoldClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object cbStrikeOut: TCheckBox
|
||||
AllowGrayed = True
|
||||
Caption = 'cbStrikeOut'
|
||||
OnClick = cbBoldClick
|
||||
TabOrder = 4
|
||||
Left = 136
|
||||
Height = 13
|
||||
Top = 24
|
||||
Width = 76
|
||||
AllowGrayed = True
|
||||
Caption = 'cbStrikeOut'
|
||||
OnClick = cbBoldClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object cbItalic: TCheckBox
|
||||
AllowGrayed = True
|
||||
Caption = 'cbItalic'
|
||||
OnClick = cbBoldClick
|
||||
TabOrder = 5
|
||||
Left = 136
|
||||
Height = 13
|
||||
Top = 40
|
||||
Width = 54
|
||||
AllowGrayed = True
|
||||
Caption = 'cbItalic'
|
||||
OnClick = cbBoldClick
|
||||
TabOrder = 5
|
||||
end
|
||||
object cmbPredefined: TComboBox
|
||||
Left = 8
|
||||
Height = 21
|
||||
Top = 152
|
||||
Width = 208
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
ItemHeight = 18
|
||||
MaxLength = 0
|
||||
|
|
@ -110,12 +107,12 @@ object frmEditorConf: TfrmEditorConf
|
|||
ParentCtl3D = False
|
||||
Style = csDropDownList
|
||||
TabOrder = 6
|
||||
Left = 8
|
||||
Height = 21
|
||||
Top = 152
|
||||
Width = 208
|
||||
end
|
||||
object btnCancel: TBitBtn
|
||||
Left = 366
|
||||
Height = 25
|
||||
Top = 240
|
||||
Width = 75
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Cancel'
|
||||
Kind = bkCancel
|
||||
|
|
@ -123,12 +120,12 @@ object frmEditorConf: TfrmEditorConf
|
|||
NumGlyphs = 0
|
||||
OnClick = btnCancelClick
|
||||
TabOrder = 9
|
||||
Left = 366
|
||||
end
|
||||
object btnOK: TBitBtn
|
||||
Left = 272
|
||||
Height = 25
|
||||
Top = 240
|
||||
Width = 75
|
||||
end
|
||||
object btnOK: TBitBtn
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = '&OK'
|
||||
Default = True
|
||||
|
|
@ -137,22 +134,17 @@ object frmEditorConf: TfrmEditorConf
|
|||
NumGlyphs = 0
|
||||
OnClick = btnOKClick
|
||||
TabOrder = 7
|
||||
Left = 272
|
||||
Height = 25
|
||||
Top = 240
|
||||
Width = 75
|
||||
end
|
||||
object edtSample: TSynEdit
|
||||
Left = 8
|
||||
Height = 56
|
||||
Top = 209
|
||||
Width = 232
|
||||
Font.Height = -12
|
||||
Font.Name = 'courier'
|
||||
Height = 56
|
||||
Name = 'edtSample'
|
||||
ParentColor = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 8
|
||||
Width = 232
|
||||
BookMarkOptions.OnChange = nil
|
||||
Gutter.OnChange = nil
|
||||
Gutter.CodeFoldingWidth = 14
|
||||
Keystrokes = <
|
||||
item
|
||||
|
|
@ -479,11 +471,5 @@ object frmEditorConf: TfrmEditorConf
|
|||
'bla bla ble ble blu blu'
|
||||
'blu blu ble ble bla bla'
|
||||
)
|
||||
SelectedColor.OnChange = nil
|
||||
Cursor = crIBeam
|
||||
Left = 8
|
||||
Height = 56
|
||||
Top = 209
|
||||
Width = 232
|
||||
end
|
||||
end
|
||||
|
|
|
|||
770
feditorconf.pas
770
feditorconf.pas
|
|
@ -1,385 +1,385 @@
|
|||
unit fEditorConf;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, fLngForm, SynEditHighlighter, SynEditStrConst,
|
||||
Grids, Buttons, ComCtrls, uGlobsPaths, SynEdit;
|
||||
|
||||
type
|
||||
TLittleAttr= Packed Record
|
||||
clFg:TColor;
|
||||
clBg:TColor;
|
||||
fntStyle:Integer;
|
||||
end;
|
||||
|
||||
const
|
||||
cCountSynAttrs=90;
|
||||
// cCountSynAttrs=1;
|
||||
csDefaultName='editor.col';
|
||||
|
||||
// not all synedit highighter are ported
|
||||
cSynAttrNames: Array[0..cCountSynAttrs-1] of String =
|
||||
|
||||
(SYNS_Untitled,
|
||||
SYNS_AttrAsm, SYNS_AttrAsmComment, SYNS_AttrAsmKey,
|
||||
//4
|
||||
SYNS_AttrAssembler, SYNS_AttrAttributeName, SYNS_AttrAttributeValue,
|
||||
SYNS_AttrBlock, SYNS_Untitled, SYNS_AttrBrackets,
|
||||
SYNS_AttrCDATASection, SYNS_AttrCharacter, SYNS_AttrClass,
|
||||
//13
|
||||
SYNS_AttrComment, SYNS_AttrCondition,
|
||||
SYNS_AttrDataType, SYNS_AttrDefaultPackage,
|
||||
//16
|
||||
SYNS_AttrDir, SYNS_AttrDirective, SYNS_AttrDOCTYPESection,
|
||||
SYNS_AttrDocumentation, SYNS_AttrElementName, SYNS_AttrEmbedSQL,
|
||||
SYNS_AttrEmbedText, SYNS_AttrEntityReference, SYNS_AttrEscapeAmpersand,
|
||||
//25
|
||||
SYNS_AttrEvent, SYNS_AttrException, SYNS_AttrFloat, SYNS_AttrForm,
|
||||
SYNS_AttrFunction, SYNS_AttrHexadecimal, SYNS_AttrIcon,
|
||||
//32
|
||||
SYNS_AttrIdentifier, SYNS_AttrIllegalChar, SYNS_AttrInclude,
|
||||
{ SYNS_AttrIndicator,} SYNS_AttrIndirect, SYNS_AttrInvalidSymbol,
|
||||
SYNS_AttrInternalFunction, SYNS_AttrKey, SYNS_AttrLabel,
|
||||
//40
|
||||
SYNS_AttrMacro, SYNS_AttrMarker,
|
||||
SYNS_AttrMessage, SYNS_AttrMiscellaneous, SYNS_AttrNamespaceAttrName,
|
||||
SYNS_AttrNamespaceAttrValue, SYNS_AttrNonReservedKeyword,
|
||||
SYNS_AttrNull, SYNS_AttrNumber,
|
||||
SYNS_AttrOctal, SYNS_AttrOperator, SYNS_AttrPLSQL,
|
||||
//53
|
||||
|
||||
SYNS_AttrPragma, SYNS_AttrPreprocessor,
|
||||
SYNS_AttrProcessingInstr, SYNS_AttrQualifier, SYNS_AttrRegister,
|
||||
SYNS_AttrReservedWord, SYNS_AttrRpl, SYNS_AttrRplKey,
|
||||
//60
|
||||
SYNS_AttrRplComment, SYNS_AttrSASM, SYNS_AttrSASMComment,
|
||||
SYNS_AttrSASMKey, SYNS_AttrSecondReservedWord,
|
||||
SYNS_AttrSection,{ SYNS_AttrSequence,}
|
||||
//66
|
||||
SYNS_AttrSpace,
|
||||
SYNS_AttrSpecialVariable, SYNS_AttrSQLKey, SYNS_AttrSQLPlus,
|
||||
//70
|
||||
SYNS_AttrString,{ SYNS_AttrSingleString,} SYNS_AttrSymbol,
|
||||
SYNS_AttrSyntaxError, SYNS_AttrSystem, SYNS_AttrSystemValue,
|
||||
{ SYNS_AttrTagArea,} SYNS_AttrTableName, SYNS_AttrTerminator,
|
||||
//77
|
||||
SYNS_AttrText, SYNS_AttrUnknownWord, SYNS_AttrUser,
|
||||
SYNS_AttrUserFunction, SYNS_AttrValue, SYNS_AttrVariable,
|
||||
SYNS_AttrWhitespace, SYNS_AttrMathMode, SYNS_AttrTextMathMode,
|
||||
SYNS_AttrSquareBracket, SYNS_AttrRoundBracket, SYNS_AttrTeXCommand);
|
||||
|
||||
cColorGrid:Array[0..15] of TColor=
|
||||
(clBlack, clMaroon, clGreen, clOlive, clNavy,
|
||||
clPurple, clTeal, clGray, clSilver, clRed,
|
||||
clLime, clYellow, clBlue, clFuchsia, clAqua, clWhite);
|
||||
|
||||
var
|
||||
cAttrs:Array [0..cCountSynAttrs-1] of TLittleAttr;
|
||||
|
||||
type
|
||||
TfrmEditorConf = class(TfrmLng)
|
||||
grColor: TDrawGrid;
|
||||
lbNames: TListBox;
|
||||
lbSample: TLabel;
|
||||
cbBold: TCheckBox;
|
||||
cbUnderline: TCheckBox;
|
||||
cbStrikeOut: TCheckBox;
|
||||
cbItalic: TCheckBox;
|
||||
cmbPredefined: TComboBox;
|
||||
lbPredefined: TLabel;
|
||||
btnCancel: TBitBtn;
|
||||
btnOK: TBitBtn;
|
||||
edtSample: TSynEdit;
|
||||
procedure grColorDrawCell(Sender: TObject; ACol, ARow: Integer;
|
||||
Rect: TRect; State: TGridDrawState);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure lbNamesClick(Sender: TObject);
|
||||
procedure grColorMouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
procedure cmbPredefinedChange(Sender: TObject);
|
||||
procedure btnCancelClick(Sender: TObject);
|
||||
procedure cbBoldClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
fbUpdatingBoxes:Boolean;
|
||||
public
|
||||
{ Public declarations }
|
||||
procedure LoadLng; override;
|
||||
procedure FillComboPred;
|
||||
end;
|
||||
procedure LoadAttrFromFile(const sFileName:String);
|
||||
procedure SaveAttrToFile(const sFileName:String);
|
||||
procedure SetupColorOfHighlighter(var h: TSynCustomHighlighter);
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
uses
|
||||
uShowMsg, uLng, FindEx;
|
||||
|
||||
procedure SetupColorOfHighlighter(var h: TSynCustomHighlighter);
|
||||
var
|
||||
i, j:Integer;
|
||||
begin
|
||||
if not assigned(h) then Exit;
|
||||
for i:=0 to h.AttrCount-1 do
|
||||
begin
|
||||
with h.Attribute[i] do
|
||||
begin
|
||||
for j:=0 to cCountSynAttrs-1 do
|
||||
begin
|
||||
if h.Attribute[i].Name=cSynAttrNames[j] then
|
||||
begin
|
||||
Background:= cAttrs[j].clBg;
|
||||
Foreground:= cAttrs[j].clFg;
|
||||
//load style
|
||||
IntegerStyle:= cAttrs[j].fntStyle;
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{ // default attr
|
||||
if assigned(h.CommentAttribute) then
|
||||
with h.CommentAttribute do
|
||||
begin
|
||||
Background:= cAttrs[15].clBg;
|
||||
Foreground:= cAttrs[15].clFg;
|
||||
IntegerStyle:= cAttrs[15].fntStyle;
|
||||
end;
|
||||
if assigned(h.IdentifierAttribute) then
|
||||
with h.IdentifierAttribute do
|
||||
begin
|
||||
Background:= cAttrs[36].clBg;
|
||||
Foreground:= cAttrs[36].clFg;
|
||||
IntegerStyle:= cAttrs[36].fntStyle;
|
||||
end;
|
||||
if assigned(h.KeywordAttribute) then
|
||||
with h.KeywordAttribute do
|
||||
begin
|
||||
Background:= cAttrs[43].clBg;
|
||||
Foreground:= cAttrs[43].clFg;
|
||||
IntegerStyle:= cAttrs[43].fntStyle;
|
||||
end;
|
||||
if assigned(h.StringAttribute) then
|
||||
with h.StringAttribute do
|
||||
begin
|
||||
Background:= cAttrs[76].clBg;
|
||||
Foreground:= cAttrs[76].clFg;
|
||||
IntegerStyle:= cAttrs[76].fntStyle;
|
||||
end;
|
||||
if assigned(h.WhitespaceAttribute) then
|
||||
with h.WhitespaceAttribute do
|
||||
begin
|
||||
Background:= cAttrs[72].clBg;
|
||||
Foreground:= cAttrs[72].clFg;
|
||||
IntegerStyle:= cAttrs[72].fntStyle;
|
||||
end;}
|
||||
end;
|
||||
|
||||
|
||||
procedure LoadAttrFromFile(const sFileName:String);
|
||||
var
|
||||
i:Integer;
|
||||
f:TextFile;
|
||||
s, sValue:String;
|
||||
begin
|
||||
if Not FileExists(sFileName) Then Exit;
|
||||
assign(f,sFileName);
|
||||
reset(f);
|
||||
try
|
||||
while not eof(f) do
|
||||
begin
|
||||
readln(f,s);
|
||||
s:=Trim(s);
|
||||
if s='' then Continue;
|
||||
if s[1]='#' then Continue;
|
||||
if s[1]<>'[' then Continue;
|
||||
s:=Copy(s,2,length(s)-2);
|
||||
for i:=0 to cCountSynAttrs-1 do
|
||||
begin
|
||||
if s=cSynAttrNames[i] then
|
||||
begin
|
||||
// load bg
|
||||
readln(f,s);
|
||||
sValue:=Copy(s,Pos('=',s)+1,length(s));
|
||||
cAttrs[i].clBg:=StrToIntDef(sValue,0);
|
||||
|
||||
// load fg
|
||||
readln(f,s);
|
||||
sValue:=Copy(s,Pos('=',s)+1,length(s));
|
||||
cAttrs[i].clFg:=StrToIntDef(sValue,0);
|
||||
|
||||
//load style
|
||||
readln(f,s);
|
||||
sValue:=Copy(s,Pos('=',s)+1,length(s));
|
||||
cAttrs[i].fntStyle:=StrToIntDef(sValue,0);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
CloseFile(f);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SaveAttrToFile(const sFileName:String);
|
||||
var
|
||||
i:Integer;
|
||||
f:TextFile;
|
||||
begin
|
||||
assign(f,sFileName);
|
||||
rewrite(f);
|
||||
try
|
||||
writeln(f,'# color is $00bbggrr (in hex)');
|
||||
for i:=0 to cCountSynAttrs-1 do
|
||||
begin
|
||||
writeln(f,'[',cSynAttrNames[i],']');
|
||||
writeln(f,'bg=$',IntToHex(cAttrs[i].clBg,8));
|
||||
writeln(f,'fg=$',IntToHex(cAttrs[i].clFg,8));
|
||||
writeln(f,'style=$',cAttrs[i].fntStyle);
|
||||
end;
|
||||
finally
|
||||
CloseFile(f);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.LoadLng;
|
||||
begin
|
||||
Caption:=lngGetString(clngEditCfgForm);
|
||||
cbBold.Caption:=lngGetString(clngEditCfgBold);
|
||||
cbItalic.Caption:=lngGetString(clngEditCfgItalic);
|
||||
cbUnderline.Caption:=lngGetString(clngEditCfgUline);
|
||||
cbStrikeOut.Caption:=lngGetString(clngEditCfgStrike);
|
||||
|
||||
lbPredefined.Caption:=lngGetString(clngEditCfgDefined);
|
||||
lbSample.Caption:=lngGetString(clngEditCfgSample);
|
||||
grColor.ScrollBars:=ssNone;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.grColorDrawCell(Sender: TObject; ACol,
|
||||
ARow: Integer; Rect: TRect; State: TGridDrawState);
|
||||
begin
|
||||
with grColor.Canvas do
|
||||
begin
|
||||
Brush.Style:=bsSolid;
|
||||
Brush.Color:=cColorGrid[Acol*4+Arow];
|
||||
FillRect(Rect);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.FormCreate(Sender: TObject);
|
||||
var
|
||||
i:Integer;
|
||||
begin
|
||||
inherited;
|
||||
lbNames.Clear;
|
||||
for i:=0 to cCountSynAttrs-1 do
|
||||
lbNames.Items.Add(cSynAttrNames[i]);
|
||||
lbNames.ItemIndex:=0;
|
||||
FillComboPred;
|
||||
LoadAttrFromFile(gpIniDir+csDefaultName);
|
||||
lbNamesClick(Sender);
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.lbNamesClick(Sender: TObject);
|
||||
begin
|
||||
edtSample.Font.Color:=cAttrs[lbNames.ItemIndex].clFg;
|
||||
edtSample.Color:=cAttrs[lbNames.ItemIndex].clBg;
|
||||
With edtSample.Font,cAttrs[lbNames.ItemIndex] do
|
||||
begin
|
||||
if fntStyle and $1 = 0 then Style:= [] else Style:= [fsBold];
|
||||
if fntStyle and $2 = 2 then Style:= Style + [fsItalic];
|
||||
if fntStyle and $4 = 4 then Style:= Style + [fsUnderline];
|
||||
if fntStyle and $8 = 8 then Style:= Style + [fsStrikeout];
|
||||
fbUpdatingBoxes:=True;
|
||||
try
|
||||
cbBold.Checked:= (fntStyle and $1) <>0;
|
||||
cbItalic.Checked:=(fntStyle and $2) <> 0;
|
||||
cbUnderline.Checked:=(fntStyle and $4) <> 0;
|
||||
cbStrikeOut.Checked:=(fntStyle and $8) <> 0;
|
||||
finally
|
||||
fbUpdatingBoxes:=False;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.grColorMouseDown(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
with grColor do
|
||||
begin
|
||||
if X>=DefaultColWidth*4 then Exit;
|
||||
if Y>=DefaultRowHeight*4 then Exit;
|
||||
|
||||
if Button=mbRight then
|
||||
cAttrs[lbNames.ItemIndex].clBg:=cColorGrid[X div DefaultColWidth *4 + Y div DefaultRowHeight];
|
||||
if Button=mbLeft then
|
||||
cAttrs[lbNames.ItemIndex].clFg:=cColorGrid[X div DefaultColWidth *4 + Y div DefaultRowHeight];
|
||||
edtSample.Font.Color:=cAttrs[lbNames.ItemIndex].clFg;
|
||||
edtSample.Color:=cAttrs[lbNames.ItemIndex].clBg;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.FillComboPred;
|
||||
var
|
||||
fr:TSearchRec;
|
||||
iIndex:Integer;
|
||||
begin
|
||||
cmbPredefined.Clear;
|
||||
if FindFirst(gpIniDir+'*.col', faAnyFile, fr)<>0 then
|
||||
begin
|
||||
FindClose(fr);
|
||||
Exit;
|
||||
end;
|
||||
repeat
|
||||
cmbPredefined.Items.Add(fr.Name);
|
||||
until FindNext(fr)<>0;
|
||||
FindClose(fr);
|
||||
|
||||
if cmbPredefined.Items.Count>0 then
|
||||
begin
|
||||
iIndex:=cmbPredefined.Items.IndexOf(csDefaultName);
|
||||
if iIndex>=0 then
|
||||
cmbPredefined.ItemIndex:=iIndex;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.btnOKClick(Sender: TObject);
|
||||
begin
|
||||
SaveAttrToFile(gpIniDir+csDefaultName);
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.cmbPredefinedChange(Sender: TObject);
|
||||
begin
|
||||
LoadAttrFromFile(gpCfgDir+cmbPredefined.Text);
|
||||
lbNamesClick(Self);
|
||||
// MsgOk(Format(lngGetString(clngEditCfgLoadOK),[gpCfgDir+cmbPredefined.Text]));
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.btnCancelClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.cbBoldClick(Sender: TObject);
|
||||
begin
|
||||
with edtSample.Font do
|
||||
begin
|
||||
if not cbBold.Checked then Style:= [] else Style:= [fsBold];
|
||||
if cbItalic.Checked then Style:= Style + [fsItalic];
|
||||
if cbUnderline.Checked then Style:= Style + [fsUnderline];
|
||||
if cbStrikeOut.Checked then Style:= Style + [fsStrikeout];
|
||||
end;
|
||||
if not fbUpdatingBoxes then
|
||||
cAttrs[lbNames.ItemIndex].fntStyle:= Ord(cbBold.Checked)+ 2*Ord(cbItalic.Checked)+4*ord(cbUnderline.Checked)+8*ord(cbStrikeOut.Checked);
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fEditorConf.lrs}
|
||||
end.
|
||||
unit fEditorConf;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, fLngForm, SynEditHighlighter, SynEditStrConst,
|
||||
Grids, Buttons, ComCtrls, uGlobsPaths, SynEdit;
|
||||
|
||||
type
|
||||
TLittleAttr= Packed Record
|
||||
clFg:TColor;
|
||||
clBg:TColor;
|
||||
fntStyle:Integer;
|
||||
end;
|
||||
|
||||
const
|
||||
cCountSynAttrs=90;
|
||||
// cCountSynAttrs=1;
|
||||
csDefaultName='editor.col';
|
||||
|
||||
// not all synedit highighter are ported
|
||||
cSynAttrNames: Array[0..cCountSynAttrs-1] of String =
|
||||
|
||||
(SYNS_Untitled,
|
||||
SYNS_AttrAsm, SYNS_AttrAsmComment, SYNS_AttrAsmKey,
|
||||
//4
|
||||
SYNS_AttrAssembler, SYNS_AttrAttributeName, SYNS_AttrAttributeValue,
|
||||
SYNS_AttrBlock, SYNS_Untitled, SYNS_AttrBrackets,
|
||||
SYNS_AttrCDATASection, SYNS_AttrCharacter, SYNS_AttrClass,
|
||||
//13
|
||||
SYNS_AttrComment, SYNS_AttrCondition,
|
||||
SYNS_AttrDataType, SYNS_AttrDefaultPackage,
|
||||
//16
|
||||
SYNS_AttrDir, SYNS_AttrDirective, SYNS_AttrDOCTYPESection,
|
||||
SYNS_AttrDocumentation, SYNS_AttrElementName, SYNS_AttrEmbedSQL,
|
||||
SYNS_AttrEmbedText, SYNS_AttrEntityReference, SYNS_AttrEscapeAmpersand,
|
||||
//25
|
||||
SYNS_AttrEvent, SYNS_AttrException, SYNS_AttrFloat, SYNS_AttrForm,
|
||||
SYNS_AttrFunction, SYNS_AttrHexadecimal, SYNS_AttrIcon,
|
||||
//32
|
||||
SYNS_AttrIdentifier, SYNS_AttrIllegalChar, SYNS_AttrInclude,
|
||||
{ SYNS_AttrIndicator,} SYNS_AttrIndirect, SYNS_AttrInvalidSymbol,
|
||||
SYNS_AttrInternalFunction, SYNS_AttrKey, SYNS_AttrLabel,
|
||||
//40
|
||||
SYNS_AttrMacro, SYNS_AttrMarker,
|
||||
SYNS_AttrMessage, SYNS_AttrMiscellaneous, SYNS_AttrNamespaceAttrName,
|
||||
SYNS_AttrNamespaceAttrValue, SYNS_AttrNonReservedKeyword,
|
||||
SYNS_AttrNull, SYNS_AttrNumber,
|
||||
SYNS_AttrOctal, SYNS_AttrOperator, SYNS_AttrPLSQL,
|
||||
//53
|
||||
|
||||
SYNS_AttrPragma, SYNS_AttrPreprocessor,
|
||||
SYNS_AttrProcessingInstr, SYNS_AttrQualifier, SYNS_AttrRegister,
|
||||
SYNS_AttrReservedWord, SYNS_AttrRpl, SYNS_AttrRplKey,
|
||||
//60
|
||||
SYNS_AttrRplComment, SYNS_AttrSASM, SYNS_AttrSASMComment,
|
||||
SYNS_AttrSASMKey, SYNS_AttrSecondReservedWord,
|
||||
SYNS_AttrSection,{ SYNS_AttrSequence,}
|
||||
//66
|
||||
SYNS_AttrSpace,
|
||||
SYNS_AttrSpecialVariable, SYNS_AttrSQLKey, SYNS_AttrSQLPlus,
|
||||
//70
|
||||
SYNS_AttrString,{ SYNS_AttrSingleString,} SYNS_AttrSymbol,
|
||||
SYNS_AttrSyntaxError, SYNS_AttrSystem, SYNS_AttrSystemValue,
|
||||
{ SYNS_AttrTagArea,} SYNS_AttrTableName, SYNS_AttrTerminator,
|
||||
//77
|
||||
SYNS_AttrText, SYNS_AttrUnknownWord, SYNS_AttrUser,
|
||||
SYNS_AttrUserFunction, SYNS_AttrValue, SYNS_AttrVariable,
|
||||
SYNS_AttrWhitespace, SYNS_AttrMathMode, SYNS_AttrTextMathMode,
|
||||
SYNS_AttrSquareBracket, SYNS_AttrRoundBracket, SYNS_AttrTeXCommand);
|
||||
|
||||
cColorGrid:Array[0..15] of TColor=
|
||||
(clBlack, clMaroon, clGreen, clOlive, clNavy,
|
||||
clPurple, clTeal, clGray, clSilver, clRed,
|
||||
clLime, clYellow, clBlue, clFuchsia, clAqua, clWhite);
|
||||
|
||||
var
|
||||
cAttrs:Array [0..cCountSynAttrs-1] of TLittleAttr;
|
||||
|
||||
type
|
||||
TfrmEditorConf = class(TfrmLng)
|
||||
grColor: TDrawGrid;
|
||||
lbNames: TListBox;
|
||||
lbSample: TLabel;
|
||||
cbBold: TCheckBox;
|
||||
cbUnderline: TCheckBox;
|
||||
cbStrikeOut: TCheckBox;
|
||||
cbItalic: TCheckBox;
|
||||
cmbPredefined: TComboBox;
|
||||
lbPredefined: TLabel;
|
||||
btnCancel: TBitBtn;
|
||||
btnOK: TBitBtn;
|
||||
edtSample: TSynEdit;
|
||||
procedure grColorDrawCell(Sender: TObject; ACol, ARow: Integer;
|
||||
Rect: TRect; State: TGridDrawState);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure lbNamesClick(Sender: TObject);
|
||||
procedure grColorMouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
procedure cmbPredefinedChange(Sender: TObject);
|
||||
procedure btnCancelClick(Sender: TObject);
|
||||
procedure cbBoldClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
fbUpdatingBoxes:Boolean;
|
||||
public
|
||||
{ Public declarations }
|
||||
procedure LoadLng; override;
|
||||
procedure FillComboPred;
|
||||
end;
|
||||
procedure LoadAttrFromFile(const sFileName:String);
|
||||
procedure SaveAttrToFile(const sFileName:String);
|
||||
procedure SetupColorOfHighlighter(var h: TSynCustomHighlighter);
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
uses
|
||||
uShowMsg, uLng, FindEx;
|
||||
|
||||
procedure SetupColorOfHighlighter(var h: TSynCustomHighlighter);
|
||||
var
|
||||
i, j:Integer;
|
||||
begin
|
||||
if not assigned(h) then Exit;
|
||||
for i:=0 to h.AttrCount-1 do
|
||||
begin
|
||||
with h.Attribute[i] do
|
||||
begin
|
||||
for j:=0 to cCountSynAttrs-1 do
|
||||
begin
|
||||
if h.Attribute[i].Name=cSynAttrNames[j] then
|
||||
begin
|
||||
Background:= cAttrs[j].clBg;
|
||||
Foreground:= cAttrs[j].clFg;
|
||||
//load style
|
||||
IntegerStyle:= cAttrs[j].fntStyle;
|
||||
Break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
{ // default attr
|
||||
if assigned(h.CommentAttribute) then
|
||||
with h.CommentAttribute do
|
||||
begin
|
||||
Background:= cAttrs[15].clBg;
|
||||
Foreground:= cAttrs[15].clFg;
|
||||
IntegerStyle:= cAttrs[15].fntStyle;
|
||||
end;
|
||||
if assigned(h.IdentifierAttribute) then
|
||||
with h.IdentifierAttribute do
|
||||
begin
|
||||
Background:= cAttrs[36].clBg;
|
||||
Foreground:= cAttrs[36].clFg;
|
||||
IntegerStyle:= cAttrs[36].fntStyle;
|
||||
end;
|
||||
if assigned(h.KeywordAttribute) then
|
||||
with h.KeywordAttribute do
|
||||
begin
|
||||
Background:= cAttrs[43].clBg;
|
||||
Foreground:= cAttrs[43].clFg;
|
||||
IntegerStyle:= cAttrs[43].fntStyle;
|
||||
end;
|
||||
if assigned(h.StringAttribute) then
|
||||
with h.StringAttribute do
|
||||
begin
|
||||
Background:= cAttrs[76].clBg;
|
||||
Foreground:= cAttrs[76].clFg;
|
||||
IntegerStyle:= cAttrs[76].fntStyle;
|
||||
end;
|
||||
if assigned(h.WhitespaceAttribute) then
|
||||
with h.WhitespaceAttribute do
|
||||
begin
|
||||
Background:= cAttrs[72].clBg;
|
||||
Foreground:= cAttrs[72].clFg;
|
||||
IntegerStyle:= cAttrs[72].fntStyle;
|
||||
end;}
|
||||
end;
|
||||
|
||||
|
||||
procedure LoadAttrFromFile(const sFileName:String);
|
||||
var
|
||||
i:Integer;
|
||||
f:TextFile;
|
||||
s, sValue:String;
|
||||
begin
|
||||
if Not FileExists(sFileName) Then Exit;
|
||||
assign(f,sFileName);
|
||||
reset(f);
|
||||
try
|
||||
while not eof(f) do
|
||||
begin
|
||||
readln(f,s);
|
||||
s:=Trim(s);
|
||||
if s='' then Continue;
|
||||
if s[1]='#' then Continue;
|
||||
if s[1]<>'[' then Continue;
|
||||
s:=Copy(s,2,length(s)-2);
|
||||
for i:=0 to cCountSynAttrs-1 do
|
||||
begin
|
||||
if s=cSynAttrNames[i] then
|
||||
begin
|
||||
// load bg
|
||||
readln(f,s);
|
||||
sValue:=Copy(s,Pos('=',s)+1,length(s));
|
||||
cAttrs[i].clBg:=StrToIntDef(sValue,0);
|
||||
|
||||
// load fg
|
||||
readln(f,s);
|
||||
sValue:=Copy(s,Pos('=',s)+1,length(s));
|
||||
cAttrs[i].clFg:=StrToIntDef(sValue,0);
|
||||
|
||||
//load style
|
||||
readln(f,s);
|
||||
sValue:=Copy(s,Pos('=',s)+1,length(s));
|
||||
cAttrs[i].fntStyle:=StrToIntDef(sValue,0);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
CloseFile(f);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SaveAttrToFile(const sFileName:String);
|
||||
var
|
||||
i:Integer;
|
||||
f:TextFile;
|
||||
begin
|
||||
assign(f,sFileName);
|
||||
rewrite(f);
|
||||
try
|
||||
writeln(f,'# color is $00bbggrr (in hex)');
|
||||
for i:=0 to cCountSynAttrs-1 do
|
||||
begin
|
||||
writeln(f,'[',cSynAttrNames[i],']');
|
||||
writeln(f,'bg=$',IntToHex(cAttrs[i].clBg,8));
|
||||
writeln(f,'fg=$',IntToHex(cAttrs[i].clFg,8));
|
||||
writeln(f,'style=$',cAttrs[i].fntStyle);
|
||||
end;
|
||||
finally
|
||||
CloseFile(f);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.LoadLng;
|
||||
begin
|
||||
Caption:=lngGetString(clngEditCfgForm);
|
||||
cbBold.Caption:=lngGetString(clngEditCfgBold);
|
||||
cbItalic.Caption:=lngGetString(clngEditCfgItalic);
|
||||
cbUnderline.Caption:=lngGetString(clngEditCfgUline);
|
||||
cbStrikeOut.Caption:=lngGetString(clngEditCfgStrike);
|
||||
|
||||
lbPredefined.Caption:=lngGetString(clngEditCfgDefined);
|
||||
lbSample.Caption:=lngGetString(clngEditCfgSample);
|
||||
grColor.ScrollBars:=ssNone;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.grColorDrawCell(Sender: TObject; ACol,
|
||||
ARow: Integer; Rect: TRect; State: TGridDrawState);
|
||||
begin
|
||||
with grColor.Canvas do
|
||||
begin
|
||||
Brush.Style:=bsSolid;
|
||||
Brush.Color:=cColorGrid[Acol*4+Arow];
|
||||
FillRect(Rect);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.FormCreate(Sender: TObject);
|
||||
var
|
||||
i:Integer;
|
||||
begin
|
||||
inherited;
|
||||
lbNames.Clear;
|
||||
for i:=0 to cCountSynAttrs-1 do
|
||||
lbNames.Items.Add(cSynAttrNames[i]);
|
||||
lbNames.ItemIndex:=0;
|
||||
FillComboPred;
|
||||
LoadAttrFromFile(gpIniDir+csDefaultName);
|
||||
lbNamesClick(Sender);
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.lbNamesClick(Sender: TObject);
|
||||
begin
|
||||
edtSample.Font.Color:=cAttrs[lbNames.ItemIndex].clFg;
|
||||
edtSample.Color:=cAttrs[lbNames.ItemIndex].clBg;
|
||||
With edtSample.Font,cAttrs[lbNames.ItemIndex] do
|
||||
begin
|
||||
if fntStyle and $1 = 0 then Style:= [] else Style:= [fsBold];
|
||||
if fntStyle and $2 = 2 then Style:= Style + [fsItalic];
|
||||
if fntStyle and $4 = 4 then Style:= Style + [fsUnderline];
|
||||
if fntStyle and $8 = 8 then Style:= Style + [fsStrikeout];
|
||||
fbUpdatingBoxes:=True;
|
||||
try
|
||||
cbBold.Checked:= (fntStyle and $1) <>0;
|
||||
cbItalic.Checked:=(fntStyle and $2) <> 0;
|
||||
cbUnderline.Checked:=(fntStyle and $4) <> 0;
|
||||
cbStrikeOut.Checked:=(fntStyle and $8) <> 0;
|
||||
finally
|
||||
fbUpdatingBoxes:=False;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.grColorMouseDown(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
with grColor do
|
||||
begin
|
||||
if X>=DefaultColWidth*4 then Exit;
|
||||
if Y>=DefaultRowHeight*4 then Exit;
|
||||
|
||||
if Button=mbRight then
|
||||
cAttrs[lbNames.ItemIndex].clBg:=cColorGrid[X div DefaultColWidth *4 + Y div DefaultRowHeight];
|
||||
if Button=mbLeft then
|
||||
cAttrs[lbNames.ItemIndex].clFg:=cColorGrid[X div DefaultColWidth *4 + Y div DefaultRowHeight];
|
||||
edtSample.Font.Color:=cAttrs[lbNames.ItemIndex].clFg;
|
||||
edtSample.Color:=cAttrs[lbNames.ItemIndex].clBg;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.FillComboPred;
|
||||
var
|
||||
fr:TSearchRec;
|
||||
iIndex:Integer;
|
||||
begin
|
||||
cmbPredefined.Clear;
|
||||
if FindFirst(gpIniDir+'*.col', faAnyFile, fr)<>0 then
|
||||
begin
|
||||
FindClose(fr);
|
||||
Exit;
|
||||
end;
|
||||
repeat
|
||||
cmbPredefined.Items.Add(fr.Name);
|
||||
until FindNext(fr)<>0;
|
||||
FindClose(fr);
|
||||
|
||||
if cmbPredefined.Items.Count>0 then
|
||||
begin
|
||||
iIndex:=cmbPredefined.Items.IndexOf(csDefaultName);
|
||||
if iIndex>=0 then
|
||||
cmbPredefined.ItemIndex:=iIndex;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.btnOKClick(Sender: TObject);
|
||||
begin
|
||||
SaveAttrToFile(gpIniDir+csDefaultName);
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.cmbPredefinedChange(Sender: TObject);
|
||||
begin
|
||||
LoadAttrFromFile(gpCfgDir+cmbPredefined.Text);
|
||||
lbNamesClick(Self);
|
||||
// MsgOk(Format(lngGetString(clngEditCfgLoadOK),[gpCfgDir+cmbPredefined.Text]));
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.btnCancelClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmEditorConf.cbBoldClick(Sender: TObject);
|
||||
begin
|
||||
with edtSample.Font do
|
||||
begin
|
||||
if not cbBold.Checked then Style:= [] else Style:= [fsBold];
|
||||
if cbItalic.Checked then Style:= Style + [fsItalic];
|
||||
if cbUnderline.Checked then Style:= Style + [fsUnderline];
|
||||
if cbStrikeOut.Checked then Style:= Style + [fsStrikeout];
|
||||
end;
|
||||
if not fbUpdatingBoxes then
|
||||
cAttrs[lbNames.ItemIndex].fntStyle:= Ord(cbBold.Checked)+ 2*Ord(cbItalic.Checked)+4*ord(cbUnderline.Checked)+8*ord(cbStrikeOut.Checked);
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I feditorconf.lrs}
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -1,278 +1,333 @@
|
|||
object frmFileProperties: TfrmFileProperties
|
||||
ActiveControl = btnClose
|
||||
Caption = 'frmFileProperties'
|
||||
ClientHeight = 383
|
||||
ClientWidth = 434
|
||||
Color = clBackground
|
||||
OnCreate = FormCreate
|
||||
TextHeight = 16
|
||||
HorzScrollBar.Page = 435
|
||||
HorzScrollBar.Range = 425
|
||||
VertScrollBar.Page = 384
|
||||
VertScrollBar.Range = 401
|
||||
Left = 599
|
||||
Height = 383
|
||||
Top = 219
|
||||
Width = 434
|
||||
object lblFileName: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 200
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 224
|
||||
end
|
||||
object btnClose: TButton
|
||||
Default = True
|
||||
Cancel = True
|
||||
Caption = 'Close'
|
||||
TabOrder = 1
|
||||
OnClick = btnCloseClick
|
||||
Left = 349
|
||||
Height = 25
|
||||
Top = 352
|
||||
Width = 75
|
||||
end
|
||||
object btnNext: TButton
|
||||
Caption = 'Next'
|
||||
TabOrder = 2
|
||||
OnClick = btnNextClick
|
||||
Left = 264
|
||||
Height = 25
|
||||
Top = 352
|
||||
Width = 75
|
||||
end
|
||||
object lblFileNameStr: TLabel
|
||||
Caption = 'Name:'
|
||||
Font.Color = clBlack
|
||||
Font.Height = 11
|
||||
Font.Name = 'Helvetica'
|
||||
Font.Pitch = fpVariable
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 8
|
||||
Width = 160
|
||||
end
|
||||
object lblSizeStr: TLabel
|
||||
Caption = 'Size:'
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 80
|
||||
Width = 160
|
||||
end
|
||||
object lblFolderStr: TLabel
|
||||
Caption = 'Path:'
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 32
|
||||
Width = 160
|
||||
end
|
||||
object lblAttributesStr: TGroupBox
|
||||
Caption = 'Attributes'
|
||||
ClientHeight = 112
|
||||
ClientWidth = 405
|
||||
ParentColor = True
|
||||
ParentCtl3D = False
|
||||
TabOrder = 6
|
||||
Left = 16
|
||||
Height = 129
|
||||
Top = 216
|
||||
Width = 409
|
||||
object lblAttrOwnerStr: TLabel
|
||||
Caption = 'Owner'
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 24
|
||||
Width = 160
|
||||
end
|
||||
object lblAttrGroupStr: TLabel
|
||||
Caption = 'Group'
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 40
|
||||
Width = 160
|
||||
end
|
||||
object lblAttrOtherStr: TLabel
|
||||
Caption = 'Other'
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 56
|
||||
Width = 160
|
||||
end
|
||||
object lblAttrTextStr: TLabel
|
||||
Caption = 'Alternative representation:'
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 96
|
||||
Width = 160
|
||||
end
|
||||
object lblAttrBitsStr: TLabel
|
||||
Caption = 'Bits:'
|
||||
Left = 6
|
||||
Height = 15
|
||||
Top = 72
|
||||
Width = 160
|
||||
end
|
||||
object lblAttrOwner: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 182
|
||||
Height = 15
|
||||
Top = 25
|
||||
Width = 208
|
||||
end
|
||||
object lblAttrGroup: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 182
|
||||
Height = 15
|
||||
Top = 41
|
||||
Width = 208
|
||||
end
|
||||
object lblAttrOther: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 182
|
||||
Height = 15
|
||||
Top = 57
|
||||
Width = 208
|
||||
end
|
||||
object lblAttrBits: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 182
|
||||
Height = 15
|
||||
Top = 73
|
||||
Width = 208
|
||||
end
|
||||
object lblAttrText: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 182
|
||||
Height = 15
|
||||
Top = 97
|
||||
Width = 208
|
||||
end
|
||||
end
|
||||
object lblLastAccessStr: TLabel
|
||||
Caption = 'Last access:'
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 112
|
||||
Width = 160
|
||||
end
|
||||
object lblSymlinkStr: TLabel
|
||||
Caption = 'Symlink:'
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 64
|
||||
Width = 160
|
||||
end
|
||||
object lblOwnerStr: TLabel
|
||||
Caption = 'Owner:'
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 176
|
||||
Width = 160
|
||||
end
|
||||
object lblGroupStr: TLabel
|
||||
Caption = 'Group:'
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 192
|
||||
Width = 160
|
||||
end
|
||||
object lblFolder: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 200
|
||||
Height = 15
|
||||
Top = 32
|
||||
Width = 224
|
||||
end
|
||||
object lblSize: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 200
|
||||
Height = 15
|
||||
Top = 80
|
||||
Width = 224
|
||||
end
|
||||
object lblLastAccess: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 200
|
||||
Height = 15
|
||||
Top = 112
|
||||
Width = 224
|
||||
end
|
||||
object lblOwner: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 200
|
||||
Height = 15
|
||||
Top = 176
|
||||
Width = 272
|
||||
end
|
||||
object lblGroup: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 200
|
||||
Height = 15
|
||||
Top = 192
|
||||
Width = 224
|
||||
end
|
||||
object lblSymlink: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 200
|
||||
Height = 15
|
||||
Top = 64
|
||||
Width = 224
|
||||
end
|
||||
object lblTypeStr: TLabel
|
||||
Caption = 'Type:'
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 48
|
||||
Width = 160
|
||||
end
|
||||
object lblType: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 200
|
||||
Height = 15
|
||||
Top = 48
|
||||
Width = 224
|
||||
end
|
||||
object lblLastModifStr: TLabel
|
||||
Caption = 'Last modification:'
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 128
|
||||
Width = 160
|
||||
end
|
||||
object lblLastStChangeStr: TLabel
|
||||
Caption = 'Last status change:'
|
||||
Left = 16
|
||||
Height = 15
|
||||
Top = 144
|
||||
Width = 160
|
||||
end
|
||||
object lblLastModif: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 200
|
||||
Height = 15
|
||||
Top = 128
|
||||
Width = 224
|
||||
end
|
||||
object lblLastStChange: TLabel
|
||||
Caption = '???'
|
||||
ShowAccelChar = False
|
||||
Left = 200
|
||||
Height = 15
|
||||
Top = 144
|
||||
Width = 272
|
||||
end
|
||||
end
|
||||
inherited frmFileProperties: TfrmFileProperties
|
||||
Left = 599
|
||||
Height = 383
|
||||
Top = 219
|
||||
Width = 434
|
||||
HorzScrollBar.Page = 416
|
||||
HorzScrollBar.Range = 425
|
||||
VertScrollBar.Page = 365
|
||||
VertScrollBar.Range = 401
|
||||
ActiveControl = btnClose
|
||||
Caption = 'frmFileProperties'
|
||||
Color = clBackground
|
||||
object lblFileName: TLabel
|
||||
Left = 200
|
||||
Height = 14
|
||||
Top = 8
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblFileNameStr: TLabel
|
||||
Left = 16
|
||||
Height = 11
|
||||
Top = 8
|
||||
Width = 23
|
||||
Caption = 'Name:'
|
||||
Color = clNone
|
||||
Font.Color = clBlack
|
||||
Font.Height = 11
|
||||
Font.Name = 'Helvetica'
|
||||
Font.Pitch = fpVariable
|
||||
ParentColor = False
|
||||
end
|
||||
object lblSizeStr: TLabel
|
||||
Left = 16
|
||||
Height = 14
|
||||
Top = 80
|
||||
Width = 24
|
||||
Caption = 'Size:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblFolderStr: TLabel
|
||||
Left = 16
|
||||
Height = 14
|
||||
Top = 32
|
||||
Width = 27
|
||||
Caption = 'Path:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblLastAccessStr: TLabel
|
||||
Left = 16
|
||||
Height = 14
|
||||
Top = 112
|
||||
Width = 60
|
||||
Caption = 'Last access:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblSymlinkStr: TLabel
|
||||
Left = 16
|
||||
Height = 14
|
||||
Top = 64
|
||||
Width = 40
|
||||
Caption = 'Symlink:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblOwnerStr: TLabel
|
||||
Left = 16
|
||||
Height = 14
|
||||
Top = 176
|
||||
Width = 37
|
||||
Caption = 'Owner:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblGroupStr: TLabel
|
||||
Left = 16
|
||||
Height = 14
|
||||
Top = 192
|
||||
Width = 34
|
||||
Caption = 'Group:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblFolder: TLabel
|
||||
Left = 200
|
||||
Height = 14
|
||||
Top = 32
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblSize: TLabel
|
||||
Left = 200
|
||||
Height = 14
|
||||
Top = 80
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblLastAccess: TLabel
|
||||
Left = 200
|
||||
Height = 14
|
||||
Top = 112
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblOwner: TLabel
|
||||
Left = 200
|
||||
Height = 14
|
||||
Top = 176
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblGroup: TLabel
|
||||
Left = 200
|
||||
Height = 14
|
||||
Top = 192
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblSymlink: TLabel
|
||||
Left = 200
|
||||
Height = 14
|
||||
Top = 64
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblTypeStr: TLabel
|
||||
Left = 16
|
||||
Height = 14
|
||||
Top = 48
|
||||
Width = 29
|
||||
Caption = 'Type:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblType: TLabel
|
||||
Left = 200
|
||||
Height = 14
|
||||
Top = 48
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblLastModifStr: TLabel
|
||||
Left = 16
|
||||
Height = 14
|
||||
Top = 128
|
||||
Width = 85
|
||||
Caption = 'Last modification:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblLastStChangeStr: TLabel
|
||||
Left = 16
|
||||
Height = 14
|
||||
Top = 144
|
||||
Width = 96
|
||||
Caption = 'Last status change:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblLastModif: TLabel
|
||||
Left = 200
|
||||
Height = 14
|
||||
Top = 128
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblLastStChange: TLabel
|
||||
Left = 200
|
||||
Height = 14
|
||||
Top = 144
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object btnClose: TButton
|
||||
Left = 349
|
||||
Height = 25
|
||||
Top = 352
|
||||
Width = 75
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Cancel = True
|
||||
Caption = 'Close'
|
||||
Default = True
|
||||
OnClick = btnCloseClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object btnNext: TButton
|
||||
Left = 264
|
||||
Height = 25
|
||||
Top = 352
|
||||
Width = 75
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Next'
|
||||
OnClick = btnNextClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object lblAttributesStr: TGroupBox
|
||||
Left = 16
|
||||
Height = 129
|
||||
Top = 216
|
||||
Width = 409
|
||||
Caption = 'Attributes'
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
object lblAttrOwnerStr: TLabel
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 24
|
||||
Width = 33
|
||||
Caption = 'Owner'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblAttrGroupStr: TLabel
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 40
|
||||
Width = 30
|
||||
Caption = 'Group'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblAttrOtherStr: TLabel
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 56
|
||||
Width = 29
|
||||
Caption = 'Other'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblAttrTextStr: TLabel
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 96
|
||||
Width = 132
|
||||
Caption = 'Alternative representation:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblAttrBitsStr: TLabel
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 72
|
||||
Width = 22
|
||||
Caption = 'Bits:'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lblAttrOwner: TLabel
|
||||
Left = 182
|
||||
Height = 14
|
||||
Top = 25
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblAttrGroup: TLabel
|
||||
Left = 182
|
||||
Height = 14
|
||||
Top = 41
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblAttrOther: TLabel
|
||||
Left = 182
|
||||
Height = 14
|
||||
Top = 57
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblAttrBits: TLabel
|
||||
Left = 182
|
||||
Height = 14
|
||||
Top = 73
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
object lblAttrText: TLabel
|
||||
Left = 182
|
||||
Height = 14
|
||||
Top = 97
|
||||
Width = 16
|
||||
Caption = '???'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
end
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -1,68 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmFileProperties','FORMDATA',[
|
||||
'TPF0'#18'TfrmFileProperties'#17'frmFileProperties'#13'ActiveControl'#7#8'btn'
|
||||
+'Close'#7'Caption'#6#17'frmFileProperties'#12'ClientHeight'#3''#1#11'Client'
|
||||
+'Width'#3#178#1#5'Color'#7#12'clBackground'#8'OnCreate'#7#10'FormCreate'#10
|
||||
+'TextHeight'#2#16#18'HorzScrollBar.Page'#3#179#1#19'HorzScrollBar.Range'#3
|
||||
+#169#1#18'VertScrollBar.Page'#3#128#1#19'VertScrollBar.Range'#3#145#1#4'Left'
|
||||
+#3'W'#2#6'Height'#3''#1#3'Top'#3#219#0#5'Width'#3#178#1#0#6'TLabel'#11'lblF'
|
||||
+'ileName'#7'Caption'#6#3'???'#13'ShowAccelChar'#8#4'Left'#3#200#0#6'Height'#2
|
||||
+#15#3'Top'#2#8#5'Width'#3#224#0#0#0#7'TButton'#8'btnClose'#7'Default'#9#6'Ca'
|
||||
+'ncel'#9#7'Caption'#6#5'Close'#8'TabOrder'#2#1#7'OnClick'#7#13'btnCloseClick'
|
||||
+#4'Left'#3']'#1#6'Height'#2#25#3'Top'#3'`'#1#5'Width'#2'K'#0#0#7'TButton'#7
|
||||
+'btnNext'#7'Caption'#6#4'Next'#8'TabOrder'#2#2#7'OnClick'#7#12'btnNextClick'
|
||||
+#4'Left'#3#8#1#6'Height'#2#25#3'Top'#3'`'#1#5'Width'#2'K'#0#0#6'TLabel'#14'l'
|
||||
+'blFileNameStr'#7'Caption'#6#5'Name:'#10'Font.Color'#7#7'clBlack'#11'Font.He'
|
||||
+'ight'#2#11#9'Font.Name'#6#9'Helvetica'#10'Font.Pitch'#7#10'fpVariable'#4'Le'
|
||||
+'ft'#2#16#6'Height'#2#15#3'Top'#2#8#5'Width'#3#160#0#0#0#6'TLabel'#10'lblSiz'
|
||||
+'eStr'#7'Caption'#6#5'Size:'#4'Left'#2#16#6'Height'#2#15#3'Top'#2'P'#5'Width'
|
||||
+#3#160#0#0#0#6'TLabel'#12'lblFolderStr'#7'Caption'#6#5'Path:'#4'Left'#2#16#6
|
||||
+'Height'#2#15#3'Top'#2' '#5'Width'#3#160#0#0#0#9'TGroupBox'#16'lblAttributes'
|
||||
+'Str'#7'Caption'#6#10'Attributes'#12'ClientHeight'#2'p'#11'ClientWidth'#3#149
|
||||
+#1#11'ParentColor'#9#11'ParentCtl3D'#8#8'TabOrder'#2#6#4'Left'#2#16#6'Height'
|
||||
+#3#129#0#3'Top'#3#216#0#5'Width'#3#153#1#0#6'TLabel'#15'lblAttrOwnerStr'#7'C'
|
||||
+'aption'#6#5'Owner'#4'Left'#2#6#6'Height'#2#15#3'Top'#2#24#5'Width'#3#160#0#0
|
||||
+#0#6'TLabel'#15'lblAttrGroupStr'#7'Caption'#6#5'Group'#4'Left'#2#6#6'Height'
|
||||
+#2#15#3'Top'#2'('#5'Width'#3#160#0#0#0#6'TLabel'#15'lblAttrOtherStr'#7'Capti'
|
||||
+'on'#6#5'Other'#4'Left'#2#6#6'Height'#2#15#3'Top'#2'8'#5'Width'#3#160#0#0#0#6
|
||||
+'TLabel'#14'lblAttrTextStr'#7'Caption'#6#27'Alternative representation:'#4'L'
|
||||
+'eft'#2#6#6'Height'#2#15#3'Top'#2'`'#5'Width'#3#160#0#0#0#6'TLabel'#14'lblAt'
|
||||
+'trBitsStr'#7'Caption'#6#5'Bits:'#4'Left'#2#6#6'Height'#2#15#3'Top'#2'H'#5'W'
|
||||
+'idth'#3#160#0#0#0#6'TLabel'#12'lblAttrOwner'#7'Caption'#6#3'???'#13'ShowAcc'
|
||||
+'elChar'#8#4'Left'#3#182#0#6'Height'#2#15#3'Top'#2#25#5'Width'#3#208#0#0#0#6
|
||||
+'TLabel'#12'lblAttrGroup'#7'Caption'#6#3'???'#13'ShowAccelChar'#8#4'Left'#3
|
||||
+#182#0#6'Height'#2#15#3'Top'#2')'#5'Width'#3#208#0#0#0#6'TLabel'#12'lblAttrO'
|
||||
+'ther'#7'Caption'#6#3'???'#13'ShowAccelChar'#8#4'Left'#3#182#0#6'Height'#2#15
|
||||
+#3'Top'#2'9'#5'Width'#3#208#0#0#0#6'TLabel'#11'lblAttrBits'#7'Caption'#6#3'?'
|
||||
+'??'#13'ShowAccelChar'#8#4'Left'#3#182#0#6'Height'#2#15#3'Top'#2'I'#5'Width'
|
||||
+#3#208#0#0#0#6'TLabel'#11'lblAttrText'#7'Caption'#6#3'???'#13'ShowAccelChar'
|
||||
+#8#4'Left'#3#182#0#6'Height'#2#15#3'Top'#2'a'#5'Width'#3#208#0#0#0#0#6'TLabe'
|
||||
+'l'#16'lblLastAccessStr'#7'Caption'#6#12'Last access:'#4'Left'#2#16#6'Height'
|
||||
+#2#15#3'Top'#2'p'#5'Width'#3#160#0#0#0#6'TLabel'#13'lblSymlinkStr'#7'Caption'
|
||||
+#6#8'Symlink:'#4'Left'#2#16#6'Height'#2#15#3'Top'#2'@'#5'Width'#3#160#0#0#0#6
|
||||
+'TLabel'#11'lblOwnerStr'#7'Caption'#6#6'Owner:'#4'Left'#2#16#6'Height'#2#15#3
|
||||
+'Top'#3#176#0#5'Width'#3#160#0#0#0#6'TLabel'#11'lblGroupStr'#7'Caption'#6#6
|
||||
+'Group:'#4'Left'#2#16#6'Height'#2#15#3'Top'#3#192#0#5'Width'#3#160#0#0#0#6'T'
|
||||
+'Label'#9'lblFolder'#7'Caption'#6#3'???'#13'ShowAccelChar'#8#4'Left'#3#200#0
|
||||
+#6'Height'#2#15#3'Top'#2' '#5'Width'#3#224#0#0#0#6'TLabel'#7'lblSize'#7'Capt'
|
||||
+'ion'#6#3'???'#13'ShowAccelChar'#8#4'Left'#3#200#0#6'Height'#2#15#3'Top'#2'P'
|
||||
+#5'Width'#3#224#0#0#0#6'TLabel'#13'lblLastAccess'#7'Caption'#6#3'???'#13'Sho'
|
||||
+'wAccelChar'#8#4'Left'#3#200#0#6'Height'#2#15#3'Top'#2'p'#5'Width'#3#224#0#0
|
||||
+#0#6'TLabel'#8'lblOwner'#7'Caption'#6#3'???'#13'ShowAccelChar'#8#4'Left'#3
|
||||
+#200#0#6'Height'#2#15#3'Top'#3#176#0#5'Width'#3#16#1#0#0#6'TLabel'#8'lblGrou'
|
||||
+'p'#7'Caption'#6#3'???'#13'ShowAccelChar'#8#4'Left'#3#200#0#6'Height'#2#15#3
|
||||
+'Top'#3#192#0#5'Width'#3#224#0#0#0#6'TLabel'#10'lblSymlink'#7'Caption'#6#3'?'
|
||||
+'??'#13'ShowAccelChar'#8#4'Left'#3#200#0#6'Height'#2#15#3'Top'#2'@'#5'Width'
|
||||
+#3#224#0#0#0#6'TLabel'#10'lblTypeStr'#7'Caption'#6#5'Type:'#4'Left'#2#16#6'H'
|
||||
+'eight'#2#15#3'Top'#2'0'#5'Width'#3#160#0#0#0#6'TLabel'#7'lblType'#7'Caption'
|
||||
+#6#3'???'#13'ShowAccelChar'#8#4'Left'#3#200#0#6'Height'#2#15#3'Top'#2'0'#5'W'
|
||||
+'idth'#3#224#0#0#0#6'TLabel'#15'lblLastModifStr'#7'Caption'#6#18'Last modifi'
|
||||
+'cation:'#4'Left'#2#16#6'Height'#2#15#3'Top'#3#128#0#5'Width'#3#160#0#0#0#6
|
||||
+'TLabel'#18'lblLastStChangeStr'#7'Caption'#6#19'Last status change:'#4'Left'
|
||||
+#2#16#6'Height'#2#15#3'Top'#3#144#0#5'Width'#3#160#0#0#0#6'TLabel'#12'lblLas'
|
||||
+'tModif'#7'Caption'#6#3'???'#13'ShowAccelChar'#8#4'Left'#3#200#0#6'Height'#2
|
||||
+#15#3'Top'#3#128#0#5'Width'#3#224#0#0#0#6'TLabel'#15'lblLastStChange'#7'Capt'
|
||||
+'ion'#6#3'???'#13'ShowAccelChar'#8#4'Left'#3#200#0#6'Height'#2#15#3'Top'#3
|
||||
+#144#0#5'Width'#3#16#1#0#0#0
|
||||
]);
|
||||
|
|
@ -1,277 +1,277 @@
|
|||
unit fFileProperties;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, fLngForm, uFileList, Buttons;
|
||||
|
||||
type
|
||||
TfrmFileProperties = class(TfrmLng)
|
||||
btnClose: TButton;
|
||||
btnNext: TButton;
|
||||
lblFileNameStr: TLabel;
|
||||
lblSizeStr: TLabel;
|
||||
lblFolderStr: TLabel;
|
||||
lblAttributesStr: TGroupBox;
|
||||
lblAttrOwnerStr: TLabel;
|
||||
lblAttrGroupStr: TLabel;
|
||||
lblAttrOtherStr: TLabel;
|
||||
lblLastAccessStr: TLabel;
|
||||
lblSymlinkStr: TLabel;
|
||||
lblOwnerStr: TLabel;
|
||||
lblGroupStr: TLabel;
|
||||
lblAttrTextStr: TLabel;
|
||||
lblAttrBitsStr: TLabel;
|
||||
lblLastModifStr: TLabel;
|
||||
lblLastStChangeStr: TLabel;
|
||||
lblTypeStr: TLabel;
|
||||
|
||||
lblFileName: TLabel;
|
||||
lblFolder: TLabel;
|
||||
lblSize: TLabel;
|
||||
lblLastAccess: TLabel;
|
||||
lblLastModif: TLabel;
|
||||
lblLastStChange: TLabel;
|
||||
lblOwner: TLabel;
|
||||
lblGroup: TLabel;
|
||||
lblSymlink: TLabel;
|
||||
lblAttrOwner: TLabel;
|
||||
lblAttrGroup: TLabel;
|
||||
lblAttrOther: TLabel;
|
||||
lblAttrBits: TLabel;
|
||||
lblAttrText: TLabel;
|
||||
lblType: TLabel;
|
||||
procedure btnCloseClick(Sender: TObject);
|
||||
procedure btnNextClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
iCurrent:Integer;
|
||||
fFileList:TFileList;
|
||||
|
||||
procedure AddAttrString(lblItem:TLabel; nText:Integer);
|
||||
public
|
||||
szPath:String;
|
||||
|
||||
procedure LoadLng; override;
|
||||
procedure ShowFile(iIndex:Integer);
|
||||
procedure StoreData(FileList:TFileList);
|
||||
function FindNextSelected:Boolean;
|
||||
end;
|
||||
|
||||
|
||||
procedure ShowFileProperties(FileList:TFileList; const aPath:String);
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uLng, uFileProcs, FindEx, BaseUnix, Libc;
|
||||
|
||||
procedure ShowFileProperties(FileList:TFileList; const aPath:String);
|
||||
begin
|
||||
with TfrmFileProperties.Create(Application) do
|
||||
try
|
||||
szPath:=aPath;
|
||||
StoreData(FileList);
|
||||
if FindNextSelected then
|
||||
begin
|
||||
ShowFile(iCurrent);
|
||||
ShowModal;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.LoadLng;
|
||||
begin
|
||||
Caption := lngGetString(clngPropsTitle);
|
||||
btnClose.Caption := lngGetString(clngPropsClose);
|
||||
btnNext.Caption := lngGetString(clngPropsNext);
|
||||
|
||||
lblFileNameStr.Caption := lngGetString(clngPropsStrName);
|
||||
lblSizeStr.Caption := lngGetString(clngPropsStrSize);
|
||||
lblFolderStr.Caption := lngGetString(clngPropsStrPath);
|
||||
lblAttributesStr.Caption := lngGetString(clngPropsStrAttrs);
|
||||
lblAttrOwnerStr.Caption := lngGetString(clngPropsStrOwner);
|
||||
lblAttrGroupStr.Caption := lngGetString(clngPropsStrGroup);
|
||||
lblAttrOtherStr.Caption := lngGetString(clngPropsStrOther);
|
||||
lblLastAccessStr.Caption := lngGetString(clngPropsStrLastAccess);
|
||||
lblSymlinkStr.Caption := lngGetString(clngPropsStrSymlink);
|
||||
lblOwnerStr.Caption := lngGetString(clngPropsStrOwner);
|
||||
lblGroupStr.Caption := lngGetString(clngPropsStrGroup);
|
||||
lblAttrTextStr.Caption := lngGetString(clngPropsStrAttrAlt);
|
||||
lblAttrBitsStr.Caption := lngGetString(clngPropsStrBits);
|
||||
lblLastModifStr.Caption := lngGetString(clngPropsStrLastChange);
|
||||
lblLastStChangeStr.Caption := lngGetString(clngPropsStrLastStatus);
|
||||
lblTypeStr.Caption := lngGetString(clngPropsStrType);
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.btnCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.ShowFile(iIndex:Integer);
|
||||
var
|
||||
sb: FindEx.Stat64;
|
||||
dtFileDates:TDateTime;
|
||||
psUidRec:PPasswordRecord;
|
||||
psGidRec:PGroup;
|
||||
begin
|
||||
try
|
||||
with fFileList.GetItem(iIndex)^ do
|
||||
begin
|
||||
fpstat64(PChar(szPath + sName), sb);
|
||||
|
||||
lblFileName.Caption:=sName;
|
||||
lblFolder.Caption:=szPath;
|
||||
lblSize.Caption:=IntToStr(iSize);
|
||||
dtFileDates := FileStampToDateTime(sb.st_atime);
|
||||
lblLastAccess.Caption:=DateTimeToStr(dtFileDates);
|
||||
dtFileDates := FileStampToDateTime(sb.st_mtime);
|
||||
lblLastModif.Caption:=DateTimeToStr(dtFileDates);
|
||||
dtFileDates := FileStampToDateTime(sb.st_ctime);
|
||||
lblLastStChange.Caption:=DateTimeToStr(dtFileDates);
|
||||
if (bIsLink = True) then
|
||||
lblSymlink.Caption:=Format(lngGetString(clngPropsYes), [sLinkTo])
|
||||
else
|
||||
lblSymlink.Caption:=lngGetString(clngPropsNo);
|
||||
|
||||
|
||||
psUidRec := getpwuid(sb.st_uid);
|
||||
if not assigned(psUidRec) then
|
||||
lblOwner.Caption:=IntToStr(sb.st_uid)
|
||||
else
|
||||
lblOwner.Caption:=psUidRec^.pw_name;
|
||||
psGidRec := getgrgid(sb.st_gid);
|
||||
if not assigned(psGidRec) then
|
||||
lblGroup.Caption:=IntToStr(sb.st_gid)
|
||||
else
|
||||
lblGroup.Caption:=psGidRec^.gr_name;
|
||||
|
||||
lblAttrOwner.Caption := '';
|
||||
lblAttrGroup.Caption := '';
|
||||
lblAttrOther.Caption := '';
|
||||
lblAttrBits.Caption := '';
|
||||
if ((sb.st_mode and S_IRUSR) = S_IRUSR) then
|
||||
AddAttrString(lblAttrOwner, clngPropsAttrRead);
|
||||
if ((sb.st_mode and S_IWUSR) = S_IWUSR) then
|
||||
AddAttrString(lblAttrOwner, clngPropsAttrWrite);
|
||||
if ((sb.st_mode and S_IXUSR) = S_IXUSR) then
|
||||
AddAttrString(lblAttrOwner, clngPropsAttrExec);
|
||||
|
||||
if ((sb.st_mode and S_IRGRP) = S_IRGRP) then
|
||||
AddAttrString(lblAttrGroup, clngPropsAttrRead);
|
||||
if ((sb.st_mode and S_IWGRP) = S_IWGRP) then
|
||||
AddAttrString(lblAttrGroup, clngPropsAttrWrite);
|
||||
if ((sb.st_mode and S_IXGRP) = S_IXGRP) then
|
||||
AddAttrString(lblAttrGroup, clngPropsAttrExec);
|
||||
|
||||
if ((sb.st_mode and S_IROTH) = S_IROTH) then
|
||||
AddAttrString(lblAttrOther, clngPropsAttrRead);
|
||||
if ((sb.st_mode and S_IWOTH) = S_IWOTH) then
|
||||
AddAttrString(lblAttrOther, clngPropsAttrWrite);
|
||||
if ((sb.st_mode and S_IXOTH) = S_IXOTH) then
|
||||
AddAttrString(lblAttrOther, clngPropsAttrExec);
|
||||
|
||||
if ((sb.st_mode and S_ISUID) = S_ISUID) then
|
||||
AddAttrString(lblAttrBits, clngPropsAttrSetUID);
|
||||
if ((sb.st_mode and S_ISGID) = S_ISGID) then
|
||||
AddAttrString(lblAttrBits, clngPropsAttrSetGID);
|
||||
if ((sb.st_mode and S_ISVTX) = S_ISVTX) then
|
||||
AddAttrString(lblAttrBits, clngPropsAttrSticky);
|
||||
|
||||
lblAttrText.Caption:=sModeStr; // + 666 like
|
||||
|
||||
if FPS_ISDIR(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsFolder)
|
||||
else if FPS_ISREG(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsFile)
|
||||
else if FPS_ISCHR(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsSpChrDev)
|
||||
else if FPS_ISBLK(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsSpBlkDev)
|
||||
else if FPS_ISFIFO(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsNmdPipe)
|
||||
else if FPS_ISLNK(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsSymLink)
|
||||
else if FPS_ISSOCK(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsSocket)
|
||||
else
|
||||
lblType.Caption:=lngGetString(clngPropsUnknownType);
|
||||
end;
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.AddAttrString(lblItem:TLabel; nText:Integer);
|
||||
begin
|
||||
if Length(lblItem.Caption) > 0 then
|
||||
begin
|
||||
lblItem.Caption := lblItem.Caption + ', ' + lngGetString(nText);
|
||||
end
|
||||
else
|
||||
lblItem.Caption := lngGetString(nText);
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.StoreData(FileList:TFileList);
|
||||
var
|
||||
i, nSelCount:Integer;
|
||||
begin
|
||||
fFileList:=FileList;
|
||||
iCurrent:=0;
|
||||
nSelCount:=0;
|
||||
|
||||
for i:=iCurrent to fFileList.Count-1 do
|
||||
begin
|
||||
if fFileList.GetItem(i)^.bSelected then
|
||||
inc(nSelCount);
|
||||
end;
|
||||
if (nSelCount > 1) then
|
||||
btnNext.Visible := True
|
||||
else
|
||||
btnNext.Visible := False;
|
||||
end;
|
||||
|
||||
function TfrmFileProperties.FindNextSelected:Boolean;
|
||||
var
|
||||
i:Integer;
|
||||
begin
|
||||
for i:=iCurrent to fFileList.Count-1 do
|
||||
begin
|
||||
if fFileList.GetItem(i)^.bSelected then
|
||||
begin
|
||||
iCurrent:=i;
|
||||
Result:=True;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
Result:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.btnNextClick(Sender: TObject);
|
||||
begin
|
||||
inc(iCurrent);
|
||||
if not FindNextSelected Then
|
||||
Close
|
||||
else
|
||||
ShowFile(iCurrent);
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
lblFileNameStr.Font.Style:=[fsBold];
|
||||
lblFileName.Font.Style:=[fsBold];
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fFileProperties.lrs}
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
|
||||
unit fFileProperties;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, fLngForm, uFileList, Buttons;
|
||||
|
||||
type
|
||||
TfrmFileProperties = class(TfrmLng)
|
||||
btnClose: TButton;
|
||||
btnNext: TButton;
|
||||
lblFileNameStr: TLabel;
|
||||
lblSizeStr: TLabel;
|
||||
lblFolderStr: TLabel;
|
||||
lblAttributesStr: TGroupBox;
|
||||
lblAttrOwnerStr: TLabel;
|
||||
lblAttrGroupStr: TLabel;
|
||||
lblAttrOtherStr: TLabel;
|
||||
lblLastAccessStr: TLabel;
|
||||
lblSymlinkStr: TLabel;
|
||||
lblOwnerStr: TLabel;
|
||||
lblGroupStr: TLabel;
|
||||
lblAttrTextStr: TLabel;
|
||||
lblAttrBitsStr: TLabel;
|
||||
lblLastModifStr: TLabel;
|
||||
lblLastStChangeStr: TLabel;
|
||||
lblTypeStr: TLabel;
|
||||
|
||||
lblFileName: TLabel;
|
||||
lblFolder: TLabel;
|
||||
lblSize: TLabel;
|
||||
lblLastAccess: TLabel;
|
||||
lblLastModif: TLabel;
|
||||
lblLastStChange: TLabel;
|
||||
lblOwner: TLabel;
|
||||
lblGroup: TLabel;
|
||||
lblSymlink: TLabel;
|
||||
lblAttrOwner: TLabel;
|
||||
lblAttrGroup: TLabel;
|
||||
lblAttrOther: TLabel;
|
||||
lblAttrBits: TLabel;
|
||||
lblAttrText: TLabel;
|
||||
lblType: TLabel;
|
||||
procedure btnCloseClick(Sender: TObject);
|
||||
procedure btnNextClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
iCurrent:Integer;
|
||||
fFileList:TFileList;
|
||||
|
||||
procedure AddAttrString(lblItem:TLabel; nText:Integer);
|
||||
public
|
||||
szPath:String;
|
||||
|
||||
procedure LoadLng; override;
|
||||
procedure ShowFile(iIndex:Integer);
|
||||
procedure StoreData(FileList:TFileList);
|
||||
function FindNextSelected:Boolean;
|
||||
end;
|
||||
|
||||
|
||||
procedure ShowFileProperties(FileList:TFileList; const aPath:String);
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uLng, uFileProcs, FindEx, BaseUnix, Libc;
|
||||
|
||||
procedure ShowFileProperties(FileList:TFileList; const aPath:String);
|
||||
begin
|
||||
with TfrmFileProperties.Create(Application) do
|
||||
try
|
||||
szPath:=aPath;
|
||||
StoreData(FileList);
|
||||
if FindNextSelected then
|
||||
begin
|
||||
ShowFile(iCurrent);
|
||||
ShowModal;
|
||||
end;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.LoadLng;
|
||||
begin
|
||||
Caption := lngGetString(clngPropsTitle);
|
||||
btnClose.Caption := lngGetString(clngPropsClose);
|
||||
btnNext.Caption := lngGetString(clngPropsNext);
|
||||
|
||||
lblFileNameStr.Caption := lngGetString(clngPropsStrName);
|
||||
lblSizeStr.Caption := lngGetString(clngPropsStrSize);
|
||||
lblFolderStr.Caption := lngGetString(clngPropsStrPath);
|
||||
lblAttributesStr.Caption := lngGetString(clngPropsStrAttrs);
|
||||
lblAttrOwnerStr.Caption := lngGetString(clngPropsStrOwner);
|
||||
lblAttrGroupStr.Caption := lngGetString(clngPropsStrGroup);
|
||||
lblAttrOtherStr.Caption := lngGetString(clngPropsStrOther);
|
||||
lblLastAccessStr.Caption := lngGetString(clngPropsStrLastAccess);
|
||||
lblSymlinkStr.Caption := lngGetString(clngPropsStrSymlink);
|
||||
lblOwnerStr.Caption := lngGetString(clngPropsStrOwner);
|
||||
lblGroupStr.Caption := lngGetString(clngPropsStrGroup);
|
||||
lblAttrTextStr.Caption := lngGetString(clngPropsStrAttrAlt);
|
||||
lblAttrBitsStr.Caption := lngGetString(clngPropsStrBits);
|
||||
lblLastModifStr.Caption := lngGetString(clngPropsStrLastChange);
|
||||
lblLastStChangeStr.Caption := lngGetString(clngPropsStrLastStatus);
|
||||
lblTypeStr.Caption := lngGetString(clngPropsStrType);
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.btnCloseClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.ShowFile(iIndex:Integer);
|
||||
var
|
||||
sb: FindEx.Stat64;
|
||||
dtFileDates:TDateTime;
|
||||
psUidRec:PPasswordRecord;
|
||||
psGidRec:PGroup;
|
||||
begin
|
||||
try
|
||||
with fFileList.GetItem(iIndex)^ do
|
||||
begin
|
||||
fpstat64(PChar(szPath + sName), sb);
|
||||
|
||||
lblFileName.Caption:=sName;
|
||||
lblFolder.Caption:=szPath;
|
||||
lblSize.Caption:=IntToStr(iSize);
|
||||
dtFileDates := FileStampToDateTime(sb.st_atime);
|
||||
lblLastAccess.Caption:=DateTimeToStr(dtFileDates);
|
||||
dtFileDates := FileStampToDateTime(sb.st_mtime);
|
||||
lblLastModif.Caption:=DateTimeToStr(dtFileDates);
|
||||
dtFileDates := FileStampToDateTime(sb.st_ctime);
|
||||
lblLastStChange.Caption:=DateTimeToStr(dtFileDates);
|
||||
if (bIsLink = True) then
|
||||
lblSymlink.Caption:=Format(lngGetString(clngPropsYes), [sLinkTo])
|
||||
else
|
||||
lblSymlink.Caption:=lngGetString(clngPropsNo);
|
||||
|
||||
|
||||
psUidRec := getpwuid(sb.st_uid);
|
||||
if not assigned(psUidRec) then
|
||||
lblOwner.Caption:=IntToStr(sb.st_uid)
|
||||
else
|
||||
lblOwner.Caption:=psUidRec^.pw_name;
|
||||
psGidRec := getgrgid(sb.st_gid);
|
||||
if not assigned(psGidRec) then
|
||||
lblGroup.Caption:=IntToStr(sb.st_gid)
|
||||
else
|
||||
lblGroup.Caption:=psGidRec^.gr_name;
|
||||
|
||||
lblAttrOwner.Caption := '';
|
||||
lblAttrGroup.Caption := '';
|
||||
lblAttrOther.Caption := '';
|
||||
lblAttrBits.Caption := '';
|
||||
if ((sb.st_mode and S_IRUSR) = S_IRUSR) then
|
||||
AddAttrString(lblAttrOwner, clngPropsAttrRead);
|
||||
if ((sb.st_mode and S_IWUSR) = S_IWUSR) then
|
||||
AddAttrString(lblAttrOwner, clngPropsAttrWrite);
|
||||
if ((sb.st_mode and S_IXUSR) = S_IXUSR) then
|
||||
AddAttrString(lblAttrOwner, clngPropsAttrExec);
|
||||
|
||||
if ((sb.st_mode and S_IRGRP) = S_IRGRP) then
|
||||
AddAttrString(lblAttrGroup, clngPropsAttrRead);
|
||||
if ((sb.st_mode and S_IWGRP) = S_IWGRP) then
|
||||
AddAttrString(lblAttrGroup, clngPropsAttrWrite);
|
||||
if ((sb.st_mode and S_IXGRP) = S_IXGRP) then
|
||||
AddAttrString(lblAttrGroup, clngPropsAttrExec);
|
||||
|
||||
if ((sb.st_mode and S_IROTH) = S_IROTH) then
|
||||
AddAttrString(lblAttrOther, clngPropsAttrRead);
|
||||
if ((sb.st_mode and S_IWOTH) = S_IWOTH) then
|
||||
AddAttrString(lblAttrOther, clngPropsAttrWrite);
|
||||
if ((sb.st_mode and S_IXOTH) = S_IXOTH) then
|
||||
AddAttrString(lblAttrOther, clngPropsAttrExec);
|
||||
|
||||
if ((sb.st_mode and S_ISUID) = S_ISUID) then
|
||||
AddAttrString(lblAttrBits, clngPropsAttrSetUID);
|
||||
if ((sb.st_mode and S_ISGID) = S_ISGID) then
|
||||
AddAttrString(lblAttrBits, clngPropsAttrSetGID);
|
||||
if ((sb.st_mode and S_ISVTX) = S_ISVTX) then
|
||||
AddAttrString(lblAttrBits, clngPropsAttrSticky);
|
||||
|
||||
lblAttrText.Caption:=sModeStr; // + 666 like
|
||||
|
||||
if FPS_ISDIR(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsFolder)
|
||||
else if FPS_ISREG(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsFile)
|
||||
else if FPS_ISCHR(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsSpChrDev)
|
||||
else if FPS_ISBLK(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsSpBlkDev)
|
||||
else if FPS_ISFIFO(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsNmdPipe)
|
||||
else if FPS_ISLNK(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsSymLink)
|
||||
else if FPS_ISSOCK(iMode) then
|
||||
lblType.Caption:=lngGetString(clngPropsSocket)
|
||||
else
|
||||
lblType.Caption:=lngGetString(clngPropsUnknownType);
|
||||
end;
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.AddAttrString(lblItem:TLabel; nText:Integer);
|
||||
begin
|
||||
if Length(lblItem.Caption) > 0 then
|
||||
begin
|
||||
lblItem.Caption := lblItem.Caption + ', ' + lngGetString(nText);
|
||||
end
|
||||
else
|
||||
lblItem.Caption := lngGetString(nText);
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.StoreData(FileList:TFileList);
|
||||
var
|
||||
i, nSelCount:Integer;
|
||||
begin
|
||||
fFileList:=FileList;
|
||||
iCurrent:=0;
|
||||
nSelCount:=0;
|
||||
|
||||
for i:=iCurrent to fFileList.Count-1 do
|
||||
begin
|
||||
if fFileList.GetItem(i)^.bSelected then
|
||||
inc(nSelCount);
|
||||
end;
|
||||
if (nSelCount > 1) then
|
||||
btnNext.Visible := True
|
||||
else
|
||||
btnNext.Visible := False;
|
||||
end;
|
||||
|
||||
function TfrmFileProperties.FindNextSelected:Boolean;
|
||||
var
|
||||
i:Integer;
|
||||
begin
|
||||
for i:=iCurrent to fFileList.Count-1 do
|
||||
begin
|
||||
if fFileList.GetItem(i)^.bSelected then
|
||||
begin
|
||||
iCurrent:=i;
|
||||
Result:=True;
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
Result:=False;
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.btnNextClick(Sender: TObject);
|
||||
begin
|
||||
inc(iCurrent);
|
||||
if not FindNextSelected Then
|
||||
Close
|
||||
else
|
||||
ShowFile(iCurrent);
|
||||
end;
|
||||
|
||||
procedure TfrmFileProperties.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
lblFileNameStr.Font.Style:=[fsBold];
|
||||
lblFileName.Font.Style:=[fsBold];
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I ffileproperties.lrs}
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,20 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmFindView','FORMDATA',[
|
||||
'TPF0'#12'TfrmFindView'#11'frmFindView'#13'ActiveControl'#7#12'cbDataToFind'#7
|
||||
+'Caption'#6#11'frmFindView'#12'ClientHeight'#2'^'#11'ClientWidth'#3'S'#1#6'O'
|
||||
+'nShow'#7#8'FormShow'#8'Position'#7#17'poOwnerFormCenter'#10'TextHeight'#2#16
|
||||
+#18'HorzScrollBar.Page'#3'T'#1#19'HorzScrollBar.Range'#3'K'#1#18'VertScrollB'
|
||||
+'ar.Page'#2'_'#19'VertScrollBar.Range'#2'V'#4'Left'#3#189#1#6'Height'#2'^'#3
|
||||
+'Top'#3'\'#1#5'Width'#3'S'#1#0#9'TComboBox'#12'cbDataToFind'#10'ItemHeight'#2
|
||||
+#18#9'MaxLength'#2#0#7'OnKeyUp'#7#17'cbDataToFindKeyUp'#11'ParentCtl3D'#8#8
|
||||
+'TabOrder'#2#0#4'Left'#2#16#6'Height'#2#23#3'Top'#2#16#5'Width'#3'8'#1#0#0#7
|
||||
+'TBitBtn'#7'btnFind'#7'Default'#9#7'OnClick'#7#12'btnFindClick'#7'Default'#9
|
||||
+#7'Caption'#6#4'Find'#8'TabOrder'#2#1#7'OnClick'#7#12'btnFindClick'#4'Left'#3
|
||||
+#176#0#6'Height'#2#25#3'Top'#2'8'#5'Width'#2'K'#0#0#7'TBitBtn'#8'btnClose'#4
|
||||
+'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#11'ModalResult'#2#2#7'Caption'#6#6
|
||||
+'Cancel'#8'TabOrder'#2#2#4'Left'#3#0#1#6'Height'#2#25#3'Top'#2'8'#5'Width'#2
|
||||
+'K'#0#0#9'TCheckBox'#10'cbCaseSens'#11'AllowGrayed'#9#8'AutoSize'#9#7'Captio'
|
||||
+'n'#6#10'cbCaseSens'#10'DragCursor'#4#244#255#0#0#8'TabOrder'#2#3#4'Left'#2
|
||||
+#16#6'Height'#2#30#3'Top'#2'8'#5'Width'#3#153#0#0#0#0
|
||||
]);
|
||||
182
ffindview.pas
182
ffindview.pas
|
|
@ -1,91 +1,91 @@
|
|||
{
|
||||
Seksi Commander
|
||||
----------------------------
|
||||
Find dialog for Viewer
|
||||
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : radek.cervinka@centrum.cz
|
||||
|
||||
contributors:
|
||||
|
||||
|
||||
}
|
||||
{$mode objfpc}{$H+}
|
||||
unit fFindView;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources, LClType,
|
||||
SysUtils, Types, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, fLngForm, Buttons;
|
||||
|
||||
type
|
||||
TfrmFindView = class(TfrmLng)
|
||||
cbDataToFind: TComboBox;
|
||||
btnFind: TBitBtn;
|
||||
btnClose: TBitBtn;
|
||||
cbCaseSens: TCheckBox;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure btnFindClick(Sender: TObject);
|
||||
procedure cbDataToFindKeyUp(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
procedure LoadLng; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uLng;
|
||||
|
||||
procedure TfrmFindView.LoadLng;
|
||||
begin
|
||||
Caption:= lngGetString(clngViewFnd);
|
||||
btnFind.Caption:= lngGetString(clngbutFind);
|
||||
cbCaseSens.Caption:= lngGetString(clngViewFndCase);
|
||||
btnClose.Caption:= lngGetString(clngbutClose);
|
||||
end;
|
||||
|
||||
procedure TfrmFindView.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
cbDataToFind.SelectAll;
|
||||
end;
|
||||
|
||||
procedure TfrmFindView.btnFindClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
cbDataToFind.Items.Add(cbDataToFind.Text);
|
||||
ModalResult:=mrOk;
|
||||
end;
|
||||
|
||||
procedure TfrmFindView.cbDataToFindKeyUp(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
inherited;
|
||||
if (Key=VK_Down) and (cbDataToFind.Items.Count>0) then
|
||||
cbDataToFind.DroppedDown:=True;
|
||||
writeln(Key);
|
||||
if Key=13 then
|
||||
begin
|
||||
Key:=0;
|
||||
btnFind.Click;
|
||||
end;
|
||||
if Key=27 then
|
||||
begin
|
||||
Key:=0;
|
||||
ModalResult:=mrCancel;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
{$I fFindView.lrs}
|
||||
|
||||
end.
|
||||
{
|
||||
Seksi Commander
|
||||
----------------------------
|
||||
Find dialog for Viewer
|
||||
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : radek.cervinka@centrum.cz
|
||||
|
||||
contributors:
|
||||
|
||||
|
||||
}
|
||||
{$mode objfpc}{$H+}
|
||||
unit fFindView;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources, LClType,
|
||||
SysUtils, Types, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, fLngForm, Buttons;
|
||||
|
||||
type
|
||||
TfrmFindView = class(TfrmLng)
|
||||
cbDataToFind: TComboBox;
|
||||
btnFind: TBitBtn;
|
||||
btnClose: TBitBtn;
|
||||
cbCaseSens: TCheckBox;
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure btnFindClick(Sender: TObject);
|
||||
procedure cbDataToFindKeyUp(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
procedure LoadLng; override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uLng;
|
||||
|
||||
procedure TfrmFindView.LoadLng;
|
||||
begin
|
||||
Caption:= lngGetString(clngViewFnd);
|
||||
btnFind.Caption:= lngGetString(clngbutFind);
|
||||
cbCaseSens.Caption:= lngGetString(clngViewFndCase);
|
||||
btnClose.Caption:= lngGetString(clngbutClose);
|
||||
end;
|
||||
|
||||
procedure TfrmFindView.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
cbDataToFind.SelectAll;
|
||||
end;
|
||||
|
||||
procedure TfrmFindView.btnFindClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
cbDataToFind.Items.Add(cbDataToFind.Text);
|
||||
ModalResult:=mrOk;
|
||||
end;
|
||||
|
||||
procedure TfrmFindView.cbDataToFindKeyUp(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
begin
|
||||
inherited;
|
||||
if (Key=VK_Down) and (cbDataToFind.Items.Count>0) then
|
||||
cbDataToFind.DroppedDown:=True;
|
||||
writeln(Key);
|
||||
if Key=13 then
|
||||
begin
|
||||
Key:=0;
|
||||
btnFind.Click;
|
||||
end;
|
||||
if Key=27 then
|
||||
begin
|
||||
Key:=0;
|
||||
ModalResult:=mrCancel;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
{$I ffindview.lrs}
|
||||
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -81,5 +81,5 @@ begin
|
|||
end;
|
||||
|
||||
initialization
|
||||
{$I fHardLink.lrs}
|
||||
{$I fhardlink.lrs}
|
||||
end.
|
||||
|
|
|
|||
21
fhotdir.lrs
21
fhotdir.lrs
|
|
@ -1,21 +0,0 @@
|
|||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TfrmHotDir','FORMDATA',[
|
||||
'TPF0'#10'TfrmHotDir'#9'frmHotDir'#13'ActiveControl'#7#8'lsHotDir'#7'Caption'
|
||||
+#6#9'frmHotDir'#12'ClientHeight'#3#167#1#11'ClientWidth'#3#155#1#5'Color'#7
|
||||
+#12'clBackground'#10'TextHeight'#2#16#18'HorzScrollBar.Page'#3#156#1#19'Horz'
|
||||
+'ScrollBar.Range'#3#147#1#18'VertScrollBar.Page'#3#168#1#19'VertScrollBar.Ra'
|
||||
+'nge'#3#161#1#4'Left'#3#21#1#6'Height'#3#167#1#3'Top'#3#211#0#5'Width'#3#155
|
||||
+#1#0#8'TListBox'#8'lsHotDir'#8'TabOrder'#2#0#8'TopIndex'#2#255#4'Left'#2#8#6
|
||||
+'Height'#3#153#1#3'Top'#2#8#5'Width'#3'1'#1#0#0#7'TBitBtn'#5'btnOK'#4'Kind'#7
|
||||
+#4'bkOK'#11'ModalResult'#2#1#7'OnClick'#7#10'btnOKClick'#11'ModalResult'#2#1
|
||||
+#7'Caption'#6#3'&OK'#8'TabOrder'#2#1#7'OnClick'#7#10'btnOKClick'#4'Left'#3'H'
|
||||
+#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#0#0#7'TBitBtn'#9'btnCancel'#4'Kin'
|
||||
+'d'#7#8'bkCancel'#11'ModalResult'#2#2#11'ModalResult'#2#2#7'Caption'#6#6'Can'
|
||||
+'cel'#8'TabOrder'#2#2#4'Left'#3'H'#1#6'Height'#2#25#3'Top'#3#128#0#5'Width'#2
|
||||
+'K'#0#0#7'TBitBtn'#6'btnADD'#7'OnClick'#7#11'btnADDClick'#7'Caption'#6#3'Add'
|
||||
+#8'TabOrder'#2#3#7'OnClick'#7#11'btnADDClick'#4'Left'#3'H'#1#6'Height'#2#25#3
|
||||
+'Top'#2'0'#5'Width'#2'K'#0#0#7'TBitBtn'#9'btnDelete'#7'OnClick'#7#14'btnDele'
|
||||
+'teClick'#7'Caption'#6#6'Delete'#8'TabOrder'#2#4#7'OnClick'#7#14'btnDeleteCl'
|
||||
+'ick'#4'Left'#3'H'#1#6'Height'#2#25#3'Top'#2'X'#5'Width'#2'K'#0#0#0
|
||||
]);
|
||||
|
|
@ -82,5 +82,5 @@ begin
|
|||
end;
|
||||
|
||||
initialization
|
||||
{$I fHotDir.lrs}
|
||||
{$I fhotdir.lrs}
|
||||
end.
|
||||
|
|
|
|||
372
flinker.pas
372
flinker.pas
|
|
@ -1,186 +1,186 @@
|
|||
{
|
||||
Seksi Commander
|
||||
----------------------------
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : Pavel Letko (letcuv@centrum.cz)
|
||||
|
||||
File combiner
|
||||
|
||||
contributors:
|
||||
Radek Cervinka
|
||||
}
|
||||
|
||||
unit fLinker;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ComCtrls, Buttons;
|
||||
|
||||
type
|
||||
TfrmLinker = class(TForm)
|
||||
lblFileName: TLabel;
|
||||
lstFile: TListBox;
|
||||
gbSaveTo: TGroupBox;
|
||||
edSave: TEdit;
|
||||
btnSave: TButton;
|
||||
grbxControl: TGroupBox;
|
||||
btnOK: TButton;
|
||||
btnExit: TButton;
|
||||
spbtnUp: TButton;
|
||||
spbtnDown: TButton;
|
||||
spbtnDel: TButton;
|
||||
dlgSaveAll: TSaveDialog;
|
||||
prbrWork: TProgressBar;
|
||||
procedure spbtnUpClick(Sender: TObject);
|
||||
procedure spbtnDownClick(Sender: TObject);
|
||||
procedure spbtnDelClick(Sender: TObject);
|
||||
procedure btnSaveClick(Sender: TObject);
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
sDirectory: String;
|
||||
procedure LoadLng;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
function ShowLinkerFilesForm(var lsFiles:TStringList):Boolean;
|
||||
{start function with input arguments}
|
||||
implementation
|
||||
|
||||
uses
|
||||
uLng, uFileProcs;
|
||||
|
||||
//var gDirectory:string;
|
||||
|
||||
procedure TfrmLinker.LoadLng;
|
||||
begin
|
||||
Caption:= StringReplace(lngGetString(clngMnuFileCombine),'&','',[rfReplaceAll]);
|
||||
lblFileName.Caption:=lngGetString(clngLinkColumnNameFile);
|
||||
btnExit.Caption:=lngGetString(clngLinkBtnExit);
|
||||
btnOK.Caption:=lngGetString(clngButOk);
|
||||
grbxControl.Caption:=lngGetString(clngLinkControlItem);
|
||||
|
||||
spbtnDel.Caption:=lngGetString(clngLinkHintDel);
|
||||
spbtnDown.Caption:=lngGetString(clngLinkHintDown);
|
||||
spbtnUp.Caption:=lngGetString(clngLinkHintUp);
|
||||
gbSaveTo.Caption:=lngGetString(clngLinkSaveTo);
|
||||
dlgSaveAll.Title:=lngGetString(clngLinkDialogSave);
|
||||
end;
|
||||
|
||||
function ShowLinkerFilesForm(var lsFiles:TStringList):Boolean;
|
||||
var
|
||||
c:Integer;
|
||||
begin
|
||||
|
||||
With TfrmLinker.Create(Application) do
|
||||
begin
|
||||
try
|
||||
for c:=0 to lsFiles.Count-1 do
|
||||
with lstFile.Items do
|
||||
begin
|
||||
writeln(ExtractFileName(lsFiles[c]));
|
||||
Add(ExtractFileName(lsFiles[c]));
|
||||
end;
|
||||
LoadLng;
|
||||
prbrWork.Max:=lsFiles.Count;
|
||||
prbrWork.Position:=0;
|
||||
prbrWork.Min:=0;
|
||||
edSave.Text:=lsFiles[0]+'.all';
|
||||
sDirectory:=ExtractFileDir(edSave.Text);
|
||||
ShowModal;
|
||||
Result:=True;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLinker.spbtnDownClick(Sender: TObject);
|
||||
var
|
||||
s:String;
|
||||
iSelected:Integer;
|
||||
begin
|
||||
with lstFile do
|
||||
begin
|
||||
if ItemIndex<0 then Exit;
|
||||
if ItemIndex=Items.Count-1 then Exit;
|
||||
iSelected:=ItemIndex;
|
||||
s:=Items[iSelected];
|
||||
Items[iSelected]:=Items[iSelected+1];
|
||||
Items[iSelected+1]:=s;
|
||||
ItemIndex:=iSelected+1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLinker.spbtnUpClick(Sender: TObject);
|
||||
var
|
||||
s:String;
|
||||
iSelected:Integer;
|
||||
begin
|
||||
with lstFile do
|
||||
begin
|
||||
if ItemIndex<1 then Exit;
|
||||
iSelected:=ItemIndex;
|
||||
s:=Items[iSelected];
|
||||
Items[iSelected]:=Items[iSelected-1];
|
||||
Items[iSelected-1]:=s;
|
||||
ItemIndex:=iSelected-1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLinker.spbtnDelClick(Sender: TObject);
|
||||
begin
|
||||
with lstFile do
|
||||
begin
|
||||
if ItemIndex>-1 then
|
||||
Items.Delete(ItemIndex);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLinker.btnSaveClick(Sender: TObject);
|
||||
begin
|
||||
dlgSaveAll.InitialDir:=ExtractFileDir(edSave.Text);
|
||||
dlgSaveAll.FileName:=ExtractFileName(edSave.Text);
|
||||
|
||||
if dlgSaveAll.Execute then
|
||||
edSave.Text:=dlgSaveAll.FileName;
|
||||
end;
|
||||
|
||||
procedure TfrmLinker.btnOKClick(Sender: TObject);
|
||||
var
|
||||
c:integer;
|
||||
fTarget,fSource:TFileStream;
|
||||
|
||||
begin
|
||||
if ForceDirectory(ExtractFileDir(edSave.Text)) then
|
||||
begin
|
||||
fTarget:=TFileStream.Create(edSave.Text,fmCreate);
|
||||
try
|
||||
prbrWork.Max:=lstFile.Items.Count;
|
||||
prbrWork.Position:=0;
|
||||
for c:=0 to lstFile.Items.Count-1 do
|
||||
begin
|
||||
fSource:=TFileStream.Create(sDirectory+PathDelim
|
||||
+lstFile.Items[c],fmOpenRead);
|
||||
try
|
||||
fTarget.CopyFrom(fSource,fSource.Size);
|
||||
prbrWork.Position:=prbrWork.Position+1;
|
||||
finally
|
||||
FreeAndNil(fSource);
|
||||
end;
|
||||
end;
|
||||
ShowMessage(lngGetString(clngLinkMsgOK));
|
||||
finally
|
||||
FreeAndNil(fTarget);
|
||||
prbrWork.Position:=0;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fLinker.lrs}
|
||||
end.
|
||||
{
|
||||
Seksi Commander
|
||||
----------------------------
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : Pavel Letko (letcuv@centrum.cz)
|
||||
|
||||
File combiner
|
||||
|
||||
contributors:
|
||||
Radek Cervinka
|
||||
}
|
||||
|
||||
unit fLinker;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ComCtrls, Buttons;
|
||||
|
||||
type
|
||||
TfrmLinker = class(TForm)
|
||||
lblFileName: TLabel;
|
||||
lstFile: TListBox;
|
||||
gbSaveTo: TGroupBox;
|
||||
edSave: TEdit;
|
||||
btnSave: TButton;
|
||||
grbxControl: TGroupBox;
|
||||
btnOK: TButton;
|
||||
btnExit: TButton;
|
||||
spbtnUp: TButton;
|
||||
spbtnDown: TButton;
|
||||
spbtnDel: TButton;
|
||||
dlgSaveAll: TSaveDialog;
|
||||
prbrWork: TProgressBar;
|
||||
procedure spbtnUpClick(Sender: TObject);
|
||||
procedure spbtnDownClick(Sender: TObject);
|
||||
procedure spbtnDelClick(Sender: TObject);
|
||||
procedure btnSaveClick(Sender: TObject);
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
sDirectory: String;
|
||||
procedure LoadLng;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
function ShowLinkerFilesForm(var lsFiles:TStringList):Boolean;
|
||||
{start function with input arguments}
|
||||
implementation
|
||||
|
||||
uses
|
||||
uLng, uFileProcs;
|
||||
|
||||
//var gDirectory:string;
|
||||
|
||||
procedure TfrmLinker.LoadLng;
|
||||
begin
|
||||
Caption:= StringReplace(lngGetString(clngMnuFileCombine),'&','',[rfReplaceAll]);
|
||||
lblFileName.Caption:=lngGetString(clngLinkColumnNameFile);
|
||||
btnExit.Caption:=lngGetString(clngLinkBtnExit);
|
||||
btnOK.Caption:=lngGetString(clngButOk);
|
||||
grbxControl.Caption:=lngGetString(clngLinkControlItem);
|
||||
|
||||
spbtnDel.Caption:=lngGetString(clngLinkHintDel);
|
||||
spbtnDown.Caption:=lngGetString(clngLinkHintDown);
|
||||
spbtnUp.Caption:=lngGetString(clngLinkHintUp);
|
||||
gbSaveTo.Caption:=lngGetString(clngLinkSaveTo);
|
||||
dlgSaveAll.Title:=lngGetString(clngLinkDialogSave);
|
||||
end;
|
||||
|
||||
function ShowLinkerFilesForm(var lsFiles:TStringList):Boolean;
|
||||
var
|
||||
c:Integer;
|
||||
begin
|
||||
|
||||
With TfrmLinker.Create(Application) do
|
||||
begin
|
||||
try
|
||||
for c:=0 to lsFiles.Count-1 do
|
||||
with lstFile.Items do
|
||||
begin
|
||||
writeln(ExtractFileName(lsFiles[c]));
|
||||
Add(ExtractFileName(lsFiles[c]));
|
||||
end;
|
||||
LoadLng;
|
||||
prbrWork.Max:=lsFiles.Count;
|
||||
prbrWork.Position:=0;
|
||||
prbrWork.Min:=0;
|
||||
edSave.Text:=lsFiles[0]+'.all';
|
||||
sDirectory:=ExtractFileDir(edSave.Text);
|
||||
ShowModal;
|
||||
Result:=True;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLinker.spbtnDownClick(Sender: TObject);
|
||||
var
|
||||
s:String;
|
||||
iSelected:Integer;
|
||||
begin
|
||||
with lstFile do
|
||||
begin
|
||||
if ItemIndex<0 then Exit;
|
||||
if ItemIndex=Items.Count-1 then Exit;
|
||||
iSelected:=ItemIndex;
|
||||
s:=Items[iSelected];
|
||||
Items[iSelected]:=Items[iSelected+1];
|
||||
Items[iSelected+1]:=s;
|
||||
ItemIndex:=iSelected+1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLinker.spbtnUpClick(Sender: TObject);
|
||||
var
|
||||
s:String;
|
||||
iSelected:Integer;
|
||||
begin
|
||||
with lstFile do
|
||||
begin
|
||||
if ItemIndex<1 then Exit;
|
||||
iSelected:=ItemIndex;
|
||||
s:=Items[iSelected];
|
||||
Items[iSelected]:=Items[iSelected-1];
|
||||
Items[iSelected-1]:=s;
|
||||
ItemIndex:=iSelected-1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLinker.spbtnDelClick(Sender: TObject);
|
||||
begin
|
||||
with lstFile do
|
||||
begin
|
||||
if ItemIndex>-1 then
|
||||
Items.Delete(ItemIndex);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLinker.btnSaveClick(Sender: TObject);
|
||||
begin
|
||||
dlgSaveAll.InitialDir:=ExtractFileDir(edSave.Text);
|
||||
dlgSaveAll.FileName:=ExtractFileName(edSave.Text);
|
||||
|
||||
if dlgSaveAll.Execute then
|
||||
edSave.Text:=dlgSaveAll.FileName;
|
||||
end;
|
||||
|
||||
procedure TfrmLinker.btnOKClick(Sender: TObject);
|
||||
var
|
||||
c:integer;
|
||||
fTarget,fSource:TFileStream;
|
||||
|
||||
begin
|
||||
if ForceDirectory(ExtractFileDir(edSave.Text)) then
|
||||
begin
|
||||
fTarget:=TFileStream.Create(edSave.Text,fmCreate);
|
||||
try
|
||||
prbrWork.Max:=lstFile.Items.Count;
|
||||
prbrWork.Position:=0;
|
||||
for c:=0 to lstFile.Items.Count-1 do
|
||||
begin
|
||||
fSource:=TFileStream.Create(sDirectory+PathDelim
|
||||
+lstFile.Items[c],fmOpenRead);
|
||||
try
|
||||
fTarget.CopyFrom(fSource,fSource.Size);
|
||||
prbrWork.Position:=prbrWork.Position+1;
|
||||
finally
|
||||
FreeAndNil(fSource);
|
||||
end;
|
||||
end;
|
||||
ShowMessage(lngGetString(clngLinkMsgOK));
|
||||
finally
|
||||
FreeAndNil(fTarget);
|
||||
prbrWork.Position:=0;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I flinker.lrs}
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -2472,5 +2472,5 @@ begin
|
|||
end;
|
||||
|
||||
initialization
|
||||
{$I fMain.lrs}
|
||||
{$I fmain.lrs}
|
||||
end.
|
||||
|
|
|
|||
130
fmkdir.pas
130
fmkdir.pas
|
|
@ -1,65 +1,65 @@
|
|||
unit fMkDir;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, Buttons, fLngForm;
|
||||
|
||||
type
|
||||
TfrmMkDir = class(TfrmLng)
|
||||
edtMkDir: TEdit;
|
||||
btnOK: TBitBtn;
|
||||
btnCancel: TBitBtn;
|
||||
lblMakeDir: TLabel;
|
||||
procedure FormKeyPress(Sender: TObject; var Key: Char);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
procedure LoadLng; override;
|
||||
end;
|
||||
|
||||
Function ShowMkDir(var sPath:string):Boolean;
|
||||
|
||||
|
||||
implementation
|
||||
uses
|
||||
uLng;
|
||||
|
||||
|
||||
procedure TfrmMkDir.LoadLng;
|
||||
begin
|
||||
Caption:= lngGetString(clngDlgMkDir);
|
||||
lblMakeDir.Caption:= lngGetString(clngDlgMkDirInput);
|
||||
end;
|
||||
|
||||
procedure TfrmMkDir.FormKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
inherited;
|
||||
if Key=#27 then
|
||||
ModalResult:=mrCancel;
|
||||
if Key=#13 then
|
||||
begin
|
||||
ModalResult:=mrOK;
|
||||
Key:=#0;
|
||||
end;
|
||||
end;
|
||||
|
||||
Function ShowMkDir(var sPath:string):Boolean;
|
||||
begin
|
||||
with TfrmMkDir.Create(Application) do
|
||||
try
|
||||
Result:=ShowModal=mrOK;
|
||||
sPath:=Trim(edtMkDir.Text);
|
||||
{ if Result then
|
||||
MkDir(sPath+edtMkDir.Text);}
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fMkDir.lrs}
|
||||
|
||||
end.
|
||||
unit fMkDir;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, Buttons, fLngForm;
|
||||
|
||||
type
|
||||
TfrmMkDir = class(TfrmLng)
|
||||
edtMkDir: TEdit;
|
||||
btnOK: TBitBtn;
|
||||
btnCancel: TBitBtn;
|
||||
lblMakeDir: TLabel;
|
||||
procedure FormKeyPress(Sender: TObject; var Key: Char);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
procedure LoadLng; override;
|
||||
end;
|
||||
|
||||
Function ShowMkDir(var sPath:string):Boolean;
|
||||
|
||||
|
||||
implementation
|
||||
uses
|
||||
uLng;
|
||||
|
||||
|
||||
procedure TfrmMkDir.LoadLng;
|
||||
begin
|
||||
Caption:= lngGetString(clngDlgMkDir);
|
||||
lblMakeDir.Caption:= lngGetString(clngDlgMkDirInput);
|
||||
end;
|
||||
|
||||
procedure TfrmMkDir.FormKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
inherited;
|
||||
if Key=#27 then
|
||||
ModalResult:=mrCancel;
|
||||
if Key=#13 then
|
||||
begin
|
||||
ModalResult:=mrOK;
|
||||
Key:=#0;
|
||||
end;
|
||||
end;
|
||||
|
||||
Function ShowMkDir(var sPath:string):Boolean;
|
||||
begin
|
||||
with TfrmMkDir.Create(Application) do
|
||||
try
|
||||
Result:=ShowModal=mrOK;
|
||||
sPath:=Trim(edtMkDir.Text);
|
||||
{ if Result then
|
||||
MkDir(sPath+edtMkDir.Text);}
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fmkdir.lrs}
|
||||
|
||||
end.
|
||||
|
|
|
|||
122
fmovedlg.pas
122
fmovedlg.pas
|
|
@ -1,61 +1,61 @@
|
|||
unit fMoveDlg;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, fLngForm, Buttons;
|
||||
|
||||
type
|
||||
TfrmMoveDlg = class(TfrmLng)
|
||||
btnOK: TBitBtn;
|
||||
btnCancel: TBitBtn;
|
||||
edtDst: TEdit;
|
||||
lblMoveSrc: TLabel;
|
||||
lblFileType: TLabel;
|
||||
cmbFileType: TComboBox;
|
||||
procedure frmMoveDlgKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure frmMoveDlgShow(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
|
||||
procedure LoadLng; override;
|
||||
end;
|
||||
|
||||
var
|
||||
frmMoveDlg: TfrmMoveDlg;
|
||||
|
||||
implementation
|
||||
uses
|
||||
uLng;
|
||||
|
||||
procedure TfrmMoveDlg.frmMoveDlgShow(Sender: TObject);
|
||||
begin
|
||||
edtDst.SelectAll;
|
||||
edtDst.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TfrmMoveDlg.frmMoveDlgKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key=#27 then
|
||||
ModalResult:=mrCancel;
|
||||
if Key=#13 then
|
||||
begin
|
||||
ModalResult:=mrOK;
|
||||
Key:=#0;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMoveDlg.LoadLng;
|
||||
begin
|
||||
Caption:= lngGetString(clngDlgMv);
|
||||
// lblCopySrc.Caption:= lngGetString(clngDlgMvSrc); //handle by MainForm
|
||||
lblFileType.Caption:= lngGetString(clngDlgMvType);
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fMoveDlg.lrs}
|
||||
end.
|
||||
unit fMoveDlg;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, fLngForm, Buttons;
|
||||
|
||||
type
|
||||
TfrmMoveDlg = class(TfrmLng)
|
||||
btnOK: TBitBtn;
|
||||
btnCancel: TBitBtn;
|
||||
edtDst: TEdit;
|
||||
lblMoveSrc: TLabel;
|
||||
lblFileType: TLabel;
|
||||
cmbFileType: TComboBox;
|
||||
procedure frmMoveDlgKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure frmMoveDlgShow(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
|
||||
procedure LoadLng; override;
|
||||
end;
|
||||
|
||||
var
|
||||
frmMoveDlg: TfrmMoveDlg;
|
||||
|
||||
implementation
|
||||
uses
|
||||
uLng;
|
||||
|
||||
procedure TfrmMoveDlg.frmMoveDlgShow(Sender: TObject);
|
||||
begin
|
||||
edtDst.SelectAll;
|
||||
edtDst.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TfrmMoveDlg.frmMoveDlgKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key=#27 then
|
||||
ModalResult:=mrCancel;
|
||||
if Key=#13 then
|
||||
begin
|
||||
ModalResult:=mrOK;
|
||||
Key:=#0;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMoveDlg.LoadLng;
|
||||
begin
|
||||
Caption:= lngGetString(clngDlgMv);
|
||||
// lblCopySrc.Caption:= lngGetString(clngDlgMvSrc); //handle by MainForm
|
||||
lblFileType.Caption:= lngGetString(clngDlgMvType);
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fmovedlg.lrs}
|
||||
end.
|
||||
|
|
|
|||
205
fmultirename.lfm
205
fmultirename.lfm
|
|
@ -1,138 +1,130 @@
|
|||
object frmMultiRename: TfrmMultiRename
|
||||
ActiveControl = edName
|
||||
Caption = 'MultiRename'
|
||||
ClientHeight = 354
|
||||
ClientWidth = 608
|
||||
PixelsPerInch = 96
|
||||
Position = poMainFormCenter
|
||||
TextHeight = 16
|
||||
inherited frmMultiRename: TfrmMultiRename
|
||||
Left = 278
|
||||
Height = 354
|
||||
Top = 176
|
||||
Width = 608
|
||||
HorzScrollBar.Page = 607
|
||||
HorzScrollBar.Range = 603
|
||||
VertScrollBar.Page = 353
|
||||
VertScrollBar.Range = 345
|
||||
Left = 295
|
||||
Height = 354
|
||||
Top = 536
|
||||
Width = 608
|
||||
ActiveControl = edName
|
||||
Caption = 'MultiRename'
|
||||
Position = poMainFormCenter
|
||||
object gbMaska: TGroupBox
|
||||
Caption = 'Mask'
|
||||
ClientHeight = 87
|
||||
ClientWidth = 172
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
Height = 105
|
||||
Top = 208
|
||||
Width = 176
|
||||
Caption = 'Mask'
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
object lbName: TLabel
|
||||
Caption = 'File Name'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
Left = 6
|
||||
Height = 14
|
||||
Width = 47
|
||||
end
|
||||
object lbExt: TLabel
|
||||
Caption = 'Extension'
|
||||
Caption = 'File Name'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lbExt: TLabel
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 41
|
||||
Width = 48
|
||||
Caption = 'Extension'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object edName: TEdit
|
||||
OnChange = cmbxFontChange
|
||||
TabOrder = 0
|
||||
Left = 6
|
||||
Height = 20
|
||||
Top = 17
|
||||
Width = 136
|
||||
OnChange = cmbxFontChange
|
||||
TabOrder = 0
|
||||
end
|
||||
object edExt: TEdit
|
||||
OnChange = cmbxFontChange
|
||||
TabOrder = 2
|
||||
Tag = 25
|
||||
Left = 6
|
||||
Height = 20
|
||||
Top = 57
|
||||
Width = 136
|
||||
Tag = 25
|
||||
OnChange = cmbxFontChange
|
||||
TabOrder = 2
|
||||
end
|
||||
object btnNameMenu: TButton
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = '...'
|
||||
OnClick = btnNameMenuClick
|
||||
TabOrder = 1
|
||||
Left = 150
|
||||
Height = 19
|
||||
Top = 17
|
||||
Width = 16
|
||||
Caption = '...'
|
||||
OnClick = btnNameMenuClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object btnExtMenu: TButton
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = '...'
|
||||
OnClick = btnExtMenuClick
|
||||
TabOrder = 3
|
||||
Left = 150
|
||||
Height = 20
|
||||
Top = 57
|
||||
Width = 16
|
||||
Caption = '...'
|
||||
OnClick = btnExtMenuClick
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
object gbFindReplace: TGroupBox
|
||||
Caption = 'Find && Replace'
|
||||
ClientHeight = 87
|
||||
ClientWidth = 133
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
Left = 176
|
||||
Height = 105
|
||||
Top = 208
|
||||
Width = 137
|
||||
Caption = 'Find && Replace'
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
object lbFind: TLabel
|
||||
Caption = 'Find...'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
Left = 6
|
||||
Height = 14
|
||||
Width = 33
|
||||
end
|
||||
object lbReplace: TLabel
|
||||
Caption = 'Replace...'
|
||||
Caption = 'Find...'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lbReplace: TLabel
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 41
|
||||
Width = 51
|
||||
Caption = 'Replace...'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object edFind: TEdit
|
||||
OnChange = cmbxFontChange
|
||||
TabOrder = 0
|
||||
Left = 6
|
||||
Height = 20
|
||||
Top = 17
|
||||
Width = 120
|
||||
OnChange = cmbxFontChange
|
||||
TabOrder = 0
|
||||
end
|
||||
object edReplace: TEdit
|
||||
OnChange = cmbxFontChange
|
||||
TabOrder = 1
|
||||
Left = 6
|
||||
Height = 20
|
||||
Top = 57
|
||||
Width = 120
|
||||
OnChange = cmbxFontChange
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object gbFontStyle: TGroupBox
|
||||
Caption = 'File Name Style'
|
||||
ClientHeight = 31
|
||||
ClientWidth = 133
|
||||
ParentCtl3D = False
|
||||
TabOrder = 2
|
||||
Left = 464
|
||||
Height = 49
|
||||
Top = 208
|
||||
Width = 137
|
||||
Caption = 'File Name Style'
|
||||
ParentCtl3D = False
|
||||
TabOrder = 2
|
||||
object cmbxFont: TComboBox
|
||||
Left = 6
|
||||
Height = 21
|
||||
Top = 1
|
||||
Width = 120
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
ItemHeight = 18
|
||||
ItemIndex = 0
|
||||
|
|
@ -148,70 +140,68 @@ object frmMultiRename: TfrmMultiRename
|
|||
Style = csDropDownList
|
||||
TabOrder = 0
|
||||
Text = 'no change'
|
||||
Left = 6
|
||||
Height = 21
|
||||
Top = 1
|
||||
Width = 120
|
||||
end
|
||||
end
|
||||
object gbCounter: TGroupBox
|
||||
Caption = 'Counter'
|
||||
ClientHeight = 87
|
||||
ClientWidth = 133
|
||||
ParentCtl3D = False
|
||||
TabOrder = 3
|
||||
Left = 320
|
||||
Height = 105
|
||||
Top = 208
|
||||
Width = 137
|
||||
Caption = 'Counter'
|
||||
ParentCtl3D = False
|
||||
TabOrder = 3
|
||||
object lbStNb: TLabel
|
||||
Caption = 'Start Number'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 1
|
||||
Width = 65
|
||||
end
|
||||
object lbInterval: TLabel
|
||||
Caption = 'Interval'
|
||||
Caption = 'Start Number'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lbInterval: TLabel
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 57
|
||||
Width = 39
|
||||
end
|
||||
object lbWidth: TLabel
|
||||
Caption = 'Width'
|
||||
Caption = 'Interval'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object lbWidth: TLabel
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 28
|
||||
Width = 29
|
||||
Caption = 'Width'
|
||||
Color = clNone
|
||||
ParentColor = False
|
||||
end
|
||||
object edPoc: TEdit
|
||||
MaxLength = 5
|
||||
OnChange = edPocChange
|
||||
TabOrder = 0
|
||||
Text = '1'
|
||||
Left = 80
|
||||
Height = 20
|
||||
Top = 1
|
||||
Width = 48
|
||||
MaxLength = 5
|
||||
OnChange = edPocChange
|
||||
TabOrder = 0
|
||||
Text = '1'
|
||||
end
|
||||
object edInterval: TEdit
|
||||
MaxLength = 5
|
||||
OnChange = edIntervalChange
|
||||
TabOrder = 1
|
||||
Text = '1'
|
||||
Left = 80
|
||||
Height = 20
|
||||
Top = 54
|
||||
Width = 48
|
||||
MaxLength = 5
|
||||
OnChange = edIntervalChange
|
||||
TabOrder = 1
|
||||
Text = '1'
|
||||
end
|
||||
object cmbxWidth: TComboBox
|
||||
Left = 80
|
||||
Height = 21
|
||||
Top = 25
|
||||
Width = 50
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
ItemHeight = 18
|
||||
ItemIndex = 0
|
||||
|
|
@ -233,71 +223,66 @@ object frmMultiRename: TfrmMultiRename
|
|||
Style = csDropDownList
|
||||
TabOrder = 2
|
||||
Text = '01'
|
||||
Left = 80
|
||||
Height = 21
|
||||
Top = 25
|
||||
Width = 50
|
||||
end
|
||||
end
|
||||
object btnOK: TButton
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'OK'
|
||||
OnClick = btnOKClick
|
||||
TabOrder = 4
|
||||
Left = 320
|
||||
Height = 25
|
||||
Top = 320
|
||||
Width = 65
|
||||
Caption = 'OK'
|
||||
OnClick = btnOKClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object btnCancel: TButton
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 5
|
||||
Left = 392
|
||||
Height = 25
|
||||
Top = 320
|
||||
Width = 65
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 5
|
||||
end
|
||||
object gbLog: TGroupBox
|
||||
Caption = 'Log Result'
|
||||
ClientHeight = 64
|
||||
ClientWidth = 133
|
||||
ParentCtl3D = False
|
||||
TabOrder = 6
|
||||
Left = 464
|
||||
Height = 82
|
||||
Top = 263
|
||||
Width = 137
|
||||
Caption = 'Log Result'
|
||||
ParentCtl3D = False
|
||||
TabOrder = 6
|
||||
object edFile: TEdit
|
||||
TabOrder = 0
|
||||
Left = 6
|
||||
Height = 20
|
||||
Top = 16
|
||||
Width = 120
|
||||
TabOrder = 0
|
||||
end
|
||||
object cbLog: TCheckBox
|
||||
AllowGrayed = True
|
||||
Caption = 'Log'
|
||||
OnClick = cbLogClick
|
||||
TabOrder = 1
|
||||
Left = 8
|
||||
Height = 13
|
||||
Top = 40
|
||||
Width = 38
|
||||
AllowGrayed = True
|
||||
Caption = 'Log'
|
||||
OnClick = cbLogClick
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object btnRestore: TButton
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Restore All'
|
||||
OnClick = btnRestoreClick
|
||||
TabOrder = 7
|
||||
Left = 8
|
||||
Height = 25
|
||||
Top = 318
|
||||
Width = 136
|
||||
Caption = 'Restore All'
|
||||
OnClick = btnRestoreClick
|
||||
TabOrder = 7
|
||||
end
|
||||
object lsvwFile: TListView
|
||||
Left = 2
|
||||
Height = 201
|
||||
Top = 2
|
||||
Width = 603
|
||||
Columns = <
|
||||
item
|
||||
AutoSize = True
|
||||
|
|
@ -316,10 +301,6 @@ object frmMultiRename: TfrmMultiRename
|
|||
end>
|
||||
TabOrder = 8
|
||||
ViewStyle = vsReport
|
||||
Left = 2
|
||||
Height = 201
|
||||
Top = 2
|
||||
Width = 603
|
||||
end
|
||||
object ppNameMenu: TPopupMenu
|
||||
AutoPopup = False
|
||||
|
|
|
|||
970
fmultirename.pas
970
fmultirename.pas
|
|
@ -1,485 +1,485 @@
|
|||
{
|
||||
Seksi Commander
|
||||
----------------------------
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : Pavel Letko (letcuv@centrum.cz)
|
||||
|
||||
Advanced multi rename tool
|
||||
|
||||
contributors:
|
||||
|
||||
}
|
||||
|
||||
unit fMultiRename;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
StdCtrls, ComCtrls, Menus, fLngForm, Buttons;
|
||||
|
||||
type
|
||||
TfrmMultiRename = class(TfrmLng)
|
||||
lsvwFile: TListView;
|
||||
gbMaska: TGroupBox;
|
||||
lbName: TLabel;
|
||||
lbExt: TLabel;
|
||||
edName: TEdit;
|
||||
edExt: TEdit;
|
||||
btnNameMenu: TButton;
|
||||
btnExtMenu: TButton;
|
||||
gbFindReplace: TGroupBox;
|
||||
lbFind: TLabel;
|
||||
lbReplace: TLabel;
|
||||
edFind: TEdit;
|
||||
edReplace: TEdit;
|
||||
gbFontStyle: TGroupBox;
|
||||
cmbxFont: TComboBox;
|
||||
gbCounter: TGroupBox;
|
||||
lbStNb: TLabel;
|
||||
lbInterval: TLabel;
|
||||
lbWidth: TLabel;
|
||||
edPoc: TEdit;
|
||||
edInterval: TEdit;
|
||||
cmbxWidth: TComboBox;
|
||||
btnOK: TButton;
|
||||
btnCancel: TButton;
|
||||
gbLog: TGroupBox;
|
||||
edFile: TEdit;
|
||||
cbLog: TCheckBox;
|
||||
btnRestore: TButton;
|
||||
ppNameMenu: TPopupMenu;
|
||||
miNextName: TMenuItem;
|
||||
miName: TMenuItem;
|
||||
miNameX: TMenuItem;
|
||||
miNameXX: TMenuItem;
|
||||
N1: TMenuItem;
|
||||
miNextExtension: TMenuItem;
|
||||
Extension: TMenuItem;
|
||||
miExtensionX: TMenuItem;
|
||||
miExtensionXX: TMenuItem;
|
||||
N2: TMenuItem;
|
||||
miCounter: TMenuItem;
|
||||
N3: TMenuItem;
|
||||
miNext: TMenuItem;
|
||||
miYear: TMenuItem;
|
||||
miMonth: TMenuItem;
|
||||
miDay: TMenuItem;
|
||||
N4: TMenuItem;
|
||||
miHour: TMenuItem;
|
||||
miMinute: TMenuItem;
|
||||
miSecond: TMenuItem;
|
||||
procedure cmbxFontChange(Sender: TObject);
|
||||
procedure edPocChange(Sender: TObject);
|
||||
procedure edIntervalChange(Sender: TObject);
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
procedure btnRestoreClick(Sender: TObject);
|
||||
procedure btnNameMenuClick(Sender: TObject);
|
||||
procedure NameClick(Sender: TObject);
|
||||
procedure NameXClick(Sender: TObject);
|
||||
procedure NameXXClick(Sender: TObject);
|
||||
procedure ExtensionClick(Sender: TObject);
|
||||
procedure CounterClick(Sender: TObject);
|
||||
procedure btnExtMenuClick(Sender: TObject);
|
||||
procedure cbLogClick(Sender: TObject);
|
||||
procedure ExtensionXClick(Sender: TObject);
|
||||
procedure ExtensionXXClick(Sender: TObject);
|
||||
procedure ppNameMenuPopup(Sender: TObject);
|
||||
private
|
||||
{Function sReplace call sReplaceXX with parametres}
|
||||
function sReplace(sMask:string;count:integer):string;
|
||||
{sReplaceXX doing Nx,Nx:x and Ex,Ex:x}
|
||||
function sReplaceXX(sMask,sSymbol,sOrig:string):string;
|
||||
{InsertMask is for write key symbols from buttons}
|
||||
procedure InsertMask(Mask:string;edChoose:Tedit);
|
||||
{Main function for write into lsvwFile}
|
||||
procedure FreshText;
|
||||
public
|
||||
{Language configuration}
|
||||
procedure LoadLng; override;
|
||||
end;
|
||||
|
||||
{initialization function}
|
||||
function ShowMultiRenameForm(Var lsInFiles: TStringList):Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uLng, uFileProcs;
|
||||
|
||||
procedure TfrmMultiRename.LoadLng;
|
||||
begin
|
||||
|
||||
lsvwfile.columns[0].caption:=lngGetString(clngMrnViewOldName);
|
||||
lsvwFile.Columns[1].Caption:=lngGetString(clngMrnViewNewName);
|
||||
lsvwFile.Columns[2].Caption:=lngGetString(clngMrnViewFilePath);
|
||||
ppNameMenu.Items[0].Caption:=lngGetString(clngMrnPopupNameNext);
|
||||
ppNameMenu.Items[0].Items[0].Caption:=lngGetString(clngMrnPopupName);
|
||||
ppNameMenu.Items[0].Items[1].Caption:=lngGetString(clngMrnPopupNameX);
|
||||
ppNameMenu.Items[0].Items[2].Caption:=lngGetString(clngMrnPopupNameXX);
|
||||
ppNameMenu.Items[2].Caption:=lngGetString(clngMrnPopupExtenNext);
|
||||
ppNameMenu.Items[2].Items[0].Caption:=lngGetString(clngMrnPopupExten);
|
||||
ppNameMenu.Items[2].Items[1].Caption:=lngGetString(clngMrnPopupExtenX);
|
||||
ppNameMenu.Items[2].Items[2].Caption:=lngGetString(clngMrnPopupExtenXX);
|
||||
ppNameMenu.Items[4].Caption:=lngGetString(clngMrnPopupCounter);
|
||||
ppNameMenu.Items[6].Caption:=lngGetString(clngMrnPopupTimeNext);
|
||||
ppNameMenu.Items[6].Items[0].Caption:=lngGetString(clngMrnPopupYear);
|
||||
ppNameMenu.Items[6].Items[1].Caption:=lngGetString(clngMrnPopupMonth);
|
||||
ppNameMenu.Items[6].Items[2].Caption:=lngGetString(clngMrnPopupDay);
|
||||
ppNameMenu.Items[6].Items[4].Caption:=lngGetString(clngMrnPopupHour);
|
||||
ppNameMenu.Items[6].Items[5].Caption:=lngGetString(clngMrnPopupMinute);
|
||||
ppNameMenu.Items[6].Items[6].Caption:=lngGetString(clngMrnPopupSecond);
|
||||
// svdlLog.Title:=lngGetString(clngMrnSaveTitle);
|
||||
gbMaska.Caption:=lngGetString(clngMrnMask);
|
||||
lbName.Caption:=lngGetString(clngMrnLabelName);
|
||||
lbExt.Caption:=lngGetString(clngMrnLabelExten);
|
||||
gbFindReplace.Caption:=lngGetString(clngMrnFindReplace);
|
||||
lbFind.Caption:=lngGetString(clngMrnLabelFind);
|
||||
lbReplace.Caption:=lngGetString(clngMrnLabelReplace);
|
||||
gbCounter.Caption:=lngGetString(clngMrnCounter);
|
||||
lbStNb.Caption:=lngGetString(clngMrnLabelStartNb);
|
||||
lbInterval.Caption:=lngGetString(clngMrnLabelInterval);
|
||||
lbWidth.Caption:=lngGetString(clngMrnLabelWidth);
|
||||
gbFontStyle.Caption:=lngGetString(clngMrnFileStyle);
|
||||
cmbxFont.Items[0]:=lngGetString(clngMrnCmNoChange);
|
||||
cmbxFont.Items[1]:=lngGetString(clngMrnCmUpperCase);
|
||||
cmbxFont.Items[2]:=lngGetString(clngMrnCmLowerCase);
|
||||
cmbxFont.Items[3]:=lngGetString(clngMrnCmFirstBig);
|
||||
gbLog.Caption:=lngGetString(clngMrnLog);
|
||||
cbLog.Caption:=lngGetString(clngMrnCheckLog);
|
||||
btnRestore.Caption:=lngGetString(clngMrnBtnRestore);
|
||||
// btnOK.Caption:=lngGetString(clngMrnBtnOK);
|
||||
btnCancel.Caption:=lngGetString(clngbutCancel);
|
||||
btnOk.Caption:=lngGetString(clngbutOK);
|
||||
end;
|
||||
|
||||
function ShowMultiRenameForm(Var lsInFiles: TStringList):Boolean;
|
||||
var
|
||||
c:integer;
|
||||
begin
|
||||
Result:=True;
|
||||
With TfrmMultiRename.Create(Application) do
|
||||
begin
|
||||
try
|
||||
for c:=0 to lsInFiles.Count-1 do
|
||||
with lsvwFile.Items do
|
||||
begin
|
||||
Add;
|
||||
Item[c].Caption:=ExtractFileName(lsInFiles[c]);
|
||||
item[c].SubItems.Add('');
|
||||
item[c].SubItems.Add(ExtractFileDir(lsInFiles[c]));
|
||||
end;
|
||||
LoadLng;
|
||||
btnRestoreClick(nil);
|
||||
ShowModal;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.FreshText;
|
||||
var c:integer;
|
||||
sTmpAll,sTmpName,sTmpExt:string;
|
||||
begin
|
||||
for c:=0 to lsvwFile.Items.Count-1 do
|
||||
begin
|
||||
//use mask
|
||||
sTmpName:=sReplace(edName.Text,c);
|
||||
sTmpExt:=sReplace(edExt.Text,c);
|
||||
//join
|
||||
sTmpAll:=sTmpName+'.'+sTmpExt;
|
||||
//find and replace
|
||||
sTmpAll:=StringReplace(sTmpAll,edFind.Text,edReplace.Text,[rfReplaceAll,rfIgnoreCase]);
|
||||
//file name style
|
||||
case cmbxFont.ItemIndex of
|
||||
1: sTmpAll:=UpperCase(sTmpAll);
|
||||
2: sTmpAll:=LowerCase(sTmpAll);
|
||||
3: begin
|
||||
sTmpAll:=LowerCase(sTmpAll);
|
||||
if length(sTmpAll)>0 then
|
||||
sTmpAll[1]:=UpCase(stmpall[1]);
|
||||
end;
|
||||
end;
|
||||
//save new name file
|
||||
lsvwFile.Items[c].SubItems.Strings[0]:=sTmpAll;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.cmbxFontChange(Sender: TObject);
|
||||
begin
|
||||
FreshText;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.edPocChange(Sender: TObject);
|
||||
var c:integer;
|
||||
begin
|
||||
c:=StrToIntDef(edPoc.Text,maxint);
|
||||
if c=MaxInt then
|
||||
with edPoc do //editbox only for numbers
|
||||
begin
|
||||
Text:='1';
|
||||
SelectAll;
|
||||
end;
|
||||
FreshText;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.edIntervalChange(Sender: TObject);
|
||||
var c:integer;
|
||||
begin
|
||||
c:=StrToIntDef(edInterval.Text,maxint);
|
||||
if c=MaxInt then
|
||||
with edInterval do //editbox only for numbers
|
||||
begin
|
||||
Text:='1';
|
||||
SelectAll;
|
||||
end;
|
||||
FreshText;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.InsertMask(Mask:string;edChoose:Tedit);
|
||||
var
|
||||
sTmp:string;
|
||||
i:integer;
|
||||
begin
|
||||
if edChoose.SelLength>0 then
|
||||
edChoose.Text:=''; //selected text clear
|
||||
sTmp:=edChoose.Text;
|
||||
i:=edChoose.SelStart+2; //insert on current position
|
||||
System.Insert(Mask,sTmp,i);
|
||||
inc(i);
|
||||
edChoose.Text:=sTmp;
|
||||
edChoose.SelStart:=i;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.btnRestoreClick(Sender: TObject);
|
||||
begin
|
||||
edName.Text:='[N]';
|
||||
edName.SelStart:=length(edName.Text);
|
||||
edExt.Text:='[E]';
|
||||
edExt.SelStart:=length(edExt.Text);
|
||||
edFind.Text:='';
|
||||
edReplace.Text:='';
|
||||
cmbxFont.ItemIndex:=0;
|
||||
edPoc.Text:='1';
|
||||
edInterval.Text:='1';
|
||||
cmbxWidth.ItemIndex:=0;
|
||||
cbLog.Checked:=False;
|
||||
edFile.Enabled:=cbLog.Checked;
|
||||
edFile.Text:=lsvwFile.Items.Item[0].SubItems[1]+PathDelim+'default.log';
|
||||
edFile.SelStart:=length(edFile.Text);
|
||||
end;
|
||||
|
||||
function TfrmMultiRename.sReplace(sMask:string;count:integer):string;
|
||||
var sNew,sTmp,sOrigName,sOrigExt:string;
|
||||
i:integer;
|
||||
|
||||
begin
|
||||
sOrigName:=ChangeFileExt(lsvwFile.Items[count].Caption,'');
|
||||
sOrigExt:=ExtractFileExt(lsvwFile.Items[count].Caption);
|
||||
delete(sOrigExt,1,1);
|
||||
//type [E]
|
||||
sNew:=StringReplace(sMask,'[E]',
|
||||
sOrigExt,[rfReplaceAll,rfIgnoreCase]);
|
||||
|
||||
{
|
||||
//type [H][Mi][S][R][Me][D]
|
||||
sNew:=StringReplace(sNew,'[H..D]'-what symbol,
|
||||
-which replace,[rfReplaceAll,rfIgnoreCase]);
|
||||
}
|
||||
|
||||
//type [N]
|
||||
sNew:=StringReplace(sNew,'[N]',
|
||||
sOrigName,[rfReplaceAll,rfIgnoreCase]);
|
||||
//type [C]
|
||||
i:=StrToInt(edPoc.Text)+StrToInt(edInterval.Text)*count;
|
||||
sTmp:=format('%.'+
|
||||
cmbxWidth.Items[cmbxWidth.ItemIndex]+'d',[i]);
|
||||
sNew:=StringReplace(sNew,'[C]',
|
||||
sTmp,[rfReplaceAll,rfIgnoreCase]);
|
||||
//type[Nxx]
|
||||
sNew:=sReplaceXX(sNew,'[N',sOrigName);
|
||||
//type[Exx]
|
||||
sNew:=sReplaceXX(sNew,'[E',sOrigExt);
|
||||
Result:=sNew;
|
||||
end;
|
||||
|
||||
function TfrmMultiRename.sReplaceXX(sMask,sSymbol,sOrig:string):string;
|
||||
var
|
||||
p:array [0..2] of integer;
|
||||
sTmp,sTmp2:string;
|
||||
c,c1:integer;
|
||||
Begin
|
||||
while Pos(sSymbol,UpperCase(sMask))>0 do
|
||||
begin
|
||||
p[0]:=Pos(sSymbol,UpperCase(sMask));
|
||||
p[1]:=Pos(':',sMask);
|
||||
p[2]:=Pos(']',sMask);
|
||||
//incorect type
|
||||
if (p[2]=0)or(p[0]>p[2]) then
|
||||
break;
|
||||
//type [Symbolx]
|
||||
if (p[1]=0)or(p[1]>p[2])or(p[1]<p[0]) then
|
||||
begin
|
||||
sTmp:=copy(sMask,p[0]+2,p[2]-(p[0]+2));
|
||||
c:=StrToIntDef(sTmp,0);
|
||||
if (c<1) then
|
||||
break;
|
||||
if (c<=length(sOrig)) then
|
||||
sMask:=StringReplace(sMask,copy(sMask,p[0],(p[2]+1)-(p[0])),
|
||||
sOrig[c],[rfIgnoreCase])
|
||||
else
|
||||
sMask:=StringReplace(sMask,copy(sMask,p[0],(p[2]+1)-(p[0])),
|
||||
'',[rfIgnoreCase]);
|
||||
end
|
||||
//type [Symbolx:x]
|
||||
else
|
||||
begin
|
||||
sTmp:=copy(sMask,p[0]+2,p[1]-(p[0]+2));
|
||||
sTmp2:=copy(sMask,p[1]+1,p[2]-(p[1]+1));
|
||||
c:=StrToIntDef(sTmp,0);
|
||||
c1:=StrToIntDef(sTmp2,0);
|
||||
if (c>c1)or(c<1) then
|
||||
break;
|
||||
if (c1>length(sOrig))then
|
||||
c1:=length(sOrig);
|
||||
sMask:=StringReplace(sMask,copy(sMask,p[0],(p[2]+1)-(p[0])),
|
||||
copy(sOrig,c,(c1+1)-c),[rfIgnoreCase]);
|
||||
end;
|
||||
end;
|
||||
result:=sMask;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.btnNameMenuClick(Sender: TObject);
|
||||
begin
|
||||
ppNameMenu.AutoPopup:=false;
|
||||
ppNameMenu.Popup(gbMaska.Parent.Left+gbMaska.Left+
|
||||
btnNameMenu.Left,gbMaska.Parent.Top+
|
||||
gbMaska.Top+btnNameMenu.Top);
|
||||
ppNameMenu.Tag:=0;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.btnExtMenuClick(Sender: TObject);
|
||||
begin
|
||||
ppNameMenu.AutoPopup:=false;
|
||||
ppNameMenu.Popup(gbMaska.Parent.Left+gbMaska.Left+
|
||||
btnExtMenu.Left,gbMaska.Parent.Top+
|
||||
gbMaska.Top+btnExtMenu.Top);
|
||||
ppNameMenu.Tag:=1;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.NameClick(Sender: TObject);
|
||||
begin
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[N]',edName)
|
||||
else
|
||||
InsertMask('[N]',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.NameXClick(Sender: TObject);
|
||||
begin
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[N1]',edName)
|
||||
else
|
||||
InsertMask('[N1]',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.NameXXClick(Sender: TObject);
|
||||
var c,i:integer;
|
||||
begin
|
||||
i:=0;
|
||||
for c:=0 to lsvwFile.Items.Count-1 do
|
||||
if i<length(ChangeFileExt(lsvwFile.Items[c].Caption,'')) then
|
||||
i:=length(ChangeFileExt(lsvwFile.Items[c].Caption,''));
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[N1:'+inttostr(i)+']',edName)
|
||||
else
|
||||
InsertMask('[N1:'+inttostr(i)+']',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.ExtensionClick(Sender: TObject);
|
||||
begin
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[E]',edName)
|
||||
else
|
||||
InsertMask('[E]',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.ExtensionXClick(Sender: TObject);
|
||||
begin
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[E1]',edName)
|
||||
else
|
||||
InsertMask('[E1]',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.ExtensionXXClick(Sender: TObject);
|
||||
var c,i:integer;
|
||||
sTmp:string;
|
||||
begin
|
||||
i:=0;
|
||||
for c:=0 to lsvwFile.Items.Count-1 do
|
||||
begin
|
||||
sTmp:=ExtractFileExt(lsvwFile.Items[c].Caption);
|
||||
delete(sTmp,1,1);
|
||||
if i<length(sTmp) then
|
||||
i:=length(sTmp);
|
||||
end;
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[E1:'+inttostr(i)+']',edName)
|
||||
else
|
||||
InsertMask('[E1:'+inttostr(i)+']',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.ppNameMenuPopup(Sender: TObject);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.CounterClick(Sender: TObject);
|
||||
begin
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[C]',edName)
|
||||
else
|
||||
InsertMask('[C]',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.cbLogClick(Sender: TObject);
|
||||
begin
|
||||
edFile.Enabled:=not edFile.Enabled;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.btnOKClick(Sender: TObject);
|
||||
var
|
||||
F:TextFile;
|
||||
c:integer;
|
||||
begin
|
||||
try
|
||||
if cbLog.Checked then
|
||||
begin
|
||||
if edFile.Text='' then
|
||||
edFile.Text:=lsvwFile.Items.Item[0].SubItems[1]+ PathDelim+'default.log';
|
||||
ForceDirectory(ExtractFileDir(edFile.Text));
|
||||
AssignFile(F,edFile.Text);
|
||||
Rewrite(F);
|
||||
end;
|
||||
for c:=0 to lsvwFile.Items.Count-1 do
|
||||
with lsvwFile.Items do
|
||||
begin
|
||||
RenameFile(Item[c].SubItems[1]+pathDelim+item[c].Caption,
|
||||
Item[c].SubItems[1]+pathdelim+Item[c].SubItems[0]);
|
||||
if cbLog.Checked then
|
||||
Writeln(F,item[c].Caption+';'+Item[c].SubItems[0]);
|
||||
end;
|
||||
finally
|
||||
if cbLog.Checked then
|
||||
closefile(F);
|
||||
end;
|
||||
ModalResult:=mrOK;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fMultiRename.lrs}
|
||||
end.
|
||||
|
||||
{
|
||||
Seksi Commander
|
||||
----------------------------
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : Pavel Letko (letcuv@centrum.cz)
|
||||
|
||||
Advanced multi rename tool
|
||||
|
||||
contributors:
|
||||
|
||||
}
|
||||
|
||||
unit fMultiRename;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||||
StdCtrls, ComCtrls, Menus, fLngForm, Buttons;
|
||||
|
||||
type
|
||||
TfrmMultiRename = class(TfrmLng)
|
||||
lsvwFile: TListView;
|
||||
gbMaska: TGroupBox;
|
||||
lbName: TLabel;
|
||||
lbExt: TLabel;
|
||||
edName: TEdit;
|
||||
edExt: TEdit;
|
||||
btnNameMenu: TButton;
|
||||
btnExtMenu: TButton;
|
||||
gbFindReplace: TGroupBox;
|
||||
lbFind: TLabel;
|
||||
lbReplace: TLabel;
|
||||
edFind: TEdit;
|
||||
edReplace: TEdit;
|
||||
gbFontStyle: TGroupBox;
|
||||
cmbxFont: TComboBox;
|
||||
gbCounter: TGroupBox;
|
||||
lbStNb: TLabel;
|
||||
lbInterval: TLabel;
|
||||
lbWidth: TLabel;
|
||||
edPoc: TEdit;
|
||||
edInterval: TEdit;
|
||||
cmbxWidth: TComboBox;
|
||||
btnOK: TButton;
|
||||
btnCancel: TButton;
|
||||
gbLog: TGroupBox;
|
||||
edFile: TEdit;
|
||||
cbLog: TCheckBox;
|
||||
btnRestore: TButton;
|
||||
ppNameMenu: TPopupMenu;
|
||||
miNextName: TMenuItem;
|
||||
miName: TMenuItem;
|
||||
miNameX: TMenuItem;
|
||||
miNameXX: TMenuItem;
|
||||
N1: TMenuItem;
|
||||
miNextExtension: TMenuItem;
|
||||
Extension: TMenuItem;
|
||||
miExtensionX: TMenuItem;
|
||||
miExtensionXX: TMenuItem;
|
||||
N2: TMenuItem;
|
||||
miCounter: TMenuItem;
|
||||
N3: TMenuItem;
|
||||
miNext: TMenuItem;
|
||||
miYear: TMenuItem;
|
||||
miMonth: TMenuItem;
|
||||
miDay: TMenuItem;
|
||||
N4: TMenuItem;
|
||||
miHour: TMenuItem;
|
||||
miMinute: TMenuItem;
|
||||
miSecond: TMenuItem;
|
||||
procedure cmbxFontChange(Sender: TObject);
|
||||
procedure edPocChange(Sender: TObject);
|
||||
procedure edIntervalChange(Sender: TObject);
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
procedure btnRestoreClick(Sender: TObject);
|
||||
procedure btnNameMenuClick(Sender: TObject);
|
||||
procedure NameClick(Sender: TObject);
|
||||
procedure NameXClick(Sender: TObject);
|
||||
procedure NameXXClick(Sender: TObject);
|
||||
procedure ExtensionClick(Sender: TObject);
|
||||
procedure CounterClick(Sender: TObject);
|
||||
procedure btnExtMenuClick(Sender: TObject);
|
||||
procedure cbLogClick(Sender: TObject);
|
||||
procedure ExtensionXClick(Sender: TObject);
|
||||
procedure ExtensionXXClick(Sender: TObject);
|
||||
procedure ppNameMenuPopup(Sender: TObject);
|
||||
private
|
||||
{Function sReplace call sReplaceXX with parametres}
|
||||
function sReplace(sMask:string;count:integer):string;
|
||||
{sReplaceXX doing Nx,Nx:x and Ex,Ex:x}
|
||||
function sReplaceXX(sMask,sSymbol,sOrig:string):string;
|
||||
{InsertMask is for write key symbols from buttons}
|
||||
procedure InsertMask(Mask:string;edChoose:Tedit);
|
||||
{Main function for write into lsvwFile}
|
||||
procedure FreshText;
|
||||
public
|
||||
{Language configuration}
|
||||
procedure LoadLng; override;
|
||||
end;
|
||||
|
||||
{initialization function}
|
||||
function ShowMultiRenameForm(Var lsInFiles: TStringList):Boolean;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uLng, uFileProcs;
|
||||
|
||||
procedure TfrmMultiRename.LoadLng;
|
||||
begin
|
||||
|
||||
lsvwfile.columns[0].caption:=lngGetString(clngMrnViewOldName);
|
||||
lsvwFile.Columns[1].Caption:=lngGetString(clngMrnViewNewName);
|
||||
lsvwFile.Columns[2].Caption:=lngGetString(clngMrnViewFilePath);
|
||||
ppNameMenu.Items[0].Caption:=lngGetString(clngMrnPopupNameNext);
|
||||
ppNameMenu.Items[0].Items[0].Caption:=lngGetString(clngMrnPopupName);
|
||||
ppNameMenu.Items[0].Items[1].Caption:=lngGetString(clngMrnPopupNameX);
|
||||
ppNameMenu.Items[0].Items[2].Caption:=lngGetString(clngMrnPopupNameXX);
|
||||
ppNameMenu.Items[2].Caption:=lngGetString(clngMrnPopupExtenNext);
|
||||
ppNameMenu.Items[2].Items[0].Caption:=lngGetString(clngMrnPopupExten);
|
||||
ppNameMenu.Items[2].Items[1].Caption:=lngGetString(clngMrnPopupExtenX);
|
||||
ppNameMenu.Items[2].Items[2].Caption:=lngGetString(clngMrnPopupExtenXX);
|
||||
ppNameMenu.Items[4].Caption:=lngGetString(clngMrnPopupCounter);
|
||||
ppNameMenu.Items[6].Caption:=lngGetString(clngMrnPopupTimeNext);
|
||||
ppNameMenu.Items[6].Items[0].Caption:=lngGetString(clngMrnPopupYear);
|
||||
ppNameMenu.Items[6].Items[1].Caption:=lngGetString(clngMrnPopupMonth);
|
||||
ppNameMenu.Items[6].Items[2].Caption:=lngGetString(clngMrnPopupDay);
|
||||
ppNameMenu.Items[6].Items[4].Caption:=lngGetString(clngMrnPopupHour);
|
||||
ppNameMenu.Items[6].Items[5].Caption:=lngGetString(clngMrnPopupMinute);
|
||||
ppNameMenu.Items[6].Items[6].Caption:=lngGetString(clngMrnPopupSecond);
|
||||
// svdlLog.Title:=lngGetString(clngMrnSaveTitle);
|
||||
gbMaska.Caption:=lngGetString(clngMrnMask);
|
||||
lbName.Caption:=lngGetString(clngMrnLabelName);
|
||||
lbExt.Caption:=lngGetString(clngMrnLabelExten);
|
||||
gbFindReplace.Caption:=lngGetString(clngMrnFindReplace);
|
||||
lbFind.Caption:=lngGetString(clngMrnLabelFind);
|
||||
lbReplace.Caption:=lngGetString(clngMrnLabelReplace);
|
||||
gbCounter.Caption:=lngGetString(clngMrnCounter);
|
||||
lbStNb.Caption:=lngGetString(clngMrnLabelStartNb);
|
||||
lbInterval.Caption:=lngGetString(clngMrnLabelInterval);
|
||||
lbWidth.Caption:=lngGetString(clngMrnLabelWidth);
|
||||
gbFontStyle.Caption:=lngGetString(clngMrnFileStyle);
|
||||
cmbxFont.Items[0]:=lngGetString(clngMrnCmNoChange);
|
||||
cmbxFont.Items[1]:=lngGetString(clngMrnCmUpperCase);
|
||||
cmbxFont.Items[2]:=lngGetString(clngMrnCmLowerCase);
|
||||
cmbxFont.Items[3]:=lngGetString(clngMrnCmFirstBig);
|
||||
gbLog.Caption:=lngGetString(clngMrnLog);
|
||||
cbLog.Caption:=lngGetString(clngMrnCheckLog);
|
||||
btnRestore.Caption:=lngGetString(clngMrnBtnRestore);
|
||||
// btnOK.Caption:=lngGetString(clngMrnBtnOK);
|
||||
btnCancel.Caption:=lngGetString(clngbutCancel);
|
||||
btnOk.Caption:=lngGetString(clngbutOK);
|
||||
end;
|
||||
|
||||
function ShowMultiRenameForm(Var lsInFiles: TStringList):Boolean;
|
||||
var
|
||||
c:integer;
|
||||
begin
|
||||
Result:=True;
|
||||
With TfrmMultiRename.Create(Application) do
|
||||
begin
|
||||
try
|
||||
for c:=0 to lsInFiles.Count-1 do
|
||||
with lsvwFile.Items do
|
||||
begin
|
||||
Add;
|
||||
Item[c].Caption:=ExtractFileName(lsInFiles[c]);
|
||||
item[c].SubItems.Add('');
|
||||
item[c].SubItems.Add(ExtractFileDir(lsInFiles[c]));
|
||||
end;
|
||||
LoadLng;
|
||||
btnRestoreClick(nil);
|
||||
ShowModal;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.FreshText;
|
||||
var c:integer;
|
||||
sTmpAll,sTmpName,sTmpExt:string;
|
||||
begin
|
||||
for c:=0 to lsvwFile.Items.Count-1 do
|
||||
begin
|
||||
//use mask
|
||||
sTmpName:=sReplace(edName.Text,c);
|
||||
sTmpExt:=sReplace(edExt.Text,c);
|
||||
//join
|
||||
sTmpAll:=sTmpName+'.'+sTmpExt;
|
||||
//find and replace
|
||||
sTmpAll:=StringReplace(sTmpAll,edFind.Text,edReplace.Text,[rfReplaceAll,rfIgnoreCase]);
|
||||
//file name style
|
||||
case cmbxFont.ItemIndex of
|
||||
1: sTmpAll:=UpperCase(sTmpAll);
|
||||
2: sTmpAll:=LowerCase(sTmpAll);
|
||||
3: begin
|
||||
sTmpAll:=LowerCase(sTmpAll);
|
||||
if length(sTmpAll)>0 then
|
||||
sTmpAll[1]:=UpCase(stmpall[1]);
|
||||
end;
|
||||
end;
|
||||
//save new name file
|
||||
lsvwFile.Items[c].SubItems.Strings[0]:=sTmpAll;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.cmbxFontChange(Sender: TObject);
|
||||
begin
|
||||
FreshText;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.edPocChange(Sender: TObject);
|
||||
var c:integer;
|
||||
begin
|
||||
c:=StrToIntDef(edPoc.Text,maxint);
|
||||
if c=MaxInt then
|
||||
with edPoc do //editbox only for numbers
|
||||
begin
|
||||
Text:='1';
|
||||
SelectAll;
|
||||
end;
|
||||
FreshText;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.edIntervalChange(Sender: TObject);
|
||||
var c:integer;
|
||||
begin
|
||||
c:=StrToIntDef(edInterval.Text,maxint);
|
||||
if c=MaxInt then
|
||||
with edInterval do //editbox only for numbers
|
||||
begin
|
||||
Text:='1';
|
||||
SelectAll;
|
||||
end;
|
||||
FreshText;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.InsertMask(Mask:string;edChoose:Tedit);
|
||||
var
|
||||
sTmp:string;
|
||||
i:integer;
|
||||
begin
|
||||
if edChoose.SelLength>0 then
|
||||
edChoose.Text:=''; //selected text clear
|
||||
sTmp:=edChoose.Text;
|
||||
i:=edChoose.SelStart+2; //insert on current position
|
||||
System.Insert(Mask,sTmp,i);
|
||||
inc(i);
|
||||
edChoose.Text:=sTmp;
|
||||
edChoose.SelStart:=i;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.btnRestoreClick(Sender: TObject);
|
||||
begin
|
||||
edName.Text:='[N]';
|
||||
edName.SelStart:=length(edName.Text);
|
||||
edExt.Text:='[E]';
|
||||
edExt.SelStart:=length(edExt.Text);
|
||||
edFind.Text:='';
|
||||
edReplace.Text:='';
|
||||
cmbxFont.ItemIndex:=0;
|
||||
edPoc.Text:='1';
|
||||
edInterval.Text:='1';
|
||||
cmbxWidth.ItemIndex:=0;
|
||||
cbLog.Checked:=False;
|
||||
edFile.Enabled:=cbLog.Checked;
|
||||
edFile.Text:=lsvwFile.Items.Item[0].SubItems[1]+PathDelim+'default.log';
|
||||
edFile.SelStart:=length(edFile.Text);
|
||||
end;
|
||||
|
||||
function TfrmMultiRename.sReplace(sMask:string;count:integer):string;
|
||||
var sNew,sTmp,sOrigName,sOrigExt:string;
|
||||
i:integer;
|
||||
|
||||
begin
|
||||
sOrigName:=ChangeFileExt(lsvwFile.Items[count].Caption,'');
|
||||
sOrigExt:=ExtractFileExt(lsvwFile.Items[count].Caption);
|
||||
delete(sOrigExt,1,1);
|
||||
//type [E]
|
||||
sNew:=StringReplace(sMask,'[E]',
|
||||
sOrigExt,[rfReplaceAll,rfIgnoreCase]);
|
||||
|
||||
{
|
||||
//type [H][Mi][S][R][Me][D]
|
||||
sNew:=StringReplace(sNew,'[H..D]'-what symbol,
|
||||
-which replace,[rfReplaceAll,rfIgnoreCase]);
|
||||
}
|
||||
|
||||
//type [N]
|
||||
sNew:=StringReplace(sNew,'[N]',
|
||||
sOrigName,[rfReplaceAll,rfIgnoreCase]);
|
||||
//type [C]
|
||||
i:=StrToInt(edPoc.Text)+StrToInt(edInterval.Text)*count;
|
||||
sTmp:=format('%.'+
|
||||
cmbxWidth.Items[cmbxWidth.ItemIndex]+'d',[i]);
|
||||
sNew:=StringReplace(sNew,'[C]',
|
||||
sTmp,[rfReplaceAll,rfIgnoreCase]);
|
||||
//type[Nxx]
|
||||
sNew:=sReplaceXX(sNew,'[N',sOrigName);
|
||||
//type[Exx]
|
||||
sNew:=sReplaceXX(sNew,'[E',sOrigExt);
|
||||
Result:=sNew;
|
||||
end;
|
||||
|
||||
function TfrmMultiRename.sReplaceXX(sMask,sSymbol,sOrig:string):string;
|
||||
var
|
||||
p:array [0..2] of integer;
|
||||
sTmp,sTmp2:string;
|
||||
c,c1:integer;
|
||||
Begin
|
||||
while Pos(sSymbol,UpperCase(sMask))>0 do
|
||||
begin
|
||||
p[0]:=Pos(sSymbol,UpperCase(sMask));
|
||||
p[1]:=Pos(':',sMask);
|
||||
p[2]:=Pos(']',sMask);
|
||||
//incorect type
|
||||
if (p[2]=0)or(p[0]>p[2]) then
|
||||
break;
|
||||
//type [Symbolx]
|
||||
if (p[1]=0)or(p[1]>p[2])or(p[1]<p[0]) then
|
||||
begin
|
||||
sTmp:=copy(sMask,p[0]+2,p[2]-(p[0]+2));
|
||||
c:=StrToIntDef(sTmp,0);
|
||||
if (c<1) then
|
||||
break;
|
||||
if (c<=length(sOrig)) then
|
||||
sMask:=StringReplace(sMask,copy(sMask,p[0],(p[2]+1)-(p[0])),
|
||||
sOrig[c],[rfIgnoreCase])
|
||||
else
|
||||
sMask:=StringReplace(sMask,copy(sMask,p[0],(p[2]+1)-(p[0])),
|
||||
'',[rfIgnoreCase]);
|
||||
end
|
||||
//type [Symbolx:x]
|
||||
else
|
||||
begin
|
||||
sTmp:=copy(sMask,p[0]+2,p[1]-(p[0]+2));
|
||||
sTmp2:=copy(sMask,p[1]+1,p[2]-(p[1]+1));
|
||||
c:=StrToIntDef(sTmp,0);
|
||||
c1:=StrToIntDef(sTmp2,0);
|
||||
if (c>c1)or(c<1) then
|
||||
break;
|
||||
if (c1>length(sOrig))then
|
||||
c1:=length(sOrig);
|
||||
sMask:=StringReplace(sMask,copy(sMask,p[0],(p[2]+1)-(p[0])),
|
||||
copy(sOrig,c,(c1+1)-c),[rfIgnoreCase]);
|
||||
end;
|
||||
end;
|
||||
result:=sMask;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.btnNameMenuClick(Sender: TObject);
|
||||
begin
|
||||
ppNameMenu.AutoPopup:=false;
|
||||
ppNameMenu.Popup(gbMaska.Parent.Left+gbMaska.Left+
|
||||
btnNameMenu.Left,gbMaska.Parent.Top+
|
||||
gbMaska.Top+btnNameMenu.Top);
|
||||
ppNameMenu.Tag:=0;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.btnExtMenuClick(Sender: TObject);
|
||||
begin
|
||||
ppNameMenu.AutoPopup:=false;
|
||||
ppNameMenu.Popup(gbMaska.Parent.Left+gbMaska.Left+
|
||||
btnExtMenu.Left,gbMaska.Parent.Top+
|
||||
gbMaska.Top+btnExtMenu.Top);
|
||||
ppNameMenu.Tag:=1;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.NameClick(Sender: TObject);
|
||||
begin
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[N]',edName)
|
||||
else
|
||||
InsertMask('[N]',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.NameXClick(Sender: TObject);
|
||||
begin
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[N1]',edName)
|
||||
else
|
||||
InsertMask('[N1]',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.NameXXClick(Sender: TObject);
|
||||
var c,i:integer;
|
||||
begin
|
||||
i:=0;
|
||||
for c:=0 to lsvwFile.Items.Count-1 do
|
||||
if i<length(ChangeFileExt(lsvwFile.Items[c].Caption,'')) then
|
||||
i:=length(ChangeFileExt(lsvwFile.Items[c].Caption,''));
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[N1:'+inttostr(i)+']',edName)
|
||||
else
|
||||
InsertMask('[N1:'+inttostr(i)+']',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.ExtensionClick(Sender: TObject);
|
||||
begin
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[E]',edName)
|
||||
else
|
||||
InsertMask('[E]',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.ExtensionXClick(Sender: TObject);
|
||||
begin
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[E1]',edName)
|
||||
else
|
||||
InsertMask('[E1]',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.ExtensionXXClick(Sender: TObject);
|
||||
var c,i:integer;
|
||||
sTmp:string;
|
||||
begin
|
||||
i:=0;
|
||||
for c:=0 to lsvwFile.Items.Count-1 do
|
||||
begin
|
||||
sTmp:=ExtractFileExt(lsvwFile.Items[c].Caption);
|
||||
delete(sTmp,1,1);
|
||||
if i<length(sTmp) then
|
||||
i:=length(sTmp);
|
||||
end;
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[E1:'+inttostr(i)+']',edName)
|
||||
else
|
||||
InsertMask('[E1:'+inttostr(i)+']',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.ppNameMenuPopup(Sender: TObject);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.CounterClick(Sender: TObject);
|
||||
begin
|
||||
if ppNameMenu.Tag=0 then
|
||||
InsertMask('[C]',edName)
|
||||
else
|
||||
InsertMask('[C]',edExt);
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.cbLogClick(Sender: TObject);
|
||||
begin
|
||||
edFile.Enabled:=not edFile.Enabled;
|
||||
end;
|
||||
|
||||
procedure TfrmMultiRename.btnOKClick(Sender: TObject);
|
||||
var
|
||||
F:TextFile;
|
||||
c:integer;
|
||||
begin
|
||||
try
|
||||
if cbLog.Checked then
|
||||
begin
|
||||
if edFile.Text='' then
|
||||
edFile.Text:=lsvwFile.Items.Item[0].SubItems[1]+ PathDelim+'default.log';
|
||||
ForceDirectory(ExtractFileDir(edFile.Text));
|
||||
AssignFile(F,edFile.Text);
|
||||
Rewrite(F);
|
||||
end;
|
||||
for c:=0 to lsvwFile.Items.Count-1 do
|
||||
with lsvwFile.Items do
|
||||
begin
|
||||
RenameFile(Item[c].SubItems[1]+pathDelim+item[c].Caption,
|
||||
Item[c].SubItems[1]+pathdelim+Item[c].SubItems[0]);
|
||||
if cbLog.Checked then
|
||||
Writeln(F,item[c].Caption+';'+Item[c].SubItems[0]);
|
||||
end;
|
||||
finally
|
||||
if cbLog.Checked then
|
||||
closefile(F);
|
||||
end;
|
||||
ModalResult:=mrOK;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fmultirename.lrs}
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -365,6 +365,6 @@ end;
|
|||
|
||||
|
||||
initialization
|
||||
{$I fOptions.lrs}
|
||||
{$I foptions.lrs}
|
||||
|
||||
end.
|
||||
|
|
|
|||
56
fpackdlg.lrs
56
fpackdlg.lrs
|
|
@ -1,56 +0,0 @@
|
|||
{ Ýòî - ôàéë ðåñóðñîâ, àâòîìàòè÷åñêè ñîçäàííûé lazarus }
|
||||
|
||||
LazarusResources.Add('TPackDlg','FORMDATA',[
|
||||
'TPF0'#8'TPackDlg'#7'PackDlg'#3'Tag'#2#1#4'Left'#3#241#0#6'Height'#3#202#0#3
|
||||
+'Top'#3#138#0#5'Width'#3#5#2#11'HelpContext'#3#150#0#18'HorzScrollBar.Page'#3
|
||||
+#4#2#18'VertScrollBar.Page'#3#201#0#13'ActiveControl'#7#10'edtPackCmd'#11'Bo'
|
||||
+'rderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6
|
||||
+#10'Pack files'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#6'OnS'
|
||||
+'how'#7#8'FormShow'#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#9'lblPrompt'
|
||||
+#3'Tag'#2#2#4'Left'#2#4#6'Height'#2#12#3'Top'#2#2#5'Width'#3#189#1#8'AutoSiz'
|
||||
+'e'#8#7'Caption'#6#25'Pack file(s) to the file:'#5'Color'#7#6'clNone'#10'Fon'
|
||||
+'t.Color'#7#9'clBtnText'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Ser'
|
||||
+'if'#11'ParentColor'#8#13'ShowAccelChar'#8#0#0#5'TEdit'#10'edtPackCmd'#4'Lef'
|
||||
+'t'#2#4#6'Height'#2#21#3'Top'#2#19#5'Width'#3'T'#1#11'Font.Height'#2#245#9'F'
|
||||
+'ont.Name'#6#13'MS Sans Serif'#8'TabOrder'#2#0#0#0#9'TCheckBox'#10'cbStoredi'
|
||||
+'r'#3'Tag'#2#3#4'Left'#2#4#6'Height'#2#13#3'Top'#2'+'#5'Width'#3#197#0#7'Cap'
|
||||
+'tion'#6'%Also &pack path names (only recursed)'#7'Checked'#9#7'Enabled'#8#5
|
||||
+'State'#7#9'cbChecked'#8'TabOrder'#2#1#0#0#9'TCheckBox'#9'cbRecurse'#3'Tag'#2
|
||||
+#4#4'Left'#2#4#6'Height'#2#13#3'Top'#2';'#5'Width'#3#170#0#7'Caption'#6' Rec'
|
||||
+'ursively pack &subdirectories'#7'Checked'#9#7'Enabled'#8#5'State'#7#9'cbChe'
|
||||
+'cked'#8'TabOrder'#2#2#0#0#9'TCheckBox'#13'cbMultivolume'#3'Tag'#2#5#4'Left'
|
||||
+#2#4#6'Height'#2#13#3'Top'#2'K'#5'Width'#2't'#7'Caption'#6#22'&Multiple disk'
|
||||
+' archive'#7'Enabled'#8#8'TabOrder'#2#3#0#0#7'TButton'#5'btnOk'#3'Tag'#3#161
|
||||
+#15#4'Left'#2'w'#6'Height'#2' '#3'Top'#3#157#0#5'Width'#2'Z'#25'BorderSpacin'
|
||||
+'g.InnerBorder'#2#4#7'Caption'#6#2'OK'#7'Default'#9#11'ModalResult'#2#1#8'Ta'
|
||||
+'bOrder'#2#8#0#0#7'TButton'#7'btnTree'#3'Tag'#2#7#4'Left'#3#213#0#6'Height'#2
|
||||
+' '#3'Top'#3#157#0#5'Width'#2'Z'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
|
||||
+#6#4'Tree'#8'TabOrder'#2#9#0#0#7'TButton'#9'btnCancel'#3'Tag'#3#162#15#4'Lef'
|
||||
+'t'#3'3'#1#6'Height'#2' '#3'Top'#3#157#0#5'Width'#2'Z'#25'BorderSpacing.Inne'
|
||||
+'rBorder'#2#4#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOr'
|
||||
+'der'#2#10#0#0#9'TGroupBox'#8'gbPacker'#3'Tag'#2#8#4'Left'#3'\'#1#6'Height'#3
|
||||
+#133#0#3'Top'#2#17#5'Width'#3#142#0#7'Caption'#6#8' Packer '#10'Font.Color'#7
|
||||
+#9'clBtnText'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'TabOr'
|
||||
+'der'#2#12#0#7'TButton'#9'btnConfig'#3'Tag'#2#6#4'Left'#2#5#6'Height'#2' '#3
|
||||
+'Top'#2'P'#5'Width'#3#132#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10
|
||||
+'&Configure'#7'OnClick'#7#14'btnConfigClick'#8'TabOrder'#2#2#0#0#12'TRadioBu'
|
||||
+'tton'#14'rbOtherPlugins'#3'Tag'#2#9#4'Left'#2#5#6'Height'#2#13#3'Top'#2'3'#5
|
||||
+'Width'#2#29#7'Caption'#6#3'&->'#7'Enabled'#8#8'OnChange'#7#9'arbChange'#8'T'
|
||||
+'abOrder'#2#0#0#0#9'TComboBox'#12'cbPackerList'#4'Left'#2'('#6'Height'#2#21#3
|
||||
+'Top'#2'1'#5'Width'#2'E'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'
|
||||
+#20'cbactSearchAscending'#0#7'Enabled'#8#11'Font.Height'#2#245#9'Font.Name'#6
|
||||
+#13'MS Sans Serif'#10'ItemHeight'#2#13#9'MaxLength'#2#0#8'OnChange'#7#9'arbC'
|
||||
+'hange'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#1#0#0#0#9'TCheckBox'#15
|
||||
+'cbMoveToArchive'#3'Tag'#2#9#4'Left'#2#4#6'Height'#2#13#3'Top'#2'['#5'Width'
|
||||
+#2'a'#7'Caption'#6#16'M&ove to archive'#7'Enabled'#8#8'TabOrder'#2#4#0#0#9'T'
|
||||
+'CheckBox'#11'cbCreateSFX'#3'Tag'#2#10#4'Left'#2#4#6'Height'#2#13#3'Top'#2'k'
|
||||
+#5'Width'#3#157#0#7'Caption'#6#31'Create self e&xtracting archive'#7'Enabled'
|
||||
+#8#8'TabOrder'#2#5#0#0#7'TButton'#7'btnHelp'#3'Tag'#3#163#15#4'Left'#3#145#1
|
||||
+#6'Height'#2' '#3'Top'#3#157#0#5'Width'#2'Z'#25'BorderSpacing.InnerBorder'#2
|
||||
+#4#7'Caption'#6#4'Help'#8'TabOrder'#2#11#0#0#9'TCheckBox'#9'cbEncrypt'#3'Tag'
|
||||
+#2#11#4'Left'#2#4#6'Height'#2#13#3'Top'#3#139#0#5'Width'#2'8'#7'Caption'#6#8
|
||||
+'Encr&ypt'#7'Enabled'#8#8'TabOrder'#2#7#0#0#9'TCheckBox'#24'cbCreateSeparate'
|
||||
+'Archives'#3'Tag'#2#12#4'Left'#2#4#6'Height'#2#13#3'Top'#2'{'#5'Width'#3#255
|
||||
+#0#7'Caption'#6'4Create separate archives, o&ne per selected file/dir'#7'Ena'
|
||||
+'bled'#8#8'TabOrder'#2#6#0#0#0
|
||||
]);
|
||||
|
|
@ -1,40 +0,0 @@
|
|||
{ Это - файл ресурсов, автоматически созданный lazarus }
|
||||
|
||||
LazarusResources.Add('TFrameFilePanel','FORMDATA',[
|
||||
'TPF0'#241#15'TFrameFilePanel'#14'FrameFilePanel'#4'Left'#3#132#0#6'Height'#3
|
||||
+#159#1#3'Top'#2'S'#5'Width'#3']'#1#18'HorzScrollBar.Page'#3'\'#1#18'VertScro'
|
||||
+'llBar.Page'#3#158#1#13'ActiveControl'#7#7'dgPanel'#7'Caption'#6#14'FrameFil'
|
||||
+'ePanel'#0#6'TPanel'#7'pnPanel'#6'Height'#3#159#1#5'Width'#3']'#1#5'Align'#7
|
||||
+#8'alClient'#10'BevelOuter'#7#6'bvNone'#11'FullRepaint'#8#8'TabOrder'#2#0#0#6
|
||||
+'TLabel'#8'lblLInfo'#6'Height'#2#13#5'Width'#2')'#7'Caption'#6#8'lblLInfo'#5
|
||||
+'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TPanel'#9'pnlHeader'#6'Height'#2
|
||||
+')'#5'Width'#3']'#1#5'Align'#7#5'alTop'#10'BevelInner'#7#9'bvLowered'#11'Ful'
|
||||
+'lRepaint'#8#8'TabOrder'#2#0#0#12'TSpeedButton'#7'btnRoot'#4'Left'#3#166#0#6
|
||||
+'Height'#2#20#3'Top'#2#20#5'Width'#2#17#7'Anchors'#11#5'akTop'#0#7'Caption'#6
|
||||
+#1'/'#5'Color'#7#9'clBtnFace'#4'Flat'#9#9'NumGlyphs'#2#0#0#0#12'TSpeedButton'
|
||||
+#7'btnHome'#4'Left'#3#166#0#6'Height'#2#20#3'Top'#2#19#5'Width'#2#17#7'Ancho'
|
||||
+'rs'#11#5'akTop'#0#7'Caption'#6#1'~'#5'Color'#7#9'clBtnFace'#4'Flat'#9#9'Num'
|
||||
+'Glyphs'#2#0#0#0#12'TSpeedButton'#5'btnUp'#4'Left'#3'@'#1#6'Height'#2#20#3'T'
|
||||
+'op'#2#20#5'Width'#2#17#7'Caption'#6#2'..'#5'Color'#7#9'clBtnFace'#4'Flat'#9
|
||||
+#9'NumGlyphs'#2#0#0#0#6'TLabel'#8'lblLPath'#4'Left'#2#2#6'Height'#2#13#3'Top'
|
||||
+#2#2#5'Width'#3'Y'#1#5'Align'#7#5'alTop'#7'Caption'#6#8'lblLPath'#5'Color'#7
|
||||
+#12'clBackground'#11'ParentColor'#8#11'Transparent'#8#0#0#6'TLabel'#7'lblFre'
|
||||
+'e'#4'Left'#2#2#6'Height'#2#24#3'Top'#2#15#5'Width'#2'('#5'Align'#7#6'alLeft'
|
||||
+#7'Caption'#6#7'lblFree'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#0#5'TEdi'
|
||||
+'t'#9'edtRename'#6'Height'#2#1#5'Width'#2#1#8'TabOrder'#2#2#7'Visible'#8#0#0
|
||||
+#9'TDrawGrid'#7'dgPanel'#6'Height'#3'X'#1#3'Top'#2')'#5'Width'#3']'#1#5'Alig'
|
||||
+'n'#7#8'alClient'#11'AutoAdvance'#7#6'aaDown'#5'Color'#7#7'clWhite'#8'ColCou'
|
||||
+'nt'#2#5#14'DefaultDrawing'#8#16'DefaultRowHeight'#2#16#10'FixedColor'#7#9'c'
|
||||
+'lBtnFace'#9'FixedCols'#2#0#9'FixedRows'#2#0#13'GridLineWidth'#2#0#7'Options'
|
||||
+#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#11
|
||||
+'goColSizing'#11'goRowSelect'#0#8'RowCount'#2#5#10'ScrollBars'#7#10'ssAutoBo'
|
||||
+'th'#8'TabOrder'#2#1#7'TabStop'#9#0#0#6'TPanel'#11'pnAltSearch'#4'Left'#2#8#6
|
||||
+'Height'#2#29#3'Top'#3'P'#1#5'Width'#3#185#0#9'Alignment'#7#13'taLeftJustify'
|
||||
+#7'Caption'#6#6' Find:'#11'FullRepaint'#8#8'TabOrder'#2#3#7'Visible'#8#0#5'T'
|
||||
+'Edit'#8'edSearch'#4'Left'#2'@'#6'Height'#2#24#3'Top'#2#2#5'Width'#2'v'#7'An'
|
||||
+'chors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'OnKeyPress'#7#16'e'
|
||||
+'dSearchKeyPress'#8'TabOrder'#2#0#0#0#0#6'TPanel'#9'pnlFooter'#6'Height'#2#30
|
||||
+#3'Top'#3#129#1#5'Width'#3']'#1#5'Align'#7#8'alBottom'#7'Anchors'#11#6'akLef'
|
||||
+'t'#7'akRight'#0#7'Caption'#6#9'pnlFooter'#11'FullRepaint'#8#8'TabOrder'#2#4
|
||||
+#7'TabStop'#9#0#0#0#0
|
||||
]);
|
||||
422
fsplitter.pas
422
fsplitter.pas
|
|
@ -1,211 +1,211 @@
|
|||
{
|
||||
Seksi Commander
|
||||
----------------------------
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : Pavel Letko (letcuv@centrum.cz)
|
||||
|
||||
File split
|
||||
|
||||
contributors:
|
||||
Radek Cervinka
|
||||
}
|
||||
|
||||
unit fSplitter;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Types, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ComCtrls, Buttons;
|
||||
|
||||
type
|
||||
TfrmSplitter = class(TForm)
|
||||
grbxFile: TGroupBox;
|
||||
edFileSource: TEdit;
|
||||
lbFileSource: TLabel;
|
||||
edDirTarget: TEdit;
|
||||
lbDirTarget: TLabel;
|
||||
btnFTChoice: TButton;
|
||||
grbxSize: TGroupBox;
|
||||
cmbxSize: TComboBox;
|
||||
grbxWatch: TGroupBox;
|
||||
memWatch: TMemo;
|
||||
btnOK: TButton;
|
||||
btnCancel: TButton;
|
||||
prgbrDoIt: TProgressBar;
|
||||
procedure btnFTChoiceClick(Sender: TObject);
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
function StrConvert(str:string):int64;
|
||||
//test for correct file size format;
|
||||
procedure LoadLng;
|
||||
//multilanguage
|
||||
public
|
||||
{ Public declarations }
|
||||
|
||||
end;
|
||||
|
||||
function ShowSplitterFileForm(var sFile:TStringList):boolean;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uLng;
|
||||
|
||||
procedure TfrmSplitter.LoadLng;
|
||||
begin
|
||||
btnCancel.Caption:=lngGetString(clngSplitBtnCancel);
|
||||
btnOK.Caption:=lngGetString(clngSplitBtnOK);
|
||||
grbxFile.Caption:=lngGetString(clngSplitGrBxFile);
|
||||
lbDirTarget.Caption:=lngGetString(clngSplitLbDir);
|
||||
lbFileSource.Caption:=lngGetString(clngSplitLbFile);
|
||||
grbxSize.Caption:=lngGetString(clngSplitGrBxSize);
|
||||
grbxWatch.Caption:=lngGetString(clngSplitGrBxWatch);
|
||||
end;
|
||||
|
||||
function ShowSplitterFileForm(var sFile:TStringList):boolean;
|
||||
begin
|
||||
with TfrmSplitter.Create(Application) do
|
||||
begin
|
||||
try
|
||||
edFileSource.Text:=sFile[0];
|
||||
LoadLng;
|
||||
ShowModal;
|
||||
Result:=True;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSplitter.btnFTChoiceClick(Sender: TObject);
|
||||
var
|
||||
sDir: string;
|
||||
begin
|
||||
if SelectDirectory(lngGetString(clngSplitSelDir),'',sDir) then
|
||||
// Select directory:
|
||||
// must change on linux!!!
|
||||
begin
|
||||
edDirTarget.Text:=sDir;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmSplitter.StrConvert(str:string):int64;
|
||||
var iRet:int64;
|
||||
iPos,iMult:integer;
|
||||
sStr:string;
|
||||
begin
|
||||
str:=UpperCase(str);
|
||||
iPos:=Pos('B',str);
|
||||
if iPos>1 then
|
||||
begin
|
||||
dec(iPos);
|
||||
case str[iPos] of
|
||||
'K':iMult:=1024; //Kilo
|
||||
'M':iMult:=1024*1024; //Mega
|
||||
else
|
||||
iMult:=1;
|
||||
inc(iPos);
|
||||
end;
|
||||
dec(iPos);
|
||||
sStr:=Copy(str,1,iPos);
|
||||
iRet:=StrToInt64Def(sStr,0)*iMult;
|
||||
end
|
||||
else iRet:=StrToInt64Def(str,0);
|
||||
Result:=iRet;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmSplitter.btnOKClick(Sender: TObject);
|
||||
var iFileSize:int64;
|
||||
i,num:integer;
|
||||
fSource,fDest:TStream;
|
||||
begin
|
||||
memWatch.Clear;
|
||||
prgbrDoIt.Position:=0;
|
||||
iFileSize:=StrConvert(cmbxSize.Text);
|
||||
if iFileSize<=0 then
|
||||
begin
|
||||
memWatch.Append(lngGetString(clngSplitErrFileSize));
|
||||
//Incorrect file size format!
|
||||
exit;
|
||||
end;
|
||||
if not DirectoryExists(edDirTarget.Text) then
|
||||
begin
|
||||
if not CreateDir(edDirTarget.Text) then
|
||||
begin
|
||||
memWatch.Append(lngGetString(clngSplitErrDirectory));
|
||||
//Unable to create target directory!
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
if edDirTarget.Text[Length(edDirTarget.Text)]<>PathDelim then
|
||||
edDirTarget.Text:=edDirTarget.Text+PathDelim;
|
||||
|
||||
fSource:=TFileStream.Create(edFileSource.Text,fmOpenRead);
|
||||
try
|
||||
prgbrDoIt.Max:=(fSource.Size div iFileSize);
|
||||
if prgbrDoIt.Max=0 then
|
||||
begin
|
||||
memWatch.Append(lngGetString(clngSplitErrSplitFile));
|
||||
//Unable to split the file!
|
||||
exit;
|
||||
end;
|
||||
num:=0;
|
||||
i:=prgbrDoIt.Max;
|
||||
while i>=1 do
|
||||
begin
|
||||
i:=i div 10;
|
||||
inc(num);
|
||||
end;
|
||||
i:=0;
|
||||
while i<=prgbrDoIt.Max-1 do
|
||||
begin
|
||||
fDest:=TFileStream.Create(
|
||||
edDirTarget.Text+ExtractFileName(edFileSource.Text)+
|
||||
'.'+Format('%.*d',[num+1,i])+'.split'
|
||||
,fmCreate);
|
||||
try
|
||||
fSource.Seek(iFileSize*i,soFromBeginning);
|
||||
fDest.CopyFrom(fSource,iFileSize);
|
||||
memWatch.Append(lngGetString(clngSplitMsgCreated)+' '+
|
||||
edDirTarget.Text+ExtractFileName(edFileSource.Text)+
|
||||
'.'+Format('%.*d',[num+1,i])+'.split'+
|
||||
' ... '+lngGetString(clngSplitMsgSize)+' '+
|
||||
IntToStr(iFileSize)+'b');
|
||||
prgbrDoIt.Position:=prgbrDoIt.Position+1;
|
||||
finally
|
||||
fDest.Free;
|
||||
end;
|
||||
inc(i);
|
||||
end;
|
||||
if (fSource.Position)<fSource.Size then
|
||||
begin
|
||||
fDest:=TFileStream.Create(
|
||||
edDirTarget.Text+ExtractFileName(edFileSource.Text)+
|
||||
'.'+Format('%.*d',[num+1,i])+'.split'
|
||||
,fmCreate);
|
||||
try
|
||||
fDest.CopyFrom(fSource,fSource.Size-fSource.Position);
|
||||
memWatch.Append(lngGetString(clngSplitMsgCreated)+' '+
|
||||
edDirTarget.Text+ExtractFileName(edFileSource.Text)+
|
||||
'.'+Format('%.*d',[num+1,i])+'.split ... '+
|
||||
lngGetString(clngSplitMsgSize)+' '+
|
||||
IntToStr(fSource.Size-(iFileSize*i))+'b');
|
||||
prgbrDoIt.Position:=prgbrDoIt.Position+1;
|
||||
finally
|
||||
fDest.Free;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
fSource.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fSplitter.lrs}
|
||||
|
||||
end.
|
||||
{
|
||||
Seksi Commander
|
||||
----------------------------
|
||||
Licence : GNU GPL v 2.0
|
||||
Author : Pavel Letko (letcuv@centrum.cz)
|
||||
|
||||
File split
|
||||
|
||||
contributors:
|
||||
Radek Cervinka
|
||||
}
|
||||
|
||||
unit fSplitter;
|
||||
{$mode objfpc}{$H+}
|
||||
interface
|
||||
|
||||
uses
|
||||
LResources,
|
||||
SysUtils, Types, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ComCtrls, Buttons;
|
||||
|
||||
type
|
||||
TfrmSplitter = class(TForm)
|
||||
grbxFile: TGroupBox;
|
||||
edFileSource: TEdit;
|
||||
lbFileSource: TLabel;
|
||||
edDirTarget: TEdit;
|
||||
lbDirTarget: TLabel;
|
||||
btnFTChoice: TButton;
|
||||
grbxSize: TGroupBox;
|
||||
cmbxSize: TComboBox;
|
||||
grbxWatch: TGroupBox;
|
||||
memWatch: TMemo;
|
||||
btnOK: TButton;
|
||||
btnCancel: TButton;
|
||||
prgbrDoIt: TProgressBar;
|
||||
procedure btnFTChoiceClick(Sender: TObject);
|
||||
procedure btnOKClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
function StrConvert(str:string):int64;
|
||||
//test for correct file size format;
|
||||
procedure LoadLng;
|
||||
//multilanguage
|
||||
public
|
||||
{ Public declarations }
|
||||
|
||||
end;
|
||||
|
||||
function ShowSplitterFileForm(var sFile:TStringList):boolean;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uLng;
|
||||
|
||||
procedure TfrmSplitter.LoadLng;
|
||||
begin
|
||||
btnCancel.Caption:=lngGetString(clngSplitBtnCancel);
|
||||
btnOK.Caption:=lngGetString(clngSplitBtnOK);
|
||||
grbxFile.Caption:=lngGetString(clngSplitGrBxFile);
|
||||
lbDirTarget.Caption:=lngGetString(clngSplitLbDir);
|
||||
lbFileSource.Caption:=lngGetString(clngSplitLbFile);
|
||||
grbxSize.Caption:=lngGetString(clngSplitGrBxSize);
|
||||
grbxWatch.Caption:=lngGetString(clngSplitGrBxWatch);
|
||||
end;
|
||||
|
||||
function ShowSplitterFileForm(var sFile:TStringList):boolean;
|
||||
begin
|
||||
with TfrmSplitter.Create(Application) do
|
||||
begin
|
||||
try
|
||||
edFileSource.Text:=sFile[0];
|
||||
LoadLng;
|
||||
ShowModal;
|
||||
Result:=True;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmSplitter.btnFTChoiceClick(Sender: TObject);
|
||||
var
|
||||
sDir: string;
|
||||
begin
|
||||
if SelectDirectory(lngGetString(clngSplitSelDir),'',sDir) then
|
||||
// Select directory:
|
||||
// must change on linux!!!
|
||||
begin
|
||||
edDirTarget.Text:=sDir;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmSplitter.StrConvert(str:string):int64;
|
||||
var iRet:int64;
|
||||
iPos,iMult:integer;
|
||||
sStr:string;
|
||||
begin
|
||||
str:=UpperCase(str);
|
||||
iPos:=Pos('B',str);
|
||||
if iPos>1 then
|
||||
begin
|
||||
dec(iPos);
|
||||
case str[iPos] of
|
||||
'K':iMult:=1024; //Kilo
|
||||
'M':iMult:=1024*1024; //Mega
|
||||
else
|
||||
iMult:=1;
|
||||
inc(iPos);
|
||||
end;
|
||||
dec(iPos);
|
||||
sStr:=Copy(str,1,iPos);
|
||||
iRet:=StrToInt64Def(sStr,0)*iMult;
|
||||
end
|
||||
else iRet:=StrToInt64Def(str,0);
|
||||
Result:=iRet;
|
||||
end;
|
||||
|
||||
|
||||
procedure TfrmSplitter.btnOKClick(Sender: TObject);
|
||||
var iFileSize:int64;
|
||||
i,num:integer;
|
||||
fSource,fDest:TStream;
|
||||
begin
|
||||
memWatch.Clear;
|
||||
prgbrDoIt.Position:=0;
|
||||
iFileSize:=StrConvert(cmbxSize.Text);
|
||||
if iFileSize<=0 then
|
||||
begin
|
||||
memWatch.Append(lngGetString(clngSplitErrFileSize));
|
||||
//Incorrect file size format!
|
||||
exit;
|
||||
end;
|
||||
if not DirectoryExists(edDirTarget.Text) then
|
||||
begin
|
||||
if not CreateDir(edDirTarget.Text) then
|
||||
begin
|
||||
memWatch.Append(lngGetString(clngSplitErrDirectory));
|
||||
//Unable to create target directory!
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
if edDirTarget.Text[Length(edDirTarget.Text)]<>PathDelim then
|
||||
edDirTarget.Text:=edDirTarget.Text+PathDelim;
|
||||
|
||||
fSource:=TFileStream.Create(edFileSource.Text,fmOpenRead);
|
||||
try
|
||||
prgbrDoIt.Max:=(fSource.Size div iFileSize);
|
||||
if prgbrDoIt.Max=0 then
|
||||
begin
|
||||
memWatch.Append(lngGetString(clngSplitErrSplitFile));
|
||||
//Unable to split the file!
|
||||
exit;
|
||||
end;
|
||||
num:=0;
|
||||
i:=prgbrDoIt.Max;
|
||||
while i>=1 do
|
||||
begin
|
||||
i:=i div 10;
|
||||
inc(num);
|
||||
end;
|
||||
i:=0;
|
||||
while i<=prgbrDoIt.Max-1 do
|
||||
begin
|
||||
fDest:=TFileStream.Create(
|
||||
edDirTarget.Text+ExtractFileName(edFileSource.Text)+
|
||||
'.'+Format('%.*d',[num+1,i])+'.split'
|
||||
,fmCreate);
|
||||
try
|
||||
fSource.Seek(iFileSize*i,soFromBeginning);
|
||||
fDest.CopyFrom(fSource,iFileSize);
|
||||
memWatch.Append(lngGetString(clngSplitMsgCreated)+' '+
|
||||
edDirTarget.Text+ExtractFileName(edFileSource.Text)+
|
||||
'.'+Format('%.*d',[num+1,i])+'.split'+
|
||||
' ... '+lngGetString(clngSplitMsgSize)+' '+
|
||||
IntToStr(iFileSize)+'b');
|
||||
prgbrDoIt.Position:=prgbrDoIt.Position+1;
|
||||
finally
|
||||
fDest.Free;
|
||||
end;
|
||||
inc(i);
|
||||
end;
|
||||
if (fSource.Position)<fSource.Size then
|
||||
begin
|
||||
fDest:=TFileStream.Create(
|
||||
edDirTarget.Text+ExtractFileName(edFileSource.Text)+
|
||||
'.'+Format('%.*d',[num+1,i])+'.split'
|
||||
,fmCreate);
|
||||
try
|
||||
fDest.CopyFrom(fSource,fSource.Size-fSource.Position);
|
||||
memWatch.Append(lngGetString(clngSplitMsgCreated)+' '+
|
||||
edDirTarget.Text+ExtractFileName(edFileSource.Text)+
|
||||
'.'+Format('%.*d',[num+1,i])+'.split ... '+
|
||||
lngGetString(clngSplitMsgSize)+' '+
|
||||
IntToStr(fSource.Size-(iFileSize*i))+'b');
|
||||
prgbrDoIt.Position:=prgbrDoIt.Position+1;
|
||||
finally
|
||||
fDest.Free;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
fSource.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I fsplitter.lrs}
|
||||
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -80,6 +80,6 @@ begin
|
|||
end;
|
||||
|
||||
initialization
|
||||
{$I fSymLink.lrs}
|
||||
{$I fsymlink.lrs}
|
||||
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -579,5 +579,5 @@ begin
|
|||
end;
|
||||
|
||||
initialization
|
||||
{$I fViewer.lrs}
|
||||
{$I fviewer.lrs}
|
||||
end.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue