ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
23.04.2007, 22:40
|
|
Участник форума
Регистрация: 08.11.2006
Сообщений: 167
Провел на форуме:
539434
Репутация:
54
|
|
perl&tk&images
скажите плиз, как с помощью Tk отобразить картинку
|
|
|
23.04.2007, 23:14
|
|
Участник форума
Регистрация: 23.11.2006
Сообщений: 226
Провел на форуме:
1045663
Репутация:
864
|
|
http://search.cpan.org/~ni-s/Tk-804.027/pod/Image.pod
Советую для начала хоть немного смотреть маны =\
Копипастить сюда весь ман не буду, т.к. там форматирование лучше =\
|
|
|
|
23.04.2007, 23:15
|
|
Участник форума
Регистрация: 08.11.2006
Сообщений: 167
Провел на форуме:
539434
Репутация:
54
|
|
млин, я смотрел. тока я смотрел локальный, то есть на компе который в поставке.
и ничего не понял(
в принципе как ив мане.
если не трудно, приведи пример рабочего кода.
|
|
|
|
23.04.2007, 23:18
|
|
Участник форума
Регистрация: 23.11.2006
Сообщений: 226
Провел на форуме:
1045663
Репутация:
864
|
|
Сообщение от x-treem
млин, я смотрел. тока я смотрел локальный, то есть на компе который в поставке.
и ничего не понял(
в принципе как ив мане.
если не трудно, приведи пример рабочего кода.
Если знаешь тк, то не трудно.
А код привести трудно, т.к. сам с тк не саморачивался.
|
|
|
|
23.04.2007, 23:44
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
на держи за код спасибо elekt-y
# GUI . Создаём окно
$wind = new MainWindow(title => "Antichat SQL-tools" );
$wind->geometry ( '800x600' ) ;
$wind->resizable(0,0);
#################################################
# выводим рисунок
$wind->Label( -text => ' ', -font => '{Verdana} 1 bold',)->pack();
$wind->Photo('logo', -file => 'logo.gif');
$frames_image = $wind->Frame()->pack(-side => "top" , -anchor => 'center');
$frames_image->Label(-height=>70, -image=>'logo', -width=>750)->pack(-side => "top" , -anchor => 'center');
кста норм доков по tk - на русском фиг найдешь -- все думаю засесть за перевод мана да времени нету
|
|
|
|
24.04.2007, 08:15
|
|
Участник форума
Регистрация: 08.11.2006
Сообщений: 167
Провел на форуме:
539434
Репутация:
54
|
|
ага, genom-- - спасибо тебе большое.
я уже к утру сам разобрался, но это мне тоже кое что подсказало. только jpg не открываются. их реально открыть с помощью перла?
и вот ещё один вопрос.
к примеру в окне скрипта есть надпись (Label)
можно ли её сменить по нажатию на кнопку в этом окне?
Последний раз редактировалось x-treem; 24.04.2007 в 18:21..
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
