안녕하세요...
얼큰이 이성현입니다.
이곳 저곳을 찾다가 http://www.delphi.co.kr에서 델파이로 되어 있는걸 찾았네요..
안치봉님이 쓰셨구요..
procedure TForm1.Button1Click(Sender: TObject);
var
dc : HDC;
begin
Canvas.Font.Name := '굴림';
Canvas.Font.Size := 52;
Canvas.Pen.Color := clBlue;
dc := Canvas.Handle;
SetBkMode(dc, TRANSPARENT);
BeginPath(dc);
Windows.TextOut(dc, 100, 100, '난 바본가봐 -.-;;', 17);
EndPath(dc);
StrokePath(dc);
end;
이렇게 하면 됩니다.
---->빌더용으로 고쳐 봤는데...
폼에 버튼 하나 놓고...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HWND hd;
Canvas->Font->Name = '굴림';
Canvas->Font->Size = 72;
Canvas->Pen->Color = clBlue;
hd = Canvas->Handle;
SetBkMode(hd, TRANSPARENT);
BeginPath(hd);
Canvas->TextOut(100,100,"빌더 만만세!!");
EndPath(hd);
StrokePath(hd);
}
이렇게 하니깐 되는 군요..
|