paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-21 10:06:53 +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); procedure TCustomGrid.DrawCellGrid(aCol,aRow: Integer; aRect: TRect; aState: TGridDrawState);
var var
dv,dh: Boolean; dv,dh: Boolean;
OldCosmeticUsed, OldCosmetic: Boolean;
begin begin
OldCosmeticUsed := false;
with Canvas do begin with Canvas do begin
@ -4530,6 +4532,9 @@ begin
end else begin end else begin
Dv := goVertLine in Options; Dv := goVertLine in Options;
Dh := goHorzLine in Options; Dh := goHorzLine in Options;
OldCosmeticUsed := true;
OldCosmetic := Pen.Cosmetic;
Pen.Cosmetic := false;
Pen.Style := fGridLineStyle; Pen.Style := fGridLineStyle;
Pen.Color := fGridLineColor; Pen.Color := fGridLineColor;
Pen.Width := fGridLineWidth; Pen.Width := fGridLineWidth;
@ -4552,6 +4557,8 @@ begin
end; end;
end; end;
if OldCosmeticUsed then
Pen.Cosmetic := OldCosmetic;
end; // with canvas,rect end; // with canvas,rect
end; end;