СРОЧНО! Delphi. Изменение цвета ячейки в TStringGrid
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
СРОЧНО! Delphi. Изменение цвета ячейки в TStringGrid - 2009-05-07 19:48:23.273333
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Мне очень нужно покрасить ячейки TStringGrid разными цветами.делаю так:
for j:=1 to nofnum do
begin
SGDTir.Canvas.Font.Color:= StringToColor(col); // ну там какой-то цвет
Rect:=SGDTir.CellRect(j,i);
SGDTir.Canvas.TextOut(rect.left + 3, rect.top + 3,SGDTir.Cells[j,i]);
end;
SGDTir.Canvas.Refresh;
пихал всюду,даже в FormPaint. Результата нет - циферки черные как и были.если щелкнуть по трею - становятся цветные (пока что-нить не строну). Вопрос: втф?! и как это исправить? ОЧЕНЬ СРОЧНО!! Просветите плиз.
|
|
|
RE: СРОЧНО! Delphi. Изменение цвета ячейки в TStringGrid - 2009-05-08 13:13:36.320000
|
|
|
alexbozhko
Сообщений: 1024
Оценки: 0
Присоединился: 2005-11-24 13:35:34
|
Думаю, смысл понятен. procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
StringGrid1.Canvas.Brush.Color := clWhite;
StringGrid1.Canvas.Font.Color := clRed;
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol,ARow]);
end;
|
|
|
RE: СРОЧНО! Delphi. Изменение цвета ячейки в TStringGrid - 2009-05-08 23:10:06.700000
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Оо,пасиба. Выглядит ужасно похоже,только,наверное,работает))) А я то уже проблему решил,пихнул код в ActionManager и прописал его форме. Почему то всё заработало.
|
|
|
RE: СРОЧНО! Delphi. Изменение цвета ячейки в TStringGrid - 2009-05-08 23:46:20.056666
|
|
|
alexbozhko
Сообщений: 1024
Оценки: 0
Присоединился: 2005-11-24 13:35:34
|
Зачем? OnDrawCell надо обрабатывать и все.И на всякий случай, все же фон перерисовать. Что бы артефакты не проявлялись всякие.
|
|
|
RE: СРОЧНО! Delphi. Изменение цвета ячейки в TStringGrid - 2009-05-09 00:10:35.120000
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
А ч-черт,точно!! А я все ломал голову (ночью,это оправдание) какое ж там событие на рисование таблички,если OnPaint нет. Ну лан,все равно перерисовка дофига откуда вызывается. Спасибо большое.
|
|
|
|
|