Форум: "Базы";
Текущий архив: 2003.05.08;
Скачать: [xml.tar.bz2];
Вниз
Вопрос по 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
Спасибо БОЛЬШОЕ!
Попробую разобраться.
← →
NAlexey (2003-04-17 11:18) [8]Держи...
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]Класс, СПАСИБО!!!
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.05.08;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c
