Knižnica Trsek.pas (unit) ktorá obsahuje rutiny pre vytváranie textových okien a prácu s klávesnicou v pascale

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: Programy v Pascale

Program: Trsek.pas
Súbor exe: Pouzi.exe
Potrebné: Pouzi.pas

Táto knižnica vznikala dlho a obsahuje myslím si veľa užitočných vecí. Napríklad
- odpamätanie podkladu okna a vrátenie späť
- zobrazenie okna s rôznymi druhmi rámčekov
- otázka z 3 možnosťami odpovedí
- zmazanie buffra klávesnice
a ďalších 25 funkcií.

Ak chcete kľudne ho použite. Nevymýšľajte čo už vymyslené je. No a mňa len poteší že ste tak urobili. Len nezabudnite že časti zdrojákov ktoré okopírujete nemôžete vydávať za svoje dielo. Program Pouzi.pas vás prevedie všetkými funkciami.
{ POUZI.PAS                 Copyright (c) TrSek alias Zdeno Sekerak }
{ Program demonstruje vsetky funkcie unitu TRSEK.PAS                }
{ Nielenze predvedie, ale aj kompletne opise vstupne parametre      }
{                                                                   }
{ Datum:24.10.1995                             http://www.trsek.com }
 
program pouzi_unit;
uses crt,dos,trsek;
 
var ch:char;
     i:integer;
 
begin
 farba(BLACK,WHITE);
 clrscr;
 for i:=1 to 185 do write('-123456789');
 
 farba(GREEN,YELLOW);
 open_win(13,3,73,15,'Okno',1);
 i:=get_window(13,3,73,15);
 
 farba(BLUE,YELLOW);
 open_win(1,3,33,22,'Okno',2);
 i:=get_window(1,3,33,22);
 
 farba(LIGHTGRAY,DARKGRAY);
 open_win(60,3,73,15,'Okno',3);
 i:=get_window(60,3,73,15);
 
 farba(RED,YELLOW);
 open_win(1,17,78,23,'Okno',4);
 i:=get_window(1,17,78,23);
 i:=get_window(1,1,80,25);
 
 window(1,1,80,25);
 farba(BLACK,YELLOW);
 clrscr;
 
 repeat
  window(1,1,80,25);
  farba(BLACK,YELLOW);
  writexy(1,1,'Stlac 1,2,3,4,5  SPACE-Zmaz  ESC-Koniec');
 
  ch:=readkey;
 
  if ch=#32 then clrscr;
 
  if ch=#27 then begin
      clrscr;
      WriteXY(22,1,'Koniec');
      i:=otazka(18,2,'Ano','nIe','',BLUE,2);
      if i<>1 then ch:=#13
              else ch:=#27;
     end;
 
  if ch in ['1'..'5'] then
      i:=put_window(ord(ch)-48,0,0,0,0);
 
 until (ch=#27);
 rem_all_win;
 
 help(' ');
end.