paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 14:19:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* current char color changed

Browse Source
This commit is contained in:
pierre 2002-05-30 22:23:15 +00:00
parent 8529bbc6c8
commit a359dfac95
2 changed files with 30 additions and 20 deletions

25
fv/asciitab.pas
View File

@ -169,12 +169,14 @@ end;
procedure TTable.DrawCurPos(enable : boolean);
var
Color : byte;
B : word;
begin
If enable then
Color:=3
else
Color:=1;
WriteChar(Cursor.X,Cursor.Y,chr((Cursor.Y*Size.X+Cursor.X) and $ff),color,1);
Color:=GetColor(1);
{ add blinking if enable }
If Enable then
Color:=((Color and $F) shl 4) or (Color shr 4);
B:=(Color shl 8) or ((Cursor.Y*Size.X+Cursor.X) and $ff);
WriteLine(Cursor.X,Cursor.Y,1,1,B);
end;
procedure TTable.HandleEvent(var Event:TEvent);
@ -298,15 +300,15 @@ end;
constructor TASCIIChart.Load(var S: TStream);
begin
Inherited Load(S);
GetPeerViewPtr(S,Report);
GetPeerViewPtr(S,Table);
GetSubViewPtr(S,Table);
GetSubViewPtr(S,Report);
end;
procedure TASCIIChart.Store(var S: TStream);
begin
Inherited Store(S);
PutPeerViewPtr(S,Report);
PutPeerViewPtr(S,Table);
PutSubViewPtr(S,Table);
PutSubViewPtr(S,Report);
end;
procedure TASCIIChart.HandleEvent(var Event:TEvent);
@ -332,7 +334,10 @@ end;
END.
{
$Log$
Revision 1.2 2002-05-30 14:52:53 pierre
Revision 1.3 2002-05-30 22:23:15 pierre
* current char color changed
Revision 1.2 2002/05/30 14:52:53 pierre
* some more fixes
Revision 1.1 2002/05/29 22:14:53 pierre

25
fvision/asciitab.pas
View File

@ -169,12 +169,14 @@ end;
procedure TTable.DrawCurPos(enable : boolean);
var
Color : byte;
B : word;
begin
If enable then
Color:=3
else
Color:=1;
WriteChar(Cursor.X,Cursor.Y,chr((Cursor.Y*Size.X+Cursor.X) and $ff),color,1);
Color:=GetColor(1);
{ add blinking if enable }
If Enable then
Color:=((Color and $F) shl 4) or (Color shr 4);
B:=(Color shl 8) or ((Cursor.Y*Size.X+Cursor.X) and $ff);
WriteLine(Cursor.X,Cursor.Y,1,1,B);
end;
procedure TTable.HandleEvent(var Event:TEvent);
@ -298,15 +300,15 @@ end;
constructor TASCIIChart.Load(var S: TStream);
begin
Inherited Load(S);
GetPeerViewPtr(S,Report);
GetPeerViewPtr(S,Table);
GetSubViewPtr(S,Table);
GetSubViewPtr(S,Report);
end;
procedure TASCIIChart.Store(var S: TStream);
begin
Inherited Store(S);
PutPeerViewPtr(S,Report);
PutPeerViewPtr(S,Table);
PutSubViewPtr(S,Table);
PutSubViewPtr(S,Report);
end;
procedure TASCIIChart.HandleEvent(var Event:TEvent);
@ -332,7 +334,10 @@ end;
END.
{
$Log$
Revision 1.2 2002-05-30 14:52:53 pierre
Revision 1.3 2002-05-30 22:23:15 pierre
* current char color changed
Revision 1.2 2002/05/30 14:52:53 pierre
* some more fixes
Revision 1.1 2002/05/29 22:14:53 pierre