델마당의 강좌를 보고 해보는데요...
<폼에 플레시 콘트롤 얹어놓고 플레시 애니메이션 모양대로 폼을 깍기 ^^ >
http://www.delmadang.com/cwb-bin/CrazyWWWBoard.exe?db=dmdlec3&mode=read&num=1755&page=1&backdepth=1
관련 팁
<CreateBitmapRgn>
http://www.delmadang.com/cwb-bin/CrazyWWWBoard.exe?db=dmdlec3&mode=read&num=2788&page=1&backdepth=1
플래쉬의 모양대로 폼은 깍기는데요... 플래쉬가 플레이되는 위치가
아래로 밀립니다... 원인을 나름대로 생각해봤더니
메인폼의 타이틀바 때문인거같더라구요...
그래서 메인폼의 BorderStyle을 bsNone으로 바꿔봤더니
폼 자체가 안나오더라구요 OTL
환경은 XP pro sp2 Delphi5 환경입니다...
소스와 실행파일도 같이 포함합니다...
아참 글구 BitmapRgn.pas에서
델5에는 없는 PCardinal이 있어서
type
...
PCardinal = ^Cardinal;
추가 해줬습니다...
플래쉬 속성에서 고쳐야하는건지 ㅡㅜ
고수님의 따스한 손길을 기다리겠습니다..
음 그냥 아래 처럼 하니 잘 되긴 한데... 맞는건지는 저도 모르겠네여..
뭐 일단 모양 잡기 전에 bsnone 으로 해주면되는거 같은데.. ^^
procedure TForm1.FormCreate(Sender: TObject);
begin
Width:=0;
Bitmap := TBitmap.Create;
Bitmap.PixelFormat := pf24bit;
Bitmap.Width := Flash1.Width;
Bitmap.Height := Flash1.Height;
LoadFlash;
Form1.BorderStyle := bsNone; // 여기 고친 부분 입니다.. ^^
StartFlashMsgHook;
end;
이렇게 해서 해보니 잘되더군요...
그럼 이만..
덕분에 재미있는거 봤네요.. ^^