Как убрать скролы на DBGid?

[Tango]

Как убрать скролы на DBGid?
Если я делаю так

Код: Выделить всё

procedure TNoScrollBarDBGrid.Paint;
Begin
inherited;

TNoScrollBarDBGrid=class(TDCLDBGrid)protected
  procedure Paint; override;
End;

procedure TNoScrollBarDBGrid.Paint;
Begin
  SetScrollRange(Handle, SB_VERT, 0, 0, False);
  SetScrollRange(Handle, SB_HORZ, 0, 0, False);
inherited;
End;


То убираются, но со следующим косяком.

На Форме два ДБГрида, Один нормальный (верхний),другой (нижний) таблица подсуммировки, без скролов.
Но в нижнем гриде рисуется строчка от верхнего и она похожа на мусор.




Целевое приложение : Win32
Lazarus 1.0.10
fpc 2.6.2
Win 7 x64

[alexs]

Возьми RxDBGrid и не мучайся.
Он и сумировать итог умеет, и строка с итогами отображается. И фильтровать в гриде будешь.

[Little_Roo]

Послушай гуру alexs
Он таки прав !!!
Сам пользуюсь его гридом.... дай б...кто-нибудь господину-гуру Лагунову здоровья и еще сил насиловать свой мозг...на благо всем нам... enter...

[alexs]

пацталом....
Для поправки здоровья и для восстановления сил любить свой мозг - на стартовой странице своего сайта разместил номер яндекс-кошелька. Буду благодарен за любую благодарность...

[Tango]

Как всегда, отвечу сам.
Спасибо за ваше бездействие.

Процедуру сделал так.

Код: Выделить всё

procedure TNoScrollBarDBGrid.Paint;
Begin
{$IFDEF MSWINDOWS}
  SetScrollRange(Handle, SB_VERT, 0, 0, True);
  SetScrollRange(Handle, SB_HORZ, 0, 0, True);
  {$IFDEF FPC}
  Canvas.Clear;
  Canvas.Brush.Color := clWindow;
  Canvas.FillRect(Canvas.ClipRect);
  {$ENDIF}
{$ENDIF}
inherited;
End;

И всё стало красиво.