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

Вниз

Выравнивание в StringGrid   Найти похожие ветки 

← →
Tsarik   (2003-04-11 11:53) [0]

Доброго времени суток, мастера! Можно ли заставить StringGrid выравнивать каждую колонку по правому краю, по центру, как это делает TLabel? И еще, можно ли записать в одну ячейку несколько строк текста, как в Word-овской таблице?

---

← →
MBo ©   (2003-04-11 11:56) [1]

OnDrawCell+DrawText

---

← →
Tsarik   (2003-04-11 12:22) [2]

а нельзя ли по-подробнее, с примером?

---

← →
Separator ©   (2003-04-11 12:52) [3]


procedure TForm1.StringGrid1DrawCell (Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);
var lRow, lCol : Longint;
begin
lRow := Row;
lCol := Col;
with Sender as TStringGrid, Canvas do begin
if (gdSelected in State) then begin
Brush.Color := clHighlight;
end
else if (gdFixed in State) then begin
Brush.Color := FixedColor;
end
else begin
Brush.Color := Color;
end;
FillRect(Rect);
TextOut(Rect.Right-2, Rect.Top+2, Cells[lCol, lRow]);
end;
end

На основе этого можно что угодно делать с любым Grid

---

← →
Tsarik   (2003-04-11 13:19) [4]

Спасибо!

---

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

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

Наверх

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