VPF::умный DBGrid - Форум программистов

dvamaster

Дата 19.9.2006, 08:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Доброго времени суток!

Возникла промблемка!

Нужен Grid с разными шрифтами и подсветкой строк, причем выбирается цвет и шрифт по значениям в полях!

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Vas

Дата 19.9.2006, 08:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28

Код


Procedure TForm1.DBGridPeopleDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
Begin
   if TDBGrid(Sender).DataSource.DataSet.FieldByName('Date_dismiss').AsString<>'' then
      begin
         TDBGrid(Sender).Canvas.Font.Color:=clMaroon; //делаем цвет шрифта clMaroon (что-то типа бордового :) )
         TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
      end
   else
      begin
         TDBGrid(Sender).Canvas.Font.Color:=clBlack; //иначе обычный черный 
         TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
      end;
   if (gdSelected in State)    then
      begin
        TDBGrid(Sender).Canvas.Font.Color := clHighLightText; //если ячейка выделена то шрифт делаем подсвеченным (как объявлен в винде)
        TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
      end;
End;

А вообще много раз обсуждалось.

--------------------

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

dvamaster

Дата 19.9.2006, 09:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

А готовых компонентов нету?

То есть, включен в него список фонтов и список цветов, и выбираются по идентификатору в поле.

Время жмет, как... не знаю что!!!

В будущем-то все равно напишу такой, если нету в природе.

--------------------

Vas

Дата 19.9.2006, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28

Я таких компонентов не встречал. smile

--------------------

И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »