Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

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

← →
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;

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c