From 5a8a5a318d1d888e753afea70f5188d0ed786a87 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 21 Dec 2020 15:21:01 +0000
Subject: [PATCH] ExCtrls: Activate OnDrawItem event in TColumnComboboxEx.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7939 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/exctrls/source/excombo.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/components/exctrls/source/excombo.pas b/components/exctrls/source/excombo.pas
index c9ddaf8bf..5971c7b88 100644
--- a/components/exctrls/source/excombo.pas
+++ b/components/exctrls/source/excombo.pas
@@ -197,6 +197,12 @@ var
   i, y, xl: Integer;
   txt: String;
 begin
+  if Assigned(OnDrawItem) then
+  begin
+    OnDrawItem(Self, Index, ARect, State);
+    exit;
+  end;
+
   if Index < 0 then
     txt := ''
   else