paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 06:03:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fix designer show grid problem: once enabled can't be disabled

Browse Source 
git-svn-id: trunk@19173 -
This commit is contained in:
jesus 2009-03-31 20:34:05 +00:00
parent 0d997f9838
commit 8cc922f620
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazreport/source/lr_class.pas
View File

@ -1534,6 +1534,7 @@ begin
fp := FillColor;
if (DocMode = dmDesigning) and (fp = clNone) then
fp := clWhite;
Canvas.Brush.Bitmap := nil;
Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := fp;
if DocMode = dmDesigning then
@ -3485,6 +3486,7 @@ begin
with Canvas do
begin
//Brush.Bitmap := SBmp;
Brush.Bitmap := nil;
Brush.Style := bsSolid;
Brush.Color:=clBtnFace;
FillRect(DRect);

1
components/lazreport/source/lr_desgn.pas
View File

@ -960,6 +960,7 @@ var
begin
Brush.Color := clWhite;
Brush.Style := bsSolid;
Brush.Bitmap:= nil;
end;
//FillRgn(Handle, R, Brush.Handle);