Newsgroup: it.comp.lang.delphi
Titolo: Stampa ListBox

Ho visto sull'help di delphi che per attivare una stampa bisogna creare una
procedura di questo tipo:
Uses
Printers
procedure TForm1.Botton1Click(Sender: TObject);
begin
  with Printer do
  begin
    BeginDoc;
            ?
    EndDoc;
  end;
end;
Perchč mi stampi il contenuto di una listBox cosa devo inserire al posto del
punto interrogativo?

e sull' help non hai visto la property canvas di tprinter?
Bye
A

 end;
----------------------------------------------------------
uses
Printers;
var
  r: TRect;
with Printer do
    begin
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
      BeginDoc;
      for i := 0 to Memo1.Lines.Count do
       Canvas.TextOut(200,200 + (i *
Canvas.TextHeight(Memo1.Lines.Strings[i])),
                                   Memo1.Lines.Strings[i]);
      Canvas.Brush.Color := clBlack;
      Canvas.FrameRect(r);
      EndDoc;
    end;
 Credo quindi che devi cambiare con
with Printer do
    begin
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
      BeginDoc;
   for i := 0 to ListBox1.Items:count do
       Canvas.TextOut(200,200 + (i *
Canvas.TextHeight(ListBox1.Item[i])),
                                  ListBox1.Items[i]);
      Canvas.Brush.Color := clBlack;
      Canvas.FrameRect(r);
      EndDoc;
    end;
ciao
erik
ps: Io alle volte rispondo a dei post su domande che non conosco alla
perfezione spero sempre che se sbaglio qualcuno riveda e corregga
grazie

 ha scritto nel messaggio
news:bgnts4$2pdl$1...@newsreader2.mclink.it...


ragiona!
procedure TextOut(X, Y: Integer; const Text: string);
in text:string ci metti quel che ti pare:
'pippo'
listbox.items[i]...
A

 ha scritto nel messaggio
news:bgo0qj$2r3i$1...@newsreader2.mclink.it...


 sapere niente della programmazione ad oggetti.
un libro per una infarinatura iniziale ci sta benissimo allora ^__^
Imparare da 0, da solo, un linguaggio/ambiente complesso e potente come
Delphi è tutta in salita...
Ciao
Matteo

 ha scritto nel messaggio
news:bgo0qj$2r3i$1...@newsreader2.mclink.it...


dici a me?
A

Rispondo a Ruggero Rossi che, tra le altre cose, ha scritto:

http://www.freewebs.com/iosononiubbo/iosononiubbo.htm#quotare
E non offenderti come fanno tutti quando gli si dice di quotare...
(prevenire è meglio che curare)
--
Jax
Journeying Artificial Xenomorph

 senza sapere niente della programmazione ad oggetti.
Con tutto il mio affetto, prima allora dovresti imparare un po' di
fondamentali, altrimenti capisci che per ogni cosa che non riesci a fare, ci
sarebbe un tuo messaggio :)
Inizia da qua:
http://www.marcocantu.it/EPascal/


Sei sempre così educato nelle tue risposte?
Oh... ecco il flame di agosto.... ci mancava!
Mettiamoci d'accordo: alberto non ha risposto da maleducato, e' un veterano
del ng e ha dato un suggerimento ad un utente che non sa una cippa di
programmazione e vuole sapere senza impegnarsi a studiare e cercare.
Solita storia, gia' vista.
Intendiamoci: questo mio reply non vuole essere il classico "noi la borghesia,
voi newbie" ma il ragionevole: "per favore evitiamo commenti stizzosi".
I miei killfile sono sempre pronti a ricevere nuovi utenti.
E con questo chiudo qui.
-- 
Morde. 
(morde at programmer dot net)

 ha scritto nel messaggio
news:f5avivgd3dsk9onii...@4ax.com...


Giusto perché siamo in agosto e fa caldo.
Da cosa l'aveva capito, prima che lo dicesse, che era un utente che non sa
una cippa di programmazione?
Glielo ha suggerito la sua esperienza di veterano?
Veterano di cosa? Di ng o di Delphi?
Io che ho iniziato da Delphi 1 a 16 bit e posto raramente nel nw sono un
newbie?
R

non mi stavo rivolgendo a te
A

il mio tono non voleva essere offensivo nei tuoi riguardi. :((
se è stato interpretato in questo modo, mi scuso.
Bye
A
PS: Il mio consiglio è di vedere prima la OOP poi il resto.

newbie?
Hai tutto il mio rispetto e cmq non sei un newbie di delphi.
Per me hai frainteso il followup di Salvati, e questo semplicemente perche'
non segui il ng e leggi i suoi numerosi interventi. (vedi a non essere
veterani? ;-))
Ciao


   with Printer do
----------------------
Per caso stasera ho trovato questo .. magari ti è utile ...
http://utenti.lycos.it/negrita78/
ciao
erik