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

Hot Key to internal actions step 1

Browse source
This commit is contained in:
Attid 2007-04-01 19:32:33 +00:00
commit 327a158d2a
3 changed files with 1004 additions and 852 deletions
Download patch file Download diff file Expand all files Collapse all files

157
fOptions.lrs
View file

@ -1,13 +1,15 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmOptions','FORMDATA',[
'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'
+'op'#3#197#0#5'Width'#3#200#1#18'HorzScrollBar.Page'#3#199#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
+'TPageControl'#12'PageControl1'#6'Height'#3#16#1#5'Width'#3#200#1#10'ActiveP'
+'age'#7#8'tfHotKey'#5'Align'#7#8'alClient'#8'TabIndex'#2#5#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'
+'eight'#3#242#0#5'Width'#3#196#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'
@ -17,94 +19,113 @@ LazarusResources.Add('TfrmOptions','FORMDATA',[
+'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
+#6'Height'#2#20#3'Top'#2#253#5'Width'#2'Y'#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'
+'t'#2#8#6'Height'#2#20#3'Top'#2'-'#5'Width'#3#140#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
+'ke'#4'Left'#2#8#6'Height'#2#20#3'Top'#2#21#5'Width'#2'X'#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'
+'zeFormat'#4'Left'#2#8#6'Height'#2#20#3'Top'#2'E'#5'Width'#3#150#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'
+'kBox'#13'cbSeparateExt'#4'Left'#2#8#6'Height'#2#20#3'Top'#2'e'#5'Width'#2'i'
+#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
+'r'#4'Left'#2#8#6'Height'#2#20#5'Width'#2'W'#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'
+'Left'#2#8#6'Height'#2#20#3'Top'#2'8'#5'Width'#2'T'#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'
+'bExtViewer'#4'Left'#2#8#6'Height'#2#20#3'Top'#2'x'#5'Width'#2'^'#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'
+'lblMainFont'#6'Height'#2#13#3'Top'#2#24#5'Width'#2'5'#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'
+#6'Height'#2#13#3'Top'#2'`'#5'Width'#2'9'#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
+#2#13#3'Top'#3#168#0#5'Width'#2'@'#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#10'ItemHeight'#2#18#9'MaxLength'#2#0
+#8'OnChange'#7#16'cbMainFontChange'#11'ParentCtl3D'#8#8'TabOrder'#2#0#0#0#9
+'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#10'ItemHeight'#2#18#9'MaxLength'#2#0#8'OnChange'#7#18'cbEditorFontCh'
+'ange'#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'E'
+'xample '#207#240#238#226#229#240#234#224#0#0#5'TEdit'#8'edtTest2'#4'Left'#2
+#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#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'btnSelMainFnt'
+'Click'#8'TabOrder'#2#7#0#0#7'TButton'#13'btnSelEditFnt'#4'Left'#3'h'#1#6'He'
+'ight'#2#23#3'Top'#2'W'#5'Width'#2#23#7'Caption'#6#3'...'#7'OnClick'#7#18'bt'
+'nSelEditFntClick'#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'OnCl'
+'ick'#7#18'btnSelViewFntClick'#8'TabOrder'#2#11#0#0#9'TSpinEdit'#11'edtMainS'
+'ize'#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'#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'Left'#2'l'#6'Height'#2#24#3'Top'#2'5'#5'Width'#2'd'#13
+'Items.Strings'#1#6#7'clBlack'#6#8'clMaroon'#6#7'clGreen'#6#7'clOlive'#6#6'c'
+'lNavy'#6#8'clPurple'#6#6'clTeal'#6#6'clGray'#6#8'clSilver'#6#5'clRed'#6#6'c'
+'lLime'#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
+#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#25'BorderSpacing.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'B'
+'orderSpacing.InnerBorder'#2#4#7'Caption'#6#3'...'#7'OnClick'#7#18'btnSelEdi'
+'tFntClick'#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'btnSelViewFntClick'#8'TabOrder'#2#11#0#0
+#9'TSpinEdit'#11'edtMainSize'#4'Left'#3'T'#1#6'Height'#2#23#3'Top'#2'1'#5'Wi'
+'dth'#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'MinValue'#2#8#8'TabOrder'#2#10#5'Value'#2
+#14#0#0#0#9'TTabSheet'#7'tsColor'#7'Caption'#6#5'Color'#0#6'TLabel'#10'cText'
+'Label'#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'cBackGrndLabe'
+'l'#4'Left'#2#23#6'Height'#2#13#3'Top'#2':'#5'Width'#2'F'#7'Caption'#6#10'Ba'
+'ckGround'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#9'TColorBox'#10'cTextC'
+'olor'#4'Left'#2'l'#6'Height'#2#24#3'Top'#2#26#5'Width'#2'd'#16'AutoComplete'
+'Text'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#13'Items.Str'
+'ings'#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#11'Pa'
+'rentColor'#8#8'TabOrder'#2#0#0#0#9'TColorBox'#14'cbackgrndcolor'#4'Left'#2
+'l'#6'Height'#2#24#3'Top'#2'5'#5'Width'#2'd'#16'AutoCompleteText'#11#22'cbac'
+'tEndOfLineComplete'#20'cbactSearchAscending'#0#13'Items.Strings'#1#6#7'clBl'
+'ack'#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#11'ParentColor'#8#8
+'TabOrder'#2#1#0#0#7'TButton'#7'Button1'#4'Left'#3#209#0#6'Height'#2#25#3'To'
+'p'#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'Button2'#4'Lef'
+'t'#3#208#0#6'Height'#2#25#3'Top'#2'5'#5'Width'#2#28#25'BorderSpacing.InnerB'
+'order'#2#4#7'Caption'#6#2'>>'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#3
+#0#0#0#9'TTabSheet'#8'tfHotKey'#7'Caption'#6#8'Hot Keys'#0#6'TLabel'#10'lblA'
+'ctions'#4'Left'#2#14#6'Height'#2#13#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'Height'#2#13#3'Top'#2'4'#5'Width'#2'.'#7'Caption'#6#7'Hot Key'
+#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#9'TComboBox'#9'cbActions'#4'Left'
+#2#14#6'Height'#2#25#3'Top'#2#20#5'Width'#3'('#1#16'AutoCompleteText'#11#22
+'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#6'Sorte'
+'d'#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.InnerBor'
+'der'#2#4#7'Caption'#6#10'Set HotKey'#7'OnClick'#7#16'btSetHotKeyClick'#8'Ta'
+'bOrder'#2#2#0#0#0#0#6'TPanel'#6'Panel1'#6'Height'#2'('#3'Top'#3#16#1#5'Widt'
+'h'#3#200#1#5'Align'#7#8'alBottom'#11'FullRepaint'#8#8'TabOrder'#2#1#0#7'TBi'
+'tBtn'#5'btnOK'#4'Left'#3#24#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#25'Bo'
+'rderSpacing.InnerBorder'#2#2#7'Caption'#6#3'&OK'#4'Kind'#7#4'bkOK'#11'Modal'
+'Result'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#10'btnOKClick'#8'TabOrder'#2#0#0#0
+#7'TBitBtn'#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'bkC'
+'ancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#0#11'TFontD'
+'ialog'#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
]);

