[Bug 24757] New: Form can not be deactivated using SetWindowLong

http://bugs.winehq.org/show_bug.cgi?id=24757

Summary: Form can not be deactivated using SetWindowLong
           Product: Wine
           Version: 1.3.2
          Platform: x86
        OS/Version: Linux
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: gdi32
        AssignedTo: [e-mail]
        ReportedBy: [e-mail]

With SetWindowLong one can make a window that never activates,
e.g., never gets focused and stay below the others.
This works OK in Windows XP, but do not work in Wine.
This is the Lazarus code, that once compiled, makes
an application that works in Windows but not in Wine:

----begin code --------

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Windows, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,

StdCtrls, ExtCtrls;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Timer1: TTimer;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

i:integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin

i:=0;

Timer1.Interval :=5000;

Timer1.Enabled :=True;

Edit1.Text :='Init';

Self.ShowInTaskBar :=stNever;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

i:=i+1;

Edit1.Text :='Click number: '+IntToStr(i);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Edit1.text:='Form with style = WS_EX_NOACTIVATE';

SetWindowLong(self.Handle  , GWL_EXSTYLE, WS_EX_NOACTIVATE);

Timer1.Enabled :=False;

end;

END.

----end code ----------

Tested in Wine 1.3.2 under Puppy Linux 4.3.1 and in
WineXO under Sugar in a XO-1.