pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ExCtrls: Activate background painting in TColumnComboboxEx again to fix invisible text in some Linux desktops.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7942 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-12-22 15:00:39 +00:00
parent 533d506fe9
commit 21879eb6a2
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
components/exctrls/source/excombo.pas
View File

@ -211,6 +211,15 @@ begin
exit; exit;
end; end;
if DroppedDown then
begin
if (odSelected in State) then
Canvas.Brush.Color := clHighlight
else if (Canvas.Brush.Color <> Color) then
Canvas.Brush.Color := Color;
Canvas.FillRect(ARect);
end;
if Index < 0 then if Index < 0 then
txt := '' txt := ''
else else
@ -220,15 +229,6 @@ begin
FParser.Delimiter := FDelimiter; FParser.Delimiter := FDelimiter;
FParser.DelimitedText := txt; FParser.DelimitedText := txt;
if not(odBackgroundPainted in State) then
Canvas.FillRect(ARect);
{ if (odSelected in State) then
Canvas.Brush.Color := clHighlight
else if (Canvas.Brush.Color <> Color) then
Canvas.Brush.Color := Color;
Canvas.FillRect(ARect);}
y := ARect.Top + (ARect.Height - FTextHeight) shr 1; y := ARect.Top + (ARect.Height - FTextHeight) shr 1;
Canvas.Brush.Style := bsClear; // transparent text background Canvas.Brush.Style := bsClear; // transparent text background