paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 18:39:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

customdrawn: Removes the intfgroupbox, this control will be implemented via direct drawing

Browse Source 
git-svn-id: trunk@34066 -
This commit is contained in:
sekelsenmat 2011-12-09 08:00:02 +00:00
parent 33b5efc277
commit da50c7a83c
2 changed files with 2 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/interfaces/customdrawn/customdrawnprivate.pas
View File

@ -21,15 +21,6 @@ type
procedure HandleOnClick(Sender: TObject); procedure HandleOnClick(Sender: TObject);
end; end;
{ TCDIntfGroupBox }
TCDIntfGroupBox = class(TCDGroupBox)
public
LCLControl: TGroupBox;
constructor Create(AOwner: TComponent); override;
procedure HandleOnClick(Sender: TObject);
end;
// These are default message handlers which backends might use to simplify their code // These are default message handlers which backends might use to simplify their code
// They convert a message sent to the form into a message to the correct sub-control // They convert a message sent to the form into a message to the correct sub-control
procedure CallbackMouseUp(AWindowHandle: TCDForm; x, y: Integer; Button: TMouseButton; ShiftState: TShiftState = []); procedure CallbackMouseUp(AWindowHandle: TCDForm; x, y: Integer; Button: TMouseButton; ShiftState: TShiftState = []);
@ -96,18 +87,5 @@ begin
LCLControl.OnClick(LCLControl); LCLControl.OnClick(LCLControl);
end; end;
{ TCDIntfGroupBox }
constructor TCDIntfGroupBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
OnClick := @HandleOnClick;
end;
procedure TCDIntfGroupBox.HandleOnClick(Sender: TObject);
begin
LCLControl.OnClick(LCLControl);
end;
end. end.

16
lcl/interfaces/customdrawn/customdrawnwsstdctrls.pas
View File

@ -53,8 +53,6 @@ type
{ TCDWSCustomGroupBox } { TCDWSCustomGroupBox }
TCDWSCustomGroupBox = class(TWSCustomGroupBox) TCDWSCustomGroupBox = class(TWSCustomGroupBox)
public
class procedure CreateCDControl(const AWinControl: TWinControl; var ACDControlField: TCDControl);
published published
class function CreateHandle(const AWinControl: TWinControl; class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle; override; const AParams: TCreateParams): TLCLIntfHandle; override;
@ -1236,16 +1234,6 @@ end;*)
{ TCDWSCustomGroupBox } { TCDWSCustomGroupBox }
class procedure TCDWSCustomGroupBox.CreateCDControl(
const AWinControl: TWinControl; var ACDControlField: TCDControl);
begin
ACDControlField := TCDIntfGroupBox.Create(AWinControl);
TCDIntfButton(ACDControlField).LCLControl := TButton(AWinControl);
ACDControlField.Caption := AWinControl.Caption;
ACDControlField.Parent := AWinControl;
ACDControlField.Align := alClient;
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCDWSCustomGroupBox.CreateHandle Method: TCDWSCustomGroupBox.CreateHandle
Params: None Params: None
@ -1293,8 +1281,8 @@ begin
TCDWSWinControl.ShowHide(AWinControl); TCDWSWinControl.ShowHide(AWinControl);
if lCDWinControl.CDControl = nil then // if lCDWinControl.CDControl = nil then
CreateCDControl(AWinControl, lCDWinControl.CDControl); // CreateCDControl(AWinControl, lCDWinControl.CDControl);
end; end;
(*{ TCDWSCustomComboBox } (*{ TCDWSCustomComboBox }