Registriert seit: 17. Jan 2007
1.169 Beiträge
Turbo Delphi für Win32
|
Re: Alpha Zeichen auf Label machen
28. Jun 2007, 00:00
Hi,
eventuell könntest mit TextOutW oder DrawTextW den Text selber zeichnen.
Delphi-Quellcode:
var
WText: PWideChar;
begin
GetMem(WText, 20);
StringToWideChar(' = 3°',WText, 6);
PWidechar(WText)^:= WideChar($03B1);//Alpha Zeichen
canvas.Font.Name := 'Arial';
TextOutW(canvas.Handle, 10, 10, WText, 5);
FreeMem(WText, 20);
Gruß bitsetter
"Viele Wege führen nach Rom" Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
|
|
Zitat
|