14. díl - Doplnění - While cyklus, Canvas a tisk

Zpět do sekce Delphi

Tak začněme s doplňky:

While (ZATÍMCO)

Je to velmi podobné REPEAT, ale s tím rozdílem, že repeat se nejprve vykoná a potom se zeptá, jestli se má zopakovat. While se nejdřív zeptá, jestli má svůj obsah provést, nebo jestli má přejít na další část programu. Má tvar :

while podmínka do
begin
neco;
end;

Něco-část programu, která se má opakovat
Podmínka-část programu se bude opakovat, pokud platí podmínka

Př.:

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

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

Canvas

Dále se obraťme na Canvas. A zde musím doplnit příkaz: TextRect - S Canvas umíte již spoustu věcí, ale co takhle na ní psát?

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

Tisk

A když už umíme TextRect, co takhle se naučit tisknout? Do uses vložte printers. Nyní můžeme použít Printer: TPrinter (nepíše se nikam, už je vytvořen):

• Orientation - orientace papíru: poPortrait (na výšku), poLandscape (na šířku)
• Title - název dokumetu, který tisknete
• PageNumber - číslo stránky, kolikátá se tiskne
• Canvas - to nejdůležitější. Co na něj nakreslíte, to se vytiskne!

A jak vůbec tisknout? Zde máte pár příkazů:

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

Příklad tisknutí:

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 doplnění vše...

Autor: Kukensius

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

---

Jak se vám líbí článek?

Ještě nikdo nehodnotil, buď první!

 

Tweet

Tisk

Předchozí článek
Přehled proměnných, StringGrid a Pagecontrol
Ukážeme si tabulku základních datových typů v Delphi. Dále komponentu StringGrid a PageControl. Vytvoříme si editor bludiště.

Všechny články v sekci
Delphi
Stránka o Delphi. Programy, hry, komponenty, zdrojáky ke stažení.

Další článek
Závěrečný rejstřík
Závěřečný rejstřík příkazů a pojmů ze seriálu o Delphi.