Umlaute drucken

[150gozilla]

Hallo, ich hab mir ein Azubi Programm geschrieben.

Wenn ich drucke werden die (ä,ü,ö) in blöcke geändert.. ich denke mal der Zeichensatz stimmt nicht.. oder soll ich sie per ascii ausgeben lassen ?


So siehts im Moment aus:

Delphi-Quellcode:

TextAusgabe  (15+17,31.5, 'Ausgeführte Arbeiten, Unterricht');

[fkerber]

Hi!

Wie sieht denn die Procedure textausgabe aus?


Ciao Frederic

[150gozilla]

Delphi-Quellcode:

   procedure Textausgabe(x,y:Double; GibText:String);
   begin
     printer.canvas.textout(getx(x)+getdevicecaps(Printer.Canvas.Handle, PHYSICALOFFSETX),
                            gety(y)+getdevicecaps(Printer.Canvas.Handle, PHYSICALOFFSETY),GibText);
   end;

Hoffe du kannst was damit anfangen

[150gozilla]

Könnte mir bitte jemand helfen ?

[SirThornberry]

Bitte unterlasse das pushen innerhalb von 24 stunden. Es ist unfähr gegenüber anderen, welche auch ein Problem haben, wenn du auf diese Weise deinen Beitrag immer nach ganz oben bringst.

[andreash]

Welchen Font verwendest du?

[150gozilla]

Öhm den standard Font. Ich hab lediglich die Schrift mit bold verdickt.

Delphi-Quellcode:

font.style   := [fsbold];

[andreash]

Interessant ist auch die Eigenschaft TFont.Charset. Setzte diese mal auf ANSI_CHARSET. Falls das auch nicht funktioniert, probiere

Delphi-Quellcode:

Font.Name='Arial';

aus.