F1! Stampanje Delphi, ne rade mi procedure
Prikazujem rezultate 1 do 4 od 4

Tema: F1! Stampanje Delphi, ne rade mi procedure

  1. #1
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano F1! Stampanje Delphi, ne rade mi procedure

    Treba da se odstampa niz labela na artiju ali na odredjenoj poziciji, u mm. Odnos forme i lista je 1.8:1, ako je jedan pixel na formi = 1 mm na hartiji. Stampa se na A4 formatu. Naisao sam na neke procedure i probao ih i u nastavku ide kod procedura. Prva ne stampa nista, a druga stampa stranu ali umanjenu 4 puta (s tim sto velicina fonta ostaje nepromenjena, greska je u koordinatama)

    Pomazite braco, imam jos par dana da zavrsim maturski cu se samoubijem ako ne bude gotovo. Samo mi jos ovo ostalo




    ukupnostrana:integer odredjuje koliko ukupno strana ima za stampanje
    brojstrane:integer odredjuje koja strana se trenutno stampa
    generisistranurocedura koja popuni caption objekata u niz:array[1..1000] of TLabel;

    ================================================== ==
    Ova procedura ne stampa nista. Samo provuce praznu stranu kroz stampac

    Kod:
    procedure TForm1.Stampanje();
    var
      j,k:integer;
    
    begin
      Printer.Canvas.Create;
      for i:=1 to ukupnostrana do
      begin
        brojstrane:=i;
        generisistranu;
        Printer.BeginDoc;
        SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC);
        for k:=1 to 1000 do
        begin
          Printer.Canvas.Font.Name:= niz[k].Font.Name;
          Printer.Canvas.Font.Color:=niz[k].Font.Color;
          Printer.Canvas.Font.Size:=niz[k].Font.Size;
          Printer.Canvas.Font.Style:=niz[k].Font.Style;
          Printer.Canvas.TextOut(Round((niz[k].Left-20)/1.8)*10,
                                 Round((niz[k].top-20)/1.8)*10, 
                                 niz[k].capton);
        end;
      end;
    end;
    Sta radi procedura

    for petljom potera od prve do poslednje stranice
    popuni caption objekata vrednostima koje se stampaju na strani koja je trenutno na redu
    podesi da je merna jedinica 0.1 mm
    prodje kroz niz labela i odstampa ih na datim koordinatama
    kod koordinata vrsi se preracunavanje jer su one na prozoru u razmeri 1.8:1 u odnosu na stranu (ako je pixel na formi ekvivalentan milimetru na papiru)


    =================================================
    Ova procedura stampala je stranu ali 4x manju

    Kod:
    procedure TForm4.Stampanje();
    var j,k:integer;
        ScaleX, ScaleY: Integer;
    begin
      Printer.Canvas.Create;
      for j:=1 to ukupnostrana do
      begin
        brojstrane:=j;
        GenerisiStranu;
    
        With Printer do
        begin
        BeginDoc;
        ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
        ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
        end;
    
        for k:=1 to 1000 do
        begin
          Printer.Canvas.Font.Color:=niz[k].Font.Color;
          Printer.Canvas.Font.Size:=niz[k].Font.Size;
          Printer.Canvas.Font.Style:=niz[k].Font.Style;
          Printer.Canvas.TextOut(Round((niz[k].Left-20)/1.8)*ScaleX,Round((niz[k].Top-20)/1.8)*ScaleY,niz[k].Caption);
        end;
        Printer.EndDoc;
      end;
    end;
    isti princip rada kao i prethodna, s tim sto je ovde ScaleX i ScaleY ipak nesto radilo




  2. #2
    Obećava Nemanja666 (avatar)
    Učlanjen
    27.05.2006.
    Poruke
    99
    Reputaciona moć
    43

    Podrazumevano Re: F1! Stampanje Delphi, ne rade mi procedure

    GmPrintSuite su komponente koje su se ubile za ovakve stvari.

  3. #3
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: F1! Stampanje Delphi, ne rade mi procedure

    e...al fora je da sve sam uradim

    a ko za maler crko mi stampac pa ne mogu da ih probam, tek jednom u par dana uspem da uhvatim koji minut da probam u skoli

    i sta sad ja da radim?

    do 28 mora da bude gotovo, i mora da stampa
    yebo sam se sad


  4. #4
    Obećava Nemanja666 (avatar)
    Učlanjen
    27.05.2006.
    Poruke
    99
    Reputaciona moć
    43

    Podrazumevano Re: F1! Stampanje Delphi, ne rade mi procedure

    Ups sad je 29. Zaboravio sam na ovu temu.

Slične teme

  1. Pomoc oko stored procedure
    Autor Mirelica u forumu Programiranje
    Odgovora: 3
    Poslednja poruka: 18.08.2007., 22:02
  2. Paskal procedure - Help!!!
    Autor apocalypse_iki u forumu Programiranje
    Odgovora: 7
    Poslednja poruka: 10.11.2006., 08:05
  3. Shutdown-t sql procedure
    Autor mci_r u forumu Programiranje
    Odgovora: 0
    Poslednja poruka: 25.11.2004., 08:19
  4. Stampanje Delphi
    Autor -gost- u forumu Programiranje
    Odgovora: 19
    Poslednja poruka: 04.05.2004., 19:58

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •