Semitransparente Fenster mittels (Update-)LayeredWindow

[Bummi]

nicht daß ich es ganz verstehen würde aber mit

Delphi-Quellcode:

               pBMP[x].rgbRed := 255 - y;
               pBMP[x].rgbGreen := 0;
               pBMP[x].rgbBlue := 0;
               pBMP[x].rgbReserved := 255-y;

sollte das rauskommen was Du erwartest....

[patti]

Erstmal Danke für deine Antwort und deine Bemühungen Tatsächlich funktioniert das in diesem Beispiel perfekt, also wenn ich einen Farbverlauf habe (verstehe aber ehrlich gesagt nicht, warum es dann funktioniert, denn nach meinem Verständnis müsste die rote Fläche mit meinem ursprünglichen Code trotzdem ausfaden, da der Alpha-Wert ja irgendwann 0 wird ).
Das mit dem roten Farbverlauf war jedoch nur ein kleiner Test, denn eigentlich will ich später alphatransparente Grafiken darstellen können. Hab jetzt deshalb mal meine Zeichen-Routine zum Testen angepasst:

Delphi-Quellcode:

     for y := 0 to 255 do
     begin
          pBMP := bgBMP.ScanLine[y];
          //
          for x := 0 to 255 do
          begin
               pBMP[x].rgbRed      := 0;
               pBMP[x].rgbGreen    := 255-y;
               pBMP[x].rgbBlue     := 0;
               //
               if (y > 100) and (y < 200) then pBMP[x].rgbReserved := 0
               else pBMP[x].rgbReserved := 255-y;
          end;
     end;

Dann ergibt sich (logischerweise) wieder das ursprüngliche Problem (siehe Bild im Anhang). An was kann denn das liegen? Kann es sein, dass ich die Arbeitsweise von UpdateLayeredWindow falsch verstehe?

[Bummi]

Ich habe ein anderes Vorgehen als Du und bin daher bisher nicht auf dieses Problem gestossen.
Ich bastle gerade eine Komponentensuite für Transparente Anwendungen.
Microdemo unter:
www.bummisoft.de/download/Transtest.zip.

Wenn ich bei meinen GDI+-Malereien schaue was da gemalt wird sieht es so aus als ob z.B. Rot
bei scharzem Hintergurnd, den ich default verwende mit 128 bei Transparenz 128 gemalt wird:

im unteren Beispiel wird Caption auf 128 gesetzt.


wenn ich vorher mit weiß füllen würde bekäme ich 255 für Rot

Delphi-Quellcode:

var
  b:TGPSolidBrush;
  g:TGPGraphics;
  sc:PScanline;
begin
  image1.Canvas.Brush.Color := clBlack;
  image1.Canvas.FillRect(rect(0,0,200,200));
  g := GetGraphics(image1.Canvas);
  b := GetSolidBrush(clRed,128);
  g.FillEllipse(b,10,10,100,100);
  g.Free;
  b.Free;
  sc := Image1.Picture.Bitmap.ScanLine[50];
  Caption := IntToStr (sc[50].R);

end;

[patti]

Ich hab's!

Hab mehr durch Zufall herausgefunden, dass man die RGB-Werte jeweils mit dem Alpha-Wert/255 multiplizieren muss, damit das Ergebnis stimmt:

Delphi-Quellcode:

procedure TfrmMain.PaintBMP;
var pBMP : PRGBLine;
var x,y  : integer;
begin
     //--
     for y := 0 to 255 do
     begin
          pBMP := bgBMP.ScanLine[y];
          //
          for x := 0 to 255 do
          begin
               pBMP[x].rgbReserved := 255-y;
               //
               pBMP[x].rgbRed      := Byte(Round((pBMP[x].rgbRed)*(pBMP[x].rgbReserved / 255)));
               pBMP[x].rgbGreen    := Byte(Round((pBMP[x].rgbGreen)*(pBMP[x].rgbReserved / 255)));
               pBMP[x].rgbBlue     := Byte(Round((pBMP[x].rgbBlue)*(pBMP[x].rgbReserved / 255)));
          end;
     end;
     //
     Display;
end;

Das Ergebnis schaut dann so aus wie im Anhang.

Danke nochmal an Bummi für die Mühe

Patti