|
** 일반적인 TForm 스크롤바가 깜빡거리지않음
void __fastcall TForm7::Button1Click(TObject *Sender)
{
TScrollBar *ScrollBar=new TScrollBar(this);
ScrollBar->Parent=this;
ScrollBar->Top=0;
ScrollBar->Left=0;
ScrollBar->Width=100;
ScrollBar->Height=10;
}
** TCustomControl 스크롤바가 깜빡거림
__fastcall TCustomControl1::TCustomControl1(TComponent* Owner)
: TCustomControl(Owner)
{
ScrollBar=new TScrollBar(this);
ScrollBar->Parent=this;
ScrollBar->Top=0;
ScrollBar->Left=0;
ScrollBar->Width=10;
ScrollBar->Height=100;
ScrollBar->Visible=true;
}
커스텀 컨트롤을 만들들고 싶어서 컴포넌트의 new vcl compoent 메뉴에서
TCustomControl 를 슈퍼클레스로해서 프로젝트를 생성했습니다
그리고 스크롤바가 필요해서 위의 소스처럼 생성장에서 new 시켜서 만들어줫습니다
스크롤바가 잘생성되고 작동도 잘되지만
TCustomControl 의Invalidate 함수를 호출해서 다시그릴려면 new 만든 컨트롤까지
다시그리는지 배경색이나왔다 껌뻑거리내요.. 제가 만든프로그램이
Invalidate 를 많이 호출하는대.. 덕분인지 위의 컨트롤이 껌뻑거리다 못해 어떨땐느 표시가 안나오기도하는대
어떤식으로 해결해야 할지 모르겠습니다
일반적인 TForm 도 그런지 Invalidate 함수를 타이머로 걸어서 호출해봐도 그러지는않내요...
TCustomControl 위에 생성시킨 컨트롤이 그러나봅니다..
어떤식으로 해결해야할지 모르겠습니다.. 고수님의 관심 부탁드립니다
|