» Вопросы по Ehlib

Schnider
Я бы для начала смотрел события OnDragDrop/OnDragOver.

Подскажите, кто ни будь, пожалуйста, рисовал картинки в ячейках EhLib? Интересует именно рисование блобов в базе а не ImageList. У меня в гриде должны быть логотипы банков (красивенькие 32х32). Может события какие то нужно обработать? Заранее спасибо. Ещё интересует, смогу ли я PNG с альфа прозрачностью нарисовать, как это делать ума не приложу, красоты хочется, это очень важно, а с TCanvas я плохо разбираюсь. По идее - даже без PNG можно.

miwa

Цитата:

Я бы для начала  смотрел события OnDragDrop/OnDragOver.

Оно позволяет делать Drag&Drop между гридами, а меня интересует в пределах одного

Schnider

Цитата:

Оно позволяет делать Drag&Drop между гридами, а меня интересует в пределах одного

А пару строк лень писать уже? Если не с того грида - то Accepted-=Фалсе

xpin2013
Как насчет демки DBGridEh.DrawBlobImagesInCell ?

miwa
У меня в демках не видел ей богу. А как папка называется?

xpin2013
Да так и называется - %EhLib%\Demos\DBGridEh.DrawBlobImagesInCell. Возможно от версии EhLib зависит, в какой то из более старых версий в Demos было значительно меньше всякого, чем сейчас.

Ребята, подскажите, пожалуйста, какими свойствами в DBGridEh выставляется цвет номера выделенной ячейки?! По-умолчанию он слишком светлый, можно его изменить?
Выбрано групповое выделение ячеек.
Версия Ehlib 5.6
ОС: Windows 8.1

alexssss1
Из разряда "пальцем в небо" - события OnDraw... и OnAdvancedDraw... смотрел? Все? Их там штук 6-8.

miwa
Смотрел, ну что-то не получается..

alexssss1
Ну, тогда IndicatorParams

miwa
буду благодарен, если выложите кусок кода, потому как разработчик говорит, что поменять нельзя. я думал, может есть лазейки.

Возникла небольшая проблема:
В компоненте VerticalGrid, при выборе любого значения параметра DropDownBox.ListSource, чернеет строка вот так ( картинка )
Это баг, или я что-то не так делаю?

Не исправлено в EhLib 6.3 Build 6.3.181

xteam2005
причем даже если переопределить

Код: procedure TForm65.DBVertGridEh1GetCellParams(Sender: TObject; Row: TFieldRowEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
Background := clYellow
end;

XPerformer
Проблема в отрисовке. ячейка нормально отрисовывается, только когда активна.
Пока в качестве временной меры(исли вдруг разрабы исправят ошибку) убираю свойство DropDownBox.ListSource у неактивных ячеек как раз в процедуре DBVertGridEh1GetCellParams.

xteam2005
крайне находчиво
Не пытались у них на форуме об этом написать?

Я слегка нелицензионный пользователь...
И с первого взгляда, судя по форуму, техподдержка EhLib не очень активно работает.

а продукт подорожал
5 300 руб. для физлиц на 1 год
в прошлом году помнится было раза в 2 дешевле

В EhLib 6.3 Build 6.3.182 без изменений

Возможно ли реализовать в TDBGridEh выпадающий список цветов в виде полосок с разными цветами (или как-то еще "овизуалить" цвет), на основе целочисленных значений из поля БД?
Только недавно начал осваивать сей грид, а тут затык с вышенаписанным случился, помогите советом/примером, пожалуйста!

я делал справочник

код там
procedure TKAT_DOL.DBGGetCellParams(Sender: TObject; Column: TColumnEh; AFont:
TFont; var Background: TColor; State: TGridDrawState);
begin
if Column.Index = 1 then Background := DM.STATUS.FN('COLOR').AsInteger;
end;

YuriyRR
Спасибо! А что подвязано на дропдаун кнопку столбца цветов?

relictus
У меня TColorDialog;
procedure TKAT_DOL.DBGColumns1EditButtons0Click(Sender: TObject; var Handled:
Boolean);
begin
if DBG.EditorMode then
begin
DBG.EditorMode := False;
DBG.Refresh;
end;
CD.Color := DM.STATUS.FN('COLOR').AsInteger;
if CD.Execute then
begin
DM.STATUS.Edit;
DM.STATUS.FN('COLOR').Value := CD.Color;
DM.STATUS.Post;
DM.FTR.CommitRetaining;
DBG.Refresh;
end;
end;

Как правильно сопоставлять выделенные в гриде строки с данными? Мне нужно пробежать в цикле кэшированные в MemTable данные соответствующие выделенным строкам.

Код: procedure TForm1.DBGridEhSelectionChanged(Sender: TObject);
var
I, F, K: Integer;
begin
for I := 0 to DBGridEh.SelectedRows.Count - 1 do begin
K := DBGridEh.SelectedRows.Items[I][0]; // тут нужно получить индекс строки в MemTableEh сответствующей выделенному
F := MemTableEh.RecordsView.MemTableData.RecordsList[K].Value[1, dvvValueEh]; // дальше обрабатываем даные из поля
end;
end;

deyatel1974

Цитата:

Однако это не работает если порядок строк изменен сортировкой. Как правильно делать?

Пройдись так же по выделенным строкам, собери уникальные ключи записи в массив, а потом пройдись по этому массиву с Dataset.Locate(уникальный ключ). В этом случае текущий порядок будет безразличен.

Samotek, смысл задачи (насколько я понял) в том и состоит, чтобы не ходить по датасету (это очень медленно), а выбрать нужные данные напрямую из MemTableEh.

landy

Цитата:

смысл задачи (насколько я понял) в том и состоит, чтобы не ходить по датасету (это очень медленно), а выбрать нужные данные напрямую из MemTableEh.

А как можно выбрать данные из датасета и не ходить по нему? Такого не бывает. При использовании мемтабле или другой таблицы в памяти в основном скорость тратится на отображение перемещения гридом. Для этого надо использоавть пару dataset.Disblecontrols - dataset.enablecontrols, естественно в блоке try finaly

Нет, MemTableEh предоставляет возможность один раз закачать все данные из датасета и обращаться к ним напрямую. Это позволяет значительно увеличить производительность при доступе к ним.

landy
вопрос терминологии - MemTableEh тоже датасет