Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.017 c
7-95990
voodoo_alex
2002-06-11 12:55
2002.08.29
Speaker don t


14-95980
Aga
2002-08-03 07:55
2002.08.29
ip


7-95996
TOLTEC
2002-03-01 17:17
2002.08.29
TaskManeger


3-95678
harismatik
2002-08-07 12:06
2002.08.29
Как и с помощью чего отобразить ?


1-95851
skyslider
2002-08-17 22:38
2002.08.29
Как удалить выделенную строку в StringGrid