Farbe aus Pixel lesen

Frankle · Beiträge: 20

Hi!
Wenn ich ein Bild in ein TImage lade...und auf einen Punkt des Bildes klicke....soll die Farbe erscheinen....(wie) geht das?
DAnke

_________________
---------------------------
God Safe QUEEN
"The Show Must Go On"

Klabautermann · Verfasst: Do 04.07.02 01:17

Hallo,

erstelle mal ein beispielprojekt, in dem du ein tImage und ein tShape Object einfügst. Bei der Eigenschaft OnMouseDown des tImage fügst du diesen Code ein;

markieren

Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Shape1.Brush.Color := Image1.Canvas.Pixels[X, Y];
end;

Ich denke das sollte anschaulich genug sein

Gruß
Klabautermann

Pit · Beiträge: 160

Frankle · Beiträge: 20

Kann mir jemand mal schnell was schreiben..?
Also...dass JPG soll eben mal in der Zwischenablage zum BMP gemacht werden....und dann angezeigt werden.
Dann wär' ich mehr als zu friegen

)

_________________
---------------------------
God Safe QUEEN
"The Show Must Go On"

Pit · Beiträge: 160

Mr_T · Beiträge: 73 Win XP, Fedora Core RC 1

Hmm - ich weiß nicht Frankle, ob du es mitbekommen hast, aber in meinem FAQ - Eitrag in unserem Forum habe ich ne Möglichkeit gepostet, wie man JPGs in eine Image einließt .... müsste funzen ...

_________________
Es gibt 10 Arten Binäre Zahlen zu interpretieren: 0 und 1
Wer nicht kämpft, hat schon verloren!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme