| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
StatusBar - прорисовка [D7, WinXP]
Serge_2 © (2005-03-01 11:59:00)Уважаемые мастера, подскажите пож-ста, почему рисунок получается нечеткий, как бы с наложением фона.
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:35:00) [1]Мда, что-то я пропёрся. За индекс тройку принял...
Serge_2 (2005-03-01 12:24:00) [2]MU - Спасибо, поставил Normal, все ОК.
Serge_2 (2005-03-01 12:19:00) [3]ImageList1.DrawingStyle какой?
стиль - dsSelected;
Перем. connected - это просто номер имеджа в листе.
MU (2005-03-01 12:14:00) [4]ImageList1.DrawingStyle какой?
Shirson (2005-03-01 12:04:00) [5]
ImageList1.Draw(StatusBar1.Canvas,Rect.Left+2,Rect.Top+3, True);
А так?
| |
