Форум: "Базы";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
ВнизСтрока в два ряда Найти похожие ветки
← →
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 вся ветка
Форум: "Базы";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c