[Qt] qtwidgets.pas svn 20770 sigsevs

[aime two]

hello,
after a long absence, I return to you.
I unstack my mails, and I trust that my tests viewing a web page in an 
application Lazarus.

Thank you.

Den.Jean at telenet.be a écrit :
> 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
>
>
>
>
>
>
> _______________________________________________
> Qt mailing list
> Qt at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/qt
>
>