VPF::Как в DBGrid закрасить строку - Форум программистов

stron

Дата 21.7.2003, 00:19 (ссылка)

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

Загрузка ...

Консультант

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

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

if (условие) then begin
with Form1.DBGrid1.Canvas do
begin
Brush.Color:=clMenu;
Font.Color:=clBlack;
end;
end;

Этот код закрашивает и текст в строке!
А как сделать так, чтобы пользователь его увидел??
Буду очень признателен

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

подписи нет

Vex

Дата 21.7.2003, 00:57 (ссылка)

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

Загрузка ...

кацапосрачмученiкъ

Профиль
Группа: Экс. модератор
Сообщений: 3103
Регистрация: 28.3.2002
Где: strawberry fields

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

Можно узнать текст а потом вывести его поверх.

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

Слава Україні.

stron

Дата 21.7.2003, 02:13 (ссылка)

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

Загрузка ...

Консультант

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

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

Не, не прокатит, т.к. при любом изменении таблицы вызывается такая процедура

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
.....
end;

которая перекрашивает таблицу по defaultу( т.е. закрашивает всё нарисованное добро).

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

подписи нет

stron

Дата 21.7.2003, 02:14 (ссылка)

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

Загрузка ...

Консультант

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

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

Да, кстати, текст в строке остаётся, только его пользователю не видно....

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

подписи нет

Vex

Дата 21.7.2003, 02:23 (ссылка)

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

Загрузка ...

кацапосрачмученiкъ

Профиль
Группа: Экс. модератор
Сообщений: 3103
Регистрация: 28.3.2002
Где: strawberry fields

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

ИМХО, надо написать процедуру перекраски и вставлять ее во все события, которые ведут к изменению таблицы, геморно, конечно, но как еще это сделать я не знаю. Может поищите компоненты на торри.нет. Если вы собираетесь делать это всего один раз и в обозримом будущем вам это не понадобится, то можно сделать см. чуть выше. А если вы будете сталкиваться с этой проблемой регулярно, то напишите свой компонент, наследник от TDBGrid.

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

Слава Україні.

<Spawn>

Дата 21.7.2003, 05:43 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Попробуй так:

Код


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if  then
with DBGrid1.Canvas do
begin
 Brush.Color:=clMenu;
 Font.Color:=clBlack;
 FillRect(Rect);
 TextOut(Rect.Right-TextWidth(Column.Field.Text)-2,Rect.Top+2,Column.Field.Text)
end
end
 else DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end.

Только поставь DefaultDrawing в False

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

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

stron

Дата 21.7.2003, 09:18 (ссылка)

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

Загрузка ...

Консультант

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

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

Спасибо, очень помогли

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

подписи нет

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