lazarus

mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 14:29:35 +02:00

History

ondrej 81733b2e74 lcl: rewrite PopupMode/PopupParent - unify code for PopupMode/PopupParent in one function TCustomForm.GetRealPopupParent for all WS. - change TWSCustomFormClass.SetPopupParent to TWSCustomFormClass.SetRealPopupParent without PopupMode parameter. - Fix TPopupMode documentation. Issue #29247 git-svn-id: trunk@51032 -		2015-12-25 15:37:10 +00:00
..
README.txt
wsbuttons.pp
wscalendar.pp
wschecklst.pp
wscomctrls.pp	LCL: fixed GetDefaultColor for TStaticText, TNoteBook, TTabSheet, TGroupBox, bug #26535	2014-08-06 16:54:36 +00:00
wscontrols.pp	LCL: Implement TCustomMemo.ScrollBy. Refactor widgetset ScrollBy from ScrollingWinControl to WinControl. Solves issue #29067 .	2015-11-29 18:45:53 +00:00
wsdesigner.pp
wsdialogs.pp
wsextctrls.pp	LCL: fixed GetDefaultColor for TStaticText, TNoteBook, TTabSheet, TGroupBox, bug #26535	2014-08-06 16:54:36 +00:00
wsextdlgs.pp
wsfactory.pas	LCL: Remove arrow from widgetsets.	2015-06-05 17:11:00 +00:00
wsforms.pp	lcl: rewrite PopupMode/PopupParent	2015-12-25 15:37:10 +00:00
wsgrids.pp	LCL: grids: fix editor position for win32, Qt, Gtk2. Issue #29196	2015-12-17 08:32:52 +00:00
wsimglist.pp
wslazdeviceapis.pas
wslclclasses.pp	LCL: wslclclasses, increased VIRTUAL_VMT_COUNT const from 100 to 128, to be able to add more methods to ws classes.	2013-10-12 15:43:24 +00:00
wsmenus.pp
wspairsplitter.pp
wsproc.pp	LCL: Implement TCustomMemo.ScrollBy. Refactor widgetset ScrollBy from ScrollingWinControl to WinControl. Solves issue #29067 .	2015-11-29 18:45:53 +00:00
wsreferences.pp
wsspin.pp
wsstdctrls.pp	LCL: Implement TCustomCheckbox.Alignment (Windows only), partly resolves issue #0012343 .	2014-11-22 14:38:26 +00:00
wstoolwin.pp

README.txt

This directory contains all skeleton widget set 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 will be explained by the following 
examples.

Suppose the following LCL class hierarchy:

 TLCLComponent
     |
  TControl
     |
 TWinControl
 
the corresponding WS skeleton would be

 TWSLCLComponent
      |
  TWSControl
      |
 TWSWinControl


When method X of TWSControl gets implemented by 
widgetset Q the hierarchy looks like

 TWSLCLComponent
      |
  TWSControl.X --> TQWSControl.X
      |
 TWSWinControl


Calling TWSWinControl.X doesn't call TQWSControl.X since
it's parent is TWSControl. This problem is solved by 
modifying the class hierarchy at runtime.
When a component class is registered by RegisterWSComponent,
the class is copied and the vmt entries are adjusted so 
that the hierarchy looks like:


 TWSLCLComponent
      |
  TWSControl.X --> TQWSControl.X
                        |
                   TWSWinControl

In this case, calling TWSWinControl.X will call the overridden 
TQWSControl.X. The only thing which doesn't get handled is the 
inherited statement. Suppose there is also a TQWSWinControl.X 
which implements a few extra steps. In a normal situation one 
would have called "inherited". The call to inherited is
resolved at compile time and would in this example to a call to
TWSControl.X. That is not what we want.
To get around this, call the parent yourself:
  TWSWinControlClass(ClassParent).X