paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-25 00:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Win32: public Canvas property for TTabControl. Patch by Marco Van de Voort. issue #22780

Browse Source
This commit is contained in:
Željan Rikalo 2023-05-15 12:52:14 +02:00
parent 42bd508311
commit 45519ddb9f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/comctrls.pp
View File

@ -858,6 +858,9 @@ type
procedure EndUpdate; procedure EndUpdate;
function IsUpdating: boolean; function IsUpdating: boolean;
public public
{$ifdef mswindows}
property Canvas : TCanvas read FCanvas; platform;
{$endif}
property DisplayRect: TRect read GetDisplayRect; property DisplayRect: TRect read GetDisplayRect;
published published
property HotTrack: Boolean read GetHotTrack write SetHotTrack default False; property HotTrack: Boolean read GetHotTrack write SetHotTrack default False;