[Lazarus] Scrolling Wincontrol

classic Classic list List threaded Threaded
5 messages Options
Reply | Threaded
Open this post in threaded view
|

[Lazarus] Scrolling Wincontrol

Torsten Bonde Christiansen
Hi List.

After updating to latest trunk version of Lazarus i've experience something quite strange.
I'm using: Lazarus 0.9.31 r30067M FPC 2.4.2 x86_64-linux-gtk 2

I've created a link to a gif that demonstrates the problem clearly. All I have done is added a TScrollBox and two buttons, clicking on button created a TEdit, clicking the other creates a TLabel.

Gif can be found here.

It seem that this problem is present from revision 29944 and onwards?


Kind regards,
Torsten Bonde Christiansen.


== source code ==

unit main;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    ScrollBox1: TScrollBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  Lbl: TLabel;
begin
  Lbl := TLabel.Create(ScrollBox1);
  Lbl.Name := 'lbl' + inttostr(ScrollBox1.ComponentCount);
  Lbl.Caption := 'Label... ' + inttostr(ScrollBox1.ComponentCount);
  Lbl.left := 20;
  lbl.Top := (ScrollBox1.ComponentCount * 30) + 10;
  Lbl.Parent := ScrollBox1;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Edt: TEdit;
begin
  Edt := TEdit.Create(ScrollBox1);
  Edt.Name := 'edit' + inttostr(ScrollBox1.ComponentCount);
  Edt.left := 100;
  Edt.Top := (ScrollBox1.ComponentCount * 30) + 10;
  Edt.Parent := ScrollBox1;
end;

end.




--
_______________________________________________
Lazarus mailing list
[hidden email]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Reply | Threaded
Open this post in threaded view
|

Re: [Lazarus] Scrolling Wincontrol

Paul Ishenin
29.03.2011 20:08, Torsten Bonde Christiansen wrote:
Hi List.

After updating to latest trunk version of Lazarus i've experience something quite strange.
I'm using: Lazarus 0.9.31 r30067M FPC 2.4.2 x86_64-linux-gtk 2

I've created a link to a gif that demonstrates the problem clearly. All I have done is added a TScrollBox and two buttons, clicking on button created a TEdit, clicking the other creates a TLabel.

Gif can be found here.

It seem that this problem is present from revision 29944 and onwards?

Looks like that was my change. Can you create a bug report and I will look at it tomorow.

Best regards,
Paul Ishenin.

--
_______________________________________________
Lazarus mailing list
[hidden email]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Reply | Threaded
Open this post in threaded view
|

Re: [Lazarus] Scrolling Wincontrol

Torsten Bonde Christiansen
On 2011-03-29 14:15, Paul Ishenin wrote:
29.03.2011 20:08, Torsten Bonde Christiansen wrote:
Hi List.

After updating to latest trunk version of Lazarus i've experience something quite strange.
I'm using: Lazarus 0.9.31 r30067M FPC 2.4.2 x86_64-linux-gtk 2

I've created a link to a gif that demonstrates the problem clearly. All I have done is added a TScrollBox and two buttons, clicking on button created a TEdit, clicking the other creates a TLabel.

Gif can be found here.

It seem that this problem is present from revision 29944 and onwards?

Looks like that was my change. Can you create a bug report and I will look at it tomorow.

Created bug report:
http://bugs.freepascal.org/view.php?id=19020

Kind regards,
Torsten Bonde Christiansen.

--
_______________________________________________
Lazarus mailing list
[hidden email]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Reply | Threaded
Open this post in threaded view
|

Re: [Lazarus] Scrolling Wincontrol

Luiz Americo Pereira Camara
In reply to this post by Paul Ishenin
On 29/3/2011 09:15, Paul Ishenin wrote:

> 29.03.2011 20:08, Torsten Bonde Christiansen wrote:
>> Hi List.
>>
>> After updating to latest trunk version of Lazarus i've experience
>> something quite strange.
>> I'm using: Lazarus 0.9.31 r30067M FPC 2.4.2 x86_64-linux-gtk 2
>>
>> I've created a link to a gif that demonstrates the problem clearly.
>> All I have done is added a TScrollBox and two buttons, clicking on
>> button created a TEdit, clicking the other creates a TLabel.
>>
>> Gif can be found here
>> <http://www.bondechristiansen.net/img/ScrollingWinControl.gif>.
>>
>> It seem that this problem is present from revision 29944 and onwards?
> Looks like that was my change. Can you create a bug report and I will
> look at it tomorow.

It seems a regression to this issue:
http://bugs.freepascal.org/view.php?id=10779

Luiz

--
_______________________________________________
Lazarus mailing list
[hidden email]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Reply | Threaded
Open this post in threaded view
|

Re: [Lazarus] Scrolling Wincontrol

Torsten Bonde Christiansen
On 2011-03-31 01:00, Luiz Americo Pereira Camara wrote:

> On 29/3/2011 09:15, Paul Ishenin wrote:
>> 29.03.2011 20:08, Torsten Bonde Christiansen wrote:
>>> Hi List.
>>>
>>> After updating to latest trunk version of Lazarus i've experience
>>> something quite strange.
>>> I'm using: Lazarus 0.9.31 r30067M FPC 2.4.2 x86_64-linux-gtk 2
>>>
>>> I've created a link to a gif that demonstrates the problem clearly.
>>> All I have done is added a TScrollBox and two buttons, clicking on
>>> button created a TEdit, clicking the other creates a TLabel.
>>>
>>> Gif can be found here
>>> <http://www.bondechristiansen.net/img/ScrollingWinControl.gif>.
>>>
>>> It seem that this problem is present from revision 29944 and onwards?
>> Looks like that was my change. Can you create a bug report and I will
>> look at it tomorow.
>
> It seems a regression to this issue:
> http://bugs.freepascal.org/view.php?id=10779
Ok, but it seems to be fixed now.

-Torsten.

--
_______________________________________________
Lazarus mailing list
[hidden email]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus