paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 14:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, patch to reduce some flicker by Luiz Americo, issue #12766

Browse Source 
git-svn-id: trunk@17761 -
This commit is contained in:
jesus 2008-12-09 14:43:56 +00:00
parent ab4f4a7e27
commit a41fb4256a
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -130,7 +130,7 @@ type
{ TfrDesignerPage }
TfrDesignerPage = class(TPanel)
TfrDesignerPage = class(TCustomControl)
private
Down, // mouse button was pressed
Moved, // mouse was moved (with pressed btn)
@ -170,6 +170,7 @@ type
procedure MoveResize(Kx,Ky:Integer; UseFrames,AResize: boolean);
protected
procedure Paint; override;
procedure WMEraseBkgnd(var Message: TLMEraseBkgnd); message LM_ERASEBKGND;
public
constructor Create(AOwner: TComponent); override;
@ -623,11 +624,7 @@ constructor TfrDesignerPage.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Parent := AOwner as TWinControl;
BevelInner := bvNone;
BevelOuter := bvNone;
color := clWhite;
FullRepaint := False;
BorderStyle := bsNone;
Color := clWhite;
OnMouseDown := @MDown;
OnMouseUp := @MUp;
OnMouseMove := @MMove;
@ -673,6 +670,11 @@ begin
Draw(10000, 0);
end;
procedure TfrDesignerPage.WMEraseBkgnd(var Message: TLMEraseBkgnd);
begin
//do nothing to avoid flicker
end;
procedure TfrDesignerPage.NormalizeCoord(t: TfrView);
begin
if t.dx < 0 then