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

* fix some display problems

Browse Source
This commit is contained in:
pierre 2002-05-16 21:23:34 +00:00
parent b06845c8b6
commit 767bcd707a
2 changed files with 30 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
fv/views.pas
View File

@ -993,12 +993,15 @@ END;
{ Prev -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 12Sep97 LdB }
{---------------------------------------------------------------------------}
FUNCTION TView.Prev: PView;
VAR P: PView;
VAR NP : PView;
BEGIN
P := @Self; { Start with self }
While (P^.Next <> Nil) AND (P^.Next <> @Self)
Do P := P^.Next; { Locate next view }
Prev := P; { Return result }
Prev := @Self;
NP := Next;
While (NP <> Nil) AND (NP <> @Self) Do
Begin
Prev := NP; { Locate next view }
NP := NP^.Next;
End;
END;
{--TView--------------------------------------------------------------------}
@ -2528,7 +2531,9 @@ BEGIN
{ redraw this }
inherited RedrawArea(X1,Y1,X2,Y2);
{ redraw group members }
If (DrawMask AND vdNoChild = 0) Then Begin { No draw child clear }
If (DrawMask AND vdNoChild = 0) and
(X1<RawOrigin.X+RawSize.X) and { No need to parse childs for Shadows }
(Y1<RawOrigin.Y+RawSize.Y) Then Begin { No draw child clear }
P := Last; { Start on Last }
While (P <> Nil) Do Begin
P^.ReDrawArea(X1, Y1, X2, Y2); { Redraw each subview }
@ -5521,7 +5526,10 @@ END.
{
$Log$
Revision 1.18 2001-10-02 16:35:51 pierre
Revision 1.19 2002-05-16 21:23:34 pierre
* fix some display problems
Revision 1.18 2001/10/02 16:35:51 pierre
* fix several problems, try to get the graph version to compile
Revision 1.17 2001/08/05 23:54:33 pierre

22
fvision/views.pas
View File

@ -993,12 +993,15 @@ END;
{ Prev -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 12Sep97 LdB }
{---------------------------------------------------------------------------}
FUNCTION TView.Prev: PView;
VAR P: PView;
VAR NP : PView;
BEGIN
P := @Self; { Start with self }
While (P^.Next <> Nil) AND (P^.Next <> @Self)
Do P := P^.Next; { Locate next view }
Prev := P; { Return result }
Prev := @Self;
NP := Next;
While (NP <> Nil) AND (NP <> @Self) Do
Begin
Prev := NP; { Locate next view }
NP := NP^.Next;
End;
END;
{--TView--------------------------------------------------------------------}
@ -2528,7 +2531,9 @@ BEGIN
{ redraw this }
inherited RedrawArea(X1,Y1,X2,Y2);
{ redraw group members }
If (DrawMask AND vdNoChild = 0) Then Begin { No draw child clear }
If (DrawMask AND vdNoChild = 0) and
(X1<RawOrigin.X+RawSize.X) and { No need to parse childs for Shadows }
(Y1<RawOrigin.Y+RawSize.Y) Then Begin { No draw child clear }
P := Last; { Start on Last }
While (P <> Nil) Do Begin
P^.ReDrawArea(X1, Y1, X2, Y2); { Redraw each subview }
@ -5521,7 +5526,10 @@ END.
{
$Log$
Revision 1.18 2001-10-02 16:35:51 pierre
Revision 1.19 2002-05-16 21:23:34 pierre
* fix some display problems
Revision 1.18 2001/10/02 16:35:51 pierre
* fix several problems, try to get the graph version to compile
Revision 1.17 2001/08/05 23:54:33 pierre