Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.03.2011, 20:59   #1
vladislav_m
Пользователь
 
Регистрация: 29.03.2011
Сообщений: 62
По умолчанию dbgrid+canvas

Добрый вечер))

помогите подкорректировать плз) нашел код.. не могу под себя подстроить

Код:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with DBGrid1.Canvas do
if (Field.FieldName = 'ID_Клиента') and (not (gdFocused in State)) and (Column.AsInteger < 0) then begin
Brush.Color := clRed;
Font.Color := clWhite;
end;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;
end;
начинает ругаться со строки IF.
vladislav_m вне форума Ответить с цитированием
Старый 29.03.2011, 21:02   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Field - это что? В параметрах нет, в var нет и DBGrid1.Canvas не имеет таких свойств или методов
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 29.03.2011, 21:15   #3
vladislav_m
Пользователь
 
Регистрация: 29.03.2011
Сообщений: 62
По умолчанию

я незнаю)) знал бы - вопросов бы не задавал)) в delphi не силен)

мне нужно сделать, чтоб после поиска строка выделялась цветом) Все сделал, кроме выделения цветом(
vladislav_m вне форума Ответить с цитированием
Старый 29.03.2011, 21:22   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Может Column.Field а не Field? Отработает если найдет имя 'ID_Клиента' в фиелдах. Ивсю строку цветом не выделит, а только колонку с указанным фиелдом
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 29.03.2011, 21:28   #5
vladislav_m
Пользователь
 
Регистрация: 29.03.2011
Сообщений: 62
По умолчанию

ага) сделал я так..

теперь он ругается на DBGrid1.DefaultDrawDataCell(Rect, Column, State);
vladislav_m вне форума Ответить с цитированием
Старый 29.03.2011, 21:31   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Там аналогично вместо Field нужно Column.Field
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 29.03.2011, 21:38   #7
vladislav_m
Пользователь
 
Регистрация: 29.03.2011
Сообщений: 62
По умолчанию

запустилось) но почему он не красит(
vladislav_m вне форума Ответить с цитированием
Старый 29.03.2011, 21:42   #8
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

смотри пост 4
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 29.03.2011, 21:46   #9
vladislav_m
Пользователь
 
Регистрация: 29.03.2011
Сообщений: 62
По умолчанию

сделал другим способом) нашел другой код)

FieldByName('Фамилия').AsString <> 'a'... Можете пояснить что значить AsString <> 'a'.?
vladislav_m вне форума Ответить с цитированием
Старый 29.03.2011, 21:54   #10
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

метод AsString возвращает значение Field-а в символьном (строковом) виде
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
3D canvas konikovskit Мультимедиа в Delphi 1 06.09.2010 22:02
Canvas ZET78 C++ Builder 5 21.05.2010 20:26
Перемещение даннах из dbgrid в dbgrid Hobbit_88 БД в Delphi 7 10.06.2009 13:33
Canvas Jai Общие вопросы Delphi 7 15.05.2009 13:11
перенос данных из DBGrid в DBGrid KingSize БД в Delphi 17 24.04.2009 09:30