정연섭 께서 말씀하시기를...

> 델파이 도사님의 좋은 방법가르쳐주세요..

>

> StatusBar의 특정 Panel의 바탕색을 바꾸려고합니다.

> 예를 들자면

> StatusBar를 다섯 영역으로 나눕니다.

> 그리고 3번째 Panel의 바탕색을 바꾸고 싶은거죠..

>

> 그럼 좋은 방법 부탁드립니다.

>



상태바의 원하는 패널의 Style 프로퍼티를 psOwnerDraw로 설정하고

상태바의 OnDrawPanel 이벤트에서 패널의 바탕색을 바꾸면 됩니다.



비파툴 델파이 Q&A란에서 게시물을 퍼왔습니다.

procedure TMainForm.StatusBar1DrawPanel(StatusBar: TStatusBar;

Panel: TStatusPanel; const Rect: TRect);

begin

with StatusBar.Canvas do

begin

Brush.Color := clRed;

FillRect(Rect);

:

end;

end;



헌데.// 원하는 패널(x)의 배경색만 바꾸려면 StatusBar.Panels[x].Canvas를

참고하면 될것 같은데 델파이가 없어서 테스트를 못해봅니다. 흑 --;

홍길동 께서 말씀하시기를...

> 정연섭 께서 말씀하시기를...

> > 델파이 도사님의 좋은 방법가르쳐주세요..

> >

> > StatusBar의 특정 Panel의 바탕색을 바꾸려고합니다.

> > 예를 들자면

> > StatusBar를 다섯 영역으로 나눕니다.

> > 그리고 3번째 Panel의 바탕색을 바꾸고 싶은거죠..

> >

> > 그럼 좋은 방법 부탁드립니다.

> >

>

> 상태바의 원하는 패널의 Style 프로퍼티를 psOwnerDraw로 설정하고

> 상태바의 OnDrawPanel 이벤트에서 패널의 바탕색을 바꾸면 됩니다.

>

> 비파툴 델파이 Q&A란에서 게시물을 퍼왔습니다.

> procedure TMainForm.StatusBar1DrawPanel(StatusBar: TStatusBar;

> Panel: TStatusPanel; const Rect: TRect);

> begin

> with StatusBar.Canvas do

> begin

> Brush.Color := clRed;

> FillRect(Rect);

> :

> end;

> end;

>

> 헌데.// 원하는 패널(x)의 배경색만 바꾸려면 StatusBar.Panels[x].Canvas를

> 참고하면 될것 같은데 델파이가 없어서 테스트를 못해봅니다. 흑 --;



하하.// --;

델파이 3000팁에 가서 StatusBar로 찾아보니 바로 답이 나오는군요.



procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;

Panel: TStatusPanel; const Rect: TRect);

begin

if Panel = StatusBar.Panels[0] then

begin

StatusBar.Canvas.Font.Color := clRed;

StatusBar.Canvas.TextOut(Rect.Left, Rect.Top, 'Panel - 0')

end else

begin

StatusBar.Canvas.Font.Color := clGreen;

StatusBar.Canvas.TextOut(Rect.Left, Rect.Top, 'Panel - 1');

end;

end;



헌데 (7/16/98)에 나온 답이군요 --;

길동.. 기억해주세요 ^^