Vydělávej až 160.000 Kč měsíčně! Akreditované rekvalifikační kurzy s garancí práce od 0 Kč. Více informací.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.

14. diel - Doplnenie - While cyklus, Canvas a tlač

Tak začnime s doplnkami:

While (ZATIAĽ ČO)

Je to veľmi podobné REPEAT, ale s tým rozdielom, že repeat sa najprv vykoná a potom sa spýta, či sa má zopakovať. While sa najskôr spýta, či má svoj obsah vykonať, alebo či má prejsť na ďalšiu časť programu. Má tvar:

while podmínka do
begin
  neco;
end;

Niečo-časť programu, ktorá sa má opakovať
Podmienka-časť programu sa bude opakovať, ak platí podmienka

Pr .:

while Cislo < 100 do
      Cislo := Cislo + 1;

    while Cislo1 < 100 do
begin
      Cislo := Cislo + 1;
  Cislo2 := Cislo2 - 1;
end;

Canvas

Ďalej sa obráťme na Canvas. A tu musím doplniť príkaz: TextRect - S Canvas viete už veľa vecí, ale čo takto na nej písať?

Canvas.TextRect(Rect, X, Y, Text);

Rect bude TRect, ktorý určí, kde je obdĺžnikový priestor na Canvas,, na ktorý sa bude písať, X a Y sú súradnice ľavého horného rohu textu a Text je string, ktorý sa vypíše.

Tlač

A keď už vieme TextRect, čo takto sa naučiť tlačiť? Do uses vložte printers. Teraz môžeme použiť Printer: TPrinter (nepíše sa nikam, už je vytvorený):

  • Orientation - orientácie papiera: poPortrait (na výšku), poLandscape (na šírku)
  • Title - názov dokumetu, ktorý tlačíte
  • PageNumber - číslo stránky, koľká sa tlačí
  • Canvas - to najdôležitejšie. Čo na neho nakreslíte, to sa vytlačí!

A ako vôbec tlačiť? Tu máte pár príkazov:

Printer.BeginDoc; // Začne tisknutí
Printer.NewPage; // Řekne tiskárně o novou stránku
Printer.EndDoc; // Ukončí tisknutí

Príklad tlačili:

Printer.Title := 'Patvary'; // Určí název dokumetu
Printer.BeginDoc; // Začne tisknutí
Printer.Canvas.Ellipse(10,10,150,250); // Vytiskne elipsu
Printer.NewPage; // Řekne tiskárně o novou stránku
Printer.Canvas.Rectagle(10,10,150,250); // Na novou stránku vytiskne obdélník
Printer.EndDoc; // Ukončí tisknutí

A to je z doplnenie všetko ...


 

Predchádzajúci článok
Prehľad premenných, StringGrid a Pagecontrol
Všetky články v sekcii
Delphi
Preskočiť článok
(neodporúčame)
Záverečný register
Článok pre vás napísal Kukensius
Avatar
Užívateľské hodnotenie:
Ešte nikto nehodnotil, buď prvý!
Jméno: Lukáš Kučera alias Kukensius<br/> Narození: říjen 1987 (ve znamení vah)<br/> Bydliště: Jihlava, Česká Republika<br/> Studium: 1. ročník magisterského studia<br/> Škola: Vysoké učení technické v Brně<br/> Fakulta: Fakulta elektrotechniky ...
Aktivity