paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:39:20 +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) TAbstractOptionsEditorDialog = class(TForm)
public public
function AddButton: TBitBtn; virtual; abstract; function AddButton: TBitBtn; virtual; abstract;
procedure AddButtonSeparator; virtual; abstract;
function AddControl(AControlClass: TControlClass): TControl; virtual; abstract; reintroduce; function AddControl(AControlClass: TControlClass): TControl; virtual; abstract; reintroduce;
function FindEditor(AEditor: TAbstractIDEOptionsEditorClass): TAbstractIDEOptionsEditor; virtual; abstract; function FindEditor(AEditor: TAbstractIDEOptionsEditorClass): TAbstractIDEOptionsEditor; virtual; abstract;
function FindEditor(GroupIndex, AIndex: integer): 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.OnClick := @DoCheck;
btnCheck.LoadGlyphFromStock(idButtonYes); btnCheck.LoadGlyphFromStock(idButtonYes);
// Import // Import
ADialog.AddButtonSeparator;
btnLoadSave := CreateButton(lisImport); btnLoadSave := CreateButton(lisImport);
btnLoadSave.OnClick := @DoImport; btnLoadSave.OnClick := @DoImport;
btnLoadSave.Hint := dlgCOLoadSave; btnLoadSave.Hint := dlgCOLoadSave;
@ -747,6 +748,7 @@ begin
btnExport.OnClick := @DoExport; btnExport.OnClick := @DoExport;
btnExport.Hint := dlgCOLoadSave; btnExport.Hint := dlgCOLoadSave;
btnExport.LoadGlyphFromStock(idButtonSave); btnExport.LoadGlyphFromStock(idButtonSave);
ADialog.AddButtonSeparator;
if btnLoadSave.Glyph.Empty then if btnLoadSave.Glyph.Empty then
btnLoadSave.LoadGlyphFromResourceName(HInstance, 'laz_save'); btnLoadSave.LoadGlyphFromResourceName(HInstance, 'laz_save');

4
ide/ideoptionsdlg.lfm
View File

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

14
ide/ideoptionsdlg.pas
View File

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