[Bug 24756] New: Form do not have transparent region - SetLayeredWindowAttributes do not work

[wine-bugs at winehq.org]

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

           Summary: Form do not have transparent region -
                    SetLayeredWindowAttributes do not work
           Product: Wine
           Version: 1.3.2
          Platform: x86
        OS/Version: Linux
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: shell32
        AssignedTo: wine-bugs at winehq.org
        ReportedBy: alejandro.lavarello at gmail.com


Forms with transparent regions works OK in Windows XP but the
transparency not work in Wine 1.3.2.

Transparency is obtained using the Windows API call to
SetLayeredWindowAttributes.
In more detail, this is the Lazarus code:

------begin of code -------------------------------------------------
unit Unit1; 



{$mode objfpc}{$H+}



interface



uses

  Classes, SysUtils, FileUtil, LResources, Forms,

  Controls, StdCtrls, Graphics, Dialogs, ExtCtrls, Windows;



const

LWA_COLORKEY = 1;

LWA_ALPHA = 2;

LWA_BOTH = 3;

WS_EX_LAYERED = $80000;

GWL_EXSTYLE = -20;



{Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal
Color As Long, ByVal X As Byte, ByVal alpha As Long) As Boolean }

 function SetLayeredWindowAttributes (hWnd:Longint; Color:Longint;

              X:Byte; alpha:Longint):bool stdcall; external 'USER32';



 {not sure how to alias these functions here ????   alias setwindowlonga!!}

 {Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As
Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long }

 Function SetWindowLongA (hWnd:Longint; nIndex:longint;
dwNewLong:longint):longint stdcall; external 'USER32';





 {Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As
Long, ByVal nIndex As Long) As Long }

 Function GetWindowLongA ( hWnd:Longint; nIndex:longint):longint stdcall;
external 'user32';



type



  { TForm1 }



  TForm1 = class(TForm)

    Button1: TButton;

    Image1: TImage;

    procedure FormCreate(Sender: TObject);

    procedure Image1Click(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

  end; 



var

  Form1: TForm1; 



implementation



{$R *.lfm}



{ TForm1 }



procedure SetTranslucent(ThehWnd: Longint; Color: Longint; nTrans: Integer);

var

attrib:longint;



 begin



    {SetWindowLong and SetLayeredWindowAttributes are API functions, see MSDN
for details }



    attrib := GetWindowLongA(ThehWnd, GWL_EXSTYLE);

    SetWindowLongA (ThehWnd, GWL_EXSTYLE, attrib Or WS_EX_LAYERED);

    {anything with color value color will completely disappear if flag = 1 or
flag = 3  }

    SetLayeredWindowAttributes (ThehWnd, Color, nTrans,LWA_COLORKEY);

end;







procedure TForm1.FormCreate(Sender: TObject);

var

   transparency:longint;



begin



     {the color were going to make transparent the red that the form background
is set to}

     transparency:=  clLime;





     {call the function to do it}

     SetTranslucent (form1.Handle, transparency, 0);





end;

------end of code -------------------------------------------------

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

-- 
Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email
Do not reply to this email, post in Bugzilla using the
above URL to reply.
------- You are receiving this mail because: -------
You are watching all bug changes.