Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка в DBGrid [D5, MSSQL]

Марат © (2004-08-18 08:08:00)
Здравствуйте, мастера. Вопрос такой. Есть процедура:
procedure THistory_Ap_f.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
IF условие then
begin
TDBGrid(Sender).Canvas.Font.Color:=clRed;
TDBGrid(Sender).Canvas.Font.Style:=[fsBold];
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
При выполненнии этой процедуры на некоторых компьютерах в DBGrid не видно информации, пока не щелкнешь по какой-нибудь ячейке мышкой. Т.е. получается что ячейки DBGrid как бы перекрывается белым цветом. Что можете посоветовать по этому поводу?

Марат (2004-08-20 08:56:00) [1]
Если делаю "Свойство DefaultDrawing компонента Grid должно быть установлено в False ", то Grid покрывается белым цветом. Если же после выполнения делаю "Свойство DefaultDrawing компонента Grid должно быть установлено в True", то не видно красного цвета.

Карелин Артем (2004-08-19 13:37:00) [2]
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect:
TRect; Field: TField; State: TGridDrawState);
{ ПРИМЕЧАНИЕ: Свойство DefaultDrawing компонента
Grid должно быть установлено в False }
begin
if Field.DataSet.RecNo div 3 = 1 then
{ изменяем цвет шрифта на красный }
(Sender as TDBGrid).Canvas.Font.Color := clRed;
{ выводим текст в табличной сетке }
(Sender as TDBGrid).Canvas.TextRect(Rect, Rect.Left + 2,
Rect.Top + 2, Field.AsString);
end;

Марат (2004-08-19 13:32:00) [3]
Нашел вот чего:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect:
TRect; Field: TField; State: TGridDrawState);
{ ПРИМЕЧАНИЕ: Свойство DefaultDrawing компонента
Grid должно быть установлено в False }
begin
{ если имя поля - "NAME" }
if Field.FieldName = 'NAME' then
{ изменяем цвет шрифта на красный }
(Sender as TDBGrid).Canvas.Font.Color := clRed;
{ выводим текст в табличной сетке }
(Sender as TDBGrid).Canvas.TextRect(Rect, Rect.Left + 2,
Rect.Top + 2, Field.AsString);
end;
Но мне надо всю строку, а тут по полям а их у меня 12 и что теперь для каждого поля прописывать данный алгоритм? Или можно как-то сделать для одной строки?

Алхимик (2004-08-19 09:25:00) [4]

> [8] Марат (19.08.04 09:16)
> Да вы объясните тупому что такое X и что такое Y!

Use TextRect to write a string within a limited rectangular region. Any portions of the string that fall outside the rectangle passed in the Rect parameter are clipped and don't appear. The upper left corner of the text is placed at the point (X, Y).

KSergey (2004-08-19 09:21:00) [5]
F1
а так же яндекс
Название метода, можно еще и delphi приписать - найдется куча примеров, описаний и т.д.

Марат (2004-08-19 09:16:00) [6]
Да вы объясните тупому что такое X и что такое Y!

KSergey (2004-08-19 09:14:00) [7]
> [6] Марат (19.08.04 09:10)
> Ругается "Undeclared X"

Издеваешься??! Кроме Copy-Paste вообще-то и другие кнопки есть ;)

Марат (2004-08-19 09:10:00) [8]
Ругается "Undeclared X"

SeZuka (2004-08-19 08:51:00) [9]
После изменения цвета сам выведи необходимый текст:
TDBGrid(Sender).Canvas.TextRect(Rect, X, Y, Text);
а
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
используй только если сам ничего не выводишь и не изменяешь, т.е. в твоем примере поставь его в ELSE

Марат (2004-08-19 07:53:00) [10]
Я сильно извиняюсь, но все же может быть можно как-то по другому изменить цвет шрифта в DBGrid?

Марат (2004-08-18 11:29:00) [11]
Неужели больше нет вариантов?

Марат (2004-08-18 08:45:00) [12]
Не помогло.

Deniz (2004-08-18 08:25:00) [13]
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
вытащить из условия, что бы всегда выполнялось, т.е.:

procedure THistory_Ap_f.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin IF условие then begin TDBGrid(Sender).Canvas.Font.Color:=clRed; TDBGrid(Sender).Canvas.Font.Style:=[fsBold]; end; TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State); end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »