diff --git a/fv/views.pas b/fv/views.pas
index cf3ee37391..6401cd2ff9 100644
--- a/fv/views.pas
+++ b/fv/views.pas
@@ -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
diff --git a/fvision/views.pas b/fvision/views.pas
index cf3ee37391..6401cd2ff9 100644
--- a/fvision/views.pas
+++ b/fvision/views.pas
@@ -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