paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +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
TabOrder = 2
end
object LazDocBrowseButton: TButton
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
object LazDocPathEdit: TDirectoryEdit
AnchorSideLeft.Control = LazDocPathsGroupBox
AnchorSideTop.Control = LazDocAddPathButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LazDocBrowseButton
AnchorSideRight.Control = LazDocListBox
AnchorSideRight.Side = asrBottom
Left = 6
Height = 27
Top = 155
Width = 410
Width = 460
Directory = 'LazDocPathEdit'
DialogOptions = [ofPathMustExist, ofEnableSizing, ofViewDetail]
ShowHidden = False
ButtonWidth = 50
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
MaxLength = 0
TabOrder = 3
OnChange = LazDocPathEditChange
TabOrder = 4
Text = 'LazDocPathEdit'
end
end
object SelectDirectoryDialog: TSelectDirectoryDialog
FilterIndex = 0
left = 372
top = 8
end
end

15
ide/frames/fpdoc_options.pas
View File

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