paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:06:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix problems for multiple insert/delete and use Redraw for hild drawing like TV

Browse Source
This commit is contained in:
pierre 2001-05-31 12:14:06 +00:00
parent 4eb94da6ac
commit bac3315c0e
2 changed files with 36 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fv/views.pas
View File

@ -2356,9 +2356,9 @@ BEGIN
END; END;
{--TGroup-------------------------------------------------------------------} {--TGroup-------------------------------------------------------------------}
{ Draw -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 17Sep97 LdB } { ReDraw -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 17Sep97 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE TGroup.Draw; PROCEDURE TGroup.ReDraw;
VAR P: PView; VAR P: PView;
BEGIN BEGIN
If (DrawMask AND vdNoChild = 0) Then Begin { No draw child clear } If (DrawMask AND vdNoChild = 0) Then Begin { No draw child clear }
@ -2385,11 +2385,14 @@ BEGIN
END; END;
{--TGroup-------------------------------------------------------------------} {--TGroup-------------------------------------------------------------------}
{ ReDraw -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 17Sep97 LdB } { Draw -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 17Sep97 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE TGroup.ReDraw; PROCEDURE TGroup.Draw;
BEGIN BEGIN
DrawView; { For compatability } If Buffer=Nil then
ReDraw
else
WriteBuf(0,0,Size.X,Size.Y,Buffer);
END; END;
{--TGroup-------------------------------------------------------------------} {--TGroup-------------------------------------------------------------------}
@ -2431,6 +2434,12 @@ BEGIN
RemoveView(P); { Remove the view } RemoveView(P); { Remove the view }
P^.Owner := Nil; { Clear owner ptr } P^.Owner := Nil; { Clear owner ptr }
P^.Next := Nil; { Clear next ptr } P^.Next := Nil; { Clear next ptr }
{ We need to recalculate correct position }
If (P <> Nil) Then { View is valid }
If (Options AND ofGFVModeView <> 0) Then { GFV mode view check }
P^.DisplaceBy(-RawOrigin.X, -RawOrigin.Y) Else { We are in GFV mode }
P^.DisplaceBy(-Origin.X*FontWidth,
-Origin.Y*FontHeight); { Displace old view }
If (SaveState AND sfVisible <> 0) Then P^.Show; { Show view } If (SaveState AND sfVisible <> 0) Then P^.Show; { Show view }
END; END;
@ -5146,7 +5155,10 @@ END.
{ {
$Log$ $Log$
Revision 1.12 2001-05-30 13:26:18 pierre Revision 1.13 2001-05-31 12:14:06 pierre
* fix problems for multiple insert/delete and use Redraw for hild drawing like TV
Revision 1.12 2001/05/30 13:26:18 pierre
* fix border problems for views and menus * fix border problems for views and menus
Revision 1.11 2001/05/30 10:22:25 pierre Revision 1.11 2001/05/30 10:22:25 pierre

24
fvision/views.pas
View File

@ -2356,9 +2356,9 @@ BEGIN
END; END;
{--TGroup-------------------------------------------------------------------} {--TGroup-------------------------------------------------------------------}
{ Draw -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 17Sep97 LdB } { ReDraw -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 17Sep97 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE TGroup.Draw; PROCEDURE TGroup.ReDraw;
VAR P: PView; VAR P: PView;
BEGIN BEGIN
If (DrawMask AND vdNoChild = 0) Then Begin { No draw child clear } If (DrawMask AND vdNoChild = 0) Then Begin { No draw child clear }
@ -2385,11 +2385,14 @@ BEGIN
END; END;
{--TGroup-------------------------------------------------------------------} {--TGroup-------------------------------------------------------------------}
{ ReDraw -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 17Sep97 LdB } { Draw -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 17Sep97 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE TGroup.ReDraw; PROCEDURE TGroup.Draw;
BEGIN BEGIN
DrawView; { For compatability } If Buffer=Nil then
ReDraw
else
WriteBuf(0,0,Size.X,Size.Y,Buffer);
END; END;
{--TGroup-------------------------------------------------------------------} {--TGroup-------------------------------------------------------------------}
@ -2431,6 +2434,12 @@ BEGIN
RemoveView(P); { Remove the view } RemoveView(P); { Remove the view }
P^.Owner := Nil; { Clear owner ptr } P^.Owner := Nil; { Clear owner ptr }
P^.Next := Nil; { Clear next ptr } P^.Next := Nil; { Clear next ptr }
{ We need to recalculate correct position }
If (P <> Nil) Then { View is valid }
If (Options AND ofGFVModeView <> 0) Then { GFV mode view check }
P^.DisplaceBy(-RawOrigin.X, -RawOrigin.Y) Else { We are in GFV mode }
P^.DisplaceBy(-Origin.X*FontWidth,
-Origin.Y*FontHeight); { Displace old view }
If (SaveState AND sfVisible <> 0) Then P^.Show; { Show view } If (SaveState AND sfVisible <> 0) Then P^.Show; { Show view }
END; END;
@ -5146,7 +5155,10 @@ END.
{ {
$Log$ $Log$
Revision 1.12 2001-05-30 13:26:18 pierre Revision 1.13 2001-05-31 12:14:06 pierre
* fix problems for multiple insert/delete and use Redraw for hild drawing like TV
Revision 1.12 2001/05/30 13:26:18 pierre
* fix border problems for views and menus * fix border problems for views and menus
Revision 1.11 2001/05/30 10:22:25 pierre Revision 1.11 2001/05/30 10:22:25 pierre