안녕하세요.

이건 첨하다가 막히는 부분 있어 이렇게 글 올립니다.

팁에서 보구 실현해 보는건데요.

에러가 나네요.

돔좀 부탁드립니다.



var 부분은 그래픽넣으라구 해서 제가 넣은건데 제대로 한건지..헐..

TBitmap 이나 TGraphic 암거나 써두 같은데 무슨 차이가 잇는지요?

글구 Acess 에러가 나네요..실행은 안되구..헐헐..

참고로 나머지 판넬부분은 psText 입니다.

그럼 항상 건강하십시요.

파팅!!!



procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;

Panel: TStatusPanel; const Rect: TRect);

var

sBmp1, sBmp2 : TBitmap;

begin

Case Panel.Index of

0 : begin

StatusBar.Canvas.FillRect( Rect );

StatusBar.Canvas.Draw( Rect.Left, Rect.Top-1, sBmp1 );

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

end;

4 : begin

StatusBar.Canvas.FillRect( Rect );

StatusBar.Canvas.Draw( Rect.Left, Rect.Top-1, sBmp2 );

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

end;

end;

end;