Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

Определение цвета в любой части экрана мышкой 


Эндрю2   (2002-01-30 21:43) [0]

Кто знает, как в DELPHI при наведении мыши на любую часть экрана
в моей программе бы высвечивался код или надпись данного цвета, надо помочь одному знакомому, у которого цветоаномал.



Фэ   (2002-01-30 22:41) [1]

procedure TSForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var col: TColor;
begin
col := Canvas.Pixels[X, Y]
end;



SoftOne   (2002-01-31 02:28) [2]

> Фе
А ты проверил "при наведении мыши на любую часть экрана"?



~Sergius   (2002-01-31 04:26) [3]


var col: TColor;
Cnv: TCanvas;
dc: hDC;
pt: TPoint;
begin
try
Cnv := TCanvas.Create;
dc := GetWindowDC (0);
GetCursorPos (pt);
With pt do
Col := Cnv.Pixels[x,y];
finally
ReleaseDC (0,dc);
Cnv.Free;
end;
end;


По такому принципу, короче.
Все это дело повесь, например, на таймер.



~Sergius   (2002-01-31 04:59) [4]

Прошу прощения, после dc := GetWindowDC (0); нужно поставить:

Cnv.Handle := dc;



Walker_sw   (2002-01-31 06:09) [5]

зачем создавать canvas???
я делал это так:

var
Color: TColor;
//..........
procedure TfrmMain.Timer(Sender: TObject);
var
pt: TPoint;
dc: hDC;

begin
dc := GetDC (0);
GetCursorPos (pt);
Color := GetPixel(dc, pt.x, pt.y);
// Label1.Caption:=IntToHEX(color, 6);// только надо учитывать, что цвет программа берёт в формате bb gg rr, а в html"е используется наоборот, то есть rr gg bb
ReleaseDC (0, dc);
end;



pasha_golub   (2002-01-31 12:03) [6]

На www.torry.ru есть пакет компонент от ABF systems, а в нем есть пипетка. Я пробовал - отличная штука!



~Sergius   (2002-01-31 23:43) [7]

2 Walker_sw
>> зачем создавать canvas???
Просто привычка, расписывая ответ на вопрос о делфи свести к минимуму использование API. GetPixel из АПИ несомненно лучше, но если человеку дать канву для рабочей области экрана, то, может быть, оно и к лучшему (может, цветоаномал захочется исправить из делфи ;-). Канва она и есть канва - удобно.



iZEN   (2002-02-01 01:45) [8]

Есть такая утилитка(махонькая): Pixie.exe



Chris   (2002-02-01 10:05) [9]

> IZEN
Действительно - классная штучка.

(Для поиска. www.filesearch.ru Строка запроса = Pixie)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.016 c
14-42849          fliz                  2001-12-25 10:32  2002.02.14  
Кто какие елки ставить будет - натуральные или исскуственные ?


1-42812           Diablo                2002-01-31 17:38  2002.02.14  
Как в листбоксе каждую страку зделать своим цветом


3-42686           vopros                2002-01-22 10:10  2002.02.14  
Уважаемые не поможете примерчиком..


3-42675           Aledo                 2002-01-20 15:59  2002.02.14  
Заполнение таблицы


3-42644           Hawk2                 2002-01-16 17:14  2002.02.14  
Преобразование типов.