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

IdeIntf: PropEdits: fix painting of value combobox in QT

Browse Source 
git-svn-id: trunk@55303 -
This commit is contained in:
ondrej 2017-06-10 10:39:19 +00:00
parent 24a6e20c0d
commit 7a420f8326
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/ideintf/propedits.pp
View File

@ -3344,6 +3344,19 @@ var
Style : TTextStyle;
OldColor : TColor;
begin
OldColor := ACanvas.Brush.Color;
If (pedsInComboList in AState) and not (pedsInEdit in AState)
then begin
If pedsSelected in AState then begin
ACanvas.Brush.Color := clHighlight;
ACanvas.Font.Color := clHighlightText;
end
else begin
ACanvas.Brush.Color := clwhite{clWindow};
ACanvas.Font.Color := clWindowText;
end;
ACanvas.FillRect(ARect);
end;
FillChar(Style{%H-},SizeOf(Style),0);
With Style do begin
Alignment := taLeftJustify;
@ -3355,21 +3368,8 @@ begin
SingleLine := True;
SystemFont := False;
end;
If (pedsInComboList in AState) and not (pedsInEdit in AState)
then begin
OldColor := ACanvas.Brush.Color;
If pedsSelected in AState then begin
ACanvas.Brush.Color := clHighlight;
ACanvas.Font.Color := clHighlightText;
end
else begin
ACanvas.Brush.Color := clwhite{clWindow};
ACanvas.Font.Color := clWindowText;
end;
ACanvas.FillRect(ARect);
ACanvas.Brush.Color := OldColor;
end;
ACanvas.TextRect(ARect, ARect.Left+2,ARect.Top,AValue, Style);
ACanvas.Brush.Color := OldColor;
end;
{ these three procedures implement the default render behavior of the