Главная страница
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.011 c
3-95632
j_onion
2002-08-06 04:09
2002.08.29
Перенос BDE


1-95869
stany
2002-08-18 01:59
2002.08.29
Как сделать чтобы форма приняла форму любого битмапа


1-95780
cypher
2002-08-18 00:41
2002.08.29
Вопрос про DevExpress


3-95683
Fad
2002-08-08 11:20
2002.08.29
Помогите!!! Ошибка в базе данных.


8-95909
DenKop
2002-04-20 15:44
2002.08.29
Кто знаком с KX Project for Live 5.1 ???