Pitch mit Textoutw und Accents ?

[myicq]

Hallo Alle,

ich habe jetzt (fast) verstanden wie ich unter D6/D7 Unicode-Text auf eine Canvas ausgebe, und zwar mit Möglichkeit für gespiegelt, gedreht etc. Das meiste klappt schon.

Aber..

Ich möchte gern auch die Möglichkeit haben eine Pitch zu benutzen. Mit SetworldTransform kann ich jeder Zeichen schmaler machen, das geht problemlos. Aber leider unterstützt DrawTextW keine pitch-parameter.

Ich habe versucht mit TextOut (position):

Delphi-Quellcode:

    startx := 100;
    starty := 10;

    for i := 1 to length(content) do
    begin

        WideCanvasTextOut(                // TNTGraphics function
           TCanvasPanel(Panel1).Canvas,
           startx,
           starty,
           content[i]

        );

        startx := startx + 
            WideCanvasTextWidth(
                   TCanvasPanel(Panel1).Canvas,
                   content[i]
                  ) +
                  pitchvalue;

    end;

Klappt auch ABER geht mit zB Arabisch und Hebräisch shief. Zehe Beispiel unten:

Ich vermute das ich über CreateFontIndirectW etwas zuchen muss, aber suche eine Beispiel ?

Text ist : "َجِبُ عَلَى الإنْسَانِ"

Oben mit Textout (codebeispiel), unten mit Drawtext.

[himitsu]

Das GDI und GDI+ kennt nicht nur DrawText.

Wenn das etwas nicht kann, dann mal eine der anderen APIs ansehen.
TextOut?


DrawString
...

Und es gibt nicht nur das GDI.

[myicq]

Korrekt, das Problem ist aber, so wie ich das sehe: wenn ich eine Widestring pro-zeichen (for 1..length() ) durchlaufe, und jeder Zeichen ausgebe, ist teil davon auch "diakritische zeichen", also ohne spaces.

Entweder muss ich die Zeichen "kennen", oder ich muss am Font selber die Pitch setzen.

[KodeZwerg]

Hier zwei simple Unicode Beispiele.

Für Windows NT =

Delphi-Quellcode:

procedure TMyControl.Paint;
var
  S: WideString;
  r: TRect;
begin
  inherited;
  r := ClientRect;
  S := 'This is the integral sign: '#$222b;
  DrawTextW(Canvas.Handle, PWideChar(S), length(S), r, DT_SINGLELINE or
    DT_CENTER or DT_VCENTER or DT_END_ELLIPSIS);
end;

Für Windows 9x =

Delphi-Quellcode:

procedure TMyControl.Paint;
var
  S: WideString;
begin
  inherited;
  S := 'This is the integral sign: '#$222b;
  TextOutW(Canvas.Handle, 0, 0, PWideChar(S), length(S));
end;

Gefunden hier.