-
Доброго времени суток, мастера. На форме лежит TDBGridEh. По идее он должен иметь возможность самостоятельно рисоваться полосатым. Однако это не происходит. Какое условие должно выполняться, чтобы он рисовался полосатым? Если устанавливаю OddRowColor в свой цвет - ничего не происходит. Обычно для отрисовки полосатости привязываюсь к таблице. Но это гладко проходит, если используется компонент TTable.
procedure TTovarFrm.DBGridEh1GetCellParams(Sender: TObject;
Column: TColumnEh; AFont: TFont; var Background: TColor;
State: TGridDrawState);
begin
if (DM1.TovarTbl.RecNo mod 2 <> 0) then
Background := clWhite
else
Background := clBtnFace;
end;
В данном случае задейсвован TQuery. А с ним есть проблемы, используя данный метод. Полосатость может нарушиться.
-
Справка, выдержка.
pecifies the color of odd rows in the grid.
property OddRowColor: TColor;
Description
Use OddRowColor to specify the color of odd rows in the grid. It works only if sequence numbers are available for DataSet(DataSet.IsSequenced = True) and DataSet.RecNo return valid info. More often you will use OddRowColor in combination with EvenRowColor.
EhLib Software
-
ДА, действительно так работает. Спасибо. Посмотрим как в дальнейшем будет отрабатывать при большем кол-ве записей.
-
Не работает, для TQuery идет сбой в очередности полос-зебры.
-
А поставить брейкпойнт на строчку
if (DM1.TovarTbl.RecNo mod 2 <> 0) then
и посмотреть под отладчиком, чему же на самом деле равен RecNo, Коран не позволяет ?
-
> Не работает, для TQuery идет сбой в очередности полос-зебры.
Всё просто. TDataSet.RecNo - штука такая. Неопределённая. Зависит от многих вещей.
-
> kyn66 © (19.05.09 16:10) [3]
>
> Не работает, для TQuery идет сбой в очередности полос-зебры.
>
А зачем применять СВОЙ метод, если есть готовый у EhLib? и выполняется условие
> It works only if sequence numbers are available for DataSet(DataSet.
> IsSequenced = True) and DataSet.RecNo return valid info
?
-
> [5] Ega23 © (19.05.09 16:54)
> Всё просто. TDataSet.RecNo - штука такая. Неопределённая.
И переопределённая.:)
-
возникает такой же вопрос вкупе с датасетом из FIBPlus.
Почему то корректно прорисовывает только если :
1) все строки вмещаются в видимую часть грида
2) если проскроллировать до низу, а потом делать скролл вверх, то за курсором начинает прорисовываться
3) Если выбрать все записи по FetchAll
Считаю все три способа корявыми, а как же правильно делать то?
-
> Александр из Перми (20.05.09 22:15) [8]
1: вариант 3) - самое то :)
2: стоит узнать о IB/FB немного больше...
3: Заместо EhLib надо использовать DevExpress, в качестве
альтернативы которого EhLib и создавался.
-
> 1: вариант 3) - самое то :)
Серьезно или шутка? (смайлик смущает, хочется однозначного ответа) А если записей много? Или Очень много? Это все кэшируется у клиента чтоле?
2: стоит узнать о IB/FB немного больше...
стоит узнать о IB/FB намного больше (нутром чюю, плаваю) Изучаю.
А компоненты от Девэкспресс свободны от темы сабжа?
-
> Александр из Перми (20.05.09 22:46) [10]
>
>
> > 1: вариант 3) - самое то :)
>
> Серьезно или шутка?
Серьезно.
>
> А компоненты от Девэкспресс свободны от темы сабжа?
Эээммм.. Трудно связать тему сабжа ( :) ) с девекспресс, но телепатор
подсказывает, что свободны :) там полосатость делается совсем не так, если что.
-
-
> Александр из Перми (20.05.09 22:15) [8]
Нужно, чтобы было правильное значение RecordCount
-
2) и 3) как раз этому и способствуют
-
> Нужно, чтобы было правильное значение RecordCount
RecordCount - правильное. Нужно чтобы RecNo правильным быд. А это - не всегда. :)
-
> Нужно, чтобы было правильное значение RecordCount
Если быть точнее, то RecNo А он действительно иногда не правильно выстраивается. Замечено, что все траблы возникают, если включена индексация, т.е. записи выстроены по ключевому полю. А как это побороть - не знаю
-
А как у кверика может быть не подряд RecNo?
> В данном случае задейсвован TQuery. А с ним есть проблемы,
> используя данный метод. Полосатость может нарушиться.
>
И при чем тут индексация к кверику?
-
> А как у кверика может быть не подряд RecNo?
Легко. ЕМНИП, в TRxQuery RecNo всегда равен -1, если в НД присутствует хотя бы одно BLOB-поле (или строковое, больше чем 255, что тоже BLOB).
Далее. Вот есть таблица с полем ID, значения [1..100].
Вот мы выполнили Select * from table order by ID.
Предположим, наш потомок TDataSet корректно работает с RecNo - в нём действительно то, что мы ожидаем.
А теперь мы наложили на эту байду фильтр. Или отсортировали его по другому полю (не средствами SQL, а через IndexField).
Лично я затрудняюсь сказать, что в данном случае будет с RecNo (особенно в случае фильтра).
-
:-) с дуру можно и .. поломать... несмотря на то, что это - ГИДРАВЛИКА! :-)))))
-
Удалено модератором
-
Да, да, именно после применения IndexField начинаются непонятки.
-
Вот явное нарушение полосатости посли Индексации http://yurec66.narod.ru/Hlam/grid1.jpg. По началу я думал что это происходит из-за нарушения порядка следования ID. Здесь видно, что номера 33 и 39(специально в грид добавлен для отображения столбец ID) (оба нечетные) стоят рядом, поэтому и идет нарушение. http://yurec66.narod.ru/Hlam/grid2.jpg . Однако, тут-же видно, что номера 29 и 30 тоже стоят рядом, хоть и разные по четности. Тем более задействован стандартный механизм Sequenced и использован компонент TAdsTable. Т.ч. уже и не ясно на что грешить и как это побороть.
-
Пардон, очепятка номера 33 и 69
-
Когда применяется IndexField, то RecNo действительно будет фиг знает какой.. И никуда от этого не убежишь.. разве что в select from order by
-
> Т.ч. уже и не ясно на что грешить и как это побороть.
OnGetColumncellData или что-то в таком духе. И сам рисуешь. Делов-то.
-
> Здесь видно, что номера 33 и 39(специально в грид добавлен
> для отображения столбец ID) (оба нечетные) стоят рядом,
> поэтому и идет нарушение. http://yurec66.narod.ru/Hlam/grid2.
> jpg . Однако, тут-же видно, что номера 29 и 30 тоже стоят
> рядом, хоть и разные по четности. Тем более задействован
> стандартный механизм Sequenced и использован компонент TAdsTable.
> Т.ч. уже и не ясно на что грешить и как это побороть.
29 и 30 просто повезло: у них ключевая информация идет подряд и нету записи с данными, ключ которой больше ключа 29, но меньше 30. неужели так тяжело понять? у вас записи идут типа так № записи Значение 1 0 2 1 3 -1 4 2 если упорядочить по значению, что получим? № записи Значение 3 -1 1 0 2 1 4 2 вот и все
-
при использовании кверика с упорядочением проблема исчезнет сама по себе. если, конечно, не использовать сортировку кеша кверика
-
К кверику нельзя в данном случае применить сортровку, физическое поле отсутствует, точнее поле Name, по которому хотелось-бы сделать сортировку выводится как лукаповское поле. ПОэтому пришлось идти на ухищрения с собственной обработкой
procedure TTovarFrm.DBGridEh1GetCellParams(Sender: TObject;
Column: TColumnEh; AFont: TFont; var Background: TColor;
State: TGridDrawState);
begin
Background := BackColors[(Sender as TDBGridEh).DataSource.DataSet.RecNo mod 2 <> 0];
end;
или попытаться довериться обработке Delphi через Sequenced
|
Есть новые 
Нет новых [134473 +32][b:0][p:0.001]