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 ...