Скачать: CL | DM;

Вопрос по 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.014 c