-
Jak ustalic pozycje kursora?
-
Jak zmienic tlo programu konsolowego (cale t?o, nie tylko napisow)?
-
Jak sprawdzic dlugosc tekstu w danej linii? Czy coú takiego w ogole jest mozliwe?
0
0
- Jak ustalic pozycje kursora?
GetConsoleScreenBufferInfo + F1
- Jak zmienic tlo programu konsolowego (cale t?o, nie tylko napisow)?
SetConsoleTextAttribute + FillConsoleOutputAttribute + F1
- 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...