OwnerDraw в компоненте StatusBar
Falk0ner, вс, 06/07/2008 - 15:34.
OwnerDraw в компоненте StatusBar
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
with statusbar1.Canvas do
begin
Brush.Color := clRed;
FillRect(Rect);
TextOut(Rect.Left, Rect., 'Панель '+IntToStr(Panel.Index));
end;
end;
Panel: TStatusPanel; const Rect: TRect);
begin
with statusbar1.Canvas do
begin
Brush.Color := clRed;
FillRect(Rect);
TextOut(Rect.Left, Rect., 'Панель '+IntToStr(Panel.Index));
end;
end;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий