PerlGtk.pl - Artykuły - Perl Tk

Perl Tk - część VIII
przez wrares (53 odsłon)
Dziś pokażemy w jaki sposób oprogramować widget RadioButton. Właściwości tego widgetu, są dobrze udokumentowane w opisach, które możemy znaleźć w internecie. My pokażemy jak ten widget może służyć do wyboru kolorów. Wykorzystaliśmy do tego SpecPerl, aby zaprojektować interfejs, a wybór koloru ustalamy pisząc kod oprogramowaliśmy pod dowolnym edytorem. A teraz zdjęcie..., abyśmy wiedzieli do czego zmierzamy. Co zrobiliśmy Cytat: 1) Projekt formatki wykonano pod GUI Builderem 2) Ustawiono w Builderze parametry widgetów - Radiobutton dla pól -text oraz -value 3) Dopisano kod w Perlu obsługujący wybór kolorów W pliku radio.pl dopisano kod w Perlu. `$top->title("Wybór koloru - Portal http://Perlgtk.pl"); $top->geometry('+300+200'); $top->resizable(0,0);` Nadano nowy tytuł formatce, ustalono pozycję na ekranie, zabezpieczono przed zmianą rozmiarów. `sub r_zolty_command { $e_kolor->configure(-background => 'yellow'); }` Wybór przycisku z nazwą żółty, spowodował, że pasek testowy przyjmuje kolor żółty. Tak samo jest w pozostałych przypadkach wyboru koloru. Wykonanie takiej formatki, oraz nadanie jej funkcjonalności nie jest trudne, szybko się definiuje przyciski oraz nadaje im wartości. Czas który na to poświęciliśmy był porównywalny z tym, jaki poświęcamy wykorzystując narzędzia płatne. Cały kod programu jest dostępny na tej stronie.... Plik ma nazwę radio.zip

Powrót