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

* force views to have raworigin multiples of cell width and height

Browse Source
This commit is contained in:
pierre 2002-05-23 09:06:01 +00:00
parent 7d451cf5e1
commit 167780eb39
2 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fv/views.pas
View File

@ -2737,6 +2737,9 @@ BEGIN
I := (I - (P^.Size.X * FontWidth)) DIV 2; { Calc view offset }
I := I - (P^.Origin.X * FontWidth); { Subtract x origin }
End;
{ make sure that I is a multiple of FontWidth }
if TextModeGFV then
I:= (I div FontWidth) * FontWidth;
P^.DisplaceBy(I, 0); { Displace the view }
End;
If (P^.Options AND ofCenterY <> 0) Then Begin { Centre on y axis }
@ -2750,6 +2753,9 @@ BEGIN
I := (I - (P^.Size.Y * FontHeight)) DIV 2; { Calc view offset }
I := I - (P^.Origin.Y * FontHeight); { Subtract y origin }
End;
{ make sure that I is a multiple of FontHeight }
if TextModeGFV then
I:= (I div FontHeight) * FontHeight;
P^.DisplaceBy(0, I); { Displace the view }
End;
SaveState := P^.State; { Save view state }
@ -5533,7 +5539,10 @@ END.
{
$Log$
Revision 1.20 2002-05-21 11:47:36 pierre
Revision 1.21 2002-05-23 09:06:01 pierre
* force views to have raworigin multiples of cell width and height
Revision 1.20 2002/05/21 11:47:36 pierre
* avoid infinite recursions in graphic mode
Revision 1.19 2002/05/16 21:23:34 pierre

11
fvision/views.pas
View File

@ -2737,6 +2737,9 @@ BEGIN
I := (I - (P^.Size.X * FontWidth)) DIV 2; { Calc view offset }
I := I - (P^.Origin.X * FontWidth); { Subtract x origin }
End;
{ make sure that I is a multiple of FontWidth }
if TextModeGFV then
I:= (I div FontWidth) * FontWidth;
P^.DisplaceBy(I, 0); { Displace the view }
End;
If (P^.Options AND ofCenterY <> 0) Then Begin { Centre on y axis }
@ -2750,6 +2753,9 @@ BEGIN
I := (I - (P^.Size.Y * FontHeight)) DIV 2; { Calc view offset }
I := I - (P^.Origin.Y * FontHeight); { Subtract y origin }
End;
{ make sure that I is a multiple of FontHeight }
if TextModeGFV then
I:= (I div FontHeight) * FontHeight;
P^.DisplaceBy(0, I); { Displace the view }
End;
SaveState := P^.State; { Save view state }
@ -5533,7 +5539,10 @@ END.
{
$Log$
Revision 1.20 2002-05-21 11:47:36 pierre
Revision 1.21 2002-05-23 09:06:01 pierre
* force views to have raworigin multiples of cell width and height
Revision 1.20 2002/05/21 11:47:36 pierre
* avoid infinite recursions in graphic mode
Revision 1.19 2002/05/16 21:23:34 pierre