VPF::Добавление цветных ячеек в wwDBGrid

staziah2

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

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

Загрузка ...

Новичок

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

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

Добрый день! Скажите,пожалуйста,как сделать,чтобы в дбгриде закрашивались только два слова (демонтаж-красный,монтаж зеленый) в колонке виды работ. И можно как то в дбгриде сделать не одну длинную строку,а чтобы и переносить на новую строку,как бы многострочный. Спасибо за помощь.

Poseidon

Дата 17.6.2015, 10:19 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код


procedure TForm1.DBGridDrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
    with (Sender as TDBGrid).Canvas do
      begin
        FillRect(Rect);

        if (Sender as TDBGrid).DataSource.DataSet.FieldByName('VidRabot').AsString.Equals('демонтаж') then
          Font.Color := clRed;

        if (Sender as TDBGrid).DataSource.DataSet.FieldByName('VidRabot').AsString.Equals('монтаж') then
          Font.Color := clGreen;

        TextOut(Rect.Left + 2, Rect.Top + 3, Field.AsString);
      end;
end;

Многострочность, в принципе, делается так же, через TextOut.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

staziah2

Дата 18.6.2015, 01:46 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Poseidon @ 17.6.2015, 10:19)

Код


procedure TForm1.DBGridDrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
    with (Sender as TDBGrid).Canvas do
      begin
        FillRect(Rect);

        if (Sender as TDBGrid).DataSource.DataSet.FieldByName('VidRabot').AsString.Equals('демонтаж') then
          Font.Color := clRed;

        if (Sender as TDBGrid).DataSource.DataSet.FieldByName('VidRabot').AsString.Equals('монтаж') then
          Font.Color := clGreen;

        TextOut(Rect.Left + 2, Rect.Top + 3, Field.AsString);
      end;
end;

Многострочность, в принципе, делается так же, через TextOut.

Спасибо большое))

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