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

AJ: mostly fixed TColorPropertyEditor drawing

Browse Source 
git-svn-id: trunk@2717 -
This commit is contained in:
lazarus 2002-08-18 04:56:57 +00:00
parent 7739109e56
commit d047d53fcb
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
designer/graphpropedits.pas
View File

@ -556,10 +556,7 @@ procedure TColorPropertyEditor.PropDrawValue(ACanvas:TCanvas; const ARect:TRect;
AState:TPropEditDrawState);
begin
if GetVisualValue <> '' then begin
If pedsInEdit in AState then
ListDrawValue(GetVisualValue, -1, ACanvas, ARect, [pedsInEdit])
else
ListDrawValue(GetVisualValue, -1, ACanvas, ARect, [pedsInComboList]);
ListDrawValue(GetVisualValue, -1, ACanvas, ARect, [pedsInEdit])
end
else
inherited PropDrawValue(ACanvas, ARect, AState);
@ -607,7 +604,19 @@ begin
vOldBrushColor := Brush.Color;
// frame things
if pedsInEdit in AState then begin
if pedsSelected in AState then
Brush.Color := clWindow
else
Brush.Color := ACanvas.Color;
end else begin
if pedsSelected in AState then
Brush.Color := clHighlightText
else
Brush.Color := clWindow;
end;
Pen.Color := Brush.Color;
FillRect(ARect);
Rectangle(ARect.Left, ARect.Top, vRight, vBottom);
// set things up and do the work
@ -659,7 +668,7 @@ procedure TBrushStylePropertyEditor.PropDrawValue(ACanvas: TCanvas;
const ARect: TRect; AState:TPropEditDrawState);
begin
if GetVisualValue <> '' then
ListDrawValue(GetVisualValue, -1, ACanvas, ARect, [])
ListDrawValue(GetVisualValue, -1, ACanvas, ARect, [pedsInEdit])
else
inherited PropDrawValue(ACanvas, ARect, AState);
end;
@ -723,7 +732,7 @@ procedure TPenStylePropertyEditor.PropDrawValue(ACanvas: TCanvas;
const ARect: TRect; AState:TPropEditDrawState);
begin
if GetVisualValue <> '' then
ListDrawValue(GetVisualValue, -1, ACanvas, ARect, [])
ListDrawValue(GetVisualValue, -1, ACanvas, ARect, [pedsInEdit])
else
inherited PropDrawValue(ACanvas, ARect, AState);
end;