Многострочные заголовки DBGrid

← →
TKN (2011-10-25 17:04) [0]

Здравствуйте ! Взял пример многострочного заголовка .
Объявлен класс - наследник

type
THackGrid = class(TCustomGrid)
public
property RowHeights;
end;

procedure TForm1.FormShow(Sender: TObject);
var I:Integer;
H:Integer;
begin
SetLength(GridTitles, DBGrid1.Columns.Count);
for I := 0 to Pred(DBGrid1.Columns.Count) do begin
DBGrid1.Columns[I].Title.Alignment := taCenter;
GridTitles[I] := False;
end; // for
H := DBGrid1.Canvas.TextHeight("gW");
THackGrid(DBGrid1).RowHeights[0] := (H + 2) * RowCount;
GridWnd := DBGrid1.Handle;

end;

В строке ->

THackGrid(DBGrid1).RowHeights[0] := (H + 2) * RowCount;

программа ругается - "Grid index out of range" .

← →
stas © (2011-10-25 17:33) [1]

Почему бы сразу не объявить Dbgrid1:THcakGrid; ?

← →
Плохиш © (2011-10-25 17:42) [2]

> В строке ->
>
> THackGrid(DBGrid1).RowHeights[0] := (H + 2) * RowCount;
>
>
> программа ругается - "Grid index out of range" .
>

Перевожу: "Дебилко куда лезешь? В гриде нет строк."

← →
Игорь Шевченко © (2011-10-25 20:22) [3]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=806

← →
KilkennyCat © (2011-10-26 00:26) [4]

> Плохиш © (25.10.11 17:42) [2]

в гриде - есть.

← →
KilkennyCat © (2011-10-26 00:28) [5]

и даже в дбгриде есть.
и правильный перевод это бы подтвердил. Но, некоторым, чувство юмора заменяет знания английского. Равно как и все остальное.

← →
TKN (2011-10-26 09:13) [6]

THackGrid = class(TCustomGrid) - в примере ,
заменить на -> THackGrid = class(TCustomDBGrid)
, высота заголовка изменяется .

← →
TKN (2011-10-26 11:48) [7]

> В строке ->
>
> THackGrid(DBGrid1).RowHeights[0] := (H + 2) * RowCount;
>
>
> программа ругается - "Grid index out of range" .
>

Перевожу: "Дебилко куда лезешь? В гриде нет строк."

Прежде , чем писать такие "переводы" (которые можно отнести к вам) , разберитесь в сути вопроса . Пример - автор Игорь Шевченко -->

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=806

Многострочные заголовки DBGrid Найти похожие ветки