paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 12:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix grid row moving indicator when new position is the same as the old one, issue #20084

Browse Source 
git-svn-id: trunk@32241 -
This commit is contained in:
jesus 2011-09-09 20:01:00 +00:00
parent 73d34d3088
commit 030bda5204
1 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
lcl/grids.pas
View File

@ -3534,15 +3534,14 @@ begin
dx := 4;
dy := 4;
Canvas.pen.Width := 1;
Canvas.Pen.Color := clHighlight;
Canvas.Brush.Color := clHighlight;
Canvas.Pen.Color := clBlack;
Canvas.Brush.Color := clWhite;
R := CellRect(FMoveLast.X, 0);
X := R.Left;
Y := R.Bottom - dy;
//TODO need Bidi
Canvas.Polygon([Point(x-dx,y),point(x+dx,y),point(x,y+dy), point(x-dx,y)]);
Y := R.Top + dy;
Canvas.Polygon([Point(x-dx,y),point(x+dx,y),point(x,y-dy), point(x-dx,y)]);
Y := R.Top + (R.Bottom-R.Top) div 2;
X := R.Left - 2*dx;
Canvas.Polygon([Point(x,y+dy),point(x,y-dy),point(x+dx,y), point(x,y+dy)]);
X := R.Left + 2*dx;
Canvas.Polygon([Point(x,y+dy),point(x,y-dy),point(x-dx,y), point(x,y+dy)]);
{$else}
Canvas.Pen.Width:=3;
Canvas.Pen.Color:=clRed;
@ -3556,14 +3555,14 @@ begin
dx := 4;
dy := 4;
Canvas.pen.Width := 1;
Canvas.Pen.Color := clHighlight;
Canvas.Brush.Color := clHighlight;
Canvas.Pen.Color := clBlack;
Canvas.Brush.Color := clWhite;
R := CellRect(0, FMoveLast.Y);
X := R.Right - dx;
Y := R.Top;
Canvas.Polygon([Point(x,y+dy),point(x,y-dy),point(x+dx,y), point(x,y+dy)]);
X := R.Left + dx;
Canvas.Polygon([Point(x,y+dy),point(x,y-dy),point(x-dx,y), point(x,y+dy)]);
X := R.Left + (R.Right-R.Left) div 2;
Y := R.Top - 2*dy;
Canvas.Polygon([Point(x-dx,y),point(x+dx,y),point(x,y+dy), point(x-dx,y)]);
Y := R.Top + 2*dy;
Canvas.Polygon([Point(x-dx,y),point(x+dx,y),point(x,y-dy), point(x-dx,y)]);
{$else}
Canvas.Pen.Width:=3;
Canvas.Pen.Color:=clRed;
@ -5918,6 +5917,12 @@ begin
begin
//DebugLn('Move Row From ',Fsplitter.Y,' to ', FMoveLast.Y);
if FMoveLast.Y>=0 then begin
if FMoveLast.Y=FGCache.ClickCell.Y then
{$ifdef AlternativeMoveIndicator}
InvalidateCol(0);
{$else}
Invalidate;
{$endif}
DoOPMoveColRow(False, FGCache.ClickCell.Y, FMoveLast.Y);
ChangeCursor;
end else