[ igac @ 17.01.2007. 20:06 ] @
kako da tekst iz memo1 "ubacim" u neki rectangle u pdf-u...
probao sam nesto ovako
Code:

  TxtRect := CreateRect(1.00,1.00,300.00,300.00);
  TxtXPos := 10;
  TxtYPos := 10;
  Txt := Form1.Memo1.Text;
  TextRect(TxtRect, TxtXPos, TxtYPos, Txt);

ali umjesto newline-ova u memo1 on mi stavi 2 karaktera (cr lf)...
a meni treba da se u neki rect. upise text iz memo-a bas kako je u memou?
[ savkic @ 18.01.2007. 07:33 ] @
> kako da tekst iz memo1 "ubacim" u neki rectangle u pdf-u...
> ali umjesto newline-ova u memo1 on mi stavi 2 karaktera (cr lf)...
> a meni treba da se u neki rect. upise text iz memo-a bas kako je u memou?

Razjasni šta želiš, da li imaš neki virtuelni pdf štampač na koji nešto štampaš? Šta želiš da postigneš?
[ igac @ 18.01.2007. 18:19 ] @
ma tako nesto... koristim rave da exportujem nesto u pdf... pa mi sada treba da neke podatke sa forme 'nacrtam' u rvrenderpdf... znaci treba mi iz memo1 tekst koji je napisan 'iscrtam' nekako u pravougaoniku ali tako da bude formatiran (text) kao sto je u memou... znaci gdje je nova linija u memo tako da bude na pdfu... jel sada jasnije?
[ savkic @ 18.01.2007. 18:57 ] @
> pa mi sada treba da neke podatke sa forme 'nacrtam' u rvrenderpdf... znaci treba mi iz memo1 tekst koji je napisan 'iscrtam' nekako u
> pravougaoniku ali tako da bude formatiran (text) kao sto je u memou... znaci gdje je nova linija u memo tako da bude na pdfu... jel sada jasnije?

Koristi DrawText sa DT_WORDBREAK flegom.

[ igac @ 18.01.2007. 20:22 ] @
ma snasao sam se vec nekako... hvala ipak :)

ako nekom zatreba...
Code:

    rect.TopLeft.X := 100;
    rect.TopLeft.Y := 100;
    rect.BottomRight.X := 3000;
    rect.BottomRight.Y := 2000;
    FillRect(rect);
    for i := 0 to Memo1.Lines.Count do
    begin
    GotoXY(5,10+i*5);
    Println(Memo1.Lines.Strings[i]);
    end;


jeste na divljaka ali radi posao...