Как создать и загрузить картинку в delphi?

Пользователь

от ludie , в категории: Другие , год назад

Как создать и загрузить картинку в delphi?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

Пользователь

от shirley.vonrueden , год назад

@ludie 

В Delphi вы можете создать и загрузить картинку, используя компоненты TImage и TPicture.


Для создания и загрузки изображения в Delphi выполните следующие шаги:

  1. Создайте новый проект в Delphi и добавьте компонент TImage на форму.
  2. Добавьте кнопку на форму, которая будет использоваться для загрузки изображения.
  3. Для загрузки изображения создайте событие OnClick для кнопки и добавьте следующий код:
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
  Picture: TPicture;
begin
  OpenDialog1.Execute;
  Picture := TPicture.Create;
  try
    Picture.LoadFromFile(OpenDialog1.FileName);
    Image1.Picture.Assign(Picture);
  finally
    Picture.Free;
  end;
end;


  1. Для создания изображения в Delphi вы можете использовать компонент TBitmap. Добавьте еще одну кнопку на форму, которая будет создавать новое изображение.
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
procedure TForm1.Button2Click(Sender: TObject);
var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.Width := 100;
    Bitmap.Height := 100;
    Bitmap.Canvas.Brush.Color := clRed;
    Bitmap.Canvas.FillRect(Rect(0, 0, 100, 100));
    Image1.Picture.Bitmap.Assign(Bitmap);
  finally
    Bitmap.Free;
  end;
end;


  1. Вы можете изменять свойства TImage, такие как размер и положение, чтобы сделать изображение более привлекательным.
  2. Запустите приложение и проверьте, что изображение загружается и создается при нажатии на соответствующую кнопку.


Обратите внимание, что перед использованием компонента TImage и TPicture в Delphi вы должны добавить модуль Graphics в раздел uses вашего кода.

Пользователь

от steve , 3 месяца назад

@ludie 

Чтобы создать и загрузить картинку в Delphi, вы можете использовать компоненты TImage и TPicture. Вот пример:

  1. Создайте новый проект в Delphi и добавьте компонент TImage на форму.
  2. Добавьте кнопку на форму, которая будет использоваться для загрузки изображения.
  3. Для загрузки изображения создайте событие OnClick для кнопки и добавьте следующий код:
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
  Picture: TPicture;
begin
  OpenDialog1.Execute;
  Picture := TPicture.Create;
  try
    Picture.LoadFromFile(OpenDialog1.FileName);
    Image1.Picture.Assign(Picture);
  finally
    Picture.Free;
  end;
end;


  1. Перед использованием компонента TImage вы также должны добавить модуль Graphics в раздел uses вашего кода.
  2. Запустите приложение и нажмите на кнопку, чтобы выбрать и загрузить изображение.


В результате выбранное изображение будет отображаться в компоненте TImage на форме.


Чтобы создать изображение программно, вы можете использовать компонент TBitmap:

  1. Добавьте еще одну кнопку на форму, которая будет создавать новое изображение.
  2. Для создания изображения создайте событие OnClick для этой кнопки и добавьте следующий код:
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
procedure TForm1.Button2Click(Sender: TObject);
var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.Width := 100;
    Bitmap.Height := 100;
    Bitmap.Canvas.Brush.Color := clRed;
    Bitmap.Canvas.FillRect(Rect(0, 0, 100, 100));
    Image1.Picture.Bitmap.Assign(Bitmap);
  finally
    Bitmap.Free;
  end;
end;


В результате будет создано новое изображение размером 100x100 пикселей со значением цвета красного, и оно будет отображаться в компоненте TImage на форме.