Delphi dicas

Dicas delphi desenho 3d no form com canvas

Desenhando texto 3D no form com Canvas

Antes vc deve declarar esa procedure na seção private

procedure TForm1.imgPaintCanvas(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;





Exemplo:



procedure TForm1.Button1Click(Sender: TObject);

begin

        imgPaintCanvas(Form1.Canvas, 'WWW.LLOYDSOFT.HPG.COM.BR', 10, 6, 4);

end;

por : Carlos Eduardo