Delphi gr32: Alpha Wert für TImage32 bei MouseMove ermitteln

Thema durchsuchen

Ansicht

Themen-Optionen

gr32: Alpha Wert für TImage32 bei MouseMove ermitteln

Offene Frage von "torte62"

Ein Thema von torte62 · begonnen am 7. Apr 2007 · letzter Beitrag vom 7. Apr 2007

Vorheriger Beitrag

Nächster Beitrag

torte62

Registriert seit: 16. Mär 2007
18 Beiträge

Delphi 5 Enterprise

#10

Re: gr32: Alpha Wert für TImage32 bei MouseMove ermitteln

7. Apr 2007, 19:53

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