[Qt] qtwidgets.pas svn 20770 sigsevs

[Den.Jean at telenet.be]

Hi,

The last changes to qtwidgets.pas cause sigsevs.

I reduced my lclwebkit demo3 to the following:
Create from scratch an application in lazarus qt,
add a panel and a notebook to the form.
create a qt widget on the panel(see code below)
When the notebook has at least one page, a sigsev occurs.
When reverting to previous qtwidgets.pas version -> no sigsevs.


unit1.pas:
==========

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, ComCtrls,

  Qt4,QtWidgets;

type

  { TForm1 }

  TForm1 = class(TForm)
    PageControl1: TPageControl;
    Panel1: TPanel;
    TabSheet1: TTabSheet;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  W : QWidgetH;
begin
W:=QWidget_create(TQtWidget(Panel1.Handle).Widget);
end;

initialization
  {$I unit1.lrs}

end.



unit1.lfm:
==========

object Form1: TForm1
  Left = 584
  Height = 300
  Top = 358
  Width = 400
  Caption = 'Form1'
  ClientHeight = 300
  ClientWidth = 400
  OnCreate = FormCreate
  LCLVersion = '0.9.27'
  object Panel1: TPanel
    Left = 272
    Height = 133
    Top = 112
    Width = 85
    Caption = 'Panel1'
    TabOrder = 0
  end
  object PageControl1: TPageControl
    Left = 40
    Height = 200
    Top = 45
    Width = 200
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
    end
  end
end