Cara Membuat Efek Emboss Pada Teks Di Delphi

Dengan menambahkan efek emboss pada teks, Anda dapat membuat tampilan teks yang seolah terlihat sebagai teks tiga dimensi.

Efek emboss dibuat dengan menambahkan kode pada event OnPaint dari Form.

procedure TFrmEmboss.FormPaint(Sender: TObject);
const
  StrLink = 'Emboss Coder';
var
  FontRecall: TFontRecall;
begin
  FontRecall:= TFontRecall.Create(Canvas.Font);
  try
    SetBkMode(Canvas.Handle, Windows.TRANSPARENT);
    Canvas.Font.Color:= clWhite;
    Canvas.Font.Style:= [fsItalic, fsBold];
    Canvas.Font.Size:= 36;
    Canvas.Font.Name:= 'Tahoma';

    Canvas.TextOut(20, 20, StrLink);
    Canvas.Font.Color:= clBlack;
    Canvas.TextOut(19, 19, StrLink);

    Canvas.Font.Assign(FontRecall.Reference);
  finally
    FontRecall.Free;
  end;
end;