Вопрос по TDBGrid у

← →
Imshanya (2003-04-16 16:35) [0]

Уважаемые мастера !!!

Может Кто знает, как получить индекс последней целиком видимой ячейки TDBGrid.

Заранее благодарю за внимание и помощь!!!

← →
Imshanya (2003-04-16 17:00) [1]

Извините за нечеткий вопрос, правильнее будет так:

Как получить индекс столбца справа, у которого ячейки видны целиком. :)

← →
Imshanya (2003-04-17 10:28) [2]

АУ!!!

Здесь есть кто-нибудь???

← →
Max Zyuzin © (2003-04-17 10:48) [3]

>Imshanya (16.04.03 16:35)
Вопрос конечно интересный, но совсем не по базам данных. Давай определимся - для чего это нужно? Может что нить и придумаем.

← →
NAlexey © (2003-04-17 10:54) [4]

DrawInfo есть такая штука. Не разберешся код кину...

← →
NAlexey © (2003-04-17 10:58) [5]

Прогнал, короче вот:
Unit Grids type TGetExtentsFunc = function(Index: Longint): Integer of object; TGridAxisDrawInfo = record EffectiveLineWidth: Integer; FixedBoundary: Integer; GridBoundary: Integer; GridExtent: Integer; LastFullVisibleCell: Longint; FullVisBoundary: Integer; FixedCellCount: Integer; FirstGridCell: Integer; GridCellCount: Integer; GetExtent: TGetExtentsFunc; end; TGridDrawInfo = record Horz, Vert: TGridAxisDrawInfo; end; Description TGridDrawInfo encapsulates information that reflects the layout of the grid axes. Each axis is described by a TGridAxisDrawInfo record, which encodes information about the size of the axis and the type and number of cells along that axis.

← →
Imshanya (2003-04-17 11:06) [6]

To Max Zyuzin & All

Не думаю, что подробности помогут, но суть вот в чем:
я пробую написать свой компонент типа дельфового DBGridа.

Вообще, раньше я где-то встречал, что, кажется непосредственно у TCustomGrid есть возможность получить расширенную информацию о рисовании: что-то типа TExtendedDrawInfo. И там вроде бы есть переменная, опять же что-то типа LastFullVisibleCell.
В общем, "потеряла Таня мячик"... Если чего знаете про эти дела, подскажите где искать.

И еще.
Кто нибудь может привести следующий полный код (я не думаю, что он большой): Надо что бы у DBGrida заголовок был большей высоты, нежели по умолчанию.

Спасибо за внимание!!!

← →
Imshanya (2003-04-17 11:09) [7]

To NAlexey

Спасибо БОЛЬШОЕ!

Попробую разобраться.

Держи...
type TDummyGrid = class(TCustomGrid); procedure TForm1.Button1Click(Sender: TObject); var DrawInfo: TGridDrawInfo; begin TDummyGrid(DbGrid1).CalcDrawInfo(DrawInfo); Caption := IntTostr(DrawInfo.Horz.LastFullVisibleCell); end;

← →
Imshanya (2003-04-17 11:38) [9]

Класс, СПАСИБО!!!

Вопрос по TDBGrid у Найти похожие ветки