Jeszcze o konsoli

0
  1. Jak ustalic pozycje kursora?

  2. Jak zmienic tlo programu konsolowego (cale t?o, nie tylko napisow)?

  3. Jak sprawdzic dlugosc tekstu w danej linii? Czy coú takiego w ogole jest mozliwe?

0
  1. Jak ustalic pozycje kursora?
    GetConsoleScreenBufferInfo + F1
  1. Jak zmienic tlo programu konsolowego (cale t?o, nie tylko napisow)?

SetConsoleTextAttribute + FillConsoleOutputAttribute + F1

  1. Jak sprawdzic dlugosc tekstu w danej linii? Czy coú takiego w ogole jest mozliwe?

ReadConsoleOutput + F1 + pętelka sprawdzająca koniec linii :(

0

ReadConsoleOutput + F1 + pętelka sprawdzająca koniec linii :(

Można prosić o przykład?

0

Hey! Ok :):
Ustawianie pozycji:


uses
  Windows;

function CO: HWND;
begin
Result := GetSTDHandle(STD_OUTPUT_HANDLE);
end;

function Coord_(X, Y: SmallInt): TCoord;
begin
Result.X := X;
Result.Y := Y;
end;

procedure ZmienTlo(Color: Word);
var
  Z: Cardinal;
  Zap: Cardinal;
  CSBI: TConsoleScreenBufferInfo;
begin
GetConsoleScreenBufferInfo(CO, CSBI);
Zap := CSBI.dwSize.X * CSBI.dwSize.Y;
FillConsoleOutputAttribute(CO, Color, Zap, Coord_(0, 0), Z);
end;

procedure UstawKursor(X, Y: smallInt);
var
  CCI: TConsoleCursorInfo;
begin
SetConsoleCursorPosition(CO, Coord_(X, Y));
end;

begin
ZmienTlo(BackGround_Red);
Write('To ja');
UstawKursor(3, 3);
Write('iii');
Readln;
end.

Mam prawie napisany cały moduł o konsolach, może udostępnie na 4p :P

0

Mam prawie napisany cały moduł o konsolach, może udostępnie na 4p :P

Przydałoby się ;p. Nigdzie nie widziałem PORZĄDNEGO i DARMOWEGO modułu do konsoli...

1 użytkowników online, w tym zalogowanych: 0, gości: 1