| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TFIBDataSet получить следующее значение поля в OnDrawColumnCell

DelphiLexx ©   (2006-08-09 16:18:00) 

В OnDrawColumnCell происходит моя отрисовка нижней граници сетки записи в том случае если следующее значение  конкретного поля TFIBDataSet <= текущего.
Я делаю так:

TFIBDataSet.First;
CurrValue := TFIBDataSet.FieldByName('Field1').AsInteger;
TFIBDataSet.Next;
NextValue := TFIBDataSet.FieldByName('Field1').AsInteger;
if CurrValue >= NextValue then
begin
   {здесь я осуществляю свою прорисовку}
end;

Всё это приводит к зацикливанию OnDrawColumnCell
Как все таки нужно решать задачу.

---

Ega23   (2006-08-09 17:37:00) [1]

Посмотрел. Вызовет.
Я, кстати, если это кого-то интересует, вообще всё на уровне запроса бы сделал.
Кстати, именно этим в данный момент времени и занимаюсь (раскраской грида)

---

Ega23   (2006-08-09 17:37:00) [2]

> Угу, а Eof Пушкин будет ловить ?


Я особо не вникал в то, что между First и т.д.

---

Ega23   (2006-08-09 17:35:00) [3]

> EnableControls вызовет рефреш .... и...


А вызовет ли?

---

sniknik   (2006-08-09 17:28:00) [4]

> Ega23 ©   (09.08.06 17:11) [2]
[0] > В OnDrawColumnCell...
EnableControls вызовет рефреш .... и...
> Всё это приводит к зацикливанию OnDrawColumnCell

DelphiLexx
не надо в отрисовке грида лезть и менять данные которые рисуются, прыгать по нм... лучше исправь логику того, что хочеш сделать... твоя ошибочна.

---

clickmaker   (2006-08-09 17:23:00) [5]

можно вычисляемое поле сделать для определения форматирования

---

MsGuns   (2006-08-09 17:21:00) [6]

>Ega23 ©   (09.08.06 17:11) [2]

Угу, а Eof Пушкин будет ловить ?
Кроме того, что делать с разными событиями датасета, фильтрацией, возможными переходами датасета из одного режима в другой (при редактировании в гриде) и т.д. ?

Засовывать перемещения по датасету в обработчик прорисовки отображающего его грида - верный способ получения жирного гемора

---

Ega23   (2006-08-09 17:11:00) [7]


TFIBDataSet.DisableControls;
try
 TFIBDataSet.First;
 CurrValue := TFIBDataSet.FieldByName('Field1').AsInteger;
 TFIBDataSet.Next;
 NextValue := TFIBDataSet.FieldByName('Field1').AsInteger;
 if CurrValue >= NextValue then
 begin
    {здесь я осуществляю свою прорисовку}
 end;
finally
 TFIBDataSet.EnableControls;  
end;

?

---

MsGuns   (2006-08-09 16:57:00) [8]

Вместо TIBDataSet использовать для отображения TCLientDataSet, куда предварительно загрузить полученный с сервера запросом НД. Предварительно добавить доп.поле флагов.
Потом этот датасет отсортировать как надо и, просканировав его, выставить флаги как нужно.
Отрисовка же делается с помощью этих флагов и безо всякого "прыгания" и "скакания" по датасету.

---

Наверх