Programm Design mit TPNGObject

[Bummi]

Paintbox.Canvas.Draw(x,y,PNGIMG) behält doch alle Transparenzen bei, oder habe ich Dich falsch verstanden ...

[sportkeks]

Ja das ist richtig aber ich möchte ja vorher auf ein Offpng zeichnen um das mal zu verdeutlichen:

Delphi-Quellcode:

Offpng.Canvas.Draw(0,0,png1);
Offpng.Canvas.Draw(0,100,png2);
Offpng.Canvas.Draw(0,200,png3);
Offpng.Canvas.Draw(0,300,png4);

Paintbox.canvas.draw(0,0,offpng);

schreibe ich das so...:

Delphi-Quellcode:

Paintbox.canvas.draw(0,0,png1);
Paintbox.canvas.draw(0,100,png2);
Paintbox.canvas.draw(0,200,png3);
Paintbox.canvas.draw(0,300,png4);

...endet das in einem wildem geflacker der Paintbox

[Bummi]

vielleicht hilft Dir das, der Teil in Button1 ist bis auf
SetAlpha(bmp2,0);
realtiv uninteressant ....

Delphi-Quellcode:

type
  pRGBQuadArray = ^TRGBQuadArray;
  TRGBQuadArray = ARRAY[0..$effffff] OF TRGBQuad;


Procedure SetAlpha(bmp:TBitMap;Alpha:Byte);
var
 pscanLine32 : pRGBQuadArray;
 i,j:Integer;
 begin
   Bmp.PixelFormat := pf32Bit;
   bmp.HandleType := bmDIB;
   bmp.ignorepalette := true;
   bmp.alphaformat := afDefined;
   for i := 0 to bmp.Height -1 do
     begin
     pscanLine32 := bmp.Scanline[i];
     for j := 0 to bmp.Width -1 do
        begin
          pscanLine32[j].rgbReserved := Alpha;
          pscanLine32[j].rgbBlue := 0;
          pscanLine32[j].rgbRed := 0;
          pscanLine32[j].rgbGreen := 0;
        end;
     end;
 end;


procedure TForm5.Button1Click(Sender: TObject);
var
  Bmp,bmp2: TBitmap;
  p : TPNGImage;

begin
  Bmp2:=TBitmap.Create;
  bmp2.Width := 300;
  bmp2.height := 300;
  SetAlpha(bmp2,0);
  p:=TPNGImage.Create;
  try
    p.LoadFromFile('C:\Icons\IconCollection\ix_ap_all\48x48\shadow\about.png');

    bmp2.Canvas.Draw(20,20,p);
    bmp2.Canvas.Draw(50,50,p);
    bmp2.Canvas.Draw(150,50,p);
    bmp2.Canvas.Draw(50,150,p);
    Canvas.Draw(100,100,bmp2);
  finally
    bmp2.Free;
    p.Free;
  end;

end;

[sportkeks]

Ja die Procedure kommt mir bekannt vor die habe ich auf meiner suche auch schon mal gesehen

aber leider kann ich damit nur die Tansparenz des gesamten Tbitmaps einstellen und nicht wie bei PNG einzelne Bereiche

als beispiel: (siehe Anhang)

in der Mitte eher undurchsichtig,...
...aber der "Schein" rings rum faded gemächlich aus.

und so möchte ich es auch haben

aber trotzdem Danke für den Beitrag

[Bummi]

Dann haben wir uns noch nicht richtig verstanden, bei mir sieht es aus wie im Anhang, wie soll es denn aussehen ?

[sportkeks]

ja genau so soll es aussehen !!! aber so bekomme ich es nicht hin welche Delphi Version nutzt du ????

In turbodelphi gibt es anscheinend kein

bmp.alphaformat := afDefined; deswegen hat es bei mir auch nie funktioniert

aber das wäre dem ziel schon sehr nah

[Bummi]

Ich verwende XE, von Turbodelphi habe ich keine Ahnung, gegf. kommst Du dort mit GDI+ weiter?