| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Строка в два ряда [D6, Paradox]
Dim!S © (2003-03-03 09:25:00)Уважаемые мастера,
В небольшом окне отображаются три поля таблицы (DBGrid):
два имеют небольшой размер, а третье может достигать 200 символов. Как красиво вывести текст в третьем столбце в два или более рядов.
Пример:
20.02.2003 123 От том-то и том-то
от того-то и того-то
21.02.2003 124 Запрос от Петрова
Спасибо
Dim!S (2003-03-03 11:12:00) [1]Спасибо, посмотрю...
Соловьев (2003-03-03 10:56:00) [2]Это я делал для 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 10:30:00) [3]А как в обработке события OnDrawColumnCell?
zacho (2003-03-03 10:09:00) [4]Посмотри DBGridEh
passm (2003-03-03 10:05:00) [5]Dim!S (03.03.03 09:25)> Можно нарисовать красивый DBCtrlGrid...
| |
