View Issue Details

IDProjectCategoryView StatusLast Update
0035782LazarusOtherpublic2019-06-30 14:52
ReporterBambang PranotoAssigned ToZeljan Rikalo 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
PlatformLinuxOSUbuntuOS Version18.04
Product Version2.0.2Product Build 
Target VersionFixed in Version 
Summary0035782: Qt5 widgetset Modal form position locked
DescriptionIn an application built with widgetset Qt5, a modal form position is locked and cannot be moved.
Steps To ReproduceBuild the IDE with Qt5 widgetset.
Click Help -> About Lazarus
and try to move the About Lazarus form with mouse.
TagsNo tags attached.
Fixed in Revision61490
LazTarget-
WidgetsetQT5
Attached Files
  • project1.lpr (394 bytes)
  • unit1.lfm (354 bytes)
  • unit1.pas (497 bytes)
    unit Unit1;
    
    {$mode objfpc}{$H+}
    
    interface
    
    uses
      Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
    
    type
    
      { TForm1 }
    
      TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
    
      public
    
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    uses Unit2;
    
    {$R *.lfm}
    
    { TForm1 }
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
      F : TForm2;
    begin
      F := TForm2.Create(Self);
      try
        F.ShowModal;
      finally
        F.Free;
      end;
    end;
    
    end.
    
    
    unit1.pas (497 bytes)
  • unit2.lfm (320 bytes)
  • unit2.pas (267 bytes)
    unit Unit2;
    
    {$mode objfpc}{$H+}
    
    interface
    
    uses
      Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
    
    type
    
      { TForm2 }
    
      TForm2 = class(TForm)
        Label1: TLabel;
      private
    
      public
    
      end;
    
    var
      Form2: TForm2;
    
    implementation
    
    {$R *.lfm}
    
    end.
    
    
    unit2.pas (267 bytes)

Activities

Zeljan Rikalo

2019-06-29 11:06

developer   ~0117004

Please give more details about operating system, window manager and attach example project.

Bambang Pranoto

2019-06-29 18:34

reporter   ~0117006

Operating System: Linux Ubuntu 18.04 64bits with GNome

project1.lpr (394 bytes)
unit1.lfm (354 bytes)
unit1.pas (497 bytes)
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  F : TForm2;
begin
  F := TForm2.Create(Self);
  try
    F.ShowModal;
  finally
    F.Free;
  end;
end;

end.

unit1.pas (497 bytes)
unit2.lfm (320 bytes)
unit2.pas (267 bytes)
unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm2 }

  TForm2 = class(TForm)
    Label1: TLabel;
  private

  public

  end;

var
  Form2: TForm2;

implementation

{$R *.lfm}

end.

unit2.pas (267 bytes)

Zeljan Rikalo

2019-06-30 11:29

developer   ~0117014

Please test and close if ok.

Bambang Pranoto

2019-06-30 14:52

reporter   ~0117017

Yes, I apply the patch. It is good now.

Thank you very much.

Issue History

Date Modified Username Field Change
2019-06-29 06:33 Bambang Pranoto New Issue
2019-06-29 11:05 Zeljan Rikalo Assigned To => Zeljan Rikalo
2019-06-29 11:05 Zeljan Rikalo Status new => assigned
2019-06-29 11:06 Zeljan Rikalo Status assigned => feedback
2019-06-29 11:06 Zeljan Rikalo LazTarget => -
2019-06-29 11:06 Zeljan Rikalo Note Added: 0117004
2019-06-29 18:34 Bambang Pranoto File Added: project1.lpr
2019-06-29 18:34 Bambang Pranoto File Added: unit1.lfm
2019-06-29 18:34 Bambang Pranoto File Added: unit1.pas
2019-06-29 18:34 Bambang Pranoto File Added: unit2.lfm
2019-06-29 18:34 Bambang Pranoto File Added: unit2.pas
2019-06-29 18:34 Bambang Pranoto Note Added: 0117006
2019-06-29 18:34 Bambang Pranoto Status feedback => assigned
2019-06-30 11:29 Zeljan Rikalo Status assigned => resolved
2019-06-30 11:29 Zeljan Rikalo Resolution open => fixed
2019-06-30 11:29 Zeljan Rikalo Fixed in Revision => 61490
2019-06-30 11:29 Zeljan Rikalo Widgetset QT5 => QT5
2019-06-30 11:29 Zeljan Rikalo Note Added: 0117014
2019-06-30 14:52 Bambang Pranoto Note Added: 0117017