안녕하세여. 타락임다..

ActiveForm Paint 이벤트가 점 문제가 있나여?

그럼 ActiveForm 크기에 해당하는 TImage 나 TPanet 을 올려놓고 Paint 이벤트를 잡으면 아마 될겁니다.

근데, ActiveForm의 경우엔 일반 어플이 아닙니다. Paint 시점이 해당 Page Show 시점인지 HTML code 를 모두 받은 시점인지, 또는 해당 Page 가 모두 그려진 다음인지 잘 모르겠어요. Paint 이벤트 보다는 Client 이벤트에서 처리하는게 좋을것 같습니다.

즐푸하세여..

타락천사..

activeX콘트롤 말하는거 맞는데요....델파이에서 acitveFrom이라구 되어있잖아요....일반 애플로 했던것을 그대로 옮기려구요..
OnPaint시에 다음과 같은코드를 넣으려고 합니다.
뭐하는 거냐면요...filecaptureimage위에 frameimage를 알파블렌딩하는겁니다. 반투명으로요....일반 애플에서는 잘되는데요....activeform기반에서는 OnPaint가 아예 오질 않네요...어떻게 해결을 해야할까요..
frameimage이미지가 마우스로 크기변환가능하걸랑요,,,계속 반투명유지해야하고 그아래 captureimage는 그대로 있걸랑요...
그래서 나중에 그 프레임부분만큼 captureimage부분을 잘라오는데..
반투명만 문제가 되네요...그럼...답변좀...

procedure Tfmcola.ActiveFormPaint(Sender: TObject);
var
  BlendFunction : TBlendFunction;
begin

  frameimgresize.Picture := nil;
  frameimgresize.Width := frameImage.Width;
  frameimgresize.Height := frameImage.Height;

  SetStretchbltMode( frameimgresize.Canvas.Handle, COLORONCOLOR );

  StretchBlt(frameimgresize.Canvas.Handle, 0, 0, frameimgresize.Width, frameimgresize.Height,
          frameimgori.Canvas.Handle, 0, 0, frameimgori.Width, frameimgori.Height, SRCCOPY);


  Canvas.Draw(filecaptureImage.Left, filecaptureImage.Top, filecaptureImage.Picture.Bitmap);

  with BlendFunction do
  begin
      BlendOp := AC_SRC_OVER;
      BlendFlags := 0;
      // 이 값이 블랜드될 양입니다. 0~255까지.
      SourceConstantAlpha := 50;
      AlphaFormat := 0;
  end;


  AlphaBlend(
      Canvas.Handle,
      frameImage.Left, frameImage.Top, frameImage.Width, frameImage.Height,
      frameimgresize.Picture.Bitmap.Canvas.Handle,
      0, 0, frameImage.Width, frameImage.Height,
      BlendFunction
      );
end;