Написал программу передвижения человека по экрану, периодически меняя картинку, создавая эффект движения. Для всех трех картинок использовал компонент TImage. При однократном нажатии на клавишу d человек передвигается по экрану отлично т.е. все три картинки меняются в нужной последовательности! Но если её удерживать, появляются только две картинки из трех.

Man.zip (3.09 Мб)

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

Как сделать на Delphi чтобы персонаж обходил препятствия?

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

Какой самый оптимальный метод сравнения изображений?

Задача такая:
Есть два изображения. При этом низ одного дублирует верх другого. То есть, если небольшой «перехлест». И вот нужно найти количество строк этого перехлеста.

Пример… Ну допустим такой: вы сделали скриншот переписки в телеграме. Потом пролистали переписку вниз и сделали еще один скриншот. Так что получился небольшой перехлест.
И теперь надо склеить эти 2 скриншота в один.

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

Как сделать буквы или цифры или всё вместе на изображении толще или пожирнее ?

Изображение уже содержит буквы или цифры нужно как то обрабатывать.

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

У меня есть картинка, которая должна смещаться относительно координат х и у, в зависимости от угла поворота изображения. Я сделал следующие формулы подсчета передвижения: (читать всё…)

Armageddets

Добрый день, уважаемые эксперты. У меня стоит задача передать массив типа TBitmap в процедуру. В процедуре я пытаюсь его создать и загрузить в него картинки. Ошибок не происходит, но когда я пытаюсь нарисовать на форме картинки из этого массива, то ничего не происходит. Будто массив так и не создан.

Процедура у меня такая:

как сделать скриншот memo1 в delphi ? (читать всё…)

Если делать это через TMemoryStream, то рассчитывается размер изображения в памяти., а он там храниться в BMP. (читать всё…)

xRamzeSx

procedure TForm1.Button1Click(Sender: TObject);

var

bmp: TBitmap;

DC: HDC;

begin

bmp:=TBitmap.Create;
bmp.Width:=1024;

bmp.Height:=768;
DC:=GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,

DC, 0, 0, SRCCOPY);
bmp.SaveToFile(FormatDateTime('dd/mm/yy, hh-nn-ss', Now) + '.bmp');
ReleaseDC(0, DC);
bmp.Free;

end;

тема на форуме

необходимо вставить TBitMap в TRichEdit (читать всё…)