996
foptions.lfm
View file

@ -1,468 +1,528 @@
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'
Position = poMainFormCenter
object PageControl1: TPageControl
Height = 272
Width = 454
ActivePage = TabSheet1
Align = alClient
TabIndex = 4
TabOrder = 0
object tsLng: TTabSheet
Caption = 'Language'
object lngList: TListBox
Height = 242
Width = 450
Align = alClient
TabOrder = 0
TopIndex = -1
end
end
object tsBehav: TTabSheet
Caption = 'Behaviour'
ImageIndex = 1
object lblTerm: TLabel
Left = 8
Height = 13
Top = 16
Width = 51
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
Left = 96
Height = 24
Top = 8
Width = 313
TabOrder = 0
Text = '/usr/X11R6/bin/xterm -e bash -i -c %s'
end
object gb: TGroupBox
Left = 8
Height = 148
Top = 80
Width = 225
ParentCtl3D = False
TabOrder = 2
object cbDirSelect: TCheckBox
Left = 8
Height = 24
Top = -3
Width = 92
AllowGrayed = True
Caption = 'cbDirSelect'
TabOrder = 0
end
object cbCaseSensitiveSort: TCheckBox
Left = 8
Height = 24
Top = 45
Width = 143
AllowGrayed = True
Caption = 'cbCaseSensitiveSort'
TabOrder = 1
end
object cbLynxLike: TCheckBox
Left = 8
Height = 24
Top = 21
Width = 91
AllowGrayed = True
Caption = 'cbLynxLike'
TabOrder = 2
end
object cbShortFileSizeFormat: TCheckBox
Left = 8
Height = 24
Top = 69
Width = 153
AllowGrayed = True
Caption = 'cbShortFileSizeFormat'
TabOrder = 3
end
object cbSeparateExt: TCheckBox
Left = 8
Height = 24
Top = 101
Width = 108
AllowGrayed = True
Caption = 'cbSeparateExt'
TabOrder = 4
end
end
object edtRunTerm: TEdit
Left = 96
Height = 24
Top = 40
Width = 313
TabOrder = 1
Text = '/usr/X11R6/bin/xterm'
end
end
object tsTools: TTabSheet
Caption = 'Tools'
ImageIndex = 2
object cbExtEditor: TCheckBox
Left = 8
Height = 24
Width = 90
AllowGrayed = True
Caption = 'cbExtEditor'
OnClick = cbExtEditorClick
TabOrder = 0
end
object edtExtEditor: TEdit
Left = 24
Height = 24
Top = 32
Width = 313
TabOrder = 1
Text = 'gEdit "%s"'
end
object cbExtDiffer: TCheckBox
Left = 8
Height = 24
Top = 56
Width = 87
AllowGrayed = True
Caption = 'cbExtDiffer'
OnClick = cbExtDifferClick
TabOrder = 2
end
object edtExtDiffer: TEdit
Left = 24
Height = 24
Top = 88
Width = 313
TabOrder = 3
Text = 'gtk-diff "%s" "%s"'
end
object cbExtViewer: TCheckBox
Left = 8
Height = 24
Top = 120
Width = 97
AllowGrayed = True
Caption = 'cbExtViewer'
OnClick = cbExtViewerClick
TabOrder = 4
end
object edtExtViewer: TEdit
Left = 24
Height = 24
Top = 152
Width = 313
TabOrder = 5
Text = 'emacs "%s"'
end
end
object tsFonts: TTabSheet
Caption = 'Fonts'
ImageIndex = 3
object lblMainFont: TLabel
Height = 14
Top = 24
Width = 46
Caption = 'Main font'
Color = clNone
ParentColor = False
end
object lblEditorFont: TLabel
Height = 14
Top = 96
Width = 52
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
ItemHeight = 18
MaxLength = 0
OnChange = cbMainFontChange
ParentCtl3D = False
TabOrder = 0
end
object cbEditorFont: TComboBox
Left = 78
Height = 21
Top = 87
Width = 272
ItemHeight = 18
MaxLength = 0
OnChange = cbEditorFontChange
ParentCtl3D = False
TabOrder = 1
end
object edtTest1: TEdit
Left = 78
Height = 24
Top = 48
Width = 256
TabOrder = 2
Text = 'Example Ïðîâåðêà'
end
object edtTest2: TEdit
Left = 78
Height = 24
Top = 120
Width = 257
TabOrder = 3
Text = 'Example Ïðîâåðêà'
end
object edtTest3: TEdit
Left = 78
Height = 24
Top = 192
Width = 257
TabOrder = 4
Text = 'Example Ïðîâåðêà'
end
object cbViewerFont: TComboBox
Left = 78
Height = 21
Top = 159
Width = 272
ItemHeight = 18
MaxLength = 0
OnChange = cbViewerFontChange
ParentCtl3D = False
TabOrder = 5
end
object btnSelMainFnt: TButton
Left = 360
Height = 23
Top = 16
Width = 23
Caption = '...'
OnClick = btnSelMainFntClick
TabOrder = 7
end
object btnSelEditFnt: TButton
Left = 360
Height = 23
Top = 87
Width = 23
Caption = '...'
OnClick = btnSelEditFntClick
TabOrder = 9
end
object btnSelViewFnt: TButton
Left = 360
Height = 23
Top = 159
Width = 23
Caption = '...'
OnClick = btnSelViewFntClick
TabOrder = 11
end
object edtMainSize: TSpinEdit
Left = 340
Height = 23
Top = 49
Width = 68
MaxValue = 25
MinValue = 8
TabOrder = 6
Value = 14
end
object edtEditorSize: TSpinEdit
Left = 340
Height = 23
Top = 121
Width = 68
MaxValue = 25
MinValue = 8
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
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
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
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
ModalResult = 1
NumGlyphs = 0
OnClick = btnOKClick
TabOrder = 0
end
object btnCancel: TBitBtn
Left = 368
Height = 25
Top = 8
Width = 75
BorderSpacing.InnerBorder = 2
Caption = 'Cancel'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 1
end
end
object dlgFnt: TFontDialog
Title = 'Âûáðàòü øðèôò'
left = 224
top = 16
end
object optColorDialog: TColorDialog
Title = 'Âûáðàòü öâåò'
left = 224
top = 49
end
end
inherited frmOptions: TfrmOptions
Left = 298
Height = 312
Top = 197
Width = 456
HorzScrollBar.Page = 455
VertScrollBar.Page = 311
VertScrollBar.Range = 41
ActiveControl = PageControl1
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Options'
Position = poMainFormCenter
object PageControl1: TPageControl
Height = 272
Width = 456
ActivePage = tfHotKey
Align = alClient
TabIndex = 5
TabOrder = 0
object tsLng: TTabSheet
Caption = 'Language'
object lngList: TListBox
Height = 242
Width = 452
Align = alClient
TabOrder = 0
TopIndex = -1
end
end
object tsBehav: TTabSheet
Caption = 'Behaviour'
ImageIndex = 1
object lblTerm: TLabel
Left = 8
Height = 13
Top = 16
Width = 51
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
Left = 96
Height = 24
Top = 8
Width = 313
TabOrder = 0
Text = '/usr/X11R6/bin/xterm -e bash -i -c %s'
end
object gb: TGroupBox
Left = 8
Height = 148
Top = 80
Width = 225
ParentCtl3D = False
TabOrder = 2
object cbDirSelect: TCheckBox
Left = 8
Height = 20
Top = -3
Width = 89
AllowGrayed = True
Caption = 'cbDirSelect'
TabOrder = 0
end
object cbCaseSensitiveSort: TCheckBox
Left = 8
Height = 20
Top = 45
Width = 140
AllowGrayed = True
Caption = 'cbCaseSensitiveSort'
TabOrder = 1
end
object cbLynxLike: TCheckBox
Left = 8
Height = 20
Top = 21
Width = 88
AllowGrayed = True
Caption = 'cbLynxLike'
TabOrder = 2
end
object cbShortFileSizeFormat: TCheckBox
Left = 8
Height = 20
Top = 69
Width = 150
AllowGrayed = True
Caption = 'cbShortFileSizeFormat'
TabOrder = 3
end
object cbSeparateExt: TCheckBox
Left = 8
Height = 20
Top = 101
Width = 105
AllowGrayed = True
Caption = 'cbSeparateExt'
TabOrder = 4
end
end
object edtRunTerm: TEdit
Left = 96
Height = 24
Top = 40
Width = 313
TabOrder = 1
Text = '/usr/X11R6/bin/xterm'
end
end
object tsTools: TTabSheet
Caption = 'Tools'
ImageIndex = 2
object cbExtEditor: TCheckBox
Left = 8
Height = 20
Width = 87
AllowGrayed = True
Caption = 'cbExtEditor'
OnClick = cbExtEditorClick
TabOrder = 0
end
object edtExtEditor: TEdit
Left = 24
Height = 24
Top = 32
Width = 313
TabOrder = 1
Text = 'gEdit "%s"'
end
object cbExtDiffer: TCheckBox
Left = 8
Height = 20
Top = 56
Width = 84
AllowGrayed = True
Caption = 'cbExtDiffer'
OnClick = cbExtDifferClick
TabOrder = 2
end
object edtExtDiffer: TEdit
Left = 24
Height = 24
Top = 88
Width = 313
TabOrder = 3
Text = 'gtk-diff "%s" "%s"'
end
object cbExtViewer: TCheckBox
Left = 8
Height = 20
Top = 120
Width = 94
AllowGrayed = True
Caption = 'cbExtViewer'
OnClick = cbExtViewerClick
TabOrder = 4
end
object edtExtViewer: TEdit
Left = 24
Height = 24
Top = 152
Width = 313
TabOrder = 5
Text = 'emacs "%s"'
end
end
object tsFonts: TTabSheet
Caption = 'Fonts'
ImageIndex = 3
object lblMainFont: TLabel
Height = 13
Top = 24
Width = 53
Caption = 'Main font'
Color = clNone
ParentColor = False
end
object lblEditorFont: TLabel
Height = 13
Top = 96
Width = 57
Caption = 'Editor font'
Color = clNone
ParentColor = False
end
object lblViewerFont: TLabel
Height = 13
Top = 168
Width = 64
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
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
end
object edtTest1: TEdit
Left = 78
Height = 24
Top = 48
Width = 256
TabOrder = 2
Text = 'Example Ïðîâåðêà'
end
object edtTest2: TEdit
Left = 78
Height = 24
Top = 120
Width = 257
TabOrder = 3
Text = 'Example Ïðîâåðêà'
end
object edtTest3: TEdit
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
end
object btnSelMainFnt: TButton
Left = 360
Height = 23
Top = 16
Width = 23
BorderSpacing.InnerBorder = 4
Caption = '...'
OnClick = btnSelMainFntClick
TabOrder = 7
end
object btnSelEditFnt: TButton
Left = 360
Height = 23
Top = 87
Width = 23
BorderSpacing.InnerBorder = 4
Caption = '...'
OnClick = btnSelEditFntClick
TabOrder = 9
end
object btnSelViewFnt: TButton
Left = 360
Height = 23
Top = 159
Width = 23
BorderSpacing.InnerBorder = 4
Caption = '...'
OnClick = btnSelViewFntClick
TabOrder = 11
end
object edtMainSize: TSpinEdit
Left = 340
Height = 23
Top = 49
Width = 68
MaxValue = 25
MinValue = 8
TabOrder = 6
Value = 14
end
object edtEditorSize: TSpinEdit
Left = 340
Height = 23
Top = 121
Width = 68
MaxValue = 25
MinValue = 8
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 tsColor: TTabSheet
Caption = 'Color'
object cTextLabel: TLabel
Left = 25
Height = 13
Top = 31
Width = 24
Caption = 'Text'
Color = clNone
ParentColor = False
end
object cBackGrndLabel: TLabel
Left = 23
Height = 13
Top = 58
Width = 70
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
ParentColor = False
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
ParentColor = False
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
object tfHotKey: TTabSheet
Caption = 'Hot Keys'
object lblActions: TLabel
Left = 14
Height = 13
Top = 4
Width = 43
Caption = 'Actions'
Color = clNone
ParentColor = False
end
object lblHotKey: TLabel
Left = 14
Height = 13
Top = 52
Width = 46
Caption = 'Hot Key'
Color = clNone
ParentColor = False
end
object cbActions: TComboBox
Left = 14
Height = 25
Top = 20
Width = 296
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 0
Sorted = True
Style = csDropDownList
TabOrder = 0
end
object edHotKey: TEdit
Left = 14
Height = 23
Top = 68
Width = 160
OnKeyDown = edHotKeyKeyDown
TabOrder = 1
end
object btSetHotKey: TButton
Left = 182
Height = 25
Top = 66
Width = 128
BorderSpacing.InnerBorder = 4
Caption = 'Set HotKey'
OnClick = btSetHotKeyClick
TabOrder = 2
end
end
end
object Panel1: TPanel
Height = 40
Top = 272
Width = 456
Align = alBottom
FullRepaint = False
TabOrder = 1
object btnOK: TBitBtn
Left = 280
Height = 25
Top = 8
Width = 75
BorderSpacing.InnerBorder = 2
Caption = '&OK'
Kind = bkOK
ModalResult = 1
NumGlyphs = 0
OnClick = btnOKClick
TabOrder = 0
end
object btnCancel: TBitBtn
Left = 368
Height = 25
Top = 8
Width = 75
BorderSpacing.InnerBorder = 2
Caption = 'Cancel'
Kind = bkCancel
ModalResult = 2
NumGlyphs = 0
TabOrder = 1
end
end
object dlgFnt: TFontDialog
Title = 'Âûáðàòü øðèôò'
left = 224
top = 16
end
object optColorDialog: TColorDialog
Title = 'Âûáðàòü öâåò'
left = 224
top = 49
end
end

