Подскажите пожалуйста, есть ли возможность в стандартный MessageBox добавить кнопку ДА/НЕТ с обратным отсчетом секунд или необходимо свою форму писать?

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

Пусть задана окружность (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 объекта? Само изображение приложил к этому посту.

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

Давненько видел на youtube такую вещь.
Если создатель захотел обновить программный код и внести изменения то он просто отключает программу ..
и выдает что то типа такого showMessage(‘Ошибка соединения’); и при нажатие ок сообщение пропадает и приложение или программа не открывается .

Как можно это реализовать?
(читать всё…)

Создал новый компонент (заимствовал из Delphi7 TF1Book).
Компонент нормально установился в Delphi XE4. Виден в Options ToolBar в закладке Samples, но почему то не виден в Tool Pallete.
Если ручками , то великолепно становится в приложение.
В чём может быть дело?

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

Библиотека для работы с графикой. Поддерживаются следующие форматы:

TIFF images (*.tif; *.tiff)
GFI fax images (*.fax)
SGI images (*.bw, *.rgb, *.rgba, *.sgi)
Autodesk images files (*.cel; *.pic)
Truevision images (*.tga; *.vst; *.icb; *.vda; *.win)
ZSoft Paintbrush images (*.pcx, *.pcc; *.scr)
Kodak Photo-CD images (*.pcd)
Portable pixel/gray map images (*.ppm, *.pgm, *.pbm)
Dr. Halo images (*.cut, *.pal)
CompuServe images (*.gif)
SGI Alias/Wavefront images (*.rla, *.rpf)
Standard Windows bitmap images (*.bmp, *.rle, *.dib)
Photoshop images (*.psd, *.pdd)
Paintshop Pro images (*.psp)
Portable network graphic images (*.png)
(читать всё…)

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

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

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

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

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

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

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

Нужно экспортировать из реестра вот это:

[HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Photoshop\10.0]
"ApplicationPath"="C:\\Program Files\\Adobe\\Adobe Photoshop CS3\\"

в ini файл
затем импортировать из этого фала обратно…

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