paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 19:49:36 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
fv/asciitab.pas
View File

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