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
else
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
(vsSelected in Node.States) and not (toUseBlendedSelection in FOptions.PaintOptions) then
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
Dec(R.Bottom);
if Focused or (toPopupMode in FOptions.FPaintOptions) then
@ -11542,13 +11550,6 @@ begin
with R do
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;