title image


Smiley Und jetzt mit Umriß


procedure TForm1.DrawTextWithOutline(AText: string; X, Y: Integer);

begin

SetBkMode(Canvas.Handle, TRANSPARENT);

Canvas.Font.Color := clWhite;

Canvas.TextOut(X + 1, Y + 1, AText);

Canvas.TextOut(X - 1, Y - 1, AText);

Canvas.TextOut(X + 1, Y - 1, AText);

Canvas.TextOut(X - 1, Y + 1, AText);

Canvas.Font.Color := Font.Color;

Canvas.TextOut(X, Y, AText);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

DrawTextWithOutline('Das ist ein text mit Umriß', 2, 2);

end;







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: