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

LCL, grids bidi fixes: better cell bounds to fix grid lines trash

Browse Source 
git-svn-id: trunk@31547 -
This commit is contained in:
jesus 2011-07-04 05:40:46 +00:00
parent 6e953d396f
commit a3238d132e
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/grids.pas
View File

@ -3893,13 +3893,8 @@ begin
// non-fixed cells
if fGridLineWidth > 0 then begin
if Dh then begin
if UseRightToLeftAlignment then begin
MoveTo(Right, Bottom - 1);
LineTo(Left, Bottom - 1);
end else begin
MoveTo(Left, Bottom - 1);
LineTo(Right, Bottom - 1);
end;
MoveTo(Left, Bottom - 1);
LineTo(Right, Bottom - 1);
end;
if Dv then begin
if UseRightToLeftAlignment then begin
@ -3962,7 +3957,6 @@ begin
if (Left<>Right) and (Top<>Bottom) then
Canvas.TextRect(aRect,Left,Top, aText);
end;
end;
@ -5339,8 +5333,8 @@ begin
end;
if IsCol and UseRightToLeftAlignment then
begin
EndPos := FlipX(StartPos);
StartPos := EndPos - Dim + 1;
EndPos := FlipX(StartPos) + 1;
StartPos := EndPos - Dim;
end
else
EndPos:=StartPos + Dim;
@ -9230,7 +9224,7 @@ end;
procedure TCustomDrawGrid.DrawCellAutonumbering(aCol, aRow: Integer;
aRect: TRect; const aValue: string);
begin
Canvas.TextRect(aRect,ARect.Left+3,ARect.Top+3, aValue);
DrawCellText(aCol, aRow, aRect, [], aValue);
end;
function TCustomDrawGrid.SelectCell(aCol, aRow: Integer): boolean;