Как изменить изображение строки заголовка окна perl win32 :: GUI?

Question

При разработке настольных приложений, использующих модуль Perl Win32 :: GUI в ОС Windows, в строке заголовка присутствует изображение «верблюда» (самое левое изображение в окне).
Можно ли его изменить?Если да, то какое изображение будет поддерживать (.gif, .png, .jpg, .ico) для этого?и какое свойство мне нужно изменить / добавить в окне дизайна, которое я написал ниже?

  use strict;
  use Win32::GUI;

  my $main = Win32::GUI::Window->new(
    -name    => "Main",
    -title   => "Win32-GUI:Test",
    -left    => 100,
    -top     => 100,
    -width   => 600,
    -height  => 400,
  );

  sub Main_Terminate() {
    print "Main window terminated\n";
    return -1;
  }


  $main->Show();

 Win32::GUI::Dialog();

Примечание: я разрабатываю приложение в Windows XP

Answer 1

Да, это возможно. Используйте SetIcon метод главного окна.

$main->SetIcon($icon);

, где $icon должен быть экземпляром Win32 :: Icon , Win32 :: Bitmap или Win32 :: BitmapInline .