외곽선 글자 그리기

From YYpBD's MediaWiki

  With Canvas do
  begin
    Font.Name:='굴림';
    Font.Style := Font.Style + [fsBold];
    Font.Size:=40;
    Brush.Style:=bsClear;

    BeginPath(Handle);
    Canvas.TextOut(50, 100, '민성기 만세 만세 만만세!!');
    EndPath(Handle);
    StrokePath(Handle);
  end;