paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:00:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix selected items of TComboBoxEx and TCheckComboBox not being painted with color clHighlightText.

Browse Source 
git-svn-id: trunk@64267 -
This commit is contained in:
wp 2020-12-22 14:56:45 +00:00
parent b937fb36b5
commit 5197500844
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/comboex.inc
View File

@ -421,7 +421,7 @@ begin { do not call inherited ! }
end;
anyRect.Top:=(ARect.Top+ARect.Bottom-FTextHeight) div 2;
anyRect.Bottom:=anyRect.Top+FTextHeight;
ThemeServices.DrawText(Canvas, aDetail, ItemsEx[Index].Caption, anyRect, aFlags, 0);
DrawText(Canvas.Handle, PChar(ItemsEx[Index].Caption), Length(ItemsEx[Index].Caption), anyRect, aFlags);
end;
procedure TCustomComboBoxEx.FontChanged(Sender: TObject);
@ -682,7 +682,7 @@ begin { do not call inherited ! }
end;
anyRect.Top:=(ARect.Top+ARect.Bottom-FTextHeight) div 2;
anyRect.Bottom:=anyRect.Top+FTextHeight;
ThemeServices.DrawText(Canvas, aDetail, Items[Index], anyRect, aFlags, 0);
DrawText(Canvas.Handle, PChar(Items[Index]), Length(Items[Index]), anyRect, aFlags);
end;
procedure TCustomCheckCombo.DropDown;