UpdateLayerWindow - Invalid Parameter

[Neutral General]

Hi,

Habe hier ein Formular mit WS_EX_LAYERED. Jedoch flackert das Fenster relativ stark beim resizen und verschieben. Also schätze ich muss ich beim resizen und verschieben UpdateLayeredWindow aufrufen.

Wenn das bis hierhin falsch ist, dann braucht ihr gar nicht weiterzulesen, dann klärt mich auf^^

So ich tue das im Moment so:

Delphi-Quellcode:

WM_SIZE: begin 
            // bf: _BLENDFUNCTION       
            bf.BlendOp := AC_SRC_OVER;
            bf.BlendFlags := 0;
            bf.AlphaFormat := 0;
            bf.SourceConstantAlpha := FAlpha;
            // NewSize: TSize
            NewSize.cx := FWidth;
            NewSize.cy := FHeight;

            if not UpdateLayeredWindow(Handle,0,nil,@NewSize,GetDC(Handle),nil,0,@bf,ULW_ALPHA)
              ShowMessage(SysErrorMessage(GetLastError)); // Zu testzwecken
          end;

Ich bekomme immer den Fehler:

Zitat:

---------------------------
Message
---------------------------
The parameter is incorrect
---------------------------
OK
---------------------------

Was mache ich denn da falsch? Habs mir bei MSDN angeguckt und ich mache alles so wies da steht. Habs auch schon mit CreateCompatibleDC(GetDC(Handle)) versucht statt nur GetDC(Handle), ändert aber nichts.

Gruß
Neutral General

[Neutral General]

Wollte mal nachfragen ob mir da vielleicht doch jemand helfen kann?

[toms]

Hallo, vielleicht hilft dir das weiter

[VnCoders]

I saw that there is not anything wrong with UpdateLayeredWindow parameters, you use wrong "if...then" clause.
The correct is

Code:

if not UpdateLayeredWindow(Handle,0,nil,@NewSize,GetDC(Handle),nil,0,@bf,ULW_ALPHA) then

[Neutral General]

Hi,

Oh yes I see, but that was only a mistake caused by copy&paste ;)
In the original code it looks like this:

Delphi-Quellcode:

if not UpdateLayeredWindow(Handle,0,nil,@NewSize,GetDC(Handle),nil,0,@bf,ULW_ALPHA) then
  ShowMessage('Fehler!');

@toms: Ne das ist nicht das Problem. Die Deklaration von UpdateLayeredWindow ist bei mir in Ordnung. Benutze Delphi7.

Gruß
Neutral General

[VnCoders]

I use Delphi 7 also. I complied your code with the correct "if...then" and everything is fine. Maybe there is a library declaration conflict with your Delphi. Some libraries have the same API header but different parameters.

[toms]

Setzte AlphaBlend vor dem Aufruf der Funktion UpdateLayerWindow auf False,
und rufe zusätzlich vorher

Delphi-Quellcode:

    SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);

auf. Dann gibt es keinen Fehler (getestet unter D6 & D2007)
Eine Erklärung dafür habe ich noch nicht.

Testfunktion:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
  BlendFunc: TBlendFunction;
  PosPt, ZeroPt: TPoint;
  Size: TSize;
begin
  // Create bitmap for our layered window
  Bmp := TBitmap.Create;
  Try
    Bmp.Width := Width;
    Bmp.Height := Height;
    Bmp.Canvas.Brush.Color := clBlue;
    Bmp.Canvas.FillRect(Rect(0, 0, Bmp.Width, Bmp.Height));
    {>>>>} AlphaBlend := False;
    // Enable the layered style
    SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
    // Assign the bitmap to the layered window
    BlendFunc.BlendOp := AC_SRC_OVER;
    BlendFunc.BlendFlags := 0;
    BlendFunc.SourceConstantAlpha := 128;
    BlendFunc.AlphaFormat := 0;
    PosPt := BoundsRect.TopLeft;
    Size.cx := Width;
    Size.cy := Height;
    ZeroPt := Point(0, 0);
    Win32Check(UpdateLayeredWindow(Handle, GetDC(0), @PosPt, @Size, Bmp.Canvas.Handle,
      @ZeroPt, clnone, @BlendFunc, ULW_ALPHA));
  finally
     Bmp.Free;
  end;

end;

[SirThornberry]

Zitat:

Eine Erklärung dafür habe ich noch nicht.

Auf was beziehst du das? Auf den benötigten Aufruf von SetWindowLong? :gruebel:

[toms]

Zitat:

Zitat von SirThornberry

Zitat:

Eine Erklärung dafür habe ich noch nicht.

Auf was beziehst du das? Auf den benötigten Aufruf von SetWindowLong? :gruebel:

Genau, da SetWindowLong ja auch beim Setzen von AlphaBlend = True aufgerufen wird.