Moin Leute
ich habe da ein Problem mit dem Zeichensatz. Ich möchte in meiner Konsolendarstellung den Zeichensatz so groß wählen, wie es am besten in das Fenster passt. Beim Drucken kann ich mittels CreateFont und SelectObject einen Zeichensatz meiner Wahl erstellen und verwenden. Nun möchte ich z.B. 8 Pixel breit und 12 Pixel hoch mit "Courier New" zeichnen.
Delphi-Quellcode:
var
lCV : TCanvas;
lHFont,
lHFontOld : THandle;
lFontname : string;
lCV := ImageConsole.Canvas;
lFontname := 'Courier New';
lHFont:=CreateFont(lChHeight
,lChWidth
,0//Winkel
,0
,300
,0
,0
,0
,OEM_CHARSET
,OUT_RASTER_PRECIS//OUT_TT_PRECIS//FF_Roman
,CLIP_STROKE_PRECIS//$10
,FIXED_PITCH//2
,FF_MODERN
,@lFontname[1]);
lHFontOld := SelectObject(lCV.Handle,lHFont);
lCV.TextOut(0,0,'Hallo');
SelectObject(lCV.Font.Handle,lHFontOld);
DeleteObject(lHFont);
Sieht soweit gut aus, leider wird mit einem anderen Zeichensatz gezeichnet. Ich habe mal nach "CreateFont Image" gesucht und nichts gefunden.
Kann mir jemand helfen?