С Новым годом! Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Lazarus Отрисовать круг в месте пересечения графиков функций помогите, пожалуйста, мне нужно что на месте пересечения появился круг. вот программа, где ошибка? procedure TForm1.Button1Click(Sender: TObject); var x0,y0: Integer; x,y,n,y1,a,r: Extended; q,w:real; m,h,j,z: Integer; begin x0 := PaintBox1.ClientWidth div 2; y0 := PaintBox1.ClientHeight div 2; https://www.cyberforum.ru/ lazarus/ thread848466.html Используя все цифры от 1 до 9 по одному разу в различных комбинациях и операции сложения и вычитания, получить в сумме 100 Lazarus
Используя все цифры от 1 до 9 по одному разу в различных комбинациях и операции сложения и вычитания, получить в сумме 100, при условии, что цифры появляются в возрастающем или убывающем порядке. Например, 123-45-67+89=100, 98-76+54+3+21=100. помогите с написанием программы пожалуйста и желательно с объяснениями,заранее благодарю)
Lazarus Где можно скачать исходники программ на Lazarus? Где можно скачать исходники программ на Lazarus? В поиске выдает только на Delphi. Интересуют самые простые программки типа блокнот, таймер, рисование графиков и диаграмм, и т.д. Помогите пожалуйста! https://www.cyberforum.ru/ lazarus/ thread847530.html Lazarus Компоненты TButton, при нажатии менять шрифт При нажатии на кнопку TButton вкл/выкл полужирные шрифты на форме. При нажатии на кнопку TButton с Shift вкл/выкл наклонные шрифты на форме. При нажатии на кнопку TButton с Ctrl вкл/выкл подчеркивание шрифтов на форме. https://www.cyberforum.ru/ lazarus/ thread847442.html
Lazarus Параметры командной строки
Подскажите пожалуйста, какие у лазаруса параметры командной строки и в какую папку складываются бинарные файлы.
Lazarus Как нарисовать треугольник? https://www.cyberforum.ru/ lazarus/ thread846579.html
Помогите пожалуйста. Пишу программу для построения графиков. Вся математика и процедуры написаны ранее. Мне нужно только разобраться в коде и разбросать его по нужным местам. Для понимания, как оно вообще рисуется пишу программу для построения элементарного треугольника с координатами А(х1,у1), В(х2,у2), С(х3, у3) Пока получилось нарисовать только чёрный квадрат на всё поле Image. Вот то, что я...
Lazarus Парсинг исходного кода FreePascal https://www.cyberforum.ru/ lazarus/ thread846345.html
Здравствуйте, мне нужно парсить исходные коды своих же и не только программ =) Для этого использую CodeTools. Делаю все по примеру Uses ... PascalParserTool; ... procedure ... Code:TCodeBuffer; Tool:TCodeTool; FileName:String; begin
Получение вывода терминала Lazarus
Здравствуйте. Вопрос такой: как работать с терминалом в Linux через средства Lazarus? Как выполнить команду, я знаю, но как считать (допустим, в Memo) вывод терминала? Заранее спасибо.
Lazarus Компонент TChart: поточечное построение графика функции https://www.cyberforum.ru/ lazarus/ thread844175.html
В Delphi есть компонент TChar и в нем есть PointSeries, в Lazaruse я такого не могу найти, как построить точечный график функции??? Помогите, нужно для диплома.
Lazarus Компонент TButton https://www.cyberforum.ru/ lazarus/ thread844075.html
При нажатии на ОК, программа должна сохранить все изменения во всех панелях и выйти. При нажатии на ОТМЕНА, программа должна отменить все изменения и выйти. При нажатии на ВЕРНУТЬ, программа должна отменить все изменения на всех панелях, но из программы не выходить.
Синхронное изменение TSpinEdit Lazarus
Если нажать на "Синхронизацию оси" , то левые две должны изменяться одновременно и иметь одинаковые значения, и правые две также изменяться синхронно.
Lazarus Построить график функций, заданных с клавиатуры https://www.cyberforum.ru/ lazarus/ thread844019.html
постройте график двух функции, если пересекаются, то в месте пересечения поставить квадрат. функции задаются с клавиатуры
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32993 / 21299 / 8180
Регистрация: 22.10.2011
Сообщений: 36,594
Записей в блоге: 8
25.04.2013, 18:25 0

Распознавание цвета пикселя под курсором мыши - Lazarus - Ответ 4470553

25.04.2013, 18:25. Показов 3487. Ответов 4
Метки (Все метки)

Ответ

В OnMouseMove своего Image напиши вот это:
Pascal
1
2
3
4
5
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Self.Caption := ColorToString(Image1.Canvas.Pixels[X, Y]);
end;
, поводи над изображением мышью, и смотри как изменяется заголовок формы, когда мышь над пикселями разных цветов. Я надеюсь, идея понятна?

Вернуться к обсуждению:
Распознавание цвета пикселя под курсором мыши Lazarus
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2013, 18:25
Готовые ответы и решения:

Получение цвета пикселя под курсором
Может есть у кого исходни программы простейшей пипетки как в фотошопе главное чтобы она...

Определение цвета пикселя под курсором
здравствуйте, вот так вот я получаю цвет пикселя под курсором int x = Mouse->CursorPos.x; int y...

Определение цвета пикселя под курсором и контроль RGB ленты на Arduino
Доброго времени суток уважаемые форумчане! Как получить цвет пикселя под курсором на экране при...

Изменить цвет формы в цвет пикселя под курсором по клику мыши
Есть код. Но форма выкрашивается только в серый цвет и такой и остается, несмотря на изменение...

4
25.04.2013, 18:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2013, 18:25
Помогаю со студенческими работами здесь

Распознавание цвета пикселя в стороннем приложении
Мне необходимо, чтобы программа распознала цвет пикселя по координатам x,y в другом приложении....

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

Цвет пикселя под курсором
Как узнать цвет пикселя экрана на координатах у=100 x=100 без скриншота. Если можно простой...

Цвет пикселя под курсором
Собственно, весь вопрос в названии темы. В общем виде дело обстоит так. У меня есть программа,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru