Плитка из картинок

Delphi , Графика и Игры , Графика

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function TileImage(const FileName: TFileName; Sender: TObject): Boolean;
 var
   x, y: Integer;
   Bmp:  TBitmap;
 begin
   if FileExists(FileName) then
   begin
     bmp := TBitmap.Create;
     try
       bmp.LoadFromFile(FileName);
       with (Sender as TImage) do
       begin
         for x := 0 to (Width div bmp.Width) do
           for y := 0 to (Height div bmp.Height) do
             Canvas.Draw(x * bmp.Width, y * bmp.Height, bmp);
       end;
     finally
       bmp.Free;
     end;
     Result := True;
   end
   else
     Result := False;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if Opendialog1.Execute then
     TileImage(OpenDialog1.FileName, Image1);
 end;

Перевод контента на русский язык:

Это программное обеспечение Delphi, которое создает изображение из множества маленьких изображений или картинок. Программа использует компонент TBitmap, чтобы загрузить и манипулировать изображениями.

Вот разбивка кода:

1. Функция TileImage принимает два параметра: FileName, который является путем к файлу изображения, и Sender, который является объектом, получающим результат функции.
2. Функция проверяет, существует ли файл с помощью функции FileExists. Если файла не существует, функция возвращает False.
3. Если файл существует, функция создает новый объект TBitmap под названием bmp и загружает изображение из файла с помощью метода LoadFromFile.
4. Функция затем проходит по каждому пикселю оригинального изображения и для каждого пикселя рисует маленькую часть оригинального изображения на канвасе компонента Image (в этом случае, Image1). Это делается с помощью вызова метода Canvas.Draw, который принимает три параметра: координаты x и y, а также битмап для рисования.
5. Цикл продолжается, пока не будут нарисованы все пиксели.
6. Наконец, функция устанавливает результат в True, указывая, что изображение было успешно зашито.

Вторая часть кода - это обработчик события клика кнопки для формы (TForm1). Когда кнопка нажата, программа открывает диалоговое окно с помощью компонента OpenDialog1 и выполняет его с помощью метода Execute. Если пользователь выберет файл, программа вызывает функцию TileImage, передавая в нее выбранное имя файла и компонент Image (Image1) как аргументы.

Вот некоторые предложения по улучшению кода:

• Код использует глобальные переменные (OpenDialog1 и Image1) вместо локальных переменных или параметров. Рассмотрите передачу этих переменных в функцию TileImage как аргументы.
• Функция TileImage является quite длинной и сложной. Рассмотрите разбиение ее на более маленькие, управляемые функции.
• Цикл, рисующий каждый пиксель, мог быть оптимизирован с помощью использования одного цикла, который проходит по каждой строке пикселей, а не двух вложенных циклов.
• Код не обрабатывает ошибки хорошо. Рассмотрите добавление обработки ошибок в функцию TileImage, чтобы поймать и обработать любые исключения, которые могут возникнуть.

Вот пример рефакторинга кода:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    TileImage(OpenDialog1.FileName, Image1);
end;

function TileImage(const FileName: TFileName; Image: TImage): Boolean;
var
  Bmp: TBitmap;
  x, y: Integer;
begin
  if not FileExists(FileName) then
    Result := False;

  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile(FileName);
    for y := 0 to (Image.Height div bmp.Height) do
      for x := 0 to (Image.Width div bmp.Width) do
        Image.Canvas.Draw(x * bmp.Width, y * bmp.Height, bmp);
    Result := True;
  finally
    bmp.Free;
  end;
end;

Рефакторированный код более компактен и легче для чтения. Он также avoids использования глобальных переменных, передавая компонент Image в функцию TileImage как аргумент.

В статье описана функция в Delphi, позволяющая оформить изображение из картинки на панели в виде плитки, которая может быть использована для создания сложного дизайна на форме приложения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Графика ::