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

ideintf, ide: add TAbstractOptionsEditorDialog.AddButton method

Browse Source 
git-svn-id: trunk@23351 -
This commit is contained in:
paul 2010-01-03 06:31:55 +00:00
parent 90eed3dc98
commit 3653d72aa7
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/ideoptionsdlg.pas
View File

@ -31,7 +31,7 @@ interface
uses uses
Classes, SysUtils, Controls, Forms, LResources, ComCtrls, LCLProc, LCLType, Classes, SysUtils, Controls, Forms, LResources, ComCtrls, LCLProc, LCLType,
ButtonPanel, Buttons, ButtonPanel,
EnvironmentOpts, LazarusIDEStrConsts, IDEWindowIntf, IDEOptionsIntf, EnvironmentOpts, LazarusIDEStrConsts, IDEWindowIntf, IDEOptionsIntf,
EditorOptions, IDECommands; EditorOptions, IDECommands;
@ -67,6 +67,7 @@ type
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
function ShowModal: Integer; override; function ShowModal: Integer; override;
function AddButton: TBitBtn; override;
procedure OpenEditor(AEditor: TAbstractIDEOptionsEditorClass); override; procedure OpenEditor(AEditor: TAbstractIDEOptionsEditorClass); override;
function FindEditor(AEditor: TAbstractIDEOptionsEditorClass): TAbstractIDEOptionsEditor; override; function FindEditor(AEditor: TAbstractIDEOptionsEditorClass): TAbstractIDEOptionsEditor; override;
procedure ReadSettings(AOptions: TAbstractIDEOptions); procedure ReadSettings(AOptions: TAbstractIDEOptions);
@ -447,6 +448,13 @@ begin
Result := inherited ShowModal; Result := inherited ShowModal;
end; end;
function TIDEOptionsDialog.AddButton: TBitBtn;
begin
Result := TBitBtn.Create(Self);
Result.Align := alCustom;
Result.Parent := ButtonPanel;
end;
procedure TIDEOptionsDialog.OpenEditor(AEditor: TAbstractIDEOptionsEditorClass); procedure TIDEOptionsDialog.OpenEditor(AEditor: TAbstractIDEOptionsEditorClass);
begin begin
FEditorToOpen := AEditor; FEditorToOpen := AEditor;

3
ideintf/ideoptionsintf.pas
View File

@ -25,7 +25,7 @@ unit IDEOptionsIntf;
interface interface
uses uses
Classes, SysUtils, Forms; Classes, SysUtils, Buttons, Forms;
const const
NoParent = -1; NoParent = -1;
@ -137,6 +137,7 @@ type
TAbstractOptionsEditorDialog = class(TForm) TAbstractOptionsEditorDialog = class(TForm)
public public
function AddButton: TBitBtn; virtual; abstract;
procedure OpenEditor(AEditor: TAbstractIDEOptionsEditorClass); virtual; abstract; procedure OpenEditor(AEditor: TAbstractIDEOptionsEditorClass); virtual; abstract;
function FindEditor(AEditor: TAbstractIDEOptionsEditorClass): TAbstractIDEOptionsEditor; virtual; abstract; function FindEditor(AEditor: TAbstractIDEOptionsEditorClass): TAbstractIDEOptionsEditor; virtual; abstract;
end; end;