Board index » delphi » Text mode Table

Vladimir Oster

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Text mode Table

I tried to make a text mode table with ASCII chars (186-188, 200-201) but
when I add the last symbol (188) at the end of the window (80,25), the
window scrolls up and the upper row disappears. Is there a way I can do a
full screen table in text mode?
Thanks in advance.

--
Vladimir Oster
vladimir_os...@geocities.com
http://www.geocities.com/Area51/Station/1076/
http://www.fortunecity.com/tattooine/campbell/56/starwars.html

 
Osmo Ronkan

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Text mode Table


In article <01bd11e0$c3de1560$LocalHost@gena-home>,

Quote
Vladimir Oster <vladimir_os...@geocities.com> wrote:
>I tried to make a text mode table with ASCII chars (186-188, 200-201) but
>when I add the last symbol (188) at the end of the window (80,25), the
>window scrolls up and the upper row disappears. Is there a way I can do a
>full screen table in text mode?

Someone asks this probably once a week. put inc(windmax) at the
beginning, then draw, make sure that cursor is in safe place (not on
column 81) and do dec(windmax)

Osmo

Peter Moraliysk

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Text mode Table


Quote
Vladimir Oster wrote:
> I tried to make a text mode table with ASCII chars (186-188, 200-201) but
> when I add the last symbol (188) at the end of the window (80,25), the
> window scrolls up and the upper row disappears. Is there a way I can do a
> full screen table in text mode?
> Thanks in advance.

> --
> Vladimir Oster
> vladimir_os...@geocities.com
> http://www.geocities.com/Area51/Station/1076/
> http://www.fortunecity.com/tattooine/campbell/56/starwars.html

procedure writexy(x, y, attr : integer; ch : char);
begin
  mem[$B800 : (x - 1) * 2 + (y - 1) * 160 + 1]:= attr;
  mem[$B800 : (x - 1) * 2 + (y - 1) * 160]:= ord(ch);
end;

...have fun ;)

Osmo Ronkan

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Text mode Table


In article <34A458DD.36618...@ibm.net>,
Peter Moraliyski  <huibm...@ibm.net> wrote:

Quote

>procedure writexy(x, y, attr : integer; ch : char);
>begin
>  mem[$B800 : (x - 1) * 2 + (y - 1) * 160 + 1]:= attr;
>  mem[$B800 : (x - 1) * 2 + (y - 1) * 160]:= ord(ch);
>end;

'
Argh. How well does that work in protected mode? How about on MDA? Also
have you heard about memw[]?

Osmo

K. Woja

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Text mode Table


Quote
Osmo Ronkanen wrote in message <681crg...@kruuna.Helsinki.FI>...
>In article <34A458DD.36618...@ibm.net>,
>Peter Moraliyski  <huibm...@ibm.net> wrote:

>>procedure writexy(x, y, attr : integer; ch : char);
>>begin
>>  mem[$B800 : (x - 1) * 2 + (y - 1) * 160 + 1]:= attr;
>>  mem[$B800 : (x - 1) * 2 + (y - 1) * 160]:= ord(ch);
>>end;

>'
>Argh. How well does that work in protected mode? How about on MDA? Also
>have you heard about memw[]?

>Osmo

It also works in protected mode if you use the variable SegB800 instead of
the constant $B800. This will also work for real mode.

$c0rpi0n

Stev

Delphi Developer
Wed, 18 Jun 1902 08:00:00 GMT

Re:Text mode Table


On 26 Dec 1997 14:25:06 GMT, "Vladimir Oster"

Quote
<vladimir_os...@geocities.com> wrote:
>I tried to make a text mode table with ASCII chars (186-188, 200-201) but
>when I add the last symbol (188) at the end of the window (80,25), the
>window scrolls up and the upper row disappears. Is there a way I can do a
>full screen table in text mode?

Your Writeln() is doing what it's suppose too, adding a crlf at the end.

Use write() instead.

Quote
>Thanks in advance.

Your welcome.

Other Threads

1. Problem with GotoXY in EGA/VGA text mode (43/50 line mode)

2. Text mode vs graphics mode conflict (Help!)

3. Text mode - graphics mode conflict (Help!)

4. Scrolling Text in Text Mode - PLEASE HELP!

5. MS SQL Server newbie - importing text to SQL tables from a text data feed

6. Text mode font - help!

7. Text Mode Screen Capture

8. Text in graphics mode

9. Programming in text mode

10. fading 2 pages in text mode