paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 11:40:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, reducing flickering when resizing objects

Browse Source 
fixed clipping of objects (issue #9567)

git-svn-id: trunk@11958 -
This commit is contained in:
jesus 2007-09-07 20:39:46 +00:00
parent d76356f499
commit 21f9b85b95
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2258,7 +2258,7 @@ var
ParaEnd: Boolean;
Ts: TTextStyle;
begin
if not Streaming or (cury + th <= DR.Bottom) then
if not Streaming and (cury < DR.Bottom) then
begin
n := Length(St);
w := Ord(St[n - 1]) * 256 + Ord(St[n]);
@ -2277,9 +2277,8 @@ var
AssignFont(Canvas);
Ts := Canvas.TextStyle;
Ts.Layout :=Layout;
Ts.SystemFont:=True;
Ts.Alignment :=self.Alignment;
Ts.Wordbreak :=self.WordWrap;
Ts.Wordbreak :=false;
Ts.SingleLine:=True;
Ts.Clipping :=True;
Canvas.TextStyle := Ts;
@ -2314,7 +2313,7 @@ var
end;
if not Exporting then
Canvas.TextOut(CurX,CurY,St);
Canvas.TextRect(DR, CurX, CurY, St);
{ExtTextOut(Canvas.Handle, CurX, CurY, 0, nil,
PChar(St), Length(St), nil);}
{ExtTextOut(Canvas.Handle,DR.Left+CurX,DR.Top+CurY,ETO_CLIPPED,@DR,
@ -2356,7 +2355,7 @@ var
th := Canvas.TextHeight('H')+Round(LineSpacing * ScaleY);
{$IFDEF DebugLR}
DebugLn('Th=',IntToStr(Th),' Canvas.TextHeight(H)=',InttoStr(Canvas.TextHeight('H')));
DebugLn('Th=',IntToStr(Th),' Canvas.TextHeight(H)=',InttoStr(Canvas.TextHeight('H')), 'DR=',dbgs(DR));
{$ENDIF}
CurStrNo := 0;

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

@ -2077,8 +2077,6 @@ begin
Inc(LastX, kx);
Inc(LastY, ky);
Invalidate;
FDesigner.PBox1.Invalidate;
end;
{$IFDEF DebugLR}
DebugLn('TfrDesignerPage.MMove END');