mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-10 15:08:28 +02:00
5effa0b10e
- lcl notifies interface via WSControl.SetCursor of changes - fix win32 interface to respond to wm_setcursor callback and set correct cursor git-svn-id: trunk@5398 - |
||
|---|---|---|
| .. | ||
| README | ||
| wsactnlist.pp | ||
| wsarrow.pp | ||
| wsbuttons.pp | ||
| wscalendar.pp | ||
| wschecklst.pp | ||
| wsclistbox.pp | ||
| wscomctrls.pp | ||
| wscontrols.pp | ||
| wsdbctrls.pp | ||
| wsdbgrids.pp | ||
| wsdialogs.pp | ||
| wsdirsel.pp | ||
| wseditbtn.pp | ||
| wsextctrls.pp | ||
| wsextdlgs.pp | ||
| wsfilectrl.pp | ||
| wsforms.pp | ||
| wsgrids.pp | ||
| wsimglist.pp | ||
| wslclclasses.pp | ||
| wsmaskedit.pp | ||
| wsmenus.pp | ||
| wspairsplitter.pp | ||
| wsspin.pp | ||
| wsstdctrls.pp | ||
| wstoolwin.pp | ||
This directory contains all sceleton widgetset component
classes. These classes will never get instantiated and may
only contain class functions.
=========
IMPORTANT
=========
Derivation and inheritance of classes is different then one
might be used to. It wil be explained by the following
example.
Suppose the following LCL class hierarchy:
TLCLComponent
|
v
TControl
|
v
TWinControl
the corresponding WS skeleton would be
TWSLCLComponent
|
v
TWSControl
|
v
TWSWinControl
When method X of TWSControl gets implemented by
widgetset Q the hierarchy looks like
TWSLCLComponent
|
v
TWSControl --> TQWSControl.X
|
v
TWSWinControl
When the same method X is required in TWSWinControl
inheritance doesnt work since TWSWinControl.X calls
TWSControl.X
The following can be done to get around this:
*) try to move the LCL functionality to the lowest
class
*) Implement TQWSWinControl.X by simply calling
TQWSControl.X
*) Implement the functionality of TQWSControl.X
in the TQWidgetSet and call it from both
TQWSControl.X and TQWSWinControl.X