Петр Смирнов
дата публикации 20-02-2007 01:57 Корзина от FlashGet
Нередко программисту приходится в своих программах отображать ход выполнения некоторого процесса, например закачки файлов. Мне нередко приходилось видеть информативные графики скорости закачки в таких программах как FlashGet, Reget, GetRight!, DUTraffic и прочих. Наличие такого графика в программе позволяет пользователю тонко контролировать процесс загрузки файлов, поэтому при написании собственного аналога программ, одной из функций которых является закачка файлов (из локальной сети, или интернета) хорошая идея — добавить аналогичную FlashGet корзину.
Я рекомендую создавать корзину как форму без рамки, "Always on top" и с всплывающим меню. Для того, чтобы можно было перетаскивать созданную форму мышью (она ведь без заголовка!) советую использовать хорошо зарекомендовавший себя код:
unit Unit1;
interface
uses ....;
type
TForm1 = class(TForm)
....
protected
procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHITTEST;
end;
implementation
....
procedure TForm1.WMNCHitTest(var Msg:TWMNCHitTest);
begin
inherited;
if Msg.Result=HTCLIENT then Msg.Result:=HTCAPTION;
end;
end;
|
|
В качестве рабочего поля для Вашей корзины вы можете использовать мой компонент. Он очень прост в использовании. Но есть один ньюанс. К сожалению, глупенький Windows с VCL впридачу не понимает, что этим разумным кодом я хочу разрешить перемещение формы и оставить возможность вызова контекстного меню. Ну не дано это ему. Приходится объяснять русским языком, чего же я конкретно хочу, добавив такое объявление:
protected
procedure WMNCRBUTTONDOWN(var Msg:TWMNCRBUTTONDOWN);message WM_NCRBUTTONDOWN;
....
procedure TForm1.WMNCRBUTTONDOWN(var Msg:TWMNCRBUTTONDOWN);
begin
PopupMenu1.Popup(Msg.XCursor,Msg.YCursor);
end;
|
|
Здесь имеется в виду, что у меня используется для компонента всплывающее меню PopupMenu1. Указываеть его в свойстве PopupMenu компонента уже бесполезно, но такой код работает замечательно. Размещение перехватчиков сообщений в секции protected ничем не обусловлено, кроме моей привычки. Вы с тем же успехом можете объявлять их в секциях public или private. Полный код приведен в примере.
Возможности:
- Варьируется направление движения графика: справа налево или слева направо. При этом имеющиеся данные сохраняются.
- Варьируется начало графика: сверху или снизу.
- Варьируется ориентация графика: движение по горизонтали или вертикали.
- Возможность задания графика в стиле FlashGet (вертикальные линии) или Reget (вертикальные прямоугольники, размер и расстояние между прямоугольниками может варьироваться).
- Цветовая гамма полностью настраивается.
- В качестве фона может применяться картинка одного из поддерживаемых TImage форматов. Для расширения функциональности используйте библиотекe GraphicEx.
- Можно задавать максимальное и минимальное значения вручную, или разрешить автоматическое определение.
- После настройки компонента (которое можно выполнить в DesignTime) Вам остается только регулярно передавать ему данные командой AddItem().
- Компонент не отрисовывает собственную рамку, Вам придется использовать TBevel если хотите увидеть рамку.
- Компонент проверен на работоспособность в Delphi 5.5, 6.0, 7.0
Скриншот примера, который Вы можете скачатьНа скриншоте показано предполагаемое использование компонента. При щелчке правой кнопкой мыши будет вызвано всплывающее меню, откуда можно будет сменить стиль (цветовую гамму) компонента, направление его движения и ориентацию. Схватив форму примера левой кнопкой мыши, Вы можете перетаскивать ее (как это происходит с корзиной FlashGet). В качестве источника данных используется функция Random.
При создании компонента не были использованы сторонние компоненты, а также чужой исходный код.
Компонент полностью бесплатен для любого использования.
С удовольствием выслушаю Ваши пожелания относительно расширения функциональности компонента.
К материалу прилагаются файлы:
 Обсуждение материала нет сообщений |
