bohemian wrote:

> Active Form을 만들고, 웹브라우저로 볼때

> 웹브라우저의 스크롤바를 사용해서 안보이는

> 부분까지 보고자하면 스크롤이 되면서 화면이

> 깨져버립니다.

>

> 왜그럴까요?

>



델파이 4에서는 않그랬는데 델파이 5에서는 그러더군요..



델파이 버그예요..



저두 예전에 그 현상 때분에 고생했는데 여기 저기 물어봐도 아시는 분이 않 계시더군요.



그래서 외국에 뉴스 그룹 뒤지다 알아냈어요..



델파이 Lib 소스를 수정해야 되요.



axctrls.pas에



function TActiveXControl.SetObjectRects(const rcPosRect: TRect;

const rcClipRect: TRect): HResult;

begin

try

FWinControl.BoundsRect := rcPosRect;

Result := S_OK;

except

Result := HandleException;

end;

end;



부분을 다음과 같이 수정하면 됨.



function TActiveXControl.SetObjectRects(const rcPosRect: TRect;

const rcClipRect: TRect): HResult;

var

WinRect: TRect;

begin

try

IntersectRect(WinRect, rcPosRect, rcClipRect);

// BEGIN FIX

WinRect := Bounds(rcPosRect.left, rcPosRect.Top,

WinRect.Right - WinRect.Left + rcClipRect.Left - rcPosRect.Left,

WinRect.Bottom - WinRect.Top + rcClipRect.Top - rcPosRect.Top);

// END FIX

FWinControl.BoundsRect := WinRect;

Result := S_OK;

except

Result := HandleException;

end;

end;



아니면 ActiveX 메인 폼 위에 Panel을 하나 전체로 놓으시고 그 Panel에 다른 일반 폼을 띄워서 그 일반 폼이 메인 폼 인것 같이 속이시면 되는데...

최석기 wrote:

> bohemian wrote:

> > Active Form을 만들고, 웹브라우저로 볼때

> > 웹브라우저의 스크롤바를 사용해서 안보이는

> > 부분까지 보고자하면 스크롤이 되면서 화면이

> > 깨져버립니다.

> >

> > 왜그럴까요?

> >

>

> 델파이 4에서는 않그랬는데 델파이 5에서는 그러더군요..

>

> 델파이 버그예요..

>

> 저두 예전에 그 현상 때분에 고생했는데 여기 저기 물어봐도 아시는 분이 않 계시더군요.

>

> 그래서 외국에 뉴스 그룹 뒤지다 알아냈어요..

>

> 델파이 Lib 소스를 수정해야 되요.

>

> axctrls.pas에

>

> function TActiveXControl.SetObjectRects(const rcPosRect: TRect;

> const rcClipRect: TRect): HResult;

> begin

> try

> FWinControl.BoundsRect := rcPosRect;

> Result := S_OK;

> except

> Result := HandleException;

> end;

> end;

>

> 부분을 다음과 같이 수정하면 됨.

>

> function TActiveXControl.SetObjectRects(const rcPosRect: TRect;

> const rcClipRect: TRect): HResult;

> var

> WinRect: TRect;

> begin

> try

> IntersectRect(WinRect, rcPosRect, rcClipRect);

> // BEGIN FIX

> WinRect := Bounds(rcPosRect.left, rcPosRect.Top,

> WinRect.Right - WinRect.Left + rcClipRect.Left - rcPosRect.Left,

> WinRect.Bottom - WinRect.Top + rcClipRect.Top - rcPosRect.Top);

> // END FIX

> FWinControl.BoundsRect := WinRect;

> Result := S_OK;

> except

> Result := HandleException;

> end;

> end;

>

> 아니면 ActiveX 메인 폼 위에 Panel을 하나 전체로 놓으시고 그 Panel에 다른 일반 폼을 띄워서 그 일반 폼이 메인 폼 인것 같이 속이시면 되는데...



저도 뉴스그룹을 뒤지니깐 그런말이 나오더군요. 그런데, 수정을 해도 여전히 깨지는데, 다른 문제가 있는것입니까? 또다른 것을 수정해야 되는지요.