View Issue Details

IDProjectCategoryView StatusLast Update
0035782LazarusOtherpublic2019-06-30 14:52
ReporterBambang Pranoto Assigned ToZeljan Rikalo  
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
PlatformLinuxOSUbuntu 
Product Version2.0.2 
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

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)   
program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, Unit1, Unit2
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

project1.lpr (394 bytes)   
unit1.lfm (354 bytes)   
object Form1: TForm1
  Left = 406
  Height = 240
  Top = 250
  Width = 320
  Caption = 'Form1'
  ClientHeight = 240
  ClientWidth = 320
  LCLVersion = '2.0.2.0'
  object Button1: TButton
    Left = 64
    Height = 27
    Top = 80
    Width = 152
    AutoSize = True
    Caption = 'Form2.ShowModal()'
    OnClick = Button1Click
    TabOrder = 0
  end
end
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)   
object Form2: TForm2
  Left = 406
  Height = 48
  Top = 250
  Width = 253
  Caption = 'Form2'
  ClientHeight = 48
  ClientWidth = 253
  LCLVersion = '2.0.2.0'
  object Label1: TLabel
    Left = 16
    Height = 17
    Top = 16
    Width = 193
    Caption = 'Try to drag me somewhere...'
    ParentColor = False
  end
end
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