Einzelnen Beitrag anzeigen

Benutzerbild von arcticwolf
arcticwolf

Registriert seit: 3. Aug 2021
Ort: Erfurt
41 Beiträge
 
Delphi 11 Alexandria
 
#44

AW: Konsolenanwendung - crt.pas - Console Library

  Alt 27. Jul 2023, 09:51
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.
Wolfgang
coding is an art - code for people not for machines
  Mit Zitat antworten Zitat