| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

СтатусБар как его инициализировать!!

Alik$ ©   (2003-09-03 10:19:00) 

СтатусБар как его инициализировать!!
Т.е. нужно вывести количество строк в базе на статус панель
я делаю так но без результатов

procedure TMainForm.my(Sender: TObject; const Rect: TRect; Field: TField;
State: TGridDrawState);
var
Col, Row: Integer;
RowHeight: Integer;
c:String;

begin
if gdFocused in State then
begin
RowHeight := Rect.Bottom - Rect.Top;
Row := (Rect.Top div RowHeight) - 1;
Col := Field.Index;
c:=IntToStr(col);
Statusbar1.Panels[0].Text := c;
end;
end;

---

Vlad   (2003-09-03 10:35:00) [1]

Ты при отрисовке ячейки грида пытаешься показать Field.Index в статусбаре. Зачем ?
Может ты не тот код привел ?

---

Наверх