Текущий архив: 2002.03.25;
Скачать: CL | DM;

Вниз

Изменение шрифта отдельной ячейки TStringGrid a   Найти похожие ветки 

← →
KIR ©   (2002-03-12 15:05) [0]

Народ, подскажите, как выполнить сабж. Если точнее, то надо определенную строку и определенную колонку (номер заранее не известен) выделить жирным шрифтом. Спасибо!

---

← →
Starkom   (2002-03-12 15:08) [1]

надо переопределять DrawCell

---

← →
KIR ©   (2002-03-12 15:41) [2]

А по конкретнее?

---

← →
MBo ©   (2002-03-12 15:45) [3]

примеры OnDrawCell в хелпе

---

← →
Дмитрий ©   (2002-03-12 15:47) [4]

Поконкретнее - пример есть в хелпе. См. Canvas.

StringGrid - ерунда.
Поищи такой ActiveX - VSFLEX7 (VideoSoft FlexGrid):
очень симпатишный контрол -
произвольное объединение ячеек (колонок и столбцов),
возможность связывания с рекордсетом,
вывод таблицы в виде дерева и т.д. и т.п.

Минусы - весит ок. 450 кб и - надо искать ломаный.

---

← →
Alx2 ©   (2002-03-12 15:52) [5]


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if Acol=2 then
with StringGrid1.Canvas do
begin
Brush.Color := clBlue;
Font.Color := clLime;
FillRect(Rect);
Font.Size := 14;
Font.Name := "Times New Roman";
TextOut(Rect.Left,Rect.Top,"TEST");
end
else
with StringGrid1.Canvas do
begin
Brush.Color := clWhite;
Font.Color := clBlack;
FillRect(Rect);
Font.Size := 8;
Font.Name := "Arial";
TextOut(Rect.Left,Rect.Top,"TEST");
end
end;


---

Страницы: 1 вся ветка

Текущий архив: 2002.03.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.007 c