mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

some init code for color options

Browse source
This commit is contained in:
sniper17 2007-02-19 18:01:29 +00:00
commit 46e8b4c17a
4 changed files with 580 additions and 389 deletions
Download patch file Download diff file Expand all files Collapse all files

360
doublecmd.lpi
View file

@ -1,146 +1,214 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="5"/>
<General>
<Flags>
<SaveClosedFiles Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="Double Commander"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<LazDoc Paths=""/>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="\mnt\X\linux\sccmd\scfpc\"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<UseExcludeFileFilter Value="True"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="5">
<Item1>
<PackageName Value="viewerpackage"/>
</Item1>
<Item2>
<PackageName Value="SynEdit"/>
<MinVersion Major="1" Valid="True"/>
</Item2>
<Item3>
<PackageName Value="LCL"/>
<MinVersion Major="1" Valid="True"/>
</Item3>
<Item4>
<PackageName Value="KASComp"/>
<MinVersion Major="1" Release="1" Build="1" Valid="True"/>
</Item4>
<Item5>
<PackageName Value="JPEGForLazarus"/>
</Item5>
</RequiredPackages>
<Units Count="5">
<Unit0>
<Filename Value="doublecmd.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="doublecmd"/>
<CursorPos X="78" Y="72"/>
<TopLine Value="59"/>
<UsageCount Value="200"/>
</Unit0>
<Unit1>
<Filename Value="fbtnchangedlg.pas"/>
<ComponentName Value="OneButtonChangeDlg"/>
<HasResources Value="True"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="fbtnchangedlg.lrs"/>
<UnitName Value="fbtnchangedlg"/>
<CursorPos X="1" Y="11"/>
<TopLine Value="23"/>
<UsageCount Value="166"/>
</Unit1>
<Unit2>
<Filename Value="fconfigtoolbar.pas"/>
<ComponentName Value="ButtonChangeDlg"/>
<HasResources Value="True"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="fconfigtoolbar.lrs"/>
<UnitName Value="fconfigtoolbar"/>
<CursorPos X="1" Y="7"/>
<TopLine Value="34"/>
<UsageCount Value="166"/>
</Unit2>
<Unit3>
<Filename Value="fmain.pas"/>
<ComponentName Value="frmMain"/>
<HasResources Value="True"/>
<ResourceFilename Value="fMain.lrs"/>
<UnitName Value="fMain"/>
<CursorPos X="9" Y="5"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="77"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="uwcxprototypes.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uWCXprototypes"/>
<CursorPos X="28" Y="8"/>
<TopLine Value="1"/>
<UsageCount Value="116"/>
</Unit4>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<PathDelim Value="\"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<DelphiCompat Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Generate Value="Faster"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="4">
<Item1>
<Source Value="mnt\X\linux\lazarus\lcl\include\imglist.inc"/>
<Line Value="435"/>
</Item1>
<Item2>
<Source Value="ufilepanel.pas"/>
<Line Value="197"/>
</Item2>
<Item3>
<Source Value="ucopythread.pas"/>
<Line Value="69"/>
</Item3>
<Item4>
<Source Value="ucopythread.pas"/>
<Line Value="42"/>
</Item4>
</BreakPoints>
</Debugging>
</CONFIG>
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="5"/>
<General>
<Flags>
<SaveClosedFiles Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="Double Commander"/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="\mnt\X\linux\sccmd\scfpc\"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<UseExcludeFileFilter Value="True"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="5">
<Item1>
<PackageName Value="viewerpackage"/>
</Item1>
<Item2>
<PackageName Value="SynEdit"/>
<MinVersion Major="1" Valid="True"/>
</Item2>
<Item3>
<PackageName Value="LCL"/>
<MinVersion Major="1" Valid="True"/>
</Item3>
<Item4>
<PackageName Value="KASComp"/>
<MinVersion Major="1" Release="1" Build="1" Valid="True"/>
</Item4>
<Item5>
<PackageName Value="JPEGForLazarus"/>
</Item5>
</RequiredPackages>
<Units Count="6">
<Unit0>
<Filename Value="doublecmd.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="doublecmd"/>
<CursorPos X="78" Y="72"/>
<TopLine Value="59"/>
<UsageCount Value="200"/>
</Unit0>
<Unit1>
<Filename Value="fbtnchangedlg.pas"/>
<ComponentName Value="OneButtonChangeDlg"/>
<HasResources Value="True"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="fbtnchangedlg.lrs"/>
<UnitName Value="fbtnchangedlg"/>
<CursorPos X="1" Y="11"/>
<TopLine Value="23"/>
<UsageCount Value="166"/>
</Unit1>
<Unit2>
<Filename Value="fconfigtoolbar.pas"/>
<ComponentName Value="ButtonChangeDlg"/>
<HasResources Value="True"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="fconfigtoolbar.lrs"/>
<UnitName Value="fconfigtoolbar"/>
<CursorPos X="1" Y="7"/>
<TopLine Value="34"/>
<UsageCount Value="166"/>
</Unit2>
<Unit3>
<Filename Value="fmain.pas"/>
<ComponentName Value="frmMain"/>
<HasResources Value="True"/>
<ResourceFilename Value="fMain.lrs"/>
<UnitName Value="fMain"/>
<CursorPos X="9" Y="5"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="77"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="uwcxprototypes.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uWCXprototypes"/>
<CursorPos X="28" Y="8"/>
<TopLine Value="1"/>
<UsageCount Value="116"/>
</Unit4>
<Unit5>
<Filename Value="foptions.pas"/>
<ComponentName Value="frmOptions"/>
<HasResources Value="True"/>
<ResourceFilename Value="fOptions.lrs"/>
<UnitName Value="fOptions"/>
<CursorPos X="8" Y="123"/>
<TopLine Value="119"/>
<EditorIndex Value="1"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5>
</Units>
<JumpHistory Count="14" HistoryIndex="13">
<Position1>
<Filename Value="foptions.pas"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="foptions.pas"/>
<Caret Line="25" Column="3" TopLine="12"/>
</Position2>
<Position3>
<Filename Value="foptions.pas"/>
<Caret Line="30" Column="26" TopLine="12"/>
</Position3>
<Position4>
<Filename Value="foptions.pas"/>
<Caret Line="31" Column="26" TopLine="12"/>
</Position4>
<Position5>
<Filename Value="foptions.pas"/>
<Caret Line="32" Column="26" TopLine="12"/>
</Position5>
<Position6>
<Filename Value="foptions.pas"/>
<Caret Line="35" Column="15" TopLine="16"/>
</Position6>
<Position7>
<Filename Value="foptions.pas"/>
<Caret Line="31" Column="19" TopLine="17"/>
</Position7>
<Position8>
<Filename Value="foptions.pas"/>
<Caret Line="29" Column="22" TopLine="17"/>
</Position8>
<Position9>
<Filename Value="foptions.pas"/>
<Caret Line="30" Column="22" TopLine="17"/>
</Position9>
<Position10>
<Filename Value="foptions.pas"/>
<Caret Line="31" Column="22" TopLine="17"/>
</Position10>
<Position11>
<Filename Value="foptions.pas"/>
<Caret Line="34" Column="31" TopLine="17"/>
</Position11>
<Position12>
<Filename Value="foptions.pas"/>
<Caret Line="76" Column="5" TopLine="75"/>
</Position12>
<Position13>
<Filename Value="foptions.pas"/>
<Caret Line="34" Column="19" TopLine="34"/>
</Position13>
<Position14>
<Filename Value="foptions.pas"/>
<Caret Line="76" Column="45" TopLine="75"/>
</Position14>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<PathDelim Value="\"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<DelphiCompat Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Generate Value="Faster"/>
<Optimizations>
<OptimizationLevel Value="3"/>
</Optimizations>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<BreakPoints Count="4">
<Item1>
<Source Value="mnt\X\linux\lazarus\lcl\include\imglist.inc"/>
<Line Value="435"/>
</Item1>
<Item2>
<Source Value="ufilepanel.pas"/>
<Line Value="197"/>
</Item2>
<Item3>
<Source Value="ucopythread.pas"/>
<Line Value="69"/>
</Item3>
<Item4>
<Source Value="ucopythread.pas"/>
<Line Value="42"/>
</Item4>
</BreakPoints>
</Debugging>
</CONFIG>

