Zjištění barvy bodu pod kurzorem myši při kliknutí – Delphi – Fórum – Programujte.com

Zdravím, potřeboval bych při kliknutí levým tlačítkem myši zjistit, jakou barvu má bod pod kurzorem myši. Poradíte, prosím?

Tak predpokladam ze to bude asi na komponente TPaintBox... takze do OnMouseDown eventu paintboxu vepsat nasledujici kod:

procedure TForm1.TPaintbox.... {nevim  jak je to presne....}

var barva:TColor;

begin

	barva := Paintbox1.Canvas.Pixels[X][Y]; {Pixels je dvourozmerny pole, nevim jestli 								 	{se s nim pracuje presne takhle,  muze byt chyba...}



	case barva of

	begin

		clRed: 

		clBlue....

	end;



end;

Jj, to mi stačí, jen jsem si to trochu upravil na:

GetCursorPos(Poloha);
BarvaBodu:=Form1.Image1.Canvas.Pixels[Poloha.X,Poloha.Y];

Díky. :)

Jj, to mi stačí, jen jsem si to trochu upravil na:

GetCursorPos(Poloha);

BarvaBodu:=Form1.Image1.Canvas.Pixels[Poloha.X,Poloha.Y];