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

LCL, grids: pretty lines for GridLineStyle=psDot, from Alexey Tor., issue #35662

Browse Source 
git-svn-id: trunk@61383 -
This commit is contained in:
jesus 2019-06-13 23:07:01 +00:00
parent 19ba328eda
commit 010ccf9efa
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/grids.pas
View File

@ -4474,7 +4474,9 @@ end;
procedure TCustomGrid.DrawCellGrid(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState);
var
dv,dh: Boolean;
OldCosmeticUsed, OldCosmetic: Boolean;
begin
OldCosmeticUsed := false;
with Canvas do begin
@ -4530,6 +4532,9 @@ begin
end else begin
Dv := goVertLine in Options;
Dh := goHorzLine in Options;
OldCosmeticUsed := true;
OldCosmetic := Pen.Cosmetic;
Pen.Cosmetic := false;
Pen.Style := fGridLineStyle;
Pen.Color := fGridLineColor;
Pen.Width := fGridLineWidth;
@ -4552,6 +4557,8 @@ begin
end;
end;
if OldCosmeticUsed then
Pen.Cosmetic := OldCosmetic;
end; // with canvas,rect
end;