(Аваст может ругаться на редкиий файл)
http://visual-t.ru/index.php/skachat
Пакет компонентов VisualTech. Содержит:
TFormBar - компонент с помощью которого можно организовать аналог MDI приложения.
TDesignerManager - дизайнер форм, (пока без наворотов, некогда дорабатывать..)
TSynSurSyn - подсветка синтаксиса для TSynEdit для языка Surgy
TxDBGrid - сетка с измененным оформлением и свойствами. У меня часто бывает, что хочется "впихать" в экран побольше информации, для этого сделал сетку, которая может отображать 2 поля в одном столбце (в столбцах смотрите свойства FieldName и xFieldName). Можно задать измененное оформление в стиле 1С7.
TLabeledDBEdit - Компонент на основе TDBEdit но с привязанной лэйблой (TLabel)
TDBEditButton - Компонент на основе TDBEdit но с привязанной лэйблой и кнопкой.
Скриншоты из Linux и Windows, TxDBGrid, TDBButtonEdit, TLabeledDBEdit
TxDBGrid Новые свойства
xStyle - xgsNormal, xgsClassic. Задает параметры отрисовки сетки, если xgsClassic - обычная сетка как TDBGrid, xgsNormal - как на рисунке выше.
IncRowHeight: Integer - задает приращение к высоте строки.
ImageList: TImageList - библиотека рисунков, которые могут быть отрисованы в заголовках столбцов и в самих ячейках, в зависимости от значения поля. Для отрисовки изображений, в столбце установить свойство DrawImage := True или xDrawImage := True. Если поле числовое, сетка может использовать значение поля как ImageIndex из ImageList, или можно воспользоваться обработчиком события OnGetImageIndexFromField, в нем можно задать нужное значение ImageIndex в зависимости от значения поля в столбце.
DoubleRowHeight: Boolen - задает двойную высоту строки. Автоматически устанавливается в True, если в одном из столбцов назначено xFieldName.
Options.[xgxAutoSizeColumn] - при включении этой опции, поведение изменено. Сетка автоматически выравнивает ширину столбцов, но в процентном отношении к ширине всей сетки. Процент ширины столбца устанавливается в свойстве TxColumn.PrcWidth: Integer. Сумма PrcWidth всех столбцов не должна превышать 100.
Обработчики событий OnCellClick, OnTitleClick: TxDBGridClickEvent = procedure(Column: TxColumn; CellPos: TCellCursorPos) of object; В обработчик передается ссылка на столбец и позиция в ячейке, где произошло нажатие мышью. Если столбец не имеет второго поля, CellPos будет = ccpTop, если в столбце есть второе поле, CellPos может принимать значение ccpTop или ccpBottom.
Пример:
- Код: Выделить всё
procedure TForm1.xDBGrid1TitleClick(Column: TxColumn; CellPos: TCellCursorPos);
begin
if CellPos = ccpBottom then
ShowMessage(Column.xFieldName)
else
ShowMessage(Column.FieldName);
end;
ThumbTrack: Boolean - разрешает прокрутку протягиванием скролл бара.
TxColumn
Добавлены свойства:
xFieldName - второе поле в столбце
WordWrap, xWordWrap: Boolean - перенос текста в ячейках сетки.
xAlignment - выравнивание текста второго поля в ячейке.
DrawImage, xDrawImage: Boolean - указывает, что в качестве значения поля будет отрисовано изображение из ImageList.
TLabeledDBEdit (см. рисунок выше, компонент TLabeledDBEdit внизу справа)
Компонент на основе TDBEdit но с привязанной лэйблой (TLabel). Лэйбла может быть отображена с любой стороны поля.
property LabelAlignment: TAlignment - выравнивание текста в лэйбле. Если лэйбла по отношению к полю устанавливается справа или с лева, значение игнорируется. Если лэйбла слева от компоненты, выравнивание будет taRightJastify, если справа то taLeftJastify.
property LabelCaption: TCaption - Надпись которую отображает лэйбла;
property LabelVisible: Boolean - Cкрыть показать лэйблу;
property LabelAncorCompanion: TAnchorKind - задает позицию лэйблы. Вернее это свойство показывает где будет основной компонент по отношению к лэйбле. Т.е. Если лэйбла должна быть сверху, то основной компонент DBEDit будет снизу, поэтому значение = akBottom, если лэйбла должна быть снизу, то LabelAncorCompanion = akTop, слева akRight, справа akLeft.
TDBEditButton (см. рисунок выше, компонент TDBEditButton внизу слева)
Компонент на основе TLabeledDBEdit но с привязанной кнопкой. Можно управлять шириной кнопки, надписью, позицией иконки. Событие OnButtonClick можно вызвать не прибегая к мыши, (когда фокус в TDBEDitButton) нажатием Ctrl + Enter.
property ImageList библиотека рисунков.
property ImageIndex - иконка на кнопке
property DownImageIndex - иконка, которая отрисовывается когда кнопка нажата.
property ButtonWidth - ширина кнопки
property ButtonSpacing - Если есть текст и рисунок, ширина между ними (по умолчанию 4)
property ButtonLayot - позиция иконки на кнопке.
property ButtonCaption - надпись на кнопке
property CanceledFlat - работает совместно со свойством Flat. Если Flat = True и CanceledFlat = True, при получении фокуса Flat отменяется, при потере фокуса Flat снова = True.
Добавлено спустя 19 часов 35 минут 11 секунд:
Добавил TlabeledDBECombo, TLabeledDBLookupCombo
