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.