mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 12:25:59 +02:00
* some improovements for TListViewer
This commit is contained in:
pierre
parent
21f6c17cf4
commit
7d0eafc46f
27
fv/views.pas
27
fv/views.pas
@ -1279,13 +1279,15 @@ begin
|
|||||||
begin
|
begin
|
||||||
p:=@Self;
|
p:=@Self;
|
||||||
cur:=cursor;
|
cur:=cursor;
|
||||||
|
{ in FVISION origin is always relative to screen corner
|
||||||
|
for inserted views PM }
|
||||||
|
inc(cur.X,p^.origin.X);
|
||||||
|
inc(cur.Y,p^.origin.Y);
|
||||||
while true do
|
while true do
|
||||||
begin
|
begin
|
||||||
if (cur.x<0) or (cur.x>=p^.size.x) or
|
if (cur.x<p^.origin.x) or (cur.x>=p^.origin.x+p^.size.x) or
|
||||||
(cur.y<0) or (cur.y>=p^.size.y) then
|
(cur.y<p^.origin.y) or (cur.y>=p^.origin.y+p^.size.y) then
|
||||||
break;
|
break;
|
||||||
inc(cur.X,p^.origin.X);
|
|
||||||
inc(cur.Y,p^.origin.Y);
|
|
||||||
p2:=p;
|
p2:=p;
|
||||||
G:=p^.owner;
|
G:=p^.owner;
|
||||||
if G=Nil then { top view }
|
if G=Nil then { top view }
|
||||||
@ -2565,6 +2567,12 @@ END;
|
|||||||
{---------------------------------------------------------------------------}
|
{---------------------------------------------------------------------------}
|
||||||
PROCEDURE TGroup.Insert (P: PView);
|
PROCEDURE TGroup.Insert (P: PView);
|
||||||
BEGIN
|
BEGIN
|
||||||
|
If (P <> Nil) and assigned(P^.Owner) Then { View is valid and already inserted }
|
||||||
|
If (Options AND ofGFVModeView <> 0) Then { GFV mode view check }
|
||||||
|
P^.DisplaceBy(-P^.Owner^.RawOrigin.X,
|
||||||
|
-P^.Owner^.RawOrigin.Y) Else { We are in GFV mode }
|
||||||
|
P^.DisplaceBy(-P^.Owner^.Origin.X*FontWidth,
|
||||||
|
-P^.Owner^.Origin.Y*FontHeight); { Displace old view }
|
||||||
If (P <> Nil) Then { View is valid }
|
If (P <> Nil) Then { View is valid }
|
||||||
If (Options AND ofGFVModeView <> 0) Then { GFV mode view check }
|
If (Options AND ofGFVModeView <> 0) Then { GFV mode view check }
|
||||||
P^.DisplaceBy(RawOrigin.X, RawOrigin.Y) Else { We are in GFV mode }
|
P^.DisplaceBy(RawOrigin.X, RawOrigin.Y) Else { We are in GFV mode }
|
||||||
@ -3732,7 +3740,7 @@ BEGIN
|
|||||||
MoveChar(B[CurCol+ColWidth-1], #179,
|
MoveChar(B[CurCol+ColWidth-1], #179,
|
||||||
GetColor(5), 1); { Put centre line marker }
|
GetColor(5), 1); { Put centre line marker }
|
||||||
End;
|
End;
|
||||||
WriteLine(0, I, Size.X, 1, B); { Write line to screen }
|
WriteLine(0, I, Size.X-1, 1, B); { Write line to screen }
|
||||||
End;
|
End;
|
||||||
END;
|
END;
|
||||||
|
|
||||||
@ -3771,7 +3779,7 @@ BEGIN
|
|||||||
SCOff := 2; { Colour offset=2 }
|
SCOff := 2; { Colour offset=2 }
|
||||||
End;
|
End;
|
||||||
If DrawIt Then Begin { We are drawing item }
|
If DrawIt Then Begin { We are drawing item }
|
||||||
ClearArea(0, I*FontHeight, ColWidth*FontWidth,
|
ClearArea(CurCol*FontWidth, I*FontHeight, (CurCol+ColWidth-1)*FontWidth,
|
||||||
(I+1)*FontHeight-1, Color AND $F0 SHR 4); { Draw the bar }
|
(I+1)*FontHeight-1, Color AND $F0 SHR 4); { Draw the bar }
|
||||||
MoveChar(B[CurCol], ' ', Color, ColWidth);
|
MoveChar(B[CurCol], ' ', Color, ColWidth);
|
||||||
if Item < Range then begin
|
if Item < Range then begin
|
||||||
@ -3784,7 +3792,7 @@ BEGIN
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
MoveChar(B[CurCol+ColWidth-1], #179, GetColor(5), 1);
|
MoveChar(B[CurCol+ColWidth-1], #179, GetColor(5), 1);
|
||||||
WriteLine(0, I, Size.X, 1, B);
|
WriteLine(CurCol, I, Min(Size.X-1,CurCol+ColWidth-1), 1, B[CurCol]);
|
||||||
End;
|
End;
|
||||||
End;
|
End;
|
||||||
End;
|
End;
|
||||||
@ -5428,7 +5436,10 @@ END.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.16 2001-08-05 02:03:14 peter
|
Revision 1.17 2001-08-05 23:54:33 pierre
|
||||||
|
* some improovements for TListViewer
|
||||||
|
|
||||||
|
Revision 1.16 2001/08/05 02:03:14 peter
|
||||||
* view redrawing and small cursor updates
|
* view redrawing and small cursor updates
|
||||||
* merged some more FV extensions
|
* merged some more FV extensions
|
||||||
|
|
||||||
|
|||||||
@ -1279,13 +1279,15 @@ begin
|
|||||||
begin
|
begin
|
||||||
p:=@Self;
|
p:=@Self;
|
||||||
cur:=cursor;
|
cur:=cursor;
|
||||||
|
{ in FVISION origin is always relative to screen corner
|
||||||
|
for inserted views PM }
|
||||||
|
inc(cur.X,p^.origin.X);
|
||||||
|
inc(cur.Y,p^.origin.Y);
|
||||||
while true do
|
while true do
|
||||||
begin
|
begin
|
||||||
if (cur.x<0) or (cur.x>=p^.size.x) or
|
if (cur.x<p^.origin.x) or (cur.x>=p^.origin.x+p^.size.x) or
|
||||||
(cur.y<0) or (cur.y>=p^.size.y) then
|
(cur.y<p^.origin.y) or (cur.y>=p^.origin.y+p^.size.y) then
|
||||||
break;
|
break;
|
||||||
inc(cur.X,p^.origin.X);
|
|
||||||
inc(cur.Y,p^.origin.Y);
|
|
||||||
p2:=p;
|
p2:=p;
|
||||||
G:=p^.owner;
|
G:=p^.owner;
|
||||||
if G=Nil then { top view }
|
if G=Nil then { top view }
|
||||||
@ -2565,6 +2567,12 @@ END;
|
|||||||
{---------------------------------------------------------------------------}
|
{---------------------------------------------------------------------------}
|
||||||
PROCEDURE TGroup.Insert (P: PView);
|
PROCEDURE TGroup.Insert (P: PView);
|
||||||
BEGIN
|
BEGIN
|
||||||
|
If (P <> Nil) and assigned(P^.Owner) Then { View is valid and already inserted }
|
||||||
|
If (Options AND ofGFVModeView <> 0) Then { GFV mode view check }
|
||||||
|
P^.DisplaceBy(-P^.Owner^.RawOrigin.X,
|
||||||
|
-P^.Owner^.RawOrigin.Y) Else { We are in GFV mode }
|
||||||
|
P^.DisplaceBy(-P^.Owner^.Origin.X*FontWidth,
|
||||||
|
-P^.Owner^.Origin.Y*FontHeight); { Displace old view }
|
||||||
If (P <> Nil) Then { View is valid }
|
If (P <> Nil) Then { View is valid }
|
||||||
If (Options AND ofGFVModeView <> 0) Then { GFV mode view check }
|
If (Options AND ofGFVModeView <> 0) Then { GFV mode view check }
|
||||||
P^.DisplaceBy(RawOrigin.X, RawOrigin.Y) Else { We are in GFV mode }
|
P^.DisplaceBy(RawOrigin.X, RawOrigin.Y) Else { We are in GFV mode }
|
||||||
@ -3732,7 +3740,7 @@ BEGIN
|
|||||||
MoveChar(B[CurCol+ColWidth-1], #179,
|
MoveChar(B[CurCol+ColWidth-1], #179,
|
||||||
GetColor(5), 1); { Put centre line marker }
|
GetColor(5), 1); { Put centre line marker }
|
||||||
End;
|
End;
|
||||||
WriteLine(0, I, Size.X, 1, B); { Write line to screen }
|
WriteLine(0, I, Size.X-1, 1, B); { Write line to screen }
|
||||||
End;
|
End;
|
||||||
END;
|
END;
|
||||||
|
|
||||||
@ -3771,7 +3779,7 @@ BEGIN
|
|||||||
SCOff := 2; { Colour offset=2 }
|
SCOff := 2; { Colour offset=2 }
|
||||||
End;
|
End;
|
||||||
If DrawIt Then Begin { We are drawing item }
|
If DrawIt Then Begin { We are drawing item }
|
||||||
ClearArea(0, I*FontHeight, ColWidth*FontWidth,
|
ClearArea(CurCol*FontWidth, I*FontHeight, (CurCol+ColWidth-1)*FontWidth,
|
||||||
(I+1)*FontHeight-1, Color AND $F0 SHR 4); { Draw the bar }
|
(I+1)*FontHeight-1, Color AND $F0 SHR 4); { Draw the bar }
|
||||||
MoveChar(B[CurCol], ' ', Color, ColWidth);
|
MoveChar(B[CurCol], ' ', Color, ColWidth);
|
||||||
if Item < Range then begin
|
if Item < Range then begin
|
||||||
@ -3784,7 +3792,7 @@ BEGIN
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
MoveChar(B[CurCol+ColWidth-1], #179, GetColor(5), 1);
|
MoveChar(B[CurCol+ColWidth-1], #179, GetColor(5), 1);
|
||||||
WriteLine(0, I, Size.X, 1, B);
|
WriteLine(CurCol, I, Min(Size.X-1,CurCol+ColWidth-1), 1, B[CurCol]);
|
||||||
End;
|
End;
|
||||||
End;
|
End;
|
||||||
End;
|
End;
|
||||||
@ -5428,7 +5436,10 @@ END.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.16 2001-08-05 02:03:14 peter
|
Revision 1.17 2001-08-05 23:54:33 pierre
|
||||||
|
* some improovements for TListViewer
|
||||||
|
|
||||||
|
Revision 1.16 2001/08/05 02:03:14 peter
|
||||||
* view redrawing and small cursor updates
|
* view redrawing and small cursor updates
|
||||||
* merged some more FV extensions
|
* merged some more FV extensions
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user