Entwickler-Ecke

Multimedia / Grafik - Farbe aus Pixel lesen


Frankle - Do 04.07.02 00:56
Titel: Farbe aus Pixel lesen
Hi!
Wenn ich ein Bild in ein TImage lade...und auf einen Punkt des Bildes klicke....soll die Farbe erscheinen....(wie) geht das?
DAnke


Klabautermann - 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;

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 - Do 04.07.02 01:46



Frankle - Do 04.07.02 21:37
Titel: mm
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 ;))


Pit - Do 04.07.02 23:26
Titel: Re: mm


Mr_T - Sa 06.07.02 10:19

Hmm - ich weiß nicht Frankle, ob du es mitbekommen hast, aber in meinem FAQ - Eitrag in unserem Forum [http://mitglied.lycos.de/dcwmrt/forum/viewtopic.php?t=80] habe ich ne Möglichkeit gepostet, wie man JPGs in eine Image einließt .... müsste funzen ...