Даже в Delphi 10.1 стандартный плеер поддерживает видео только HD качества.
Мне же нужно воспроизводить FullHD видео.
В связи с этим стандартный компонент не подходит!
Можете посоветовать видеоплеер с api через который я смогу из Делфи запускать нужные мне видосы…

(читать всё…)

Извеняюсь если вопрос уже задавался но в гугле 3 страницы просмотрел там либо таймер либо MouseMove собственно вопрос в теме тоесть цель необходимо получить координаты курсора мыши относительно формы не используя таймера
А MouseMove не подходит так как у меня форма в основном на ней динамические объекты а цель получения координат мыши необходимо для отслежки в каких координатах нужно расположить динамические лейблы узнать этого нельзя так как имаджи на которых нужно разместить лэйблы размещаются динамически тоесть програмным путем темболее через массив
Вот скрин

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

(читать всё…)

Пусть задана окружность (x0,y0,r0). Необходимо внутри разместить случайные точки так, чтобы они были распределены равномерно.

Решение в лоб:

  with canvas do begin
    Ellipse(x0-r0,y0-r0,x0+r0,y0+r0);
    for i := 1 to 10000 do begin
      a:=2*Pi*random;
      r:=r0*random;
      x:=x0+round(r*cos(a));
      y:=y0+round(r*sin(a));
      Pixels[x,y]:=clred;
    end;
  end;

Но понятно, что распределение не равномерное, плотность точек выше к центру круга:

Есть идеи, как распределить точки равномерно?

(читать всё…)

Задача такова. У меня имеется png рисунок, созданный в photoshop, свойство которого прозрачность 50%, т.е. полупрозрачность. Подскажите, как мне с помощью Canvas перенести этот прозрачный png из image1 на image2 не теряя прозрачности фона (нужно чтобы его не было) и не теряя полупрозрачности самого png объекта? Само изображение приложил к этому посту.

(читать всё…)

Пожалуйста помогите, нарисовать движущийся корабль в Delphi.

(читать всё…)

Как определить запуск полноэкранного 3D приложения? Мне необходимо останавливать работу приложения при запуске, например, видеоигры.
Пишу GUI под консольный клиент распределённых вычислений, надоело его ручками останавливать/запускать.

(читать всё…)

Как сделать рисунок через делфи в фотошопе?
Описание алгоритма:
1. Запустить C:\путь_к_фотошопу\фотошоп.exe
2. Открыть файл PSD D:\File.psd
3. Изменить текст на слое №5 на текст из переменной
4. Удалить слой №2 и на его место добавить изображение с рандомной картинки в папке
5. Сохранить картинку под именем из переменной

(читать всё…)

На bmp изображении есть тела черного цвета самой причудливой формы, надо узнать координаты пикселей, которые входят в тот или иной объект изображения.перебераю пиксели пока не встречу первый черный. Потом думал рекурсивную функцию закинуть, но вот не знаю как организовать обработку того что соседе белые или черные(соседей 8). Перебирать все 256 вариантов для рекурсии нет смысла, а вот что-то более рациональное на ум не приходит.Может кто и сталкивался с такого рода задачами… Bmp можно перекрашивать на серый тон…

(читать всё…)

Очень хотелось бы отрисовать у себя в проекте круговую диаграмму в виде «бублика», видел красивые примеры у Касперского, и некоторых других.

Добился определенного успеха в этом деле:

Полный код, чтобы не загружать тему:
http://pastebin.com/SVnT0bww

Здесь зеленый цвет рисуется специально, в надежде как-то его потом убрать. Но не выходит.

Максимум, чего пока удалось добиться, это включение прозрачности у битмапа и указание прозрачного цвета. Но, даже при этом, убирается не вся «зелень» + жуткая лесенка по краям.
От чего я ушел на GDI+, при рисовании секторов.

Вот другие варианты.
Старый вариант, лесенка везде:

Вариант поновее, но убирается только внешние цвета и имеется лесенка.

Есть вариант
Как-то использовать маску, заранее нарисованную в фотошопе,

Но так и не понял, как ее приспособить…

Использую Delphi XE

(читать всё…)