transparenten Text auf Desktop

[hathor]

Zitat von luisk:

nur leider werden kleine Schriften unscharf

Änderungen:

Delphi-Quellcode:

...
    Canvas.Font.Name  := 'Tahoma';  // Comic Sans MS
    Canvas.Font.Size  := 20; //kleiner macht wenig Sinn...
// Canvas.Font.Style := [fsBold]; //ersatzlos entfernen
    self.width:=Canvas.TextWidth(TextToDraw)+60;
    self.height:= 2*Canvas.Font.Size;    //Canvas.TextHeight('X');
...