ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата:   procedure TfrmDialer.StatBarDrawPanel(StatusBar: TStatusBar;   Panel: TStatusPanel; const Rect: TRect); begin      if Panel.Index=2 then        if nRasConnCount>0 then begin         Leds.Draw(StatBar.Canvas,Rect.Left,Rect.Top,0);         Leds.Draw(StatBar.Canvas,Rect.Left+Leds.Width,Rect.Top,3);         Update;        end        else begin         Leds.Draw(StatBar.Canvas,Rect.Left,Rect.Top,1);         Leds.Draw(StatBar.Canvas,Rect.Left+Leds.Width,Rect.Top,2);         Update;        end; end;   где Leds это TImageList ---------- И создал Бог женщину... Существо получилось злобное, но забавное... Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:55 23-11-2004

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » из imagelist в statusbar...

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование