Consolen-Anwendung und deren Cursorgrösse

[turboPASCAL]

Bin gerade dabei eine Consolen Anwendung zu schreiben. ;) Jetzt wollte ich, wie ich es aus meinen alten TP-Zeiten die Cursor (Caret) Grösse ändern.

Die Cursorgrössen sind ja Normal _, Halbblock ▄ und Block █.

Mit CreateCaret(GetStdHandle(STD_OUTPUT_HANDLE), 0, 255, 0) konnte ich Delphi nicht dazu bewegen den Cursor umzuschalten.

Hat jemand eine Idee ?

[marabu]

Hi,

hier könnte SetConsoleCursorInfo() aus dem Win32 API helfen.

Grüße vom marabu

[turboPASCAL]

Thx. Ja, das hat geholfen. Es ist doch immer schön, wenn man weis wo nach man suchen soll. :wink:

Delphi-Quellcode:

program TestProject;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var
  hConsoleOutput, hConsoleInput: THandle;

procedure SetCursor(const CursorSize: Word);
// CursorSize 1..100
var
  CCI: TConsoleCursorInfo;
begin
  CCI.dwSize := CursorSize;
  CCI.bVisible := True;
  SetConsoleCursorInfo(hConsoleOutput, CCI);
end;

begin
  hConsoleOutput := GetStdHandle(STD_OUTPUT_HANDLE);
  SetCursor(100); // VollBlockCursor
  readln;
end.