VPF::программа: загрузить фото и поставить на нём точки

kamashooter

Дата 18.11.2012, 08:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 3.11.2012

Репутация: нет
Всего: нет

помогите написать программу, в которой загружается изображение и нужно поставить мышью ровно 4 точки на нём smile

Illusion Dolphin

Дата 18.11.2012, 08:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 5
Всего: 63

Код


uses
  ...
  jpeg;

procedure TFormAny.FormCreate(Sender: TObject);
var
  Picture: TPicture;
  Bitmap: TBitmap;
begin
  Picture := TPicture.Create;
  try
    Picture.LoadFromFile('D:\1.jpg');
    if not Picture.Graphic.Empty then
    begin
      Bitmap := TBitmap.Create;
      try
        Bitmap.Assign(Picture.Graphic);
        Bitmap.Canvas.Pixels[0, 0] := clRed; //1 pixel
        Bitmap.Canvas.Pixels[Bitmap.Width - 1, 0] := clRed; //2 pixel
        Bitmap.Canvas.Pixels[0, Bitmap.Height - 1] := clRed; //3 pixel
        Bitmap.Canvas.Pixels[Bitmap.Width - 1, Bitmap.Height - 1] := clRed; //4 pixel
        Bitmap.SaveToFile('d:\result.bmp');
      finally
        Bitmap.Free;
      end;
    end;
  finally
    Picture.Free;
  end;
end;

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

amsoft

Дата 18.11.2012, 18:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 17.10.2009
Где: KZ, Astana

Репутация: 1
Всего: 4

если ставить мышью, то обрабатывай OnMouseDown изображения:

Код


procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image1.Canvas.Pixels[X,Y] := clRed;
end;

--------------------

"Кто бы ты ни был - не думай о себе слишком"Дельфин

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »