Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#9

Re: Alpha Zeichen auf Label machen

  Alt 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
  Mit Zitat antworten Zitat