Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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)



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

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

Наверх




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


3-42682
xmapa
2002-01-22 10:51
2002.02.14
Поле-массив в InterBase


14-42873
XM-AD
2001-12-24 16:15
2002.02.14
И все таки мне хотелось бы разоюраться, что мне запускать!!! Да, и модераторам - прочитайти сперва.......


3-42656
Anton Shestakov
2002-01-19 02:10
2002.02.14
Внесение в базу данные2


14-42855
Snake
2001-12-24 18:03
2002.02.14
Администрирование Win2000





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский