TLMDListBox OnHeaderDrawSection event not fired

MR Soft Tmi

LMD-Tools 2017.0 (14-12-2016), Delphi 7, Win7

TLMDListBox has 4 header sections, style as hsOwnerDraw and LMDListBox has OnHeaderDrawSection defined as flollows:

with HeaderControl.Canvas do
  begin
    FillRect(Rect);
    if Pressed then // highlight pressed sections
      Font.Color := clRed else
      Font.Color := clWindowText;
    TextOut(Rect.Left + Font.Size, Rect.Top + 2, Section.Text + '*');
 end; //with HeaderControl.Canvas do

Event is not fired at all.

balabuev

Hi,

Fixed.