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

Проблемка с dbGrid   Найти похожие ветки 

← →
CAMCOH   (2004-07-05 11:12) [0]

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

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

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

---

← →
Ozone ©   (2004-07-05 11:19) [1]

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

---

← →
Johnmen ©   (2004-07-05 11:32) [2]

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

---

← →
CAMCOH   (2004-07-05 11:36) [3]

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

---

← →
Johnmen ©   (2004-07-05 11:50) [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;
Это уже будет твой грид с твоей отрисовкой...

---

← →
stas   (2004-07-05 13:21) [5]

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

---

← →
CAMCOH   (2004-07-07 13:41) [6]

Johnmen: Vidajot oshibku Undeclared identifier Paint

---

← →
CAMCOH   (2004-07-07 13:43) [7]

Stas: A mozhno popodrobnee ?

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.021 c