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

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

Проблема с DBGridEh.DefaultDrawColumnCell [D7]


Lowlander ©   (2010-02-16 10:40:00) 

Помогите, пожалуйста, уже излучался, вроде бы все нормально, но постоянно появляется ошибка [Error] reestr_rass.pas(170): Incompatible types
Вот текст процедуры.
procedure TfrmReestrRass.grOrgDrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumnEh;
 State: TGridDrawState);
begin
  grOrg.DefaultDrawColumnCell(Rect,DataCol,Column ,State);
 if Column.FieldName = 'SENDMAIL' then
   DrawDbGridEhCheck (grOrg, Rect, qryOrg.FieldByName('SENDMAIL').Value=1);
 if Column.FieldName = 'SENDEMAIL' then
   DrawDbGridEhCheck (grOrg, Rect, qryOrg.FieldByName('SENDEMAIL').Value=1);
 if Column.FieldName = 'ComId' then
   DrawDbGridEhCheck (grOrg, Rect, SelectList.IndexOf(qryOrg.FieldByName('ComId').AsString)>=0);

end;


Lowlander   (2010-02-19 11:15:00) [1]

терять т.е.


Lowlander   (2010-02-19 11:10:00) [2]

можно попробовать, все равно причина ошибки пока тайна, так что тебя в сущности нечего..


turbouser   (2010-02-19 10:59:00) [3]


> Lowlander ©   (19.02.10 10:10) [16]

Может поможет обновить ехлиб? Уже 5-я версия давно вышла..


Lowlander   (2010-02-19 10:10:00) [4]

Да мне интуиция тоже самое подсказывает)) Что то где то мне уже попадалось, на тему Column и TnColumn, но нигде не могу найти внятную инфу по этому вопросу..
А на счет почему полезно - у меня на работе оч. много чего написано с использованием этой версии эхлиба, так что мне все равно в форточку не выпрыгнуть - придется либо переписывать(что не хотелось бы по причине того, что я уверен - начну переписывать, одно за другим, и закончу к будущему году, а работа просто встанет) либо фиксить все что вылазит, а для этого было бы полезно знать откуда ноги у этих ошибок растут


KilkennyCat   (2010-02-18 21:25:00) [5]


> а в том что выяснить в чем проблема, если это какое то несоответствие
> типов то понять что да как, было бы очень полезно,

Да. Но кажется мне, что в данном случае это будет выяснение проблемы только со сторонним компонентом, по вине компонента.
Ну и интуиция мне подсказывает, что несоответствие с TColumnEh


Lowlander   (2010-02-18 11:22:00) [6]

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


KilkennyCat   (2010-02-17 20:56:00) [7]


> кто она? ошибка?

нет. Зачем эта строка?


Lowlander   (2010-02-17 12:32:00) [8]

Спасибо за помощь! но все тоже самое, ошибка все таже(


turbouser   (2010-02-17 12:24:00) [9]


> Lowlander ©   (17.02.10 11:20) [10]

grOrg.DefaultDrawColumnCell(Rect,DataCol,Column ,GridsEh.TGridDrawState(State))


Lowlander   (2010-02-17 11:20:00) [10]


> Держишь нажатой кнопку "Ctrl", наводишь мышь на слово с
> описанием типа в параметрах функции и нажимаешь левую кнопку
> на мыши. Далее смотришь в каком модуле тип объявлен и сравнивашь
> с требуемым.
>
>

ползал я по модулю, сравнивал, толку нет, описание тоже самое,типы те же самые,хелп перерыл полность, там тоже все сходится, так что и не могу я понять в чем вообще может быть проблема, описано что изменилось наследование компонентов в библиотеке, но меня оно не завтрагивает, нет у меня ни на одной форме старых и новых компонентов одновременно, к тому же проект написан именно на этой версии эхлиба!  
> версия eh  какая?
> 2) телепатор подсказывает, что надо добавить GridsEh в uses,
>  но это зависит от ответа на 1)

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


turbouser   (2010-02-17 00:32:00) [11]


> Lowlander ©   (16.02.10 10:40)  

1) версия eh  какая?
2) телепатор подсказывает, что надо добавить GridsEh в uses, но это зависит от ответа на 1)
:)


Плохиш   (2010-02-17 00:02:00) [12]

Держишь нажатой кнопку "Ctrl", наводишь мышь на слово с описанием типа в параметрах функции и нажимаешь левую кнопку на мыши. Далее смотришь в каком модуле тип объявлен и сравнивашь с требуемым.


Lowlander   (2010-02-16 16:18:00) [13]

утром пробовал с новым проектом, ошибка повторяется..А на счет переопределения - это не мой проект, мне его переработать поручили. А запустить не получается, хоть и поставил те же самые версии компонентов. Наверное все таки снесу эхлиб и поставлю заново - может поможет


И. Павел   (2010-02-16 16:06:00) [14]

Попробуйте создать чистый проект и написать обраболтчик для DrawColumnCell. Если ошибка повторится - то, наверное, есть смысл все переставить. Если ошибка исчезнет, то может быть типы где-то переопределяются - например, может быть вы где-то объявили новый тип TRect и т.д.


Lowlander   (2010-02-16 15:49:00) [15]

Прям только так. Могу скрин выложить. Ошибка не в несоответствии типов данных дельфи, а в каком то косяке с типами данных эхлиба,точнее процедур это библиотеки. Но какой из типов там не так указан хз, все перепробывал и перечитал за пол дня.


И. Павел   (2010-02-16 15:45:00) [16]


> [Error] reestr_rass.pas(170): Incompatible types

Прям только так и пишет? Может быть поясняет - какие типы Incompatible?


Lowlander   (2010-02-16 15:34:00) [17]

кто она? ошибка? как раз ошибка мне и не нужна, мне нужна работоспособность проги.


KilkennyCat   (2010-02-16 15:30:00) [18]

это точно. а зачем она?


Lowlander   (2010-02-16 11:50:00) [19]

Всмысле ошибка в строке grOrg.DefaultDrawColumnCell(Rect,DataCol,Column ,State);


Наверх

Титульная страница Поиск, карта сайта Написать письмо