paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 19:29:31 +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 } { Prev -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 12Sep97 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
FUNCTION TView.Prev: PView; FUNCTION TView.Prev: PView;
VAR P: PView; VAR NP : PView;
BEGIN BEGIN
P := @Self; { Start with self } Prev := @Self;
While (P^.Next <> Nil) AND (P^.Next <> @Self) NP := Next;
Do P := P^.Next; { Locate next view } While (NP <> Nil) AND (NP <> @Self) Do
Prev := P; { Return result } Begin
Prev := NP; { Locate next view }
NP := NP^.Next;
End;
END; END;
{--TView--------------------------------------------------------------------} {--TView--------------------------------------------------------------------}
@ -2528,7 +2531,9 @@ BEGIN
{ redraw this } { redraw this }
inherited RedrawArea(X1,Y1,X2,Y2); inherited RedrawArea(X1,Y1,X2,Y2);
{ redraw group members } { 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 } P := Last; { Start on Last }
While (P <> Nil) Do Begin While (P <> Nil) Do Begin
P^.ReDrawArea(X1, Y1, X2, Y2); { Redraw each subview } P^.ReDrawArea(X1, Y1, X2, Y2); { Redraw each subview }
@ -5521,7 +5526,10 @@ END.
{ {
$Log$ $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 * fix several problems, try to get the graph version to compile
Revision 1.17 2001/08/05 23:54:33 pierre 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 } { Prev -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 12Sep97 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
FUNCTION TView.Prev: PView; FUNCTION TView.Prev: PView;
VAR P: PView; VAR NP : PView;
BEGIN BEGIN
P := @Self; { Start with self } Prev := @Self;
While (P^.Next <> Nil) AND (P^.Next <> @Self) NP := Next;
Do P := P^.Next; { Locate next view } While (NP <> Nil) AND (NP <> @Self) Do
Prev := P; { Return result } Begin
Prev := NP; { Locate next view }
NP := NP^.Next;
End;
END; END;
{--TView--------------------------------------------------------------------} {--TView--------------------------------------------------------------------}
@ -2528,7 +2531,9 @@ BEGIN
{ redraw this } { redraw this }
inherited RedrawArea(X1,Y1,X2,Y2); inherited RedrawArea(X1,Y1,X2,Y2);
{ redraw group members } { 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 } P := Last; { Start on Last }
While (P <> Nil) Do Begin While (P <> Nil) Do Begin
P^.ReDrawArea(X1, Y1, X2, Y2); { Redraw each subview } P^.ReDrawArea(X1, Y1, X2, Y2); { Redraw each subview }
@ -5521,7 +5526,10 @@ END.
{ {
$Log$ $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 * fix several problems, try to get the graph version to compile
Revision 1.17 2001/08/05 23:54:33 pierre Revision 1.17 2001/08/05 23:54:33 pierre