title image


Smiley Re: Text mit Umriss zeichnen


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

begin

SetBkMode(Canvas.Handle, TRANSPARENT);

Canvas.Font.Color := clGray;

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

Canvas.Font.Color := Font.Color;

Canvas.TextOut(X, Y, AText);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

DrawTextWithShadow('Das ist ein text mit Schatten', 2, 2);

end;







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: