From aa33021670337aec1e0870e516363271f7fece47 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 7 Sep 2013 23:20:33 +0000
Subject: [PATCH] LCL: Make TWinControl.GetTabOrderList virtual. Issue #24969,
 patch from Stephano

git-svn-id: trunk@42672 -
---
 lcl/controls.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/controls.pp b/lcl/controls.pp
index 7f62a5a8a9..4602bab796 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -2183,7 +2183,7 @@ type
     procedure ScaleBy(Multiplier, Divider: Integer);
     function GetDockCaption(AControl: TControl): String; virtual;
     procedure UpdateDockCaption(Exclude: TControl = nil); virtual;
-    procedure GetTabOrderList(List: TFPList);
+    procedure GetTabOrderList(List: TFPList); virtual;
     function HandleAllocated: Boolean;
     function ParentHandlesAllocated: boolean; override;
     procedure HandleNeeded;