Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / qt / 2009-07

qtwidgets.pas svn 20770 sigsevs

3 messages · 3 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Unknown author

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

Reply by email

zeljko
to Unknown author
Show quoted text 10 lines
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.

Fixed with 20794.

zeljko

Reply by email

aime two
to Unknown author: The last changes to qtwidgets.pas cause sigsevs. I reduced my lclwebkit demo3 to the…

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.

a ?crit :

Show quoted text 109 lines
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 http://lists.lazarus.freepascal.org/mailman/listinfo/qt

Reply by email