Fonts: 3D Text

Called like so :
imgPaintCanvas(Image3.Canvas, ‘0’, 10, 6, 4);

[code lang=”delphi”]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;
[/code]

[tags]Delphi, Graphic, Fonts[/tags]