Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

TKN © (2011-10-25 17:04:00)
Здравствуйте ! Взял пример многострочного заголовка .
Объявлен класс - наследник

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" .

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

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

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

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

TKN (2011-10-26 09:13:00) [2]
THackGrid = class(TCustomGrid) - в примере ,
заменить на -> THackGrid = class(TCustom DBGrid)
, высота заголовка изменяется .

KilkennyCat (2011-10-26 00:28:00) [3]
и даже в дбгриде есть.
и правильный перевод это бы подтвердил. Но, некоторым, чувство юмора заменяет знания английского. Равно как и все остальное.

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

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

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

Игорь Шевченко (2011-10-25 20:22:00) [5]
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=806

Плохиш (2011-10-25 17:42:00) [6]

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

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

stas (2011-10-25 17:33:00) [7]
Почему бы сразу не объявить Dbgrid1:THcakGrid; ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »