Можно ли увеличить высоту поля заголовков таблицы DBGrid, чтобы в них разместился текст в две строки и как?

Это сообщение отредактировал(а) Mick Winder - 15.10.2004, 14:25

Взято с сайта delphiwold.narod.ru
Заголовок TDBGrid в две строки

type
TAccessDBGrid = class(TDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
S1, S2: String;
begin
with TAccessDBGrid(DBGrid1) do
begin
// Increase title height
// Titelhohe vergrossern
RowHeights[0] := 32;

Canvas.Brush.Style := bsClear;

// Column Titles
// Spalten Titel setzen
case Column.Index of
0: begin
Column.Title.Caption := '';
S1 := 'Row 1';
S2 := 'Row 2';
end;
1: begin
Column.Title.Caption := '';
S1 := 'Row 1';
S2 := 'Row 2';
end;
end;
// write title:
// Titel ausgeben:
Canvas.TextOut(Rect.Left+2, 2, S1);
Canvas.TextOut(Rect.Left+2, 16, S2);
end;
end;

Странно... Delphi7 объект TAccessDBGrid не распознает...
Добавлено @ 15:46
Заработало!!!! Спасибо!!!

Cкачай EhLib http://ehlib.com/RUS/default.htm и жить станет тебе на много легче.

Цитата

Cкачай EhLib http://ehlib.com/RUS/default.htm и жить станет тебе на много легче.

согласен, сам пользуюсь этой библиотекой и действительно, жить стало намного проще. А в DBGrid'e даже элементраного скроллинга по таблице нет! Беда! А в EhLib'е все есть и даже с излишком! Классная библиотека!

Попробовал установить EhLib, но вылетает ошибка
[Fatal Error] EhLib70.dpk(54): File not found: 'DBSumLst.dcu'
Чё делать?

Перепиши все файлы из папки Common в папку Delphi7 (туда где лежит EhLib70.dpk)

Спасибо! Всё сделал, как надо... однако, когда я поместил на форму DBGridEh, соединил с DataSource, выдало сообщение об ошибке:
[Fatal Error] Repository.pas(12): File not found: 'DBGridEh.dcu'
Что за мука?

А пути к файлам приписал в Library path?

Да, всё приписал, всё работает, только не пойму, как с помощью DBGridEh сделать заголовки в две строки?

Цитата(Mick @ 18.10.2004, 13:03)

Да, всё приписал, всё работает, только не пойму, как с помощью DBGridEh сделать заголовки в две строки?

Ну, вообще-то можно немного и хелп почитать.
Но я всегда это делаю установкой свойства грида UseMultiTitle:= True.

Огромное спасибо!!!

не за что

Цитата

Но я всегда это делаю установкой свойства грида UseMultiTitle:= True.

я раньше тоже этим пользовался
затем "вылез глюк", точно не помню что произошло, помоему при большом кол-ве записей или при фильтрации, компонента не было видно при выполнении приложения, просто после запуска пропадал, день помучался, пока выставил UseMultiTitle:= False.
после этого начал использовать свойство TitleLines, это былов версии 3.30, сейчас уже стоит 3.50, может этот глюк уже исправлен.

Цитата(dsergey @ 18.10.2004, 12:39)

Цитата Но я всегда это делаю установкой свойства грида UseMultiTitle:= True. я раньше тоже этим пользовался затем "вылез глюк", точно не помню что произошло, помоему при большом кол-ве записей или при фильтрации, компонента не было видно при выполнении приложения, просто после запуска пропадал, день помучался, пока выставил UseMultiTitle:= False. после этого начал использовать свойство TitleLines, это былов версии 3.30, сейчас уже стоит 3.50, может этот глюк уже исправлен.

Спасибо за совет! Для меня это очень важно!