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

* increased max. possible screen/view width to 255

Browse Source
This commit is contained in:
florian 2004-11-24 21:03:05 +00:00
parent 1e075fd1c0
commit 569b45597b
2 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fv/drivers.pas
View File

@ -617,7 +617,7 @@ CONST QueueMax = 64; { Max new queue size }
{---------------------------------------------------------------------------}
{ MAX WIEW WIDTH to avoid TDrawBuffer overrun in views unit }
{---------------------------------------------------------------------------}
CONST MaxViewWidth = 132; { Max view width }
CONST MaxViewWidth = 255; { Max view width }
{***************************************************************************}
{ PRIVATE INTERNAL TYPES }
@ -1465,7 +1465,10 @@ BEGIN
END.
{
$Log$
Revision 1.44 2004-11-06 19:19:30 armin
Revision 1.45 2004-11-24 21:03:05 florian
* increased max. possible screen/view width to 255
Revision 1.44 2004/11/06 19:19:30 armin
* added targets netware and netwlibc
Revision 1.43 2004/11/06 17:08:48 peter

19
fv/views.pas
View File

@ -259,7 +259,7 @@ CONST
{---------------------------------------------------------------------------}
CONST
wnNoNumber = 0; { Window has no num }
MaxViewWidth = 132; { Max view width }
MaxViewWidth = 255; { Max view width }
{***************************************************************************}
@ -4119,14 +4119,14 @@ begin
cur:=@Self;
Dest:=Source;
repeat
dec(Dest.X,cur^.Origin.X);
dec(Dest.X,cur^.Origin.X);
if dest.x<0 then
break;
dec(Dest.Y,cur^.Origin.Y);
dec(Dest.Y,cur^.Origin.Y);
if dest.y<0 then
break;
cur:=cur^.Owner;
until cur=nil;
until cur=nil;
end;
@ -4140,10 +4140,10 @@ begin
cur:=@Self;
Dest:=Source;
repeat
inc(Dest.X,cur^.Origin.X);
inc(Dest.Y,cur^.Origin.Y);
inc(Dest.X,cur^.Origin.X);
inc(Dest.Y,cur^.Origin.Y);
cur:=cur^.Owner;
until cur=nil;
until cur=nil;
end;
@ -4639,7 +4639,10 @@ END.
{
$Log$
Revision 1.49 2004-11-06 23:24:37 peter
Revision 1.50 2004-11-24 21:03:05 florian
* increased max. possible screen/view width to 255
Revision 1.49 2004/11/06 23:24:37 peter
* fixed button click
Revision 1.48 2004/11/06 22:03:06 peter