From 45519ddb9f88e2f66a7c0ac4bf8db839c6273171 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C5=BDeljan=20Rikalo?= <zeljko@lazarus-ide.org>
Date: Mon, 15 May 2023 12:52:14 +0200
Subject: [PATCH] Win32: public Canvas property for TTabControl. Patch by Marco
 Van de Voort. issue #22780

---
 lcl/comctrls.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index dca7e86f9b..a54c4dbe71 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -858,6 +858,9 @@ type
     procedure EndUpdate;
     function IsUpdating: boolean;
   public
+    {$ifdef mswindows}
+    property Canvas : TCanvas read FCanvas; platform;
+    {$endif}
     property DisplayRect: TRect read GetDisplayRect;
   published
     property HotTrack: Boolean read GetHotTrack write SetHotTrack default False;