Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
ВнизОпределение цвета в любой части экрана мышкой Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c