Tema
Registracija

QuickReport i TQRRichText

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Idi na poslednju poruku
  • 14 odgovora
  • 3.672 pregleda
QuickReport i TQRRichText 12.12.2019. u 09:33 · pre 83 meseci #1
Koristim QRRichText kontrolu za ispis teksta koji kreiram u toku izvršenja programa.
Da li postoji mogučnost da se napravi poravnanje teksta Justify, tj. da tekst bude od margine do margine, da nije "nazubljen".
U property-ima ima mogučnosti: taCentar, taLeftJustify, taRightJustify

Ili možda neki drugi način ispisa teksta za kog ne znam unaprijed niti sadržaj niti veličinu?
Re: QuickReport i TQRRichText 13.12.2019. u 12:52 · pre 83 meseci #3
Radio sam to ne tako davno, napravio novi komponent od TQRMemo.

Dakle, treba pronaci u kodu komponenta gde se text split-uje u linije, i u svakoj liniji dopunjavati postojece praznine (izmedju reci) dodatnim space-ovima.
Krajnji rezultat je bio ok, ali nikad tako dobar kao sto radi recimo Word. To zato sto Word radi to isto na grafickoj osnovi ('umece' pixel-e, a ne space-ove).

Re: QuickReport i TQRRichText 13.12.2019. u 14:23 · pre 83 meseci #4
Rapaic Rajko, hvala, nije mi palo na pamet :). Probat ću s ubacivanjem space-ova ili možda "i" ili "." s fontcolor = clWhite jer je "uži"
FastReport koji je uz Delphi XE 10 ima tu mogučnost, ali... stari, glomazni program... tko će platit njegovo prepisivanje...

Pokušavam dogovorit da samo taj dio programa (ispise) prebacim u novi Delphi.
Re: QuickReport i TQRRichText 13.12.2019. u 14:41 · pre 83 meseci #5
Nisam sa QR koristio ali kad god mi je trebalo nesto iz novijeg Delphija u starijem pravio sam dll.
Re: QuickReport i TQRRichText 13.12.2019. u 16:58 · pre 83 meseci #6
Da li se može dobiti TextWidth na QuickReportu? Umetanje "i" mi izgleda OK, ali sam dodao tqrLabel, stavio Enabled := false (da se ne vidi na ispisu) i preko nje dobijem širinu retka. To mi je malo "zaobilazno".
Može li se dobiti (kao na formi) stvarna širina teksta, sa fontrom koji mi je zadan u rich-u, bez da ga upisujem u Caption labele?

Gledao sam malo kod same kontrole, prekomplicirano mi izgleda njega mijenjati...
Re: QuickReport i TQRRichText 16.12.2019. u 09:01 · pre 83 meseci #7
Postoji metod TCanvas.TextWidth(aText: string): integer;

Treba ti neki Canvas. Ukoliko nije dostupan u samoj RichText kontroli (kroz property), mozes da ga kreiras. Zatim napucas Canvas.Font na font koji te zanima, i konacno pozoves Canvas.TextWidth().
Ukoliko kreiras Canvas, ne zaboravi da ga unistis (na kraju).
Re: QuickReport i TQRRichText 16.12.2019. u 09:35 · pre 83 meseci #8
Možda glupa ideja ali treba probati. U wordu spremiti .rtf kao full width poravnanje, kopirati tekst koji treba u taj .rtf file i onda ga učitati u Rich? Možda bi upalilo?
Re: QuickReport i TQRRichText 16.12.2019. u 09:43 · pre 83 meseci #9
Imam problem pri prinutu, na preview je OK. Ne izgleda isto tekst. Funkcija jednako razlomi tekst, ali ne izgleda isto tj. na preview je lijepo poravnat, a na printu je i dalje nazubljen. Širina retka je dugačija.
Napravio sam sljedeće:
- kreiram tqrlabel koju postavim na isti band gdje mi je RichText, postavim font, lijevu marginu, širinu. Kad sam gotov - naravim free
- u labelu stavljam tekst, riječ po riječ dok ne dođem do max. širine koja je <= zadatoj
- idem od prvog space-a na dalje i dodajem po jedan dok ne dobijem širinu koja je <= zadatoj

Na Preview tekst izgleda sasvim ok (nije kao word, ali...), kad ga ispišem ili spremim u PDF, kao da je promijenjen font, nazubljenost je prilična.

