pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ExCtrls: Activate OnDrawItem event in TColumnComboboxEx.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7939 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-12-21 15:21:01 +00:00
parent 55712f6705
commit 5a8a5a318d
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/exctrls/source/excombo.pas
View File

@ -197,6 +197,12 @@ var
i, y, xl: Integer; i, y, xl: Integer;
txt: String; txt: String;
begin begin
if Assigned(OnDrawItem) then
begin
OnDrawItem(Self, Index, ARect, State);
exit;
end;
if Index < 0 then if Index < 0 then
txt := '' txt := ''
else else