Pixel unter Mouse-Cursor auslesen

[againsttcpa]

Hallo,

ich möchte den RGB-Wert unter dem Cursor auslesen. Unter Windows/Delphi war dies bereits implementiert.
Unter Linux/Kylix ist dies nicht der Fall.
Ich möchte jetzt wissen, ob es in irgendeiner Library (.a oder .so) eine Funktion gibt, die so etwas kann.
Bräuchte ich dringend

Gruß Sven

[anda_skoa]

In einem eigenen Widget?

Ciao,
_

[againsttcpa]

K.A. Es handelt sich um eine Grafik in einem TImage.
Das Handle des Bitmap-Objectes ist als HPixmapH defieniert. Dann denke ich mal schon.

Sven

[anda_skoa]

Ah, es ist also sogar ein Bild?

Dann sollte doch das TImage Objekt oder das Pixmap Objekt Methoden für den Pixelzugriff haben, oder?

QImage hat dazu zB eine Methode pixel(int, int)

Ciao,
_

[againsttcpa]

Neeeee,

es ist ein TImage. Der Zugriff auf das Bild erfolgt mittels Image1.Picture.Bitmap.

Ich habe folgende funkionierende Funktion fr mich herausgefunden:

procedure TdlgColor.AcColorClick(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var PImgL : PByteArray;
txt : string;
begin
PImgL := TImage(Sender).Picture.Bitmap.ScanLine[Y];
txt := '$00' + IntToHex(PImgL^[X*4],2) +
IntToHex(PImgL^[X*4+1],2) + IntToHex(PImgL^[X*4+2],2);
if txt <> '$C8D0D4' then pnlColor.Color := StrToInt(txt);
end;

Sven