Hallo,könnte mir vieleicht jemand sagen wie man Umlaute mit Lazarus
unter Linux druckt?
MfG woody
Umlaute mit Lazarus unter linux drucken
-
- Beiträge: 374
- Registriert: Mi 13. Sep 2006, 15:57
- OS, Lazarus, FPC: Winux (L 0.9.xy FPC 2.2.z)
- CPU-Target: xxBit
- Wohnort: Hagen a.T.W.
- Kontaktdaten:
Prozedur zum Drucken
Hallo woody,
diese Prozedur druckt den Inhalt eines Memofeldes korrekt mit Umlauten aus :
Bitte nicht vergessen, die Unit Printers einzubinden ! Aber dann gibt es ja auch Mecker vom Compiler. Getestet unter Linux und Windows.
Ralli
diese Prozedur druckt den Inhalt eines Memofeldes korrekt mit Umlauten aus :
Code: Alles auswählen
procedure TForm1.ToolButton6Click(Sender: TObject);
var drucker : Tprinter;
var H, Line : Integer;
begin
if PrintDialog1.Execute then
begin
Drucker := Printer;
Drucker.BeginDoc;
Drucker.Canvas.Font.Name := 'Arial';
Drucker.Canvas.Font.Size := 10;
H := Drucker.Canvas.TextHeight('Gg') + 2;
for Line := 0 to Editor.Lines.Count do begin
Drucker.Canvas.TextOut(25, 25 + Line * H, Editor.Lines[Line]);
end;
Drucker.EndDoc;
end;
end;
Bitte nicht vergessen, die Unit Printers einzubinden ! Aber dann gibt es ja auch Mecker vom Compiler. Getestet unter Linux und Windows.
Ralli
-
- Beiträge: 9
- Registriert: Fr 20. Okt 2006, 17:53
- OS, Lazarus, FPC: Winux (L 0.9.xy FPC 2.2.z)
- CPU-Target: xxBit
- Wohnort: Regensburg
Problem nicht gelöst
Danke ralli ,wie man unter Lazarus druckt weiß ich auch .
Ich habe nur das Problem mit dem Ausdruck von Umlauten wie üäö
Beispiel: anstatt " ä " bekomme ich " Ķ " ausgedruckt.
Verwende Ubuntu/Kubuntu 6.06
MfG woody
Ich habe nur das Problem mit dem Ausdruck von Umlauten wie üäö
Beispiel: anstatt " ä " bekomme ich " Ķ " ausgedruckt.
Verwende Ubuntu/Kubuntu 6.06
MfG woody