Probao sam sa QRPrinter.Canvas.TextWidth, ako radim preview - ok, ali ako je print dobijem vrijednosti koje nemaju veze sa širinom teksta. Primjer za jedno slovo: label.width = 11; QRPrinter.Canvas.TextWidth = 66
Re: QuickReport i TQRRichText 16.12.2019. u 09:56 · pre 83 meseci #10
Probaj iz worda (poravnano) kopirati u Richtext i probaj to isprintati da vidimo kako će ispasti.
Re: QuickReport i TQRRichText 16.12.2019. u 15:09 · pre 83 meseci #11
Evo koda koji je za high a na isti nacin moze da se koristi za width.

Inace QR sam napisao da ne koristim a ovaj kod sam nasao jer kako to inace radi.


Code (delphi):

var
 W, x, y: Integer;
 R: TRect;
 Scale, TxtHeight: Extended;
 cap: String;
begin
 Scale := QRPrinter.XFactor / Screen.PixelsPerInch * 254;
 QRPrinter.Canvas.Font := Font;
 QRPrinter.Canvas.Font.Height := Round(Scale * Font.Height);

 SetRect(R, QRPrinter.XPos(OfsX + Size.Left),
   QRPrinter.YPos(OfsY + Size.Top),
   QRPrinter.XPos(OfsX + Size.Left + Size.Width),
   QRPrinter.YPos(OfsY + Size.Top + Size.Height));
 if not Transparent then
   with QRPrinter.Canvas do
   begin
     Brush.Color := Color;
     Brush.Style := bsSolid;
     FillRect(R);
     Brush.Style := bsClear;
   end;
 W := Round(Scale * 2);
 Frame.InsideRect(R, W);
 TxtHeight := (Canvas.TextHeight('W')) * Scale;

 Cap := 'Some text for print';
 W2 := QRPrinter.Canvas.TextWidth(Cap);
 Y := R.Top + Round(TxtHeight);
 X := R.Left;

 Frame.InsideRect(R, -W);
 ExtTextOut(QRPrinter.Canvas.Handle, X, Y, ETO_CLIPPED, @R, @Cap[1], Length(Cap), nil);
 Frame.InsideRect(R, W);

 PrintFinished := True;
 Frame.InsideRect(R, -W);
 Frame.PaintIt(QRPrinter.Canvas, R, Zoom, []);
end;
 

Re: QuickReport i TQRRichText 16.12.2019. u 15:21 · pre 83 meseci #12
Uspio sam, delfi1122 mi je dao dobru ideju. Ako će nekom trebati:

- Kreirao sam u word-u prazan dokument, poravnao redak (Justify) i spremio kao RTF
- prije upisa teksta u TQRRichText napravil .Lines.LodaFromFile('moj.rtf')
- Dodam tekst koji mi treba (.lines.Append('Neki tekst')

rtf sam linkao u exe preko resource file-a i radi ok.
Prview i print su odlični, lijepo poravnati. Još ostaje problem sa SaveToPDF, prvi redak teksta je "razmrljan", slova duplicirana, kao kad je nekad glava s trakom vukla traku po papiru.
Re: QuickReport i TQRRichText 16.12.2019. u 15:40 · pre 83 meseci #13
tkaranovic, zar to nije ispis direktno, bez slaganja forme u qr-u?
Imam TQRRichText na qr-u koji popunjavam. Kako to napraviti s tvojim kodom?
Re: QuickReport i TQRRichText 16.12.2019. u 15:59 · pre 83 meseci #14
Jeste direkno ali 66 daje ili zato sto fali isti font ili zato sto je XFactor drugaciji kad printuje.
Re: QuickReport i TQRRichText 14.01.2020. u 19:37 · pre 82 meseci #15
Nadopuna. Moja ideja Word -> rtf -> ispis je OK ako radite samo ispis, ali ako radite export u PDF, odustanite... Shvatio sam to nakon 3.000 ispisani i exportiranih u PDF.
Rtf tekst je "razmrljan", izgleda kao da glava štampača struže po papiru i razmazuje slova.

Nema mi druge ne taj kod napisati u Delphi XE, on ima to pravnanje. Program je preglomazan da ga cijelog pišem (nitko neće platit), samo ću taj dio pa ga pozivati kao vanjski, ne koristi se često.
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme