Не работает класс TScrollingWinControl на Qt-сборке Lazarus

[SergeiD]

Бьюсь второй день. Проблема - создаю свой пакет, в котором один компонент, производный от TScrollingWinControl. На gtk2-сборке все работает отлично. На qt-сборке при скроллировании программа виснет. Ниже приведу полный текст модулей с компонентом и регистрации пакета:

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

unit Unit2;

{$mode objfpc}{$H+}
interface

uses
  Classes, SysUtils, Forms;

type
  TView = class(TScrollingWinControl)
  public
    constructor Create(AOwner:TComponent);override;
  published
  end;
implementation

constructor TView.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);
end;
end.


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

unit unit1;

interface

procedure Register;

implementation

uses
  Classes,
  Unit2;

procedure Register;
begin
  RegisterComponents('Example', [TView]);
end;
end.


Добавлено спустя 21 час 39 минут 46 секунд:
Падает программа при обращении к скроллерам. Поставил свойство Visible обоих скроллеров в false - работает. Но мне и скроллеры нужны.

[SergeiD]

Для Lazarus 1.0.4 - данная проблема осталась.