HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

perl&tk&images
  #1  
Старый 23.04.2007, 22:40
x-treem
Участник форума
Регистрация: 08.11.2006
Сообщений: 167
С нами: 10265490

Репутация: 54
По умолчанию perl&tk&images

скажите плиз, как с помощью Tk отобразить картинку
 
Ответить с цитированием

  #2  
Старый 23.04.2007, 23:14
Gh0s7
Участник форума
Регистрация: 23.11.2006
Сообщений: 226
С нами: 10244426

Репутация: 864
По умолчанию

http://search.cpan.org/~ni-s/Tk-804.027/pod/Image.pod

Советую для начала хоть немного смотреть маны =\
Копипастить сюда весь ман не буду, т.к. там форматирование лучше =\
 
Ответить с цитированием

  #3  
Старый 23.04.2007, 23:15
x-treem
Участник форума
Регистрация: 08.11.2006
Сообщений: 167
С нами: 10265490

Репутация: 54
По умолчанию

млин, я смотрел. тока я смотрел локальный, то есть на компе который в поставке.
и ничего не понял(
в принципе как ив мане.
если не трудно, приведи пример рабочего кода.
 
Ответить с цитированием

  #4  
Старый 23.04.2007, 23:18
Gh0s7
Участник форума
Регистрация: 23.11.2006
Сообщений: 226
С нами: 10244426

Репутация: 864
По умолчанию

Цитата:
Сообщение от x-treem  
млин, я смотрел. тока я смотрел локальный, то есть на компе который в поставке.
и ничего не понял(
в принципе как ив мане.
если не трудно, приведи пример рабочего кода.
Если знаешь тк, то не трудно.
А код привести трудно, т.к. сам с тк не саморачивался.
 
Ответить с цитированием

  #5  
Старый 23.04.2007, 23:44
genom--
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
С нами: 10441826

Репутация: 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 - на русском фиг найдешь -- все думаю засесть за перевод мана да времени нету
 
Ответить с цитированием

  #6  
Старый 24.04.2007, 08:15
x-treem
Участник форума
Регистрация: 08.11.2006
Сообщений: 167
С нами: 10265490

Репутация: 54
По умолчанию

ага, genom-- - спасибо тебе большое.
я уже к утру сам разобрался, но это мне тоже кое что подсказало. только jpg не открываются. их реально открыть с помощью перла?
и вот ещё один вопрос.
к примеру в окне скрипта есть надпись (Label)
можно ли её сменить по нажатию на кнопку в этом окне?

Последний раз редактировалось x-treem; 24.04.2007 в 18:21..
 
Ответить с цитированием
Ответ





Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.

×

Создать сделку

Продавец: ник или ID

Название сделки:

Сумма USDT:

Срок сделки, дней:

Кто платит комиссию:

Условия сделки:

После создания сделки средства будут зарезервированы в холде до завершения сделки.

×

Мои сделки

Загрузка...
×

Сделка


Загрузка чата...