Скачать: CL | DM;

Строка в два ряда   Найти похожие ветки 

← →
Dim!S   (2003-03-03 09:25) [0]

Уважаемые мастера,
В небольшом окне отображаются три поля таблицы (DBGrid):
два имеют небольшой размер, а третье может достигать 200 символов. Как красиво вывести текст в третьем столбце в два или более рядов.
Пример:

20.02.2003 123 От том-то и том-то
от того-то и того-то
21.02.2003 124 Запрос от Петрова
Спасибо

---

← →
passm ©   (2003-03-03 10:05) [1]

Dim!S (03.03.03 09:25)> Можно нарисовать красивый DBCtrlGrid...

---

← →
zacho ©   (2003-03-03 10:09) [2]

Посмотри DBGridEh

---

← →
Dim!S   (2003-03-03 10:30) [3]

А как в обработке события OnDrawColumnCell?

---

← →
Соловьев ©   (2003-03-03 10:56) [4]

Это я делал для StringGrid, для DBGrid думаю аналогично:
procedure TMainForm.grid_CountCabinDrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);

const minHeight=17;
var OldColor : integer;
i : integer;
TempRect : TRect;
begin
with TStringGrid(Sender) do
if (ARow<>0) and (ACol=2) and (Cells[ACol,ARow]<>"") then
begin
//Height
RowHeights[ARow] := minHeight * lb_Data.Count;
for i:= 0 to Pred(lb_Data.Count) do
begin
with TempRect do
begin
Left := Rect.Left;
Top := Rect.Top + minHeight * i;
Right := Rect.Right;
Bottom := Top + minHeight;
end;
Canvas.TextRect(TempRect, TempRect.Left, TempRect.Top,f_CalcNameFileAmts(lb_Data.Items[i],Cells[0,ARow]));
end;
end;
end;

---

← →
Dim!S   (2003-03-03 11:12) [5]

Спасибо, посмотрю...

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c