Tisk v Delphi 8. - náhled - Builder.cz - Informacni server o programovani

tisk

tisk

15. května 2002, 00.00 | V dnešní - posledním - dílu seriálu o tisku v Delphi si představíme komponentu, díky níž můžete snadno přidat do své aplikace funkci náhledu.

Pokud budete do svého programu implementovat funkci tisku, stojí za to se zamyslet, zda pro zvýšení pohodlí uživatele nepřidat i funkci náhledu. Původně jsem chtěl věnovat jeden až dva díly seriálu tomu, jak si takovou funkci svépomocí napsat, ale pak jsem narazil na komponentu PrintPreview a můj plán se rázem změnil. Tato komponenta vám umožní náhled tisku do vaší aplikace velice jednoduše přidat několika kliknutími a ušetřit si tak spoustu práce. Její autor spam_email('.com', '@', 'delphiarea', 'kambiz'); ji dává k dispozici jako freeware, ale k dispozici máte i zdrojové kódy. Nejnovější verze komponenty (4.0) funguje s verzemi Delphi 3, 4, 5, 6. O C++ Builderu se autor nezmiňuje, ale považuji za značně pravděpodobné, že v jeho posledních verzích bude komponenta fungovat také; nicméně jsem to netestoval.

Obrázek nad tímto odstavcem pohází z ukázkové aplikace, kterou jsem k tomuto článku vytvořil. Hlavní procedura, která zajišťuje tisk, vypadá tako:

procedure TForm1.GenerateBtnClick(Sender: TObject);
var
  I, J: Integer;
begin
  Randomize; // inicializace generátoru náhod. čísel
  with PrintPreview do
  begin
    BeginDoc;
    // cyklus přes stránky
    for I := 1 to 5 do
    begin
      // cyklus přes obdélníky
      for J := 1 to 20 do
      begin
        // barva = náhodné číslo z intervalu <0, 2^24-1>
        Canvas.Brush.Color := Random(1 shl 24);
        Canvas.FillRect(Rect
          Random(PaperWidth), Random(PaperHeight),
          Random(PaperWidth), Random(PaperHeight)));
      end;
      if I <> 5 then NewPage;
    end;
    EndDoc;
    PageLabel.Caption := IntToStr(CurrentPage)
      + '/' + IntToStr(TotalPages);
  end;
end;

Jak je z obrázku ukázkové aplikace vidět, komponenta umožňuje nastavovat úroveň zvětšení stránky (pomocí vlastností ZoomState a Zoom). K dispozici jsou tři automatické a jeden "ruční" režim - automatické nastavují velikost stránky tak, aby se vešla do okna na šířku, na výšku nebo celá; ve zbývajícím režimu si nastavuje zvětšení programátor sám. Můžete si také vybrat, která stránka bude v náhledu zobrazena (vlastnost CurrentPage); celkový počet stránek najdete ve vlastnosti TotalPages.

Sympatickou možností je volba jednotek, ve kterých budete při tisku určovat souřadnice (vlastnost Units), takže odpadají problémy se zjišťováním rozlišení, které jsem zmiňoval v některém z předchozích dílů tohoto seriálu. Také jsem si kdysi stěžoval, že některé starší tiskárny mají problém s rozlišením při tisku obrázků - komponenta s tím počítá a po nastavení vlastnosti FastPrint na False by měla problémy obejít. ("Měla" píšu proto, že jsem tuto funkci nezkoušel, jelikož už nemám tiskárnu, která by zmíněnými problémy trpěla.)

Pomocí vlastnosti PaperView můžete detailněji nastavit, jak má vypadat "stránka" nakreslená komponentou - barva pozadí, stínu, jeho hloubka, kontextové menu apod. Ve skutečnosti je objekt stránky samostatnou komponentou TPaperView, kterou můžete také využít i bez TPrintView. Balík tedy vlastně obsahuje komponenty dvě.

Kromě věcí zde zmíněných lze nastavit i několik dalších vlastností, ale ty už nejsou tak významné, a tak je nechám k prozkoumání těm, kteří se rozhodnou si komponentu stáhnout.

Musím říct, že nedostatky se hledají těžko. Je vidět, že autor na komponentě důkladně a poctivě pracoval, a tak je velice dobře použitelná. Jediná věc, která mi chybí, je možnost zobrazit víc stránek najednou v jednom náhledu (jako to umí třeba Word). No ale vzhledem k tomu, že jsou k dispozici zdrojové kódy, není problém si tuto funkci doprogramovat (a stejně tak není problém opravit si chyby, na které případně narazíte).

Kdybych měl komponentu ohodnotit, dostala by ode mě ohodnocení maximální možné (pět bodů z pěti nebo tak nějak) - a až budu do svých programů chtít přidat funkci náhledu, nevím o lepším způsobu, jak to udělat.

Tímto dílem seriál o tisku v Delphi končí, jelikož mé současné znalosti o tomto tématu jsou vyčerpány. Pokud byste měli nějaké dotazy nebo další náměty, zmiňte se o nich v diskuzi pod článkem. Třeba se z nich vyloupne ještě nějaký "bonusový" dodatek k seriálu. Pokud ale ne, tak se opět těším na setkání se čtenáři Builderu u dalších článků a seriálů.