paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 00:20:13 +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);
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
// 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 = []);
@ -96,18 +87,5 @@ begin
LCLControl.OnClick(LCLControl);
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.

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

@ -53,8 +53,6 @@ type
{ TCDWSCustomGroupBox }
TCDWSCustomGroupBox = class(TWSCustomGroupBox)
public
class procedure CreateCDControl(const AWinControl: TWinControl; var ACDControlField: TCDControl);
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle; override;
@ -1236,16 +1234,6 @@ end;*)
{ 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
Params: None
@ -1293,8 +1281,8 @@ begin
TCDWSWinControl.ShowHide(AWinControl);
if lCDWinControl.CDControl = nil then
CreateCDControl(AWinControl, lCDWinControl.CDControl);
// if lCDWinControl.CDControl = nil then
// CreateCDControl(AWinControl, lCDWinControl.CDControl);
end;
(*{ TCDWSCustomComboBox }