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

AJ: Mostly Fixed drawing pedsInComboBox & pedsSelected

Browse Source 
git-svn-id: trunk@1429 -
This commit is contained in:
lazarus 2002-02-09 02:30:53 +00:00
parent 0e51d43407
commit c9e0370f7f
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
designer/propedits.pp
View File

@ -1809,16 +1809,31 @@ procedure TPropertyEditor.ListDrawValue(const AValue:ansistring; Index:integer;
ACanvas:TCanvas; const ARect:TRect; AState: TPropEditDrawState);
var
Style : TTextStyle;
OldColor : TColor;
begin
With Style do begin
Alignment := taLeftJustify;
Layout := tlCenter;
Opaque := ACanvas.Brush.Color<>clNone;
Opaque := (pedsInEdit in AState) and (ACanvas.Color <> clNone);
Clipping := True;
ShowPrefix := True;
WordBreak := False;
SingleLine := True;
end;
If (pedsInComboList in AState) and not (pedsInEdit in AState)
then begin
OldColor := ACanvas.Color;
If pedsSelected in AState then begin
ACanvas.Color := clHighlight;
ACanvas.Font.Color := clHighlightText;
end
else begin
ACanvas.Color := clWindow;
ACanvas.Font.Color := clWindowText;
end;
ACanvas.FillRect(ARect);
ACanvas.Color := OldColor;
end;
ACanvas.TextRect(ARect, 2,0,AValue, Style);
end;