Fix ElCombox for Big Fonts-Setting

Quanos Service Solutions GmbH

Please Change Implementation for TElComboListBox.UpdateItemHeight to

procedure TElComboListBox.UpdateItemHeight;
var tm : TLMDTextMetric;
begin
  if not FCombo.ForceItemHeight then
    if not (FCombo.Style in [csOwnerDrawFixed, csOwnerDrawVariable]) then
    begin
      LMDGetTextMetrics(Canvas.Handle, tm);
      FItemHeight := tm.tmHeight;
      Perform(LB_SETITEMHEIGHT, 0, FItemHeight);
    end;
end;

Quanos Service Solutions GmbH

Also do same change for TCustomElListBox.UpdateItemHeight

procedure TCustomElListBox.UpdateItemHeight;
var
  tm: TLMDTextMetric;
begin
  if not (Style in [lbOwnerDrawFixed, lbOwnerDrawVariable]) then
  begin
    LMDGetTextMetrics(Canvas.Handle, tm);
    FItemHeight := tm.tmHeight;
    Perform(LB_SETITEMHEIGHT, 0, FItemHeight);
  end;
end;

Eugene Balabuev (LMD)

Hi,

Done.

Eugene.