VPF::Tk::Table растаскивание колонок - Форум программистов

Шухарт

Дата 8.5.2010, 20:38 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 8.5.2010
Где: Хармонт, Канада

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

Возможно ли сделать в Tk таблицу чтобы e граф можно было менять размер? Какая-то опция в Tk::Table, ли я не туда копаю?
Up: а сортировку выполнять по столбцам средствами этого пакета возможно?

Это сообщение отредактировал(а) Шухарт - 8.5.2010, 20:54

shamber

Дата 8.5.2010, 21:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

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

Шухарт, а чем вас Tk::Grid не устраивает?

Шухарт

Дата 11.5.2010, 14:46 (ссылка)

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

Загрузка ...

Признаться не пробовал Grid, на глаза не попался. А судя по описанию на cpan подходит для этой задачи.
Буду признателен если у вас под рукой окажется доходчивый пример использования или статья толковая!

shamber

Дата 11.5.2010, 15:44 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

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

Честно сказать, с Tk не работаю. попробуйте погуглить, если не найдете будем ковыряться.

Шухарт

Дата 11.5.2010, 20:50 (ссылка)

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

Загрузка ...

Вроде нашёл то что нужно, Tk::MListbox - сортирует столбцы, и позволяет "excel like"-таблицу нарисовать.
А тут примеры использования, если кому понадобится: http://www.perlmonks.org/?node_id=698106
Спасибо за внимание, shamber.

shamber

Дата 11.5.2010, 22:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

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

Шухарт, заходите еще smile

OutlawZ

Дата 12.5.2010, 05:59 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

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

Народ а как вы таблицу выводите? у меня что то не получается ее показать на форме:

Код


use Tk;
use Tk::Table;

my ($mw,%wg, );

$mw = MainWindow->new('-title' => "Table");

$wg{'Table1'} = $mw->Table( -rows         => 5,
                                                 -columns      => 5,
                         -scrollbars   => 'oe',
                         -fixedrows    => 5,
                         -fixedcolumns => 5,
                          )->pack();
                          

$wg{'Table1'}->put(5,5,"Table");

MainLoop;

Выводит тока надпись Table и scrollbar, использовал методы see и get но так же не помогло.

--------------------

Шухарт

Дата 12.5.2010, 15:30 (ссылка)

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

Загрузка ...

OutlawZ, так вы и выводите только пятую ячейку пятой строки с тесктом "Table",
попробуйте

Код


use strict;
use Tk;
use Tk::Table;

my ($mw,%wg, );

$mw = MainWindow->new('-title' => "Table");

$wg{'Table1'} = $mw->Table( -rows         => 5,
                                                 -columns      => 5,
                         -scrollbars   => 'oe',
                         -fixedrows    => 5,
                         -fixedcolumns => 5,
                          )->pack();
                          
for(my $row = 1; $row <=2; $row++)
{

    for(my $col = 1; $col<=5; $col++)
    {
        $wg{'Table1'}->put($row, $col,"row: $row; col: $col");
    }
}
MainLoop;

и всё наглядно увидите smile

OutlawZ

Дата 12.5.2010, 16:37 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

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

Спасибо, теперь все понятно )

--------------------

Шухарт

Дата 12.5.2010, 17:58 (ссылка)

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

Загрузка ...

Рад помочь, OutlawZ.

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