Текущий архив: 2005.03.13;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.027 c
