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) November 2016
Fix Theming-Drawing of TElComboBox
In Unit ElCombox.pas we remove following lines in methode TCustomElComboBox.PaintText to get correct drawing:
if LMDSIWindowsVistaUp and Focused and (Style = csDropDownList) and IsThemed then
begin
LOldBkColor := FocusedSelectTextColor;
FFocusedSelectTextColor := Font.Color;
inherited;
FFocusedSelectTextColor := LOldBkColor;
end
else
if LMDSIWindowsVistaUp and Focused and (Style = csDropDownList) and IsThemed then
begin
LOldBkColor := FocusedSelectTextColor;
FFocusedSelectTextColor := Font.Color;
inherited;
FFocusedSelectTextColor := LOldBkColor;
end
else
Comments