Главная страница
    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-42871
creepster
2001-12-19 18:54
2002.02.14
CGI


1-42722
OGR
2002-01-30 02:12
2002.02.14
Как получить список файлов в директории включая поддиректории?


14-42842
Besa
2001-12-24 12:58
2002.02.14
Помогите! А то мама говорит:


1-42771
IronHawk
2002-01-31 12:57
2002.02.14
Уважаемые Мастера! Опять нужна ваша помощ с fsMDIChild.


3-42655
kaa1971
2002-01-20 22:33
2002.02.14
Как создать новый индекс в существующей базе Paradox





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский