Konsolenanwendung - crt.pas - Console Library

[Andreas13]

Herzlichen Dank, Wolfgang!
Ich werde damit experimentieren.

[arcticwolf]

Die Idee/Anforderung von Andreas hat mich inspiriert und ich habe die Library jetzt so erweitert, dass der "Scroll-Modus" direkt aktiviert werden kann.

Delphi-Quellcode:

      Console.Window(100,50);
      Console.Buffer(180,1500);
      // Use WriteConsole for System.Write
      Console.Modes.AlternateWriteProc := awConsole;

      For Zeile := 1 To 200 Do
      Begin
        WriteLnConsole('Zeile[' + Zeile.ToString.PadLeft(3) + ']');
      End;
      Console.ReadkeyScroll(Key); 

      Console.Window(80,25);
      // Set back to Default-Value
      // Use CrtWrite for System.Write
      Console.Modes.AlternateWriteProc := awCrt;

Demo11 habe ich entsprechend angepasst. Dort werden noch weitere Möglichkeiten gezeigt.

[Andreas13]