|
|
Több buffer terület használata egy konzol alkalmazáshoz
Konzol alkalmazások 4. rész
|
|
Példaprogram letöltése
4011 bájt
|
Ha elindítunk egy konzol alkalmazást, akkor lehetőségünk van több buffer területet használni a megjelenítéshez. Ennek előnye, hogy bármelyikről bármelyikre átkapcsolhatunk és azok tartalma e közben nem változik. E buffer területek és így a konzol ablakának mérete is különbözhet egymástól.
Nézzük miként is valósítható meg mindez.
Lesz egy FHandle1 nevű változónk, melyben tároljuk az elsődleges ablakunk azonosítóját.
FHandle1:=GetStdHandle(STD_OUTPUT_HANDLE);
FInput:=GetStdHandle(STD_INPUT_HANDLE);
SetConsoleTextAttribute(FHandle1, 10);
WriteLnToHandle(FHandle1, 'Switch: enter');
WriteLnToHandle(FHandle1, 'Close: esc');
WriteLnToHandle(FHandle1, '');
WriteLnToHandle(FHandle1, 'Window: 1');
SetConsoleTextAttribute(FHandle2, 14);
WriteLnToHandle(FHandle2, 'Switch: enter');
WriteLnToHandle(FHandle2, 'Close: esc');
WriteLnToHandle(FHandle2, '');
WriteLnToHandle(FHandle2, 'Window: 2');
while b do begin
ReadConsoleInput(FInput, ir[0], 32, count);
for i:=0 to count-1 do begin
if ir[i].EventType=KEY_EVENT then begin
with ir[i].Event.KeyEvent do begin
if bKeyDown then begin
case Ord(AsciiChar) of
27: b:=false;
13: SwitchBuffer;
…
Vizsgáljuk meg, miként is jön létre a másodlagos buffer.
procedure CreateSecondBuffer;
begin
FHandle2:=CreateConsoleScreenBuffer(GENERIC_READ or GENERIC_WRITE, 0, nil,
CONSOLE_TEXTMODE_BUFFER, nil);
SetConsoleScreenBufferSize(FHandle2, coord);
SetConsoleWindowInfo(FHandle2, true, rect);
end;
Egyik bufferről átkapcsolni a másikra a SetConsoleActiveScreenBuffer függvénnyel tudunk. Használata egyszerű, csak meg kell adnunk annak a buffer-nek az azonosítóját, melyeket aktiválni szeretnénk.
procedure SwitchBuffer;
begin
if FHandleActive=FHandle1 then begin
SetConsoleActiveScreenBuffer(FHandle2);
FHandleActive:=FHandle2;
end else begin
SetConsoleActiveScreenBuffer(FHandle1);
FHandleActive:=FHandle1;
end;
end;
|
Könyv
Ez a cikk megtalálható ebben a könyvben:
Delphi Software Offline 2001 évkönyv 645. oldal
Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!
|