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

FIX: Manual editing tools path

Browse source
This commit is contained in:
Alexander Koblov 2010-02-01 12:36:28 +00:00
commit 2eaa2c22d4
2 changed files with 12 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/foptions.lfm
View file

@ -598,27 +598,27 @@ object frmOptions: TfrmOptions
ClientHeight = 446
object cbExtEditor: TCheckBox
Left = 3
Height = 21
Height = 17
Top = 13
Width = 95
Width = 89
Caption = 'External editor'
OnClick = cbExtEditorClick
TabOrder = 0
end
object cbExtDiffer: TCheckBox
Left = 3
Height = 21
Height = 17
Top = 78
Width = 92
Width = 87
Caption = 'External differ'
OnClick = cbExtDifferClick
TabOrder = 1
end
object cbExtViewer: TCheckBox
Left = 3
Height = 21
Height = 17
Top = 143
Width = 100
Width = 93
Caption = 'External viewer'
OnClick = cbExtViewerClick
TabOrder = 2
@ -627,8 +627,8 @@ object frmOptions: TfrmOptions
AnchorSideTop.Control = cbExtEditor
AnchorSideTop.Side = asrBottom
Left = 2
Height = 23
Top = 40
Height = 21
Top = 36
Width = 575
DialogOptions = []
FilterIndex = 0
@ -639,14 +639,13 @@ object frmOptions: TfrmOptions
BorderSpacing.Top = 6
MaxLength = 0
TabOrder = 3
OnChange = fneExtToolChange
end
object fneExtDiffer: TFileNameEdit
AnchorSideTop.Control = cbExtDiffer
AnchorSideTop.Side = asrBottom
Left = 2
Height = 23
Top = 105
Height = 21
Top = 101
Width = 575
DialogOptions = []
FilterIndex = 0
@ -657,14 +656,13 @@ object frmOptions: TfrmOptions
BorderSpacing.Top = 6
MaxLength = 0
TabOrder = 4
OnChange = fneExtToolChange
end
object fneExtViewer: TFileNameEdit
AnchorSideTop.Control = cbExtViewer
AnchorSideTop.Side = asrBottom
Left = 2
Height = 23
Top = 170
Height = 21
Top = 166
Width = 575
DialogOptions = []
FilterIndex = 0
@ -675,7 +673,6 @@ object frmOptions: TfrmOptions
BorderSpacing.Top = 6
MaxLength = 0
TabOrder = 5
OnChange = fneExtToolChange
end
end
object pgFonts: TPage

10
src/foptions.pas
View file

@ -331,7 +331,6 @@ type
procedure cbWatchExcludeDirsChange(Sender: TObject);
procedure OnAutoRefreshOptionChanged(Sender: TObject);
procedure edHotKeyKeyPress(Sender: TObject; var Key: char);
procedure fneExtToolChange(Sender: TObject);
procedure miSearchTemplateClick(Sender: TObject);
procedure btnWDXAddClick(Sender: TObject);
procedure btnWFXAddClick(Sender: TObject);
@ -1801,15 +1800,6 @@ begin
btSetHotKey.Enabled := False;
end;
procedure TfrmOptions.fneExtToolChange(Sender: TObject);
begin
with Sender as TFileNameEdit do
begin
FileName := Caption;
SelStart := UTF8Length(Caption);
end;
end;
procedure TfrmOptions.miSearchTemplateClick(Sender: TObject);
begin
if Sender is TMenuItem then