StatusBar - прорисовка

← →
Serge_2 © (2005-03-01 11:59) [0]

Уважаемые мастера, подскажите пож-ста, почему рисунок получается нечеткий, как бы с наложением фона.

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar1.Canvas do
begin
FillRect(Rect);
TextOut(Rect.left + 22, Rect.top + 3, StServ);
ImageList1.Draw(StatusBar1.Canvas,Rect.Left+2,Rect.Top+3,connected);
end;
end;
За ранее благодарю.

← →
Shirson © (2005-03-01 12:04) [1]

ImageList1.Draw(StatusBar1.Canvas,Rect.Left+2,Rect.Top+3,True);

А так?

← →
MU (2005-03-01 12:14) [2]

ImageList1.DrawingStyle какой?

← →
Serge_2 © (2005-03-01 12:19) [3]

ImageList1.DrawingStyle какой?
стиль - dsSelected;

Перем. connected - это просто номер имеджа в листе.

MU - Спасибо, поставил Normal, все ОК.

Мда, что-то я пропёрся. За индекс тройку принял...

StatusBar - прорисовка Найти похожие ветки