siehe meinem edit. Sry war vielleicht etwas schelcht formuliert.
Meine Anwendung von turboPASCALs Funktion hat nichts mit ihrer eigentlichen zutun. Ich will den Bereich im Bitmap und nicht in der Form Transparent machen.
edit: Ich hab das so kapiert: TBitmap32 untestützt AlphaTransparenz. Also kann ich meinetwegen den Pixel [5,5] auf 50% durchsichtigkeit setzen. Beim Zeichen mischen sich dann 50% der Farbe darunter mit der neuen Farbe.
Ich will aber die Transparenz an allen Pixel wo die Farbe clFuchsia ist auf 100% setzen. Beim Zeichnen sollen sich dann 100% der Farbe darunter und 0% der Farbe clFuchsia mischen. Somit hätte der Button keinen Rand und man sieht dort den hellblauen Hintergrund.
Sry. Ich arbeite das 1. Mal mit gr32 und bei normalen Bitmaps musste ich einfach nur Transparent auf true setzen.
edit2:in der Hilfe zu gr32 steht:
Zitat:
Alpha := Color32 shr 24;
Aber bei allen Pixeln ist dann Alpha = 0. d.h es schon transparent. Aber warum wird es beim zeichnen nicht berücksicht?
edit3: Ich hab's. Man muss DrawMode auf dmTransparent setzen.
Hier nochmal die gesamte Code:
Delphi-Quellcode:
procedure TfrmMain.MenuDraw;
var
temp32: TBitmap32;
temp : TBitmap;
PixelPtr : PColor32;
x,y:integer;
begin
temp := TBitmap.Create;
try
temp32 := TBitmap32.Create;
try
temp32.Assign(bmpBackground);
bmpMenu.Draw(0,0,temp32);
imgBtn.GetBitmap(0,temp);
temp32.Assign(temp);
SetTransparent(temp32,Color32(clFuchsia));
temp32.DrawMode := dmTransparent;
bmpMenu.Draw(Rect(171,36,171+300,36+50),Rect(1,1,temp32.Width-1,temp32.Height-1),temp32);
//bmpMenu.Draw( 171,36,temp32);
finally
temp32.Free;
end;
finally
temp.Free;
end;
end;
procedure TfrmMain.SetTransparent(DstBitmap: TBitmap32;TransparentColor: TColor32);
var
PixelPtr: PColor32;
X, Y: Integer;
begin
DstBitmap.ResetAlpha;
PixelPtr := PColor32(@DstBitmap.Bits[0]);
for X := 0 to (DstBitmap.Height) * (DstBitmap.Width) do
begin
if PixelPtr^ = TransparentColor then begin
//PixelPtr^ := PixelPtr^ and $00FFFFFF;
PixelPtr^ := 0;
end;
Inc(PixelPtr);
end;
end;