Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
ВнизOnDrawPanel Найти похожие ветки
← →
Comp (2002-11-26 15:41) [0]В чём тут дело?
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if panel=Statusbar1.Panels.Items[0] then
begin
StatusBar1.Canvas.Font.Color:=clRed;
StatusBar1.Canvas.TextOut(0,0,"Text");
end;
if panel=Statusbar1.Panels.Items[1] then
begin
StatusBar1.Canvas.Font.Color:=clRed;
StatusBar1.Canvas.TextOut(0,0,"
← →
Song (2002-11-26 15:52) [1]Description
The OnDrawPanel event occurs when a status panel needs to be redisplayed—for example, when the user resizes the status bar. The Rect parameter gives the (new) dimensions of the status panel. OnDrawPanel occurs only if the status panel’s Style property is set to psOwnerDraw.
TDrawPanelEvent is the type of the OnDrawPanel property.
----
Оно?
← →
Alx2 (2002-11-26 15:52) [2]StatusBar1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,"Text");
← →
Alx2 (2002-11-26 15:55) [3]
Begin
If Panel = StatusBar1.Panels.Items[0] Then
Begin
StatusBar1.Canvas.Font.Color := clRed;
StatusBar1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,"Text");
End;
If Panel = StatusBar1.Panels.Items[1] Then
Begin
StatusBar1.Canvas.Font.Color := clRed;
StatusBar1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,"Text2");
End;
If Panel = StatusBar1.Panels.Items[2] Then
Begin
StatusBar1.Canvas.Font.Color := clRed;
StatusBar1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,"Text3");
End;
End;
← →
Comp (2002-11-27 11:54) [4]Song
Я знаю, что надо поставить соответствующий стиль панелькам
Только он чё-то не писал в каждой панели, что надо было.
Теперь ясно.
Alex
Спасибо!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c