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

← →
Lowlander © (2010-02-16 10:40) [0]

Помогите, пожалуйста, уже излучался, вроде бы все нормально, но постоянно появляется ошибка [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-16 11:50) [1]

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

← →
KilkennyCat © (2010-02-16 15:30) [2]

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

← →
Lowlander © (2010-02-16 15:34) [3]

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

← →
И. Павел © (2010-02-16 15:45) [4]

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

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

← →
Lowlander © (2010-02-16 15:49) [5]

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

← →
И. Павел © (2010-02-16 16:06) [6]

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

← →
Lowlander © (2010-02-16 16:18) [7]

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

← →
Плохиш © (2010-02-17 00:02) [8]

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

← →
turbouser © (2010-02-17 00:32) [9]

> Lowlander © (16.02.10 10:40)

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

← →
Lowlander © (2010-02-17 11:20) [10]

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

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

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

← →
turbouser © (2010-02-17 12:24) [11]

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

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

← →
Lowlander © (2010-02-17 12:32) [12]

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

← →
KilkennyCat © (2010-02-17 20:56) [13]

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

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

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

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

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

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

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

терять т.е.

Проблема с DBGridEh.DefaultDrawColumnCell Найти похожие ветки