Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Помогите плиз написать програмный код! https://www.cyberforum.ru/ delphi-beginners/ thread384832.html	Delphi Помогите написать програмный код для програм, пожалуйста Даны действительные числа x,y. Определить, принадлежит ли точка с коэффициентами геометрической фигуре:треугольник с координатами вершин (-1;1),(1;1) и (0;0) и круг с цетром в точке (0;-1) и радиусом 1
Delphi Отсутствие ввода данных в компонент StringGrid. https://www.cyberforum.ru/ delphi-beginners/ thread384829.html Как сделать так, чтобы при не вводе данных в компонент StringGrid при нажатии кнопки "Вычислить" выдавалось следующее сообщение: "Введите одномерный массив". И при этом вычисление не выполнялось. Как это сделать?	Delphi Проверка правильности ввода в поле Edit https://www.cyberforum.ru/ delphi-beginners/ thread384813.html как сделать проверку правильности ввода в поле Edit, чтобы исключить недопустимые символы? Нужно чтобы при вводе в поле Edit1 любых букв или символов выводилось сообщение "Не верно!", а при вводе чисел - добавлялось в таблицу в соответствующее поле "Продолжительность"!
Создание библиотеки динамической компоновки (DLL) Delphi Ребята с задачой разобратся помогите Условия и варианты внутри папки файла лабаоопр.дос	Delphi Найти площадь параллелограмма если известно 2 стороны и угол между ними Найти площадь параллелограмма если известно 2 стороны и угол между ними (в градусах) https://www.cyberforum.ru/ delphi-beginners/ thread384796.html
Delphi Проверьте пожалуйста правильность задачи и её решения на Делфи program Project2; {$APPTYPE CONSOLE} uses SysUtils; type massiv=array of integer; var n,i,v,k:integer; mass: massiv; https://www.cyberforum.ru/ delphi-beginners/ thread384794.html	Delphi помогите с задачами не могу сделать другая задача: Даны действительные числа x,y. Определить, принадлежит ли точка с коэффициентами геометрической фигуре:треугольник с координатами вершин (-1;1),(1;1) и (0;0) и круг с цетром в точке (0;-1) и радиусом 1
Delphi По рисунку нужно написать безье и сплайн Вот по рисунку надо написать безье и сплайн, вот код написал, но тут что то не то, ошибка какая то, рисунок называется кулачёк unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type https://www.cyberforum.ru/ delphi-beginners/ thread384780.html	Delphi Игра пятнашка Можете помочь понять как работает программа:) почему не видно картинок с кнопками на самой форме? https://www.cyberforum.ru/ delphi-beginners/ thread384770.html
Delphi Программа для просмотра файлов графики и текста Создаю прогу для просмотра файлов графики и текста. все открывает и работает.но проблема при загрузки выбранного текстового файла. подчеркивает красным последнюю строчку. помогите procedure TForm2.N2Click(Sender: TObject); begin if OpenDialog1.Execute then begin Form4:= TForm4.Create(Application); Form4.Caption:= OpenDialog1.FileName; Form4.Memo1.LoadfromFile (OpenDialog1.FileName) ;...	Delphi [Error] Project2.dpr(36): Types of actual and formal var parameters must be identical procedure random(var mass:massiv; n:integer); var i:integer; begin randomize; for i:=1 to n do mass:=random(100)-51; end; Что тут не так? https://www.cyberforum.ru/ delphi-beginners/ thread384742.html

neodimus

1 / 1 / 0

Регистрация: 08.10.2011

Сообщений: 9

Как определить цвет пикселя по курсором? - Delphi - Ответ 2175812

16.11.2011, 12:22. Показов 6796. Ответов 1

Метки (Все метки)

Студворк — интернет-сервис помощи студентам

Подскажите, задача такая:
Я перемещаю курсор в определенные координаты, мне нужно определить цвет пикселя под курсором и записать этот цвет (или его составляющие RGB) в какую - либо переменную.
По форуму такого не нашел, в остальном интернете тоже.

Добавлено через 13 часов 25 минут
нашел

Delphi

procedure TForm1.Button1Click(Sender: TObject);
  var Color:TColor;
  R,G,B:byte;
begin
  Color:=form1.Canvas.Pixels[100,100]; 
  R:=GetRValue(Color); 
  G:=GetGValue(Color);
  B:=GetBValue(Color); 
  label1.caption:=inttostr(R);
  label2.caption:=inttostr(G);
  label3.caption:=inttostr(B);
end;

Вернуться к обсуждению:
Как определить цвет пикселя по курсором? Delphi

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.11.2011, 12:22

Готовые ответы и решения:

Цвет пикселя под курсором
procedure TForm1.tMR1Timer(Sender: TObject); var p: TPoint; DC: HDC; begin ...

Как определить цвет пикселя на jpg картинке?
может кто знает как определить цвет пикселя...

Как получить цвет пикселя из палитры BMP 8bit
Добрый день! Нужна помощь в разработке кода процедуры как известно, в BMP 8bit файле на пиксель...

Цвет пикселя!
Ищу в Image все пикселя белового цвета и задаю им другой цвет, но какой бы я цвет не задал (clBlue,...

	16.11.2011, 12:22

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

16.11.2011, 12:22

Помогаю со студенческими работами здесь

Цвет пикселя scanline
Здравствуйте, начал изучать делфи, взял стандартную задачку, найти на картинке нужный пиксель, по...

Получить цвет пикселя с альфаканалом
Здравствуйте. Как получить цвет указанного пикселя с альфаканалом из файла png? Так...

Перемещени курсора на цвет пикселя
мне нужно когда я нажимаю Mouse1(НЕ ТОЛЬКО В ПРОГРАММЕ,а И НА РОБОЧЕМ СТОЛЕ ,к примеру), то курсор...

Можно ли получить цвет пикселя картинки, не выводя ее?
Здравствуйте. Подскажите, можно ли получить цвет определенного пикселя картинки, не выводя ее на...

Наверх