Image mit Alphawert

[Phiennes]

Hi,

Ich versuche diesen Code auf ein Image anzuwenden. Leider klappt das nicht ganz, weil der Compiler mir an den markierten Stellen sagt: "Variable erforderlich".

Hat jemand eine Idee wo das Problem liegt?

Delphi-Quellcode:

unit uAlphaImage;

interface

uses
  windows, graphics, classes, ExtCtrls;

type
  TImage = class(ExtCtrls.TImage)
  private
    fAlphaVal: Byte;
    procedure FSetAlphaVal(AAlpha: Byte);
  public
    constructor Create(AOwner: TComponent); override;
    procedure Paint; override;
  published
    property AlphaVal: Byte read fAlphaVal write FSetAlphaVal default 255;
  end;

implementation

constructor TImage.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Transparent := True;
  fAlphaVal := 255;
end;

procedure TImage.Paint;
type
  PCanvas = ^TCanvas;
var LBitmap: TBitmap;
    LOldCanvas: TCanvas;
    LBlendFunc: TBlendFunction;
begin
  if fAlphaVal = 255 then
    inherited Paint
  else begin
    LBitmap := TBitmap.Create;
    LBitmap.Width := Width;
    LBitmap.Height := Height;

    BitBlt(LBitmap.Canvas.Handle, 0, 0, Width, Height, Canvas.Handle, 0, 0, SRCCOPY);

    LOldCanvas := Canvas;
    PCanvas(@Canvas)^ := LBitmap.Canvas;     // Variable erforderlich
    inherited Paint;
    PCanvas(@Canvas)^ := LOldCanvas;         // Variable erforderlich


    LBlendFunc.BlendOp := AC_SRC_OVER;
    LBlendFunc.BlendFlags := 0;
    LBlendFunc.SourceConstantAlpha := fAlphaVal;
    LBlendFunc.AlphaFormat := 0;
    windows.AlphaBlend(Canvas.Handle, 0, 0, Width, Height, LBitmap.Canvas.Handle,
                       0, 0, Width, Height, LBlendFunc);
    LBitmap.Free;
  end;
end;

procedure TImage.FSetAlphaVal(AAlpha: Byte);
begin
  if AAlpha <> fAlphaVal then
  begin
    fAlphaVal := AAlpha;
    Repaint;
  end;
end;

end.

Vielen Dank schonmal im Vorraus.

lG Phiennes

[Blup]

PCanvas(@Canvas)^

Natürlich kann man einem Property, das nur "read" deklariert ist, nichts zuweisen.
Die Adresse eines Propertys gibt es nicht, da für "read" und "write" Methoden definiert sein könnten.
Die Adresse der Variable FCanvas lässt sich so nicht ermitteln.
WinControls unterstützen aber die Methode PaintTo.

BitBlt(LBitmap.Canvas.Handle, 0, 0, Width, Height, Canvas.Handle, 0, 0, SRCCOPY);

Mit dieser Anweisung erhältst man nicht den Hintergrund deines Steuerelements, sondern einfach den Inhalt des Bildschirmbereichs auf den das Steuerelement zu zeichenen ist. Dieser ist undefiniert, z.B. durch ein anderes Fenster das diesen Bereich vorher überdeckt hat oder durch das letzte OnPaint gezeichnet. Im besten Fall wurde dieser Bereich bereits durch WM_ERASEBKGND mit der Hintergrundfarbe gefüllt.

[Phiennes]

Und warum funktioniert es dann mit TLabel, wie im Tutorial? Wie kann ich denn dann mein Image semi-transparent machen?

[Bernhard Geyer]

Wieso willst du das eigentlich selbst machen und nimmst keine fertige PNG-Implementierung :gruebel:
Mit PNG ist sowas problemlos möglich.

[Phiennes]

Aber dann muss ich die Bilder als png auch abspeichern oder nicht? Meine Bilder werden aber selbst gezeichnet.

[Bernhard Geyer]

Wenn sie als Bitmap gezeichnet werden kannst du sie einfach per Assign nach PNG wandeln. Und im PNG steht dir die Welt der Transparenz offen.

[Namenloser]

Delphi-Quellcode:

PCanvas(@Canvas)^

Ähm, sehe ich den Wald vor lauter Bäumen nicht, oder so? Das ist doch genau das gleiche wie

Delphi-Quellcode:

Canvas

:gruebel:

[Blup]

@Phiennes

Zitat:

Und warum funktioniert es dann mit TLabel, wie im Tutorial? Wie kann ich denn dann mein Image semi-transparent machen?

Ein Label ist kein WinControl und hat deshalb kein eigenes Fenster.
möglicher Lösungsansatz um den Hintergrund des Images zu ermitteln

@NamenLozer
PCanvas ist ein Zeiger auf eine Variable vom Typ TCanvas.
Auf den Inhalt der Variablen kann direkt im Speicher zugegriffen werden.

Canvas ist ein Propery vom Typ TCanvas.
Es kann nur über entsprechende Read oder Write-Methoden (wenn vorhanden) darauf zugegriffen werden.
Wo die Komponente eine Variable dafür hat, ist nicht bekannt.

[Namenloser]

Zitat:

Zitat von Blup

@NamenLozer
PCanvas ist ein Zeiger auf eine Variable vom Typ TCanvas.
Auf den Inhalt der Variablen kann direkt im Speicher zugegriffen werden.

Canvas ist ein Propery vom Typ TCanvas.
Es kann nur über entsprechende Read oder Write-Methoden (wenn vorhanden) darauf zugegriffen werden.
Wo die Komponente eine Variable dafür hat, ist nicht bekannt.

In dem Fall würde ich eine lokale Variable verwenden.

[Blup]

Der VCL-Klasse TImage sollte mit dieser Konstruktion eine anderer Canvas, nähmlich der Canvas einer Bitmap untergeschoben werden.
Aus den genannten Gründen ist dies aber so nicht möglich.