paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 10:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: add separators around Import/Export buttons in Project options dialog.

Browse Source 
git-svn-id: trunk@45609 -
This commit is contained in:
juha 2014-06-22 09:55:48 +00:00
parent 3a7d798fa6
commit f3d543e261
4 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/ideintf/ideoptionsintf.pas
View File

@ -200,6 +200,7 @@ type
TAbstractOptionsEditorDialog = class(TForm)
public
function AddButton: TBitBtn; virtual; abstract;
procedure AddButtonSeparator; virtual; abstract;
function AddControl(AControlClass: TControlClass): TControl; virtual; abstract; reintroduce;
function FindEditor(AEditor: TAbstractIDEOptionsEditorClass): TAbstractIDEOptionsEditor; virtual; abstract;
function FindEditor(GroupIndex, AIndex: integer): TAbstractIDEOptionsEditor; virtual; abstract;

2
ide/frames/compiler_path_options.pas
View File

@ -738,6 +738,7 @@ begin
btnCheck.OnClick := @DoCheck;
btnCheck.LoadGlyphFromStock(idButtonYes);
// Import
ADialog.AddButtonSeparator;
btnLoadSave := CreateButton(lisImport);
btnLoadSave.OnClick := @DoImport;
btnLoadSave.Hint := dlgCOLoadSave;
@ -747,6 +748,7 @@ begin
btnExport.OnClick := @DoExport;
btnExport.Hint := dlgCOLoadSave;
btnExport.LoadGlyphFromStock(idButtonSave);
ADialog.AddButtonSeparator;
if btnLoadSave.Glyph.Empty then
btnLoadSave.LoadGlyphFromResourceName(HInstance, 'laz_save');

4
ide/ideoptionsdlg.lfm
View File

@ -181,9 +181,9 @@ object IDEOptionsDialog: TIDEOptionsDialog
Height = 317
Top = 40
Width = 424
HorzScrollBar.Page = 424
HorzScrollBar.Page = 1
HorzScrollBar.Tracking = True
VertScrollBar.Page = 317
VertScrollBar.Page = 1
VertScrollBar.Tracking = True
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 6

14
ide/ideoptionsdlg.pas
View File

@ -101,6 +101,7 @@ type
constructor Create(AOwner: TComponent); override;
function ShowModal: Integer; override;
function AddButton: TBitBtn; override;
procedure AddButtonSeparator; override;
function AddControl(AControlClass: TControlClass): TControl; override;
procedure OpenEditor(AEditor: TAbstractIDEOptionsEditorClass); override;
procedure OpenEditor(GroupIndex, AIndex: integer); override;
@ -663,11 +664,22 @@ begin
Result := TBitBtn.Create(Self);
Result.Align := alCustom;
Result.Default := false;
Result.Constraints.MinWidth:=25;
Result.Constraints.MinWidth := 25;
Result.AutoSize := true;
Result.Parent := ButtonPanel;
end;
procedure TIDEOptionsDialog.AddButtonSeparator;
var
pnl: TPanel;
begin
pnl := TPanel.Create(Self);
pnl.Align := alCustom;
pnl.BevelOuter := bvNone;
pnl.Width := 6;
pnl.Parent := ButtonPanel;
end;
function TIDEOptionsDialog.AddControl(AControlClass: TControlClass): TControl;
begin
Result := AControlClass.Create(Self);