gr32: Alpha Wert für TImage32 bei MouseMove ermitteln

[torte62]

So sieht mein Code aus der natürlich immer noch nur 0 ergibt. Sei so gnädig und gib mir doch noch ein paar Tips mehr.


procedure TMainForm.Image32MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer; Layer: TCustomLayer);
var
AColor32: TColor32;
alpha: byte;
begin
acolor32:=AlphaComponent(imgview.canvas.pixels[x, y]);
Alpha := acolor32 shr 24;
colorlabel.caption:=inttostr(alpha);;
end;

gruß Torsten
Looktrue.com