Textausgabe in Image (UTF8)

[juelin]

Hallo alle zusammen,
ich habe ein Problem mit der Textausgabe in einem TImage.
Der Text wird in TEdit eingeben.
Sollange ich den Text z. B. in einem Label ausgebe ist auch alles ok.
Wenn ich aber den Text (Edit1,Text) in einem Image ausgeben will (Image2.Canvas.Textout(X,Y,Edit1.Text)
so lommen bei Umaluten Hiroglyphen raus.
In Text1.Edit steht UTF8 Code und in Lazarus habe ich auch UTF8 als Code stehen. (kleines ü steht Hex: C3,BC in Edit1.Test)
Habe auch schon mit Utf8ToAnsi bzw UTF8Encode probiert hilft auch nicht.
Image2.Canvas.Font.Charset habe ich auch probiert. klappt auch nicht.
Habe heute den ganzen Abend nach einer Lösung im Internet gesucht, aber nix gefunden.
Kann mir da jemand helfen?
Danke und Gruß
Jürgen

[wp_xyz]

Kann ich nicht nachvollziehen - siehe Beispiel

[Jorg3000]

Guten Morgen!

Ich meine mich zu erinnern, dass ich mit Textout() auch schon mal stundenlang "Spaß" hatte. Ist aber schon Jahre her, in einer früheren Lazarus-Version.
Falls das Problem noch besteht, hätte ich folgenden Ansatz (nicht getestet) ...

Code: Alles auswählen

var s: RawByteString;
s:=Edit1.Text;
SetCodepage(s, cp_utf8, false);  // cp_utf8 = 65001
Image2.Canvas.Textout(X,Y,s);

Ich meine mich zu erinnern, dass ich es mir damals so erklärt habe, dass in FreePascal in der CodePage-Kennung eines Strings normalerweise nur 0 steht - und diese 0 einfach die aktuelle Programm-CodePage meint (i.d.R. UTF-8). Das finde ich ziemlich nachlässig, da eine 0 ohne den Kontext der Instanz nichts bedeutet.
Nachdem ich anstelle der 0 die echte CodePage-ID für UTF-8, nämlich 65001, manuell gesetzt habe, hatte es damals funktioniert, glaube ich.
Grüße, Jörg

[juelin]

Hallo Jong3000,
habe ich probiert hat leider auch nix gebracht.
siehe Bild
Gruß
Jürgen

[fliegermichl]

Das kann ich nicht nachvollziehen.
Ich habe eine Form mit einem TImage, TEdit und TButton erstellt und im ButtonClick steht:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
const cy : integer = 0;
begin
  Image1.Canvas.TextOut(100, cy, Edit1.Text);
  Inc(cy, Image1.Canvas.Textheight(Edit1.Text));
end; 

Da wird alles ordentlich ausgegeben.
Könntest du ein kleines Beispielprojekt posten, wo man das nachvollziehen kann?

[Jorg3000]

Hm,
ist Canvas.Font.CharSet = ANSI_CharSet (soll) oder OEM_CharSet (falsch) ?

Mach mal vorm Schreiben:

Code: Alles auswählen

Image2.Canvas.Font := Form1.Font;

Falls das auch nix bringt, hätte ich alternativ eine Nur-Windows-Lösung mittels UTF-16 ...
Dabei müssten die Koordinaten in einem TRect übergeben werden.

Code: Alles auswählen

var ws: UnicodeString;
ws := UnicodeString( Edit1.Text );
Windows.DrawTextW( Image2.Canvas.Handle, PWChar(ws), Length(ws), Rect, DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX );

[siro]

Ich habe das Beispiel von fliegermichl grad probiert.

Lazarus 3.0 (rev lazarus_3_0) FPC 3.2.2 x86_64-win64-win32/win64

Bei mir funktioniert das problemlos.

ue_ue.jpg (9.28 KiB) 664 mal betrachtet

[theo]

Hast du das Bsp. von wp_xyz oben ausprobiert? (erste Antwort).
Was passiert da bei dir?
Schon mal versucht, die Schriftart zu wechseln? Kann ich mir zwar kaum als Grund vorstellen, aber "Versuch macht kluch".

[juelin]

Beispiel von wp_xyz bring nix.

[juelin]

Hallo Jong3000,
in Deimen Beispiel:
Windows.DrawTextW( Image2.Canvas.Handle, PWChar(ws), Length(ws), Rect, DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX );
mekert Lazarus Windows und PWChar an.
Da braucht er wahrscheinlich in USES noch einen Eintrag?????
Bei Rect fehlt doch die Angabe von Start/ende X,Y??????
Und die DT_......... findet er nicht.
Danke und Gruß
Jürgen

[fliegermichl]

Beispiel von wp_xyz bring nix.

Heisst das es geht oder geht nicht? Bei mir wird da alles ordentlich angezeigt.
Was hast du für eine Lazarus Version?
Windows oder Linux?

[Niesi]

Das Beispiel von wp_xyz arbeitet einwandfrei ...

Auswahl_025.png (736.68 KiB) 612 mal betrachtet

Auswahl_026.png (134.68 KiB) 612 mal betrachtet

Edit: Rechtschreibung

[juelin]

hier nochmal,
das Beispiel von wp_xyz finktioniert bei mir nicht.
Habe WINDOWS 10
Gruß
Jürgen

[Niesi]

.

Und so sieht das Beispiel von wp_xyz unter Windows 10 aus:

.

2025-01-07 12_52_01-Form1.png (726.34 KiB) 592 mal betrachtet

2025-01-07 12_52_54-Über Lazarus.png (127.01 KiB) 592 mal betrachtet

[Mathias]

Kann ich nicht nachvollziehen - siehe Beispiel

Habe es auch getestet, normal unter Linux, sowie mit wine, beides ist io.

Wen ich die Screenshoots von juelin angucke, verwendet er ein ganz komischer Font.