[ krle_zr @ 17.11.2007. 12:46 ] @
Ideja je da se nakon iscrtavanja nekog stringa (preuzetog iz RichEdit komponente) u Canvasu dobije tacna sirina stringa. Radi se o TrueType fontu, jer ce zavrsna slika ici u WMF. Napominjem da sam vec probao s funkcijama GetTextWidth, odnosno GetTextExtentPoint32 (API) i one lepo rade kad je u pitanju normalan font. Medjutim cim promenim stil fonta na Italic odmah prikazuje pogresno, npr. string 'asdf' vraca duzinu od 20 piksela i to je tacno, a italic vraca isto 20, a prava duzina je 26 . Cackao sam po Netu i naisao na funkciju GetTextMetric, medjutim ona ne radi sa TrueType fontovima. Isto tako sam probao s funkcijom GetCharaABCWidths koja bi trebalo da vrati odsutpanje karaktera (npr f) tj. Overhang, ali mi ona stalno vraca gresku. Na Netu sam pronasao par primera koji ovo resavaju, ali su svi oni pisani u C++. Evo kako sam ja probao:

Code:

procedure TForm1.AdjustEndRect(var CharW: Integer; Key: Char; MyCanvas: TCanvas);
var
  iLastChar: cardinal;
  iCharWidth: integer;
  iCharInfo: TABC;
  dc: HDC;
begin
  dc := MyCanvas.Handle;
  iLastChar := Ord(Key);
  if GetCharABCWidths( dc, iLastChar, iLastChar, iCharInfo ) then  //ovde vraca gresku
  begin
    iCharWidth := iCharInfo.abcA + integer(iCharInfo.abcB);
    if iCharInfo.abcC >= 0 then           //ako postoji odsupanje dodaj abcC
      Inc( iCharWidth, iCharInfo.abcC );
  end
  else
    GetCharWidth( dc, iLastChar, iLastChar, iCharWidth ); //ako ne, tekst nema odstupanja sledi obicna probera

  if iCharWidth > 0 then
    Inc( CharW, iCharWidth );
end;


Mozda sam nesto gadno pogresio ovde, posto sam slabije do sad radio sa API-jem.
Pozdrav
[ [KS] @ 17.11.2007. 22:52 ] @
Canvas.TextWidth(text: string); ?
[ savkic @ 17.11.2007. 23:40 ] @
> fontu, jer ce zavrsna slika ici u WMF. Napominjem da sam vec probao s funkcijama GetTextWidth, odnosno GetTextExtentPoint32 (API) i one lepo rade
> kad je u pitanju normalan font. Medjutim cim promenim stil fonta na Italic odmah prikazuje pogresno,
> npr. string 'asdf' vraca duzinu od 20 piksela i to je tacno, a italic vraca isto 20, a prava duzina je 26 .

Onda negde grešiš, GetCharWidth možeš koristiti za dobijanje širine pojedinih karaktera odnosno niza karaktera pri čemu se uzima u obzir selektovan font i njegovi atributi u datom device contextu tj. TCanvasu. Isto važi za GetTextExtentPoint32. U principu ako ti treba širina nekog teksta koristiš GetTextExtentPoint32 ili TCanvas.TextWidth koji se svodi na tu funkciju.

> Cackao sam po Netu i naisao na funkciju GetTextMetric, medjutim ona ne radi sa TrueType fontovima.

??? Itekako radi sa TT fontovima, mada je ona namenjena za druge stvari, ne za ono što tebi treba.

> Isto tako sam probao s funkcijom GetCharaABCWidths koja bi trebalo da vrati odsutpanje karaktera (npr f) tj. Overhang, ali mi ona stalno vraca gresku.

Onda opet je ne koristiš kako treba, s tim što ona i nije namenjena za svrhu koju ti planiraš.
[ krle_zr @ 18.11.2007. 23:17 ] @
Hvala na odgovorima, ali se stvar u medjuvremenu zakomplikovala, pa cu morati da merim slovo po slovo (zbog razlicitih stilova).
Pozdrav
[ X Files @ 19.11.2007. 07:08 ] @
Čekaj, ti hoćeš da izmeriš širinu jedne linije teksta u TRichEdit-u, koji može da ima i više stilova, fontova i sl. istovremeno ?

P.S.
Ako nije to, onda pogledaj Delphi primere koji uzimaju u obzir TControlCanvas (pretraži NNTP grupe, recimo keywords: delphi TControlCanvas width).


[Ovu poruku je menjao X Files dana 19.11.2007. u 08:20 GMT+1]
[ krle_zr @ 19.11.2007. 11:50 ] @
Citat:
X Files: Čekaj, ti hoćeš da izmeriš širinu jedne linije teksta u TRichEdit-u, koji može da ima i više stilova, fontova i sl. istovremeno ?


Upravo tako, jer ceo sadrzaj jednog reda ce ici na recimo PaintBox1.Canvas, i to nije problem.
Evo koda:
Code:

procedure TForm1.RichEditToCanvas(RichEdit: TRichEdit; Canvas: TCanvas; PixelsPerInch: Integer);
var
  ImageCanvas: TCanvas;
  fmt: TFormatRange;
begin
  ImageCanvas := Canvas;
  with fmt do
  begin
    hdc := ImageCanvas.Handle;
    hdcTarget := hdc;
    // rect needs to be specified in twips (1/1440 inch) as unit
    rc:=  Rect(0, 0,
                ImageCanvas.ClipRect.Right * 1440 div PixelsPerInch,
                ImageCanvas.ClipRect.Bottom * 1440 div PixelsPerInch
                );
    rcPage:= rc;
    chrg.cpMin := 0;
    chrg.cpMax := RichEdit.GetTextLen;
  end;
  SetBkMode(ImageCanvas.Handle, TRANSPARENT);
  RichEdit.Perform(EM_FORMATRANGE, 1, Integer(@fmt));
  // next call frees some cached data
  RichEdit.Perform(EM_FORMATRANGE, 0, 0);
end;


Medjutim, meni je problem sto ovaj kod lepi ceo sadrzaj RichEdit-a na Canvas, a nemogu da dobijem tacnu sirinu posto sve gore navedene funkcije(TextWidth, GetTextMetric, GetCharABCWidths), mi ne vracaju tacnu sirinu stringa, posebno kad je stil italic, npr. pokusajte da kod komponente StaticText promenite stil fonta na italic i stavite vrednost svojstva AutoSize na True, primeticete da su nekoliko poslednjih piksela fonta odseceni. Jer ideja je da se prilikom svakog unosa u RichEdit menja velicina komponente sa Canvas-om, koja odgovara visini i sirini fonta. Dao sam primer sa StaticText-om, jer cete tu najbolje videti na sta mislim odnosno rezultat funkcije TextWidth, koju interno koristi ova komponenta(stavite velicinu fonta 24, Italic i tekst 'asdf' i falice skoro ceo karakter).
Pozdrav

[Ovu poruku je menjao krle_zr dana 19.11.2007. u 13:00 GMT+1]
[ X Files @ 19.11.2007. 12:18 ] @
Pogledaj ovde, možda nešto uspeš da iskoristiš (kod je VCL i API):
http://www.elitesecurity.org/t253482-0#1524103

Prikazani kod vrši širenje dimenzija TRichEdit objekta (Width, Height) da bi se ceo tekst prikazao. Dakle, određuje se linija najveće širine i to uzima za Width. Visinu je kao lakše izračunati.

Kod nije 100% doteran, postoje i neke stvari koje nisu uzete u obzir ali meni uglavnom vrši posao.