211
fOptions.lrs
View file

@ -1,102 +1,117 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmOptions','FORMDATA',[
'TPF0'#11'TfrmOptions'#10'frmOptions'#13'ActiveControl'#7#12'PageControl1'#11
+'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderStyle'#7#8'bsSin'
+'gle'#7'Caption'#6#7'Options'#12'ClientHeight'#3'8'#1#11'ClientWidth'#3#198#1
+#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'`'#8'Position'#7#16'poMain'
+'FormCenter'#10'TextHeight'#2#16#18'HorzScrollBar.Page'#3#197#1#18'VertScrol'
+'lBar.Page'#3'7'#1#19'VertScrollBar.Range'#2')'#4'Left'#3'9'#1#6'Height'#3'8'
+#1#3'Top'#3#160#1#5'Width'#3#198#1#0#12'TPageControl'#12'PageControl1'#10'Ac'
+'tivePage'#7#7'tsFonts'#5'Align'#7#8'alClient'#8'TabIndex'#2#3#8'TabOrder'#2
+#0#6'Height'#3#16#1#5'Width'#3#198#1#0#9'TTabSheet'#5'tsLng'#7'Caption'#6#8
+'Language'#12'ClientHeight'#3#246#0#11'ClientWidth'#3#190#1#6'Height'#3#246#0
+#5'Width'#3#190#1#0#8'TListBox'#7'lngList'#5'Align'#7#8'alClient'#8'TabOrder'
+#2#0#8'TopIndex'#2#255#6'Height'#3#242#0#5'Width'#3#194#1#0#0#0#9'TTabSheet'
+#7'tsBehav'#7'Caption'#6#9'Behaviour'#12'ClientHeight'#3#246#0#11'ClientWidt'
+'h'#3#190#1#10'ImageIndex'#2#1#6'Height'#3#246#0#5'Width'#3#190#1#0#6'TLabel'
+#7'lblTerm'#7'Caption'#6#9'Terminal:'#5'Color'#7#6'clNone'#11'ParentColor'#8
+#4'Left'#2#8#6'Height'#2#13#3'Top'#2#16#5'Width'#2'3'#0#0#6'TLabel'#10'lblRu'
+'nTerm'#7'Caption'#6#13'Run terminal:'#5'Color'#7#6'clNone'#11'ParentColor'#8
+#4'Left'#2#8#6'Height'#2#13#3'Top'#2'0'#5'Width'#2'I'#0#0#5'TEdit'#7'edtTerm'
+#8'TabOrder'#2#0#4'Text'#6'%/usr/X11R6/bin/xterm -e bash -i -c %s'#4'Left'#2
+'`'#6'Height'#2#24#3'Top'#2#8#5'Width'#3'9'#1#0#0#9'TGroupBox'#2'gb'#12'Clie'
+'ntHeight'#3#148#0#11'ClientWidth'#3#225#0#11'ParentCtl3D'#8#8'TabOrder'#2#2
+#4'Left'#2#8#6'Height'#3#148#0#3'Top'#2'P'#5'Width'#3#225#0#0#9'TCheckBox'#11
+'cbDirSelect'#11'AllowGrayed'#9#7'Caption'#6#11'cbDirSelect'#8'TabOrder'#2#0
+#4'Left'#2#8#6'Height'#2#24#3'Top'#2#253#5'Width'#2'\'#0#0#9'TCheckBox'#19'c'
+'bCaseSensitiveSort'#11'AllowGrayed'#9#7'Caption'#6#19'cbCaseSensitiveSort'#8
+'TabOrder'#2#1#4'Left'#2#8#6'Height'#2#24#3'Top'#2'-'#5'Width'#3#143#0#0#0#9
+'TCheckBox'#10'cbLynxLike'#11'AllowGrayed'#9#7'Caption'#6#10'cbLynxLike'#8'T'
+'abOrder'#2#2#4'Left'#2#8#6'Height'#2#24#3'Top'#2#21#5'Width'#2'['#0#0#9'TCh'
+'eckBox'#21'cbShortFileSizeFormat'#11'AllowGrayed'#9#7'Caption'#6#21'cbShort'
+'FileSizeFormat'#8'TabOrder'#2#3#4'Left'#2#8#6'Height'#2#24#3'Top'#2'E'#5'Wi'
+'dth'#3#153#0#0#0#9'TCheckBox'#13'cbSeparateExt'#11'AllowGrayed'#9#7'Caption'
+#6#13'cbSeparateExt'#8'TabOrder'#2#4#4'Left'#2#8#6'Height'#2#24#3'Top'#2'e'#5
+'Width'#2'l'#0#0#0#5'TEdit'#10'edtRunTerm'#8'TabOrder'#2#1#4'Text'#6#20'/usr'
+'/X11R6/bin/xterm'#4'Left'#2'`'#6'Height'#2#24#3'Top'#2'('#5'Width'#3'9'#1#0
+#0#0#9'TTabSheet'#7'tsTools'#7'Caption'#6#5'Tools'#12'ClientHeight'#3#246#0
+#11'ClientWidth'#3#190#1#10'ImageIndex'#2#2#6'Height'#3#246#0#5'Width'#3#190
+#1#0#9'TCheckBox'#11'cbExtEditor'#11'AllowGrayed'#9#7'Caption'#6#11'cbExtEdi'
+'tor'#7'OnClick'#7#16'cbExtEditorClick'#8'TabOrder'#2#0#4'Left'#2#8#6'Height'
+#2#24#5'Width'#2'Z'#0#0#5'TEdit'#12'edtExtEditor'#8'TabOrder'#2#1#4'Text'#6
+#10'gEdit "%s"'#4'Left'#2#24#6'Height'#2#24#3'Top'#2' '#5'Width'#3'9'#1#0#0#9
+'TCheckBox'#11'cbExtDiffer'#11'AllowGrayed'#9#7'Caption'#6#11'cbExtDiffer'#7
+'OnClick'#7#16'cbExtDifferClick'#8'TabOrder'#2#2#4'Left'#2#8#6'Height'#2#24#3
+'Top'#2'8'#5'Width'#2'W'#0#0#5'TEdit'#12'edtExtDiffer'#8'TabOrder'#2#3#4'Tex'
+'t'#6#18'gtk-diff "%s" "%s"'#4'Left'#2#24#6'Height'#2#24#3'Top'#2'X'#5'Width'
+#3'9'#1#0#0#9'TCheckBox'#11'cbExtViewer'#11'AllowGrayed'#9#7'Caption'#6#11'c'
+'bExtViewer'#7'OnClick'#7#16'cbExtViewerClick'#8'TabOrder'#2#4#4'Left'#2#8#6
+'Height'#2#24#3'Top'#2'x'#5'Width'#2'a'#0#0#5'TEdit'#12'edtExtViewer'#8'TabO'
+'rder'#2#5#4'Text'#6#10'emacs "%s"'#4'Left'#2#24#6'Height'#2#24#3'Top'#3#152
+#0#5'Width'#3'9'#1#0#0#0#9'TTabSheet'#7'tsFonts'#7'Caption'#6#5'Fonts'#12'Cl'
+'ientHeight'#3#246#0#11'ClientWidth'#3#190#1#10'ImageIndex'#2#3#6'Height'#3
+#246#0#5'Width'#3#190#1#0#6'TLabel'#11'lblMainFont'#7'Caption'#6#9'Main font'
+#5'Color'#7#6'clNone'#11'ParentColor'#8#6'Height'#2#14#3'Top'#2#24#5'Width'#2
+'.'#0#0#6'TLabel'#13'lblEditorFont'#7'Caption'#6#11'Editor font'#5'Color'#7#6
+'clNone'#11'ParentColor'#8#6'Height'#2#14#3'Top'#2'`'#5'Width'#2'4'#0#0#6'TL'
+'abel'#13'lblViewerFont'#7'Caption'#6#11'Viewer font'#5'Color'#7#6'clNone'#11
+'ParentColor'#8#6'Height'#2#14#3'Top'#3#168#0#5'Width'#2'8'#0#0#9'TComboBox'
+#10'cbMainFont'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactS'
+'earchAscending'#0#10'ItemHeight'#2#18#9'MaxLength'#2#0#8'OnChange'#7#16'cbM'
+'ainFontChange'#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2'N'#6'Height'#2#21
+#3'Top'#2#16#5'Width'#3#16#1#0#0#9'TComboBox'#12'cbEditorFont'#16'AutoComple'
+'teText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHei'
+'ght'#2#18#9'MaxLength'#2#0#8'OnChange'#7#18'cbEditorFontChange'#11'ParentCt'
+'l3D'#8#8'TabOrder'#2#1#4'Left'#2'N'#6'Height'#2#21#3'Top'#2'W'#5'Width'#3#16
+#1#0#0#5'TEdit'#8'edtTest1'#8'TabOrder'#2#2#4'Text'#6#16'Example '#207#240
,#238#226#229#240#234#224#4'Left'#2'N'#6'Height'#2#24#3'Top'#2'0'#5'Width'#3#0
+#1#0#0#5'TEdit'#8'edtTest2'#8'TabOrder'#2#3#4'Text'#6#16'Example '#207#240
+#238#226#229#240#234#224#4'Left'#2'N'#6'Height'#2#24#3'Top'#2'x'#5'Width'#3#1
+#1#0#0#5'TEdit'#8'edtTest3'#8'TabOrder'#2#4#4'Text'#6#16'Example '#207#240
+#238#226#229#240#234#224#4'Left'#2'N'#6'Height'#2#24#3'Top'#3#192#0#5'Width'
+#3#1#1#0#0#9'TComboBox'#12'cbViewerFont'#16'AutoCompleteText'#11#22'cbactEnd'
+'OfLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#18#9'MaxLength'
+#2#0#8'OnChange'#7#18'cbViewerFontChange'#11'ParentCtl3D'#8#8'TabOrder'#2#5#4
+'Left'#2'N'#6'Height'#2#21#3'Top'#3#159#0#5'Width'#3#16#1#0#0#7'TButton'#13
+'btnSelMainFnt'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'...'#7'OnCl'
+'ick'#7#18'btnSelMainFntClick'#8'TabOrder'#2#7#4'Left'#3'h'#1#6'Height'#2#23
+#3'Top'#2#16#5'Width'#2#23#0#0#7'TButton'#13'btnSelEditFnt'#25'BorderSpacing'
+'.InnerBorder'#2#2#7'Caption'#6#3'...'#7'OnClick'#7#18'btnSelEditFntClick'#8
+'TabOrder'#2#9#4'Left'#3'h'#1#6'Height'#2#23#3'Top'#2'W'#5'Width'#2#23#0#0#7
+'TButton'#13'btnSelViewFnt'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3
+'...'#7'OnClick'#7#18'btnSelViewFntClick'#8'TabOrder'#2#11#4'Left'#3'h'#1#6
+'Height'#2#23#3'Top'#3#159#0#5'Width'#2#23#0#0#9'TSpinEdit'#11'edtMainSize'#8
+'MaxValue'#2#25#8'MinValue'#2#8#8'TabOrder'#2#6#5'Value'#2#14#4'Left'#3'T'#1
+#6'Height'#2#23#3'Top'#2'1'#5'Width'#2'D'#0#0#9'TSpinEdit'#13'edtEditorSize'
+#8'MaxValue'#2#25#8'MinValue'#2#8#8'TabOrder'#2#8#5'Value'#2#14#4'Left'#3'T'
+#1#6'Height'#2#23#3'Top'#2'y'#5'Width'#2'D'#0#0#9'TSpinEdit'#13'edtViewerSiz'
+'e'#8'MaxValue'#2#25#8'MinValue'#2#8#8'TabOrder'#2#10#5'Value'#2#14#4'Left'#3
+'T'#1#6'Height'#2#23#3'Top'#3#192#0#5'Width'#2'D'#0#0#0#0#6'TPanel'#6'Panel1'
+#5'Align'#7#8'alBottom'#12'ClientHeight'#2'('#11'ClientWidth'#3#198#1#11'Ful'
+'lRepaint'#8#8'TabOrder'#2#1#6'Height'#2'('#3'Top'#3#16#1#5'Width'#3#198#1#0
+#7'TBitBtn'#5'btnOK'#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'btnOKC'
+'lick'#8'TabOrder'#2#0#4'Left'#3#24#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'
+#0#0#7'TBitBtn'#9'btnCancel'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6
+'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrd'
+'er'#2#1#4'Left'#3'p'#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#0#0#0#11'TFo'
+'ntDialog'#6'dlgFnt'#5'Title'#6#13#194#251#225#240#224#242#252' '#248#240#232
+#244#242#5'Title'#6#13#194#251#225#240#224#242#252' '#248#240#232#244#242#4
+'left'#2'V'#3'top'#2#23#0#0#0
'TPF0'#241#11'TfrmOptions'#10'frmOptions'#4'Left'#3'*'#1#6'Height'#3'8'#1#3'T'
+'op'#3#197#0#5'Width'#3#198#1#18'HorzScrollBar.Page'#3#197#1#18'VertScrollBa'
+'r.Page'#3'7'#1#19'VertScrollBar.Range'#2')'#13'ActiveControl'#7#12'PageCont'
+'rol1'#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderStyle'#7
+#8'bsSingle'#7'Caption'#6#7'Options'#8'Position'#7#16'poMainFormCenter'#0#12
+'TPageControl'#12'PageControl1'#6'Height'#3#16#1#5'Width'#3#198#1#10'ActiveP'
+'age'#7#9'TabSheet1'#5'Align'#7#8'alClient'#8'TabIndex'#2#4#8'TabOrder'#2#0#0
+#9'TTabSheet'#5'tsLng'#7'Caption'#6#8'Language'#0#8'TListBox'#7'lngList'#6'H'
+'eight'#3#242#0#5'Width'#3#194#1#5'Align'#7#8'alClient'#8'TabOrder'#2#0#8'To'
+'pIndex'#2#255#0#0#0#9'TTabSheet'#7'tsBehav'#7'Caption'#6#9'Behaviour'#10'Im'
+'ageIndex'#2#1#0#6'TLabel'#7'lblTerm'#4'Left'#2#8#6'Height'#2#13#3'Top'#2#16
+#5'Width'#2'3'#7'Caption'#6#9'Terminal:'#5'Color'#7#6'clNone'#11'ParentColor'
+#8#0#0#6'TLabel'#10'lblRunTerm'#4'Left'#2#8#6'Height'#2#13#3'Top'#2'0'#5'Wid'
+'th'#2'I'#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/xterm -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#24#3'Top'#2#253#5'Width'#2'\'#11'AllowGrayed'#9#7'Caption'#6#11
+'cbDirSelect'#8'TabOrder'#2#0#0#0#9'TCheckBox'#19'cbCaseSensitiveSort'#4'Lef'
+'t'#2#8#6'Height'#2#24#3'Top'#2'-'#5'Width'#3#143#0#11'AllowGrayed'#9#7'Capt'
+'ion'#6#19'cbCaseSensitiveSort'#8'TabOrder'#2#1#0#0#9'TCheckBox'#10'cbLynxLi'
+'ke'#4'Left'#2#8#6'Height'#2#24#3'Top'#2#21#5'Width'#2'['#11'AllowGrayed'#9#7
+'Caption'#6#10'cbLynxLike'#8'TabOrder'#2#2#0#0#9'TCheckBox'#21'cbShortFileSi'
+'zeFormat'#4'Left'#2#8#6'Height'#2#24#3'Top'#2'E'#5'Width'#3#153#0#11'AllowG'
+'rayed'#9#7'Caption'#6#21'cbShortFileSizeFormat'#8'TabOrder'#2#3#0#0#9'TChec'
+'kBox'#13'cbSeparateExt'#4'Left'#2#8#6'Height'#2#24#3'Top'#2'e'#5'Width'#2'l'
+#11'AllowGrayed'#9#7'Caption'#6#13'cbSeparateExt'#8'TabOrder'#2#4#0#0#0#5'TE'
+'dit'#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'tsT'
+'ools'#7'Caption'#6#5'Tools'#10'ImageIndex'#2#2#0#9'TCheckBox'#11'cbExtEdito'
+'r'#4'Left'#2#8#6'Height'#2#24#5'Width'#2'Z'#11'AllowGrayed'#9#7'Caption'#6
+#11'cbExtEditor'#7'OnClick'#7#16'cbExtEditorClick'#8'TabOrder'#2#0#0#0#5'TEd'
+'it'#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'TCheckBox'#11'cbExtDiffer'#4
+'Left'#2#8#6'Height'#2#24#3'Top'#2'8'#5'Width'#2'W'#11'AllowGrayed'#9#7'Capt'
+'ion'#6#11'cbExtDiffer'#7'OnClick'#7#16'cbExtDifferClick'#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'c'
+'bExtViewer'#4'Left'#2#8#6'Height'#2#24#3'Top'#2'x'#5'Width'#2'a'#11'AllowGr'
+'ayed'#9#7'Caption'#6#11'cbExtViewer'#7'OnClick'#7#16'cbExtViewerClick'#8'Ta'
+'bOrder'#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'TT'
+'abSheet'#7'tsFonts'#7'Caption'#6#5'Fonts'#10'ImageIndex'#2#3#0#6'TLabel'#11
+'lblMainFont'#6'Height'#2#14#3'Top'#2#24#5'Width'#2'.'#7'Caption'#6#9'Main f'
+'ont'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#13'lblEditorFont'
+#6'Height'#2#14#3'Top'#2'`'#5'Width'#2'4'#7'Caption'#6#11'Editor font'#5'Col'
+'or'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#13'lblViewerFont'#6'Height'
+#2#14#3'Top'#3#168#0#5'Width'#2'8'#7'Caption'#6#11'Viewer font'#5'Color'#7#6
+'clNone'#11'ParentColor'#8#0#0#9'TComboBox'#10'cbMainFont'#4'Left'#2'N'#6'He'
+'ight'#2#21#3'Top'#2#16#5'Width'#3#16#1#16'AutoCompleteText'#11#22'cbactEndO'
+'fLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'#2#18#9'MaxLength'#2
+#0#8'OnChange'#7#16'cbMainFontChange'#11'ParentCtl3D'#8#8'TabOrder'#2#0#0#0#9
+'TComboBox'#12'cbEditorFont'#4'Left'#2'N'#6'Height'#2#21#3'Top'#2'W'#5'Width'
+#3#16#1#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAsc'
+'ending'#0#10'ItemHeight'#2#18#9'MaxLength'#2#0#8'OnChange'#7#18'cbEditorFon'
+'tChange'#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'E'
+'xample '#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'Width'#3#16#1#16'AutoCompleteT'
,'ext'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#10'ItemHeight'
+#2#18#9'MaxLength'#2#0#8'OnChange'#7#18'cbViewerFontChange'#11'ParentCtl3D'#8
+#8'TabOrder'#2#5#0#0#7'TButton'#13'btnSelMainFnt'#4'Left'#3'h'#1#6'Height'#2
+#23#3'Top'#2#16#5'Width'#2#23#7'Caption'#6#3'...'#7'OnClick'#7#18'btnSelMain'
+'FntClick'#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#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#7'Caption'#6#3'...'#7'On'
+'Click'#7#18'btnSelViewFntClick'#8'TabOrder'#2#11#0#0#9'TSpinEdit'#11'edtMai'
+'nSize'#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'edtEdi'
+'torSize'#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'edtV'
+'iewerSize'#4'Left'#3'T'#1#6'Height'#2#23#3'Top'#3#192#0#5'Width'#2'D'#8'Max'
+'Value'#2#25#8'MinValue'#2#8#8'TabOrder'#2#10#5'Value'#2#14#0#0#0#9'TTabShee'
+'t'#9'TabSheet1'#7'Caption'#6#5'Color'#0#6'TLabel'#10'cTextLabel'#4'Left'#2
+#25#6'Height'#2#14#3'Top'#2#31#5'Width'#2#23#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#14#3'Top'#2':'#5'Width'#2':'#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'cbactEndO'
+'fLineComplete'#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#0#0#0#9'TColorB'
+'ox'#14'cbackgrndcolor'#4'Left'#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'MaxLengt'
+'h'#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'Button1Click'#8'TabOrder'#2#2#0#0#7'TButton'#7'Button'
+'2'#4'Left'#3#208#0#6'Height'#2#25#3'Top'#2'5'#5'Width'#2#28#25'BorderSpacin'
+'g.InnerBorder'#2#4#7'Caption'#6#2'>>'#7'OnClick'#7#12'Button2Click'#8'TabOr'
+'der'#2#3#0#0#0#0#6'TPanel'#6'Panel1'#6'Height'#2'('#3'Top'#3#16#1#5'Width'#3
+#198#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'BorderSp'
+'acing.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'TBit'
+'Btn'#9'btnCancel'#4'Left'#3'p'#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#25
+'BorderSpacing.InnerBorder'#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
]);

371
foptions.lfm
View file

@ -1,363 +1,444 @@
object frmOptions: TfrmOptions
inherited frmOptions: TfrmOptions
Left = 298
Height = 312
Top = 197
Width = 454
HorzScrollBar.Page = 453
VertScrollBar.Page = 311
VertScrollBar.Range = 41
ActiveControl = PageControl1
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Options'
ClientHeight = 312
ClientWidth = 454
OnCreate = FormCreate
PixelsPerInch = 96
Position = poMainFormCenter
TextHeight = 16
HorzScrollBar.Page = 453
VertScrollBar.Page = 311
VertScrollBar.Range = 41
Left = 313
Height = 312
Top = 416
Width = 454
object PageControl1: TPageControl
ActivePage = tsFonts
Align = alClient
TabIndex = 3
TabOrder = 0
Height = 272
Width = 454
ActivePage = TabSheet1
Align = alClient
TabIndex = 4
TabOrder = 0
object tsLng: TTabSheet
Caption = 'Language'
ClientHeight = 246
ClientWidth = 446
Height = 246
Width = 446
object lngList: TListBox
Height = 242
Width = 450
Align = alClient
TabOrder = 0
TopIndex = -1
Height = 242
Width = 450
end
end
object tsBehav: TTabSheet
Caption = 'Behaviour'
ClientHeight = 246
ClientWidth = 446
ImageIndex = 1
Height = 246
Width = 446
object lblTerm: TLabel
Caption = 'Terminal:'
Color = clNone
ParentColor = False
Left = 8
Height = 13
Top = 16
Width = 51
end
object lblRunTerm: TLabel
Caption = 'Run terminal:'
Caption = 'Terminal:'
Color = clNone
ParentColor = False
end
object lblRunTerm: TLabel
Left = 8
Height = 13
Top = 48
Width = 73
Caption = 'Run terminal:'
Color = clNone
ParentColor = False
end
object edtTerm: TEdit
TabOrder = 0
Text = '/usr/X11R6/bin/xterm -e bash -i -c %s'
Left = 96
Height = 24
Top = 8
Width = 313
TabOrder = 0
Text = '/usr/X11R6/bin/xterm -e bash -i -c %s'
end
object gb: TGroupBox
ClientHeight = 148
ClientWidth = 225
ParentCtl3D = False
TabOrder = 2
Left = 8
Height = 148
Top = 80
Width = 225
ParentCtl3D = False
TabOrder = 2
object cbDirSelect: TCheckBox
AllowGrayed = True
Caption = 'cbDirSelect'
TabOrder = 0
Left = 8
Height = 24
Top = -3
Width = 92
AllowGrayed = True
Caption = 'cbDirSelect'
TabOrder = 0
end
object cbCaseSensitiveSort: TCheckBox
AllowGrayed = True
Caption = 'cbCaseSensitiveSort'
TabOrder = 1
Left = 8
Height = 24
Top = 45
Width = 143
AllowGrayed = True
Caption = 'cbCaseSensitiveSort'
TabOrder = 1
end
object cbLynxLike: TCheckBox
AllowGrayed = True
Caption = 'cbLynxLike'
TabOrder = 2
Left = 8
Height = 24
Top = 21
Width = 91
AllowGrayed = True
Caption = 'cbLynxLike'
TabOrder = 2
end
object cbShortFileSizeFormat: TCheckBox
AllowGrayed = True
Caption = 'cbShortFileSizeFormat'
TabOrder = 3
Left = 8
Height = 24
Top = 69
Width = 153
AllowGrayed = True
Caption = 'cbShortFileSizeFormat'
TabOrder = 3
end
object cbSeparateExt: TCheckBox
AllowGrayed = True
Caption = 'cbSeparateExt'
TabOrder = 4
Left = 8
Height = 24
Top = 101
Width = 108
AllowGrayed = True
Caption = 'cbSeparateExt'
TabOrder = 4
end
end
object edtRunTerm: TEdit
TabOrder = 1
Text = '/usr/X11R6/bin/xterm'
Left = 96
Height = 24
Top = 40
Width = 313
TabOrder = 1
Text = '/usr/X11R6/bin/xterm'
end
end
object tsTools: TTabSheet
Caption = 'Tools'
ClientHeight = 246
ClientWidth = 446
ImageIndex = 2
Height = 246
Width = 446
object cbExtEditor: TCheckBox
Left = 8
Height = 24
Width = 90
AllowGrayed = True
Caption = 'cbExtEditor'
OnClick = cbExtEditorClick
TabOrder = 0
Left = 8
Height = 24
Width = 90
end
object edtExtEditor: TEdit
TabOrder = 1
Text = 'gEdit "%s"'
Left = 24
Height = 24
Top = 32
Width = 313
TabOrder = 1
Text = 'gEdit "%s"'
end
object cbExtDiffer: TCheckBox
AllowGrayed = True
Caption = 'cbExtDiffer'
OnClick = cbExtDifferClick
TabOrder = 2
Left = 8
Height = 24
Top = 56
Width = 87
AllowGrayed = True
Caption = 'cbExtDiffer'
OnClick = cbExtDifferClick
TabOrder = 2
end
object edtExtDiffer: TEdit
TabOrder = 3
Text = 'gtk-diff "%s" "%s"'
Left = 24
Height = 24
Top = 88
Width = 313
TabOrder = 3
Text = 'gtk-diff "%s" "%s"'
end
object cbExtViewer: TCheckBox
AllowGrayed = True
Caption = 'cbExtViewer'
OnClick = cbExtViewerClick
TabOrder = 4
Left = 8
Height = 24
Top = 120
Width = 97
AllowGrayed = True
Caption = 'cbExtViewer'
OnClick = cbExtViewerClick
TabOrder = 4
end
object edtExtViewer: TEdit
TabOrder = 5
Text = 'emacs "%s"'
Left = 24
Height = 24
Top = 152
Width = 313
TabOrder = 5
Text = 'emacs "%s"'
end
end
object tsFonts: TTabSheet
Caption = 'Fonts'
ClientHeight = 246
ClientWidth = 446
ImageIndex = 3
Height = 246
Width = 446
object lblMainFont: TLabel
Caption = 'Main font'
Color = clNone
ParentColor = False
Height = 14
Top = 24
Width = 46
end
object lblEditorFont: TLabel
Caption = 'Editor font'
Caption = 'Main font'
Color = clNone
ParentColor = False
end
object lblEditorFont: TLabel
Height = 14
Top = 96
Width = 52
end
object lblViewerFont: TLabel
Caption = 'Viewer font'
Caption = 'Editor font'
Color = clNone
ParentColor = False
end
object lblViewerFont: TLabel
Height = 14
Top = 168
Width = 56
Caption = 'Viewer font'
Color = clNone
ParentColor = False
end
object cbMainFont: TComboBox
Left = 78
Height = 21
Top = 16
Width = 272
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 18
MaxLength = 0
OnChange = cbMainFontChange
ParentCtl3D = False
TabOrder = 0
Left = 78
Height = 21
Top = 16
Width = 272
end
object cbEditorFont: TComboBox
Left = 78
Height = 21
Top = 87
Width = 272
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 18
MaxLength = 0
OnChange = cbEditorFontChange
ParentCtl3D = False
TabOrder = 1
Left = 78
Height = 21
Top = 87
Width = 272
end
object edtTest1: TEdit
TabOrder = 2
Text = 'Example Ïðîâåðêà'
Left = 78
Height = 24
Top = 48
Width = 256
TabOrder = 2
Text = 'Example Ïðîâåðêà'
end
object edtTest2: TEdit
TabOrder = 3
Text = 'Example Ïðîâåðêà'
Left = 78
Height = 24
Top = 120
Width = 257
TabOrder = 3
Text = 'Example Ïðîâåðêà'
end
object edtTest3: TEdit
TabOrder = 4
Text = 'Example Ïðîâåðêà'
Left = 78
Height = 24
Top = 192
Width = 257
TabOrder = 4
Text = 'Example Ïðîâåðêà'
end
object cbViewerFont: TComboBox
Left = 78
Height = 21
Top = 159
Width = 272
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 18
MaxLength = 0
OnChange = cbViewerFontChange
ParentCtl3D = False
TabOrder = 5
Left = 78
Height = 21
Top = 159
Width = 272
end
object btnSelMainFnt: TButton
BorderSpacing.InnerBorder = 2
Caption = '...'
OnClick = btnSelMainFntClick
TabOrder = 7
Left = 360
Height = 23
Top = 16
Width = 23
Caption = '...'
OnClick = btnSelMainFntClick
TabOrder = 7
end
object btnSelEditFnt: TButton
BorderSpacing.InnerBorder = 2
Caption = '...'
OnClick = btnSelEditFntClick
TabOrder = 9
Left = 360
Height = 23
Top = 87
Width = 23
Caption = '...'
OnClick = btnSelEditFntClick
TabOrder = 9
end
object btnSelViewFnt: TButton
BorderSpacing.InnerBorder = 2
Caption = '...'
OnClick = btnSelViewFntClick
TabOrder = 11
Left = 360
Height = 23
Top = 159
Width = 23
Caption = '...'
OnClick = btnSelViewFntClick
TabOrder = 11
end
object edtMainSize: TSpinEdit
MaxValue = 25
MinValue = 8
TabOrder = 6
Value = 14
Left = 340
Height = 23
Top = 49
Width = 68
end
object edtEditorSize: TSpinEdit
MaxValue = 25
MinValue = 8
TabOrder = 8
TabOrder = 6
Value = 14
end
object edtEditorSize: TSpinEdit
Left = 340
Height = 23
Top = 121
Width = 68
end
object edtViewerSize: TSpinEdit
MaxValue = 25
MinValue = 8
TabOrder = 10
TabOrder = 8
Value = 14
end
object edtViewerSize: TSpinEdit
Left = 340
Height = 23
Top = 192
Width = 68
MaxValue = 25
MinValue = 8
TabOrder = 10
Value = 14
end
end
object TabSheet1: TTabSheet
Caption = 'Color'
object cTextLabel: TLabel
Left = 25
Height = 14
Top = 31
Width = 23
Caption = 'Text'
Color = clNone
ParentColor = False
end
object cBackGrndLabel: TLabel
Left = 23
Height = 14
Top = 58
Width = 58
Caption = 'BackGround'
Color = clNone
ParentColor = False
end
object cTextColor: TColorBox
Left = 108
Height = 24
Top = 26
Width = 100
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clSilver'
'clGray'
'clWhite'
'clCream'
'clNone'
'clDefault'
)
MaxLength = 0
TabOrder = 0
end
object cbackgrndcolor: TColorBox
Left = 108
Height = 24
Top = 53
Width = 100
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clSilver'
'clGray'
'clWhite'
'clCream'
'clNone'
'clDefault'
)
MaxLength = 0
TabOrder = 1
end
object Button1: TButton
Left = 209
Height = 25
Top = 26
Width = 27
BorderSpacing.InnerBorder = 4
Caption = '>>'
OnClick = Button1Click
TabOrder = 2
end
object Button2: TButton
Left = 208
Height = 25
Top = 53
Width = 28
BorderSpacing.InnerBorder = 4
Caption = '>>'
OnClick = Button2Click
TabOrder = 3
end
end
end
object Panel1: TPanel
Align = alBottom
ClientHeight = 40
ClientWidth = 454
FullRepaint = False
TabOrder = 1
Height = 40
Top = 272
Width = 454
Align = alBottom
FullRepaint = False
TabOrder = 1
object btnOK: TBitBtn
Left = 280
Height = 25
Top = 8
Width = 75
BorderSpacing.InnerBorder = 2
Caption = '&OK'
Kind = bkOK
@ -365,28 +446,28 @@ object frmOptions: TfrmOptions
NumGlyphs = 0
OnClick = btnOKClick
TabOrder = 0
Left = 280
end
object btnCancel: TBitBtn
Left = 368
Height = 25
Top = 8
Width = 75
end
object btnCancel: TBitBtn
BorderSpacing.InnerBorder = 2
Caption = 'Cancel'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 1
Left = 368
Height = 25
Top = 8
Width = 75
end
end
object dlgFnt: TFontDialog
Title = 'Âûáðàòü øðèôò'
Title = 'Âûáðàòü øðèôò'
left = 86
top = 23
left = 224
top = 16
end
object optColorDialog: TColorDialog
Title = 'Âûáðàòü öâåò'
left = 224
top = 49
end
end

29
foptions.pas
View file

@ -16,19 +16,30 @@ interface
uses
LResources,
SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons, fLngForm, Spin;
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons, fLngForm, Spin, ColorBox;
type
{ TfrmOptions }
TfrmOptions = class(TfrmLng)
btnSelMainFnt: TButton;
btnSelEditFnt: TButton;
btnSelViewFnt: TButton;
Button1: TButton;
Button2: TButton;
cbSeparateExt: TCheckBox;
cTextColor: TColorBox;
cbackgrndcolor: TColorBox;
optColorDialog: TColorDialog;
dlgFnt: TFontDialog;
cTextLabel: TLabel;
cBackGrndLabel: TLabel;
PageControl1: TPageControl;
edtMainSize: TSpinEdit;
edtEditorSize: TSpinEdit;
edtViewerSize: TSpinEdit;
TabSheet1: TTabSheet;
tsLng: TTabSheet;
tsBehav: TTabSheet;
Panel1: TPanel;
@ -61,6 +72,8 @@ type
edtTest3: TEdit;
cbViewerFont: TComboBox;
lblViewerFont: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure btnSelEditFntClick(Sender: TObject);
@ -96,6 +109,20 @@ begin
edtTerm.Text:=gTerm;
end;
procedure TfrmOptions.Button1Click(Sender: TObject);
begin
if optColorDialog.Execute then
begin
end;
end;
procedure TfrmOptions.Button2Click(Sender: TObject);
begin
if optColorDialog.Execute then
begin
end;
end;
procedure TfrmOptions.LoadLng;
begin
btnCancel.Caption:= lngGetString(clngbutCancel);