paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 15:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Use TDirectoryEdit instead of TEdit + TButton in FPDoc options. Issue #30997, patch from AlexeyT.

Browse Source 
git-svn-id: trunk@53460 -
This commit is contained in:
juha 2016-11-25 21:28:31 +00:00
parent 7ac7d691f9
commit 68ce61aa8f
2 changed files with 14 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
ide/frames/fpdoc_options.lfm
View File

@ -67,44 +67,29 @@ object FpDocOptionsFrame: TFpDocOptionsFrame
OnClick = LazDocDeletePathButtonClick OnClick = LazDocDeletePathButtonClick
TabOrder = 2 TabOrder = 2
end end
object LazDocBrowseButton: TButton object LazDocPathEdit: TDirectoryEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = LazDocPathEdit
AnchorSideRight.Control = LazDocPathsGroupBox
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = LazDocPathEdit
AnchorSideBottom.Side = asrBottom
Left = 416
Height = 27
Top = 155
Width = 50
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 6
Caption = '...'
OnClick = LazDocBrowseButtonClick
TabOrder = 3
end
object LazDocPathEdit: TEdit
AnchorSideLeft.Control = LazDocPathsGroupBox AnchorSideLeft.Control = LazDocPathsGroupBox
AnchorSideTop.Control = LazDocAddPathButton AnchorSideTop.Control = LazDocAddPathButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LazDocBrowseButton AnchorSideRight.Control = LazDocListBox
AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 27 Height = 27
Top = 155 Top = 155
Width = 410 Width = 460
Directory = 'LazDocPathEdit'
DialogOptions = [ofPathMustExist, ofEnableSizing, ofViewDetail]
ShowHidden = False
ButtonWidth = 50
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
MaxLength = 0
TabOrder = 3
OnChange = LazDocPathEditChange OnChange = LazDocPathEditChange
TabOrder = 4
Text = 'LazDocPathEdit' Text = 'LazDocPathEdit'
end end
end end
object SelectDirectoryDialog: TSelectDirectoryDialog
FilterIndex = 0
left = 372
top = 8
end
end end

15
ide/frames/fpdoc_options.pas
View File

@ -25,7 +25,7 @@ unit fpdoc_options;
interface interface
uses uses
Classes, SysUtils, FileUtil, Forms, Dialogs, StdCtrls, Classes, SysUtils, FileUtil, Forms, Dialogs, StdCtrls, EditBtn,
EnvironmentOpts, LazarusIDEStrConsts, IDEProcs, IDEOptionsIntf; EnvironmentOpts, LazarusIDEStrConsts, IDEProcs, IDEOptionsIntf;
type type
@ -34,15 +34,12 @@ type
TFpDocOptionsFrame = class(TAbstractIDEOptionsEditor) TFpDocOptionsFrame = class(TAbstractIDEOptionsEditor)
LazDocAddPathButton: TButton; LazDocAddPathButton: TButton;
LazDocBrowseButton: TButton;
LazDocDeletePathButton: TButton; LazDocDeletePathButton: TButton;
LazDocListBox: TListBox; LazDocListBox: TListBox;
LazDocPathEdit: TEdit; LazDocPathEdit: TDirectoryEdit;
LazDocPathsGroupBox: TGroupBox; LazDocPathsGroupBox: TGroupBox;
SelectDirectoryDialog: TSelectDirectoryDialog;
procedure LazDocDeletePathButtonClick(Sender: TObject); procedure LazDocDeletePathButtonClick(Sender: TObject);
procedure LazDocAddPathButtonClick(Sender: TObject); procedure LazDocAddPathButtonClick(Sender: TObject);
procedure LazDocBrowseButtonClick(Sender: TObject);
procedure LazDocListBoxSelectionChange(Sender: TObject; {%H-}User: boolean); procedure LazDocListBoxSelectionChange(Sender: TObject; {%H-}User: boolean);
procedure LazDocPathEditChange(Sender: TObject); procedure LazDocPathEditChange(Sender: TObject);
private private
@ -102,12 +99,6 @@ begin
end; end;
end; end;
procedure TFpDocOptionsFrame.LazDocBrowseButtonClick(Sender: TObject);
begin
if SelectDirectoryDialog.Execute then
LazDocPathEdit.Text := SelectDirectoryDialog.FileName;
end;
procedure TFpDocOptionsFrame.LazDocListBoxSelectionChange(Sender: TObject; User: boolean); procedure TFpDocOptionsFrame.LazDocListBoxSelectionChange(Sender: TObject; User: boolean);
begin begin
LazDocDeletePathButton.Enabled:=(Sender as TListBox).ItemIndex <> -1; LazDocDeletePathButton.Enabled:=(Sender as TListBox).ItemIndex <> -1;
@ -115,7 +106,7 @@ end;
procedure TFpDocOptionsFrame.LazDocPathEditChange(Sender: TObject); procedure TFpDocOptionsFrame.LazDocPathEditChange(Sender: TObject);
begin begin
LazDocAddPathButton.Enabled:=(Sender as TEdit).Text <> ''; LazDocAddPathButton.Enabled:= LazDocPathEdit.Text <> '';
end; end;
class function TFpDocOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass; class function TFpDocOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;