Howdy, Stranger!
It looks like you're new here. If you want to get involved, click one of these buttons!
Categories
In this Discussion
- Eugene Balabuev (LMD) January 2016
- Quanos Service Solutions GmbH January 2016
Fix ElCombox for Big Fonts-Setting
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;
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;
Comments
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;