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

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

Проблемка с dbGrid [D7, Paradox]

CAMCOH ©   (2004-07-05 11:12:00) 

Вобщем 3ий день мучаюсь немогу найти выход из сложившейся ситуации.
Есть Dbgrid1 в котором надо убить полосы прокруток.
С помощью нехитрых операций

type
 TGrid=class(TCustomGrid);
................
{skipped}
................
TGrid(DBGrid1).ScrollBars:=ssnone;

удаётся избавитьсяб но как только в тексте программы появляется next, first, .DataSource.DataSet.RecNo:=xx или другие переходы на запись вертикальный скроллинг появляется и от него уже никак не избавится.
Что делать ?
Заранее спасибо за ответы...

---

CAMCOH   (2004-07-07 13:43:00) [1]

Stas: A mozhno popodrobnee ?

---

CAMCOH   (2004-07-07 13:41:00) [2]

Johnmen: Vidajot oshibku Undeclared identifier Paint

---

stas   (2004-07-05 13:21:00) [3]

Или используй EhLib

---

Johnmen   (2004-07-05 11:50:00) [4]

>CAMCOH

Вот из какого-то фака
DBGrid без прокрутки
===================
type
TNoScrollBarDBGrid = class(TDBGrid)
private
protected
  procedure Paint; override;
public
published
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Samples', [TNoScrollBarDBGrid]);
end;

{ TNoScrollBarDBGrid }

procedure TNoScrollBarDBGrid.Paint;
begin
SetScrollRange(Handle, SB_VERT, 0, 0, false);
inherited;
end;
Это уже будет твой грид с твоей отрисовкой...

---

CAMCOH   (2004-07-05 11:36:00) [5]

Johnmen
А можно поподробнее как это перекрыть метод paint и куда вставлять казанную тобой процедуру.

---

Johnmen   (2004-07-05 11:32:00) [6]

Надо перекрыть метод Paint у грида и "рисовать" самому.
Типа
procedure TMyDBGrid.Paint;
begin;
SetScrollRange(Handle,SB_VERT,0,0,False);
inherited;
end;

---

Ozone   (2004-07-05 11:19:00) [7]

Точно есть API-функция для "удаления" скролов, но вот названия хоть убей не помню.
Мож мастера подскажут

---

Наверх