703
foptions.pas
View file

@ -1,316 +1,387 @@
{
Seksi Commander
----------------------------
Implementing of Options dialog
Licence : GNU GPL v 2.0
Author : radek.cervinka@centrum.cz
contributors:
}
unit fOptions;
{$mode objfpc}{$H+}
interface
uses
LResources,
SysUtils, Classes, Graphics, Controls, Forms,
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;
btnOK: TBitBtn;
btnCancel: TBitBtn;
lngList: TListBox;
lblTerm: TLabel;
edtTerm: TEdit;
gb: TGroupBox;
cbDirSelect: TCheckBox;
cbCaseSensitiveSort: TCheckBox;
cbLynxLike: TCheckBox;
cbShortFileSizeFormat: TCheckBox;
tsTools: TTabSheet;
cbExtEditor: TCheckBox;
edtExtEditor: TEdit;
cbExtDiffer: TCheckBox;
edtExtDiffer: TEdit;
cbExtViewer: TCheckBox;
edtExtViewer: TEdit;
lblRunTerm: TLabel;
edtRunTerm: TEdit;
tsFonts: TTabSheet;
lblMainFont: TLabel;
cbMainFont: TComboBox;
cbEditorFont: TComboBox;
lblEditorFont: TLabel;
edtTest1: TEdit;
edtTest2: TEdit;
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);
procedure btnSelMainFntClick(Sender: TObject);
procedure btnSelViewFntClick(Sender: TObject);
procedure cbExtEditorClick(Sender: TObject);
procedure cbExtDifferClick(Sender: TObject);
procedure cbExtViewerClick(Sender: TObject);
procedure cbMainFontChange(Sender: TObject);
procedure cbEditorFontChange(Sender: TObject);
procedure cbViewerFontChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure FillLngListBox;
procedure LoadLng; override;
procedure FillFontLists;
end;
implementation
uses
uLng, uGlobs, uGlobsPaths, FindEx;
procedure TfrmOptions.FormCreate(Sender: TObject);
begin
inherited;
FillLngListBox;
FillFontLists;
writeln(gTerm);
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);
// btnOK.Caption:= lngGetString(clngbutOK);
Caption:=lngGetString(clngDlgOpt);
tsLng.Caption:=lngGetString(clngDlgOptSelLng);
lblTerm.Caption:=lngGetString(clngDlgOptTerm);
cbDirSelect.Caption:=lngGetString(clngDlgOptSelDir);
cbCaseSensitiveSort.Caption:=lngGetString(clngDlgOptCaseSens);
cbLynxLike.Caption:=lngGetString(clngDlgOptLynx);
cbShortFileSizeFormat.Caption:=lngGetString(clngDlgOptShortFileSize);
tsBehav.Caption:=lngGetString(clngDlgOptBehaviourTab);
tsTools.Caption:=lngGetString(clngDlgOptToolsTab);
cbExtEditor.Caption:=lngGetString(clngDlgOptExtEdit);
cbExtViewer.Caption:=lngGetString(clngDlgOptExtView);
cbExtDiffer.Caption:=lngGetString(clngDlgOptExtDiff);
cbSeparateExt.Caption:=lngGetString(clngDlgOptSeparateExt);
cbDirSelect.Checked:=gDirSelect;
cbCaseSensitiveSort.Checked:=gCaseSensitiveSort;
cbLynxLike.Checked:=gLynxLike;
cbShortFileSizeFormat.Checked:=gShortFileSizeFormat;
cbExtEditor.Checked:=gUseExtEdit;
cbExtViewer.Checked:=gUseExtView;
cbExtDiffer.Checked:=gUseExtDiff;
cbSeparateExt.Checked:=gSeparateExt;
edtExtEditor.Text:= gExtEdit;
edtExtViewer.Text:=gExtView;
edtExtDiffer.Text:=gExtDiff;
edtExtEditor.Enabled:= cbExtEditor.Checked;
edtExtDiffer.Enabled:= cbExtDiffer.Checked;
edtExtViewer.Enabled:= cbExtViewer.Checked;
edtRunTerm.Text:=gRunTerm;
lblRunTerm.Caption:=lngGetString(clngDlgOptRunTerm);
tsFonts.Caption:=lngGetString(clngDlgOptFonts);
lblMainFont.Caption:= lngGetString(clngDlgOptMainFont);
lblEditorFont.Caption:= lngGetString(clngDlgOptEditorFont);
lblViewerFont.Caption:= lngGetString(clngDlgOptViewerFont);
end;
procedure TfrmOptions.FillLngListBox;
var
fr:TSearchRec;
iIndex:Integer;
begin
lngList.Clear;
writeln('Language dir:'+gpLngDir);
if FindFirst(gpLngDir+'*.lng', faAnyFile, fr)<>0 then
begin
FindClose(fr);
Exit;
end;
repeat
lngList.Items.Add(fr.Name);
until FindNext(fr)<>0;
FindClose(fr);
iIndex:=lngList.Items.IndexOf(gLng);
if iIndex>=0 then
lngList.Selected[iIndex]:=True;
end;
procedure TfrmOptions.btnOKClick(Sender: TObject);
begin
inherited;
gTerm:=edtTerm.Text;
if lngList.ItemIndex>-1 then
gLng:=lngList.Items[lngList.ItemIndex];
gDirSelect:=cbDirSelect.Checked;
gCaseSensitiveSort:=cbCaseSensitiveSort.Checked;
gLynxLike:=cbLynxLike.Checked;
gShortFileSizeFormat:=cbShortFileSizeFormat.Checked;
gUseExtEdit:=cbExtEditor.Checked;
gUseExtView:=cbExtViewer.Checked;
gUseExtDiff:=cbExtDiffer.Checked;
gSeparateExt:=cbSeparateExt.Checked;
gExtEdit:= edtExtEditor.Text;
gExtView:= edtExtViewer.Text;
gExtDiff:= edtExtDiffer.Text;
gRunTerm:= edtRunTerm.Text;
gFontName:=cbMainFont.Text;
if (fsBold in EdtTest1.Font.Style) then
gFontWeight := 700
else
gFontWeight := 400;
gEditorFontName:=cbEditorFont.Text;
gViewerFontName:=cbViewerFont.Text;
gEditorSize:=Round(edtEditorSize.Value);
gViewerSize:=Round(edtViewerSize.Value);
gFontSize:=Round(edtMainSize.Value);
end;
procedure TfrmOptions.btnSelEditFntClick(Sender: TObject);
begin
dlgFnt.Font.Name:=cbEditorFont.Text;
if dlgFnt.Execute then
begin
cbEditorFont.Text:=dlgFnt.Font.Name;
edtEditorSize.Value := dlgFnt.Font.Size;
edtTest2.Font := dlgFnt.Font;
end;
end;
procedure TfrmOptions.btnSelMainFntClick(Sender: TObject);
begin
dlgFnt.Font.Name:=cbMainFont.Text;
if dlgFnt.Execute then
begin
cbMainFont.Text:=dlgFnt.Font.Name;
edtMainSize.Value := dlgFnt.Font.Size;
edtTest1.Font := dlgFnt.Font;
end;
end;
procedure TfrmOptions.btnSelViewFntClick(Sender: TObject);
begin
dlgFnt.Font.Name:=cbViewerFont.Text;
if dlgFnt.Execute then
begin
cbViewerFont.Text:=dlgFnt.Font.Name;
edtViewerSize.Value:= dlgFnt.Font.Size;
edtTest3.Font := dlgFnt.Font;
end;
end;
procedure TfrmOptions.cbExtEditorClick(Sender: TObject);
begin
inherited;
edtExtEditor.Enabled:=cbExtEditor.Checked
end;
procedure TfrmOptions.cbExtDifferClick(Sender: TObject);
begin
inherited;
edtExtDiffer.Enabled:=cbExtDiffer.Checked
end;
procedure TfrmOptions.cbExtViewerClick(Sender: TObject);
begin
inherited;
edtExtViewer.Enabled:=cbExtViewer.Checked
end;
procedure TfrmOptions.FillFontLists;
begin
cbMainFont.Text:=gFontName;
cbViewerFont.Text:=gViewerFontName;
cbEditorFont.Text:=gEditorFontName;
if gFontWeight = 700 then
EdtTest1.Font.Style := [fsBold];
edtEditorSize.Value:=gEditorSize;
edtViewerSize.Value:=gViewerSize;
edtMainSize.Value:=gFontSize;
end;
procedure TfrmOptions.cbMainFontChange(Sender: TObject);
begin
// edtTest1.Font.Name:=cbMainFont.Text;
end;
procedure TfrmOptions.cbEditorFontChange(Sender: TObject);
begin
// edtTest2.Font.Name:=cbEditorFont.Text;
end;
procedure TfrmOptions.cbViewerFontChange(Sender: TObject);
begin
// edtTest3.Font.Name:=cbViewerFont.Text;
end;
initialization
{$I fOptions.lrs}
end.
{
Seksi Commander
----------------------------
Implementing of Options dialog
Licence : GNU GPL v 2.0
Author : radek.cervinka@centrum.cz
contributors:
}
unit fOptions;
{$mode objfpc}{$H+}
interface
uses
LResources,
SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons, fLngForm, Spin, ColorBox;
type
{ TfrmOptions }
TfrmOptions = class(TfrmLng)
btnSelMainFnt: TButton;
btnSelEditFnt: TButton;
btnSelViewFnt: TButton;
Button1: TButton;
Button2: TButton;
btSetHotKey: TButton;
cbSeparateExt: TCheckBox;
cbActions: TComboBox;
cTextColor: TColorBox;
cbackgrndcolor: TColorBox;
edHotKey: TEdit;
lblActions: TLabel;
lblHotKey: TLabel;
optColorDialog: TColorDialog;
dlgFnt: TFontDialog;
cTextLabel: TLabel;
cBackGrndLabel: TLabel;
PageControl1: TPageControl;
edtMainSize: TSpinEdit;
edtEditorSize: TSpinEdit;
edtViewerSize: TSpinEdit;
tsColor: TTabSheet;
tfHotKey: TTabSheet;
tsLng: TTabSheet;
tsBehav: TTabSheet;
Panel1: TPanel;
btnOK: TBitBtn;
btnCancel: TBitBtn;
lngList: TListBox;
lblTerm: TLabel;
edtTerm: TEdit;
gb: TGroupBox;
cbDirSelect: TCheckBox;
cbCaseSensitiveSort: TCheckBox;
cbLynxLike: TCheckBox;
cbShortFileSizeFormat: TCheckBox;
tsTools: TTabSheet;
cbExtEditor: TCheckBox;
edtExtEditor: TEdit;
cbExtDiffer: TCheckBox;
edtExtDiffer: TEdit;
cbExtViewer: TCheckBox;
edtExtViewer: TEdit;
lblRunTerm: TLabel;
edtRunTerm: TEdit;
tsFonts: TTabSheet;
lblMainFont: TLabel;
cbMainFont: TComboBox;
cbEditorFont: TComboBox;
lblEditorFont: TLabel;
edtTest1: TEdit;
edtTest2: TEdit;
edtTest3: TEdit;
cbViewerFont: TComboBox;
lblViewerFont: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btSetHotKeyClick(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure btnSelEditFntClick(Sender: TObject);
procedure btnSelMainFntClick(Sender: TObject);
procedure btnSelViewFntClick(Sender: TObject);
procedure cbExtEditorClick(Sender: TObject);
procedure cbExtDifferClick(Sender: TObject);
procedure cbExtViewerClick(Sender: TObject);
procedure cbMainFontChange(Sender: TObject);
procedure cbEditorFontChange(Sender: TObject);
procedure cbViewerFontChange(Sender: TObject);
procedure edHotKeyKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
private
{ Private declarations }
public
{ Public declarations }
procedure FillLngListBox;
procedure LoadLng; override;
procedure FillFontLists;
procedure FillActionLists;
end;
implementation
uses
uLng, uGlobs, uGlobsPaths, FindEx, fMain, ActnList, LCLProc, menus;
procedure TfrmOptions.FormCreate(Sender: TObject);
begin
inherited;
FillActionLists;
FillLngListBox;
FillFontLists;
writeln(gTerm);
edtTerm.Text:=gTerm;
end;
procedure TfrmOptions.btSetHotKeyClick(Sender: TObject);
var vShortCut: TShortCut;
vNum: integer;
vActions: TAction;
begin
// ToDo Black list HotKey which can't use
vShortCut := TextToShortCut(edHotKey.Text);
for vNum := 0 to cbActions.Items.Count - 1 do
begin
vActions := cbActions.Items.Objects[vNum] as TAction;
if vActions.ShortCut = vShortCut then
begin
ShowMessage('ShortCut used by '+vActions.Name);// ToDo lang
Exit;
end;
end;
vActions := cbActions.Items.Objects[cbActions.ItemIndex] as TAction;
vActions.ShortCut := vShortCut;
cbActions.Items[cbActions.ItemIndex] := vActions.Name+'('+ShortCutToText(vActions.ShortCut)+')';
cbActions.Text := vActions.Name+'('+ShortCutToText(vActions.ShortCut)+')';
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);
// btnOK.Caption:= lngGetString(clngbutOK);
Caption:=lngGetString(clngDlgOpt);
tsLng.Caption:=lngGetString(clngDlgOptSelLng);
lblTerm.Caption:=lngGetString(clngDlgOptTerm);
cbDirSelect.Caption:=lngGetString(clngDlgOptSelDir);
cbCaseSensitiveSort.Caption:=lngGetString(clngDlgOptCaseSens);
cbLynxLike.Caption:=lngGetString(clngDlgOptLynx);
cbShortFileSizeFormat.Caption:=lngGetString(clngDlgOptShortFileSize);
tsBehav.Caption:=lngGetString(clngDlgOptBehaviourTab);
tsTools.Caption:=lngGetString(clngDlgOptToolsTab);
cbExtEditor.Caption:=lngGetString(clngDlgOptExtEdit);
cbExtViewer.Caption:=lngGetString(clngDlgOptExtView);
cbExtDiffer.Caption:=lngGetString(clngDlgOptExtDiff);
cbSeparateExt.Caption:=lngGetString(clngDlgOptSeparateExt);
cbDirSelect.Checked:=gDirSelect;
cbCaseSensitiveSort.Checked:=gCaseSensitiveSort;
cbLynxLike.Checked:=gLynxLike;
cbShortFileSizeFormat.Checked:=gShortFileSizeFormat;
cbExtEditor.Checked:=gUseExtEdit;
cbExtViewer.Checked:=gUseExtView;
cbExtDiffer.Checked:=gUseExtDiff;
cbSeparateExt.Checked:=gSeparateExt;
edtExtEditor.Text:= gExtEdit;
edtExtViewer.Text:=gExtView;
edtExtDiffer.Text:=gExtDiff;
edtExtEditor.Enabled:= cbExtEditor.Checked;
edtExtDiffer.Enabled:= cbExtDiffer.Checked;
edtExtViewer.Enabled:= cbExtViewer.Checked;
edtRunTerm.Text:=gRunTerm;
lblRunTerm.Caption:=lngGetString(clngDlgOptRunTerm);
tsFonts.Caption:=lngGetString(clngDlgOptFonts);
lblMainFont.Caption:= lngGetString(clngDlgOptMainFont);
lblEditorFont.Caption:= lngGetString(clngDlgOptEditorFont);
lblViewerFont.Caption:= lngGetString(clngDlgOptViewerFont);
// ToDo lang to tsColor tsHotKey
end;
procedure TfrmOptions.FillLngListBox;
var
fr:TSearchRec;
iIndex:Integer;
begin
lngList.Clear;
writeln('Language dir:'+gpLngDir);
if FindFirst(gpLngDir+'*.lng', faAnyFile, fr)<>0 then
begin
FindClose(fr);
Exit;
end;
repeat
lngList.Items.Add(fr.Name);
until FindNext(fr)<>0;
FindClose(fr);
iIndex:=lngList.Items.IndexOf(gLng);
if iIndex>=0 then
lngList.Selected[iIndex]:=True;
end;
procedure TfrmOptions.btnOKClick(Sender: TObject);
begin
inherited;
gTerm:=edtTerm.Text;
if lngList.ItemIndex>-1 then
gLng:=lngList.Items[lngList.ItemIndex];
gDirSelect:=cbDirSelect.Checked;
gCaseSensitiveSort:=cbCaseSensitiveSort.Checked;
gLynxLike:=cbLynxLike.Checked;
gShortFileSizeFormat:=cbShortFileSizeFormat.Checked;
gUseExtEdit:=cbExtEditor.Checked;
gUseExtView:=cbExtViewer.Checked;
gUseExtDiff:=cbExtDiffer.Checked;
gSeparateExt:=cbSeparateExt.Checked;
gExtEdit:= edtExtEditor.Text;
gExtView:= edtExtViewer.Text;
gExtDiff:= edtExtDiffer.Text;
gRunTerm:= edtRunTerm.Text;
gFontName:=cbMainFont.Text;
if (fsBold in EdtTest1.Font.Style) then
gFontWeight := 700
else
gFontWeight := 400;
gEditorFontName:=cbEditorFont.Text;
gViewerFontName:=cbViewerFont.Text;
gEditorSize:=Round(edtEditorSize.Value);
gViewerSize:=Round(edtViewerSize.Value);
gFontSize:=Round(edtMainSize.Value);
end;
procedure TfrmOptions.btnSelEditFntClick(Sender: TObject);
begin
dlgFnt.Font.Name:=cbEditorFont.Text;
if dlgFnt.Execute then
begin
cbEditorFont.Text:=dlgFnt.Font.Name;
edtEditorSize.Value := dlgFnt.Font.Size;
edtTest2.Font := dlgFnt.Font;
end;
end;
procedure TfrmOptions.btnSelMainFntClick(Sender: TObject);
begin
dlgFnt.Font.Name:=cbMainFont.Text;
if dlgFnt.Execute then
begin
cbMainFont.Text:=dlgFnt.Font.Name;
edtMainSize.Value := dlgFnt.Font.Size;
edtTest1.Font := dlgFnt.Font;
end;
end;
procedure TfrmOptions.btnSelViewFntClick(Sender: TObject);
begin
dlgFnt.Font.Name:=cbViewerFont.Text;
if dlgFnt.Execute then
begin
cbViewerFont.Text:=dlgFnt.Font.Name;
edtViewerSize.Value:= dlgFnt.Font.Size;
edtTest3.Font := dlgFnt.Font;
end;
end;
procedure TfrmOptions.cbExtEditorClick(Sender: TObject);
begin
inherited;
edtExtEditor.Enabled:=cbExtEditor.Checked
end;
procedure TfrmOptions.cbExtDifferClick(Sender: TObject);
begin
inherited;
edtExtDiffer.Enabled:=cbExtDiffer.Checked
end;
procedure TfrmOptions.cbExtViewerClick(Sender: TObject);
begin
inherited;
edtExtViewer.Enabled:=cbExtViewer.Checked
end;
procedure TfrmOptions.FillFontLists;
begin
cbMainFont.Text:=gFontName;
cbViewerFont.Text:=gViewerFontName;
cbEditorFont.Text:=gEditorFontName;
if gFontWeight = 700 then
EdtTest1.Font.Style := [fsBold];
edtEditorSize.Value:=gEditorSize;
edtViewerSize.Value:=gViewerSize;
edtMainSize.Value:=gFontSize;
end;
procedure TfrmOptions.FillActionLists;
var vNum: integer;
var vActions: TAction;
begin
for vNum := 0 to frmMain.actionLst.ActionCount -1 do
begin
vActions := frmMain.actionLst.Actions[vNum] as TAction;
cbActions.Items.AddObject(vActions.Name+'('+ShortCutToText(vActions.ShortCut)+')',vActions);
end;
end;
procedure TfrmOptions.cbMainFontChange(Sender: TObject);
begin
// edtTest1.Font.Name:=cbMainFont.Text;
end;
procedure TfrmOptions.cbEditorFontChange(Sender: TObject);
begin
// edtTest2.Font.Name:=cbEditorFont.Text;
end;
procedure TfrmOptions.cbViewerFontChange(Sender: TObject);
begin
// edtTest3.Font.Name:=cbViewerFont.Text;
end;
procedure TfrmOptions.edHotKeyKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var str: string;
begin
if ssCtrl in Shift then
str := 'Ctrl+';
if ssShift in Shift then
str := str + 'Shift+';
if ssAlt in Shift then
str := str + 'Alt+';
if Key in [112..124] then
str := str + 'F'+IntToStr(Key - 111)
else if Key = 45 then str := str + 'Ins'
else if Key = 46 then str := str + 'Del'
else if Key = 8 then str := str + 'BkSp'
else if Key = 27 then str := '' // on Esc clear
else str := str + Char(Key);
TEdit(Sender).Text := ShortCutToText(ShortCut(Key,Shift));
Key := 0;
end;
initialization
{$I fOptions.lrs}
end.