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

* Fix a draw glitch when using a rounded rect selection

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@418 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-04-12 18:33:34 +00:00
parent c79dac2aa1
commit a1db697566
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -11523,10 +11523,18 @@ begin
end end
else else
begin begin
//clear the node background
//note there's a bug in original VTV that can lead to wrong node paint
//so, here the node is always cleared even if is selected
Brush.Color := Self.Color;
FillRect(R);
Logger.SendColor([lcPaintDetails],'Clearing a node background - Brush.Color', Brush.Color);
Logger.Send([lcPaintDetails],'Clearing Rectangle (R)', R);
if (poDrawSelection in PaintOptions) and (toFullRowSelect in FOptions.FSelectionOptions) and if (poDrawSelection in PaintOptions) and (toFullRowSelect in FOptions.FSelectionOptions) and
(vsSelected in Node.States) and not (toUseBlendedSelection in FOptions.PaintOptions) then (vsSelected in Node.States) and not (toUseBlendedSelection in FOptions.PaintOptions) then
begin begin
Logger.Send([lcPaintDetails,lcDrag],'Setting the color of a selected node'); Logger.Send([lcPaintDetails, lcDrag], 'Draw the background of a selected node');
if toShowHorzGridLines in FOptions.PaintOptions then if toShowHorzGridLines in FOptions.PaintOptions then
Dec(R.Bottom); Dec(R.Bottom);
if Focused or (toPopupMode in FOptions.FPaintOptions) then if Focused or (toPopupMode in FOptions.FPaintOptions) then
@ -11542,13 +11550,6 @@ begin
with R do with R do
RoundRect(Left, Top, Right, Bottom, FSelectionCurveRadius, FSelectionCurveRadius); RoundRect(Left, Top, Right, Bottom, FSelectionCurveRadius, FSelectionCurveRadius);
end
else
begin
Brush.Color := Self.Color;
Logger.SendColor([lcPaintDetails],'Setting the color of a NOT selected node - Brush.Color',Brush.Color);
Logger.Send([lcPaintDetails],'Clearing rectangle (R)',R);
FillRect(R);
end; end;
end; end;
end; end;