Delphi Alpha Zeichen auf Label machen

Thema durchsuchen

Ansicht

Themen-Optionen

Alpha Zeichen auf Label machen

Ein Thema von Christian18 · begonnen am 27. Jun 2007 · letzter Beitrag vom 28. Jun 2007

Vorheriger Beitrag

Nächster Beitrag

bitsetter

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.

markieren

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);