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

Small improvement to organization of fpgui intf private classes.

Browse Source 
git-svn-id: trunk@14994 -
This commit is contained in:
sekelsenmat 2008-04-27 17:23:28 +00:00
parent 15ed539f5a
commit 9685a5b1c7
1 changed files with 43 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
lcl/interfaces/fpgui/fpguiwsprivate.pp
View File

@ -157,10 +157,15 @@ type
procedure Clicked(Sender: TObject);
protected
public
function Button: TfpgButton;
{ Constructors / Destructors }
constructor Create(ALCLObject: TWinControl; const AParams: TCreateParams); override;
{ Virtual methods }
procedure CreateWidget(const AParams: TCreateParams); override;
// ISimpleText
procedure SetEvents; override;
public
{ Other methods }
function Button: TfpgButton;
{ ISimpleText }
procedure SetText(const AText: String);
function GetText: String;
end;
@ -171,9 +176,13 @@ type
private
protected
public
function ComboBox: TfpgComboBox;
{ Constructors / Destructors }
constructor Create(ALCLObject: TWinControl; const AParams: TCreateParams); override;
{ Virtual methods }
procedure CreateWidget(const AParams: TCreateParams); override;
public
{ Other methods }
function ComboBox: TfpgComboBox;
end;
@ -183,10 +192,14 @@ type
private
protected
public
function Edit: TfpgEdit;
{ Constructors / Destructors }
constructor Create(ALCLObject: TWinControl; const AParams: TCreateParams); override;
{ Virtual methods }
procedure CreateWidget(const AParams: TCreateParams); override;
// ISimpleText
public
{ Other methods }
function Edit: TfpgEdit;
{ ISimpleText }
procedure SetText(const AText: String);
function GetText: String;
end;
@ -197,10 +210,14 @@ type
private
protected
public
function CheckBox: TfpgCheckBox;
{ Constructors / Destructors }
constructor Create(ALCLObject: TWinControl; const AParams: TCreateParams); override;
{ Virtual methods }
procedure CreateWidget(const AParams: TCreateParams); override;
// ISimpleText
public
{ Other methods }
function CheckBox: TfpgCheckBox;
{ ISimpleText }
procedure SetText(const AText: String);
function GetText: String;
end;
@ -211,10 +228,14 @@ type
private
protected
public
function RadioButton: TfpgRadioButton;
{ Constructors / Destructors }
constructor Create(ALCLObject: TWinControl; const AParams: TCreateParams); override;
{ Virtual methods }
procedure CreateWidget(const AParams: TCreateParams); override;
// ISimpleText
public
{ Other methods }
function RadioButton: TfpgRadioButton;
{ ISimpleText }
procedure SetText(const AText: String);
function GetText: String;
end;
@ -403,7 +424,7 @@ end;
------------------------------------------------------------------------------}
procedure TFPGUIPrivateWindow.CreateWidget(const AParams: TCreateParams);
begin
{$IFDEF VerboseFPGUIIntf}
{$IFDEF VerboseFPGUIPrivate}
WriteLn('[TFPGUIPrivateWindow.CreateWidget]');
{$ENDIF}
Widget := TfpgForm.Create(nil);
@ -429,7 +450,7 @@ end;
------------------------------------------------------------------------------}
destructor TFPGUIPrivateWindow.Destroy;
begin
{$IFDEF VerboseFPGUIIntf}
{$IFDEF VerboseFPGUIPrivate}
WriteLn('[TFPGUIPrivateWindow.Destroy]');
{$ENDIF}
@ -487,7 +508,7 @@ procedure TFPGUIPrivateButton.CreateWidget(const AParams: TCreateParams);
var
ParentContainer: TFPGUIPrivateContainer;
begin
{$IFDEF VerboseFPGUIIntf}
{$IFDEF VerboseFPGUIPrivate}
WriteLn('[TFPGUIPrivateButton.CreateWidget]');
{$ENDIF}
@ -497,6 +518,16 @@ begin
Widget.SetPosition(LCLObject.Left, LCLObject.Top, LCLObject.Width, LCLObject.Height);
end;
{------------------------------------------------------------------------------
Method: TFPGUIPrivateButton.SetEvents
Params: None
Returns: Nothing
------------------------------------------------------------------------------}
procedure TFPGUIPrivateButton.SetEvents;
begin
Button.OnClick := Clicked;
end;
{------------------------------------------------------------------------------
Method: TFPGUIPrivateButton.Create
Params: None
@ -505,9 +536,6 @@ end;
constructor TFPGUIPrivateButton.Create(ALCLObject: TWinControl; const AParams: TCreateParams);
begin
inherited Create(ALCLObject, AParams);
// Events
Button.OnClick := Clicked;
end;
{------------------------------------------------------------------------------
@ -566,8 +594,6 @@ constructor TFPGUIPrivateComboBox.Create(ALCLObject: TWinControl;
const AParams: TCreateParams);
begin
inherited Create(ALCLObject, AParams);
// Events
end;
{ TFPGUIPrivateEdit }
@ -581,8 +607,6 @@ constructor TFPGUIPrivateEdit.Create(ALCLObject: TWinControl;
const AParams: TCreateParams);
begin
inherited Create(ALCLObject, AParams);
// Events
end;
{------------------------------------------------------------------------------