Difference between revisions of "LCL Interface Redesign Idea"
From Lazarus wiki
Jump to navigationJump to search| Line 15: | Line 15: | ||
TGtkPrivateButton = class(TGtkBin, TLCLHandle); | TGtkPrivateButton = class(TGtkBin, TLCLHandle); | ||
| + | |||
| + | All TWSxx. methods should be moved to the private class. for instance: | ||
| + | class procedure TWSGtkWinControl.SetText(const AWinControl; const AText: String); | ||
| + | var | ||
| + | PrivWinControl: TGtkPrivateWinControl; | ||
| + | begin | ||
| + | PrivWinControl := TGtkPrivateWinControl(AWinControl.LCLHandle); | ||
| + | PrivWinControl.SetText(AText); | ||
| + | end; | ||
==Other possibilities== | ==Other possibilities== | ||
Revision as of 01:06, 4 April 2007
This is current Idea for the structure of the interface and how it relates to handles
Overview:
- Fork a branch of lazarus/
- Replace TWinControl.Handle with TWinControl.LCLHandle (there should exist no Handle yet)
- Try to get the LCL compiled and maybe the IDE so it doesn't use the (inefficient) .Handle anymore
- Introduce .Handle again, now as WSclass call
- Merge the branches
TWSxxWinControl.CreateHandle Returns a TLCLHandle
TLCLHandle = IInterface;
TxxPrivate = class(TPrivate, TLCLHandle);
TGtkPrivateButton = class(TGtkBin, TLCLHandle);
All TWSxx. methods should be moved to the private class. for instance:
class procedure TWSGtkWinControl.SetText(const AWinControl; const AText: String); var PrivWinControl: TGtkPrivateWinControl; begin PrivWinControl := TGtkPrivateWinControl(AWinControl.LCLHandle); PrivWinControl.SetText(AText); end;
Other possibilities
{$IFDEF X11} TGtkPrivateWidget = class(TGtkPrivate, ILCLHandle, IX11);
then
(AWinControl as IX11).XID
is possible
