VPF::Perl / Tk изображения на кноку - Форум программистов

PerlWebMaster

Дата 28.9.2011, 15:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Perl / Tk изображения на кноку
как правильно наложить изображения на кнопку??

Это сообщение отредактировал(а) PerlWebMaster - 28.9.2011, 15:53

PerlWebMaster

Дата 28.9.2011, 16:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


my $image = $mw->Photo(-format => 'gif', 
-data => 'R0lGODlhMgAxAPcAAAAAAAQCBAQGBAwKDAwODBQSFBQWFBwaHBweHCQiJCQmJCwqLCwuLDQyNDQ2NDw6PDw+PERCRExKRExKTExOTFRSVFRWVFxaXFxeXGRiZGRmZGxqbGxubHRydHx6fHx+fIyKjJSSlJSWlJyanJyenKSipKyqrKyurLSytLy6vLy+vMTCxMzKzMzOzMzO1NTS1NTW1Nza3Nze3OTi5OTm5OTm7Ozq7Ozu7PTy9PT29Pz6/P///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAP8ALAAAAAAyADEAAAj/AP8JHEiwoMGDCBMqXDjQxgsYD2OsQDEChQ2GGBfGePHCxo6PIHfoGIGAgYcXGVMKbPFCR8iXIHFYCBDAgQmVGl/A3BnSA80ADFbgNJiDBQ6eSD/6/Lkhx1CBNHQmnVrhJ1AZQ2fMmMqVxgCrBlqolLGVK9cOVgMQEIuRRlmzU1+kDWAA60IdUuHiGEHC5U4EcxXgWNgC7kcdC2hK4DlhboAMCmMcNbzC6tuQGhwHSJHQheGPMn4WyLEzs2MFCPN+DnEAwQmeFzQHGHFQ9eepDGQvMDhj8u2pNmTT5EzQ9m+eIoQ/Lmj8+EsdCpQXIIjjsnOYIJTTZPsvxnWkLARo/w8gYiCM7ztbGBgfgIN59C9JfGUfYaB3+DtSPGD/84H94zmoIEIIH2CwHn8/MfDfZy1YIB6CmjXwnl4YQKicAwtyNUN0FgpXQYZJ2QBYh8K5J9ANNXAFAYnKkUDQeUmVwKJyMBQ3VQIzyoZAQTL4tZMKOcqmgUHNfcRBkJqxYFBhPK2oWQEcWiihQXjxNOJcFriUQoc31eZjSAVoBuMOTvLnX0Is7ISjY2l+1ACE3B1kw30hNeZYAzLkkB2CHzAUww0vLYVkABNk1IJvO7gwKFCDGYqoA0gucJFKL6T4EZA5QjApTjLktcGMG+jwlEBFeaQDBR0mQNyoA83QAg06VC7InwEgiMoqbyy4QMIB2jkwgq23JgQDCxw0MB9NAyyAgQgzBIuTDjPEIMMNwQYEADs=');



my $button1 = $mw->Button(-image => $image,
                          -height => 80,
                          -width => 80, 
                          -command => \&button1_sub)
                          ->place( -x => 260, -y => 207 );

разобрался

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