Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];

Вниз

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  - это просто номер имеджа в листе.

---

← →
Serge_2 ©   (2005-03-01 12:24) [4]

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

---

← →
Shirson ©   (2005-03-01 12:35) [5]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.041 c