Texto en 3D (o casi)  

Enviado Por: casimaxi
Web : N.A.
Email: N.A.
Fecha: 07/06/20

Truco accedido 82 veces

 


Coloca esto en el OnClick de un TButton para probarlo:

 procedure TForm1.Button1Click(Sender: TObject);

   procedure TextoEn3D(TheCanvas : TCanvas; TheString : String;
     TheFontSize, UCorner, LCorner : Integer);
   begin
     TheCanvas.Brush.Style := bsClear;
     TheCanvas.Font.Style := [fsBold];
     TheCanvas.Font.Name := 'MS Sans Serif';
     TheCanvas.Font.Size := TheFontSize;
     TheCanvas.Font.Color := clBlack;
     TheCanvas.TextOut(UCorner, LCorner, TheString);
     TheCanvas.Font.Color := clGray;
     TheCanvas.TextOut(UCorner - 1, LCorner - 1, TheString);
     TheCanvas.Font.Color := clSilver;
     TheCanvas.TextOut(UCorner - 2, LCorner - 2, TheString);
     TheCanvas.Font.Color := clBlack;
     TheCanvas.TextOut(UCorner - 3, LCorner - 3, TheString);
   end;

 begin
   textoen3d(Form1.Canvas, 'AGUANTE BOCA JUNIORS CHEEEEEE!!!', 10, 6, 4);
 end;