Как узнать какой цвет графического изображения под мышкой???

← →
Max79 (2002-04-20 21:17) [0]

Задача такова: дан рисунок (BMP) в TImage и тыкая в него мышкой - выдирать цвет данной области. как сделать, подскажите!, плз.

← →
Song (2002-04-21 15:25) [1]

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Form1.Color := Image1.Canvas.Pixels[x, y]; end;

← →
Max79 (2002-04-22 10:32) [2]

Огромное спасибо.

← →
copyr25 (2002-04-22 19:13) [3]

procedure TForm1.Timer1Timer(Sender: TObject);
var
dc:hdc;
col:TColor;
p:TPoint;
S,S1:String;
begin
if t=1 then begin
dc:=GetDc(0);
GetCursorPos(p);
Col:=GetPixel(dc,p.x,p.y);
S:=Dec2Hex(Col,6);
S1:=S[5]+S[6];
Label2.Caption:=" $"+S1+" ,"+IntToStr(Hex2Dec(S1))+". ";
S1:=S[3]+S[4];
Label3.Caption:=" $"+S1+" ,"+IntToStr(Hex2Dec(S1))+". ";
S1:=S[1]+S[2];
Label4.Caption:=" $"+S1+" ,"+IntToStr(Hex2Dec(S1))+". ";
Form1.Color:=Col;
ReleaseDc(0, Dc);

end;
end;

Как узнать какой цвет графического изображения под мышкой??? Найти похожие ветки