Listbox rechtsbündig: s. Name des Themas (Graphische Oberflächen)

[thread]4711[/thread]

Listbox rechtsbündig: s. Name des Themas

Seppel

2004-01-29 14:36

User since
2004-01-29
1 Artikel
BenutzerIn

Liebe Perlfreunde,

zunächst einmal stelle ich mich als "Neuer" vor: Ich bin unter dem Namen "Seppel" bekannt. Seit vergangenem Herbst habe ich angefangen, Perl zu lernen mit dem Ziel, eine GUI für MySQL zu bauen.

Und hier mein erster Hilferuf:

Ich möchte Daten in einer Listbox rechtsbündig ausrichten, die justrify-Option wird aber bei dem Listbox-Widget nicht unterstützt. Gibt es irgeneinen Trick, um Daten dort rechtbündig auszurichten ?(wichtig für Zahlen)

Crian

2004-01-29 16:35

User since
2003-08-04
5866 Artikel
ModeratorIn

Erstmal herzlich willkommen hier :)

Ich werd gerade mal einen Blick in mastering perl/tk werfen, so aus dem Kopf kenne ich keinen Trick...

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Crian

2004-01-29 16:42

User since
2003-08-04
5866 Artikel
ModeratorIn

...hhmmmm da find ich gerade nichts. Aber Du könntest Deine Zahlen mit einer passenden Anzahl Leerzeichen davor ausstatten, etwa so:

Code: (dl )

my @numbers = ( -1.22, 47.11, 42, 13.5, 10000.2, -213);

for (@numbers) {
     $_ = sprintf "%9.2f", $_;
}

print "$_\n" for (@numbers);

Ausgabe:

Code: (dl )

\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Crian

2004-01-29 16:48

User since
2003-08-04
5866 Artikel
ModeratorIn

Oder als Tk-Variante:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

use Tk;

my @numbers = ( -1.22, 47.11, 42, 13.5, 10000.2, -213);

for (@numbers) {
    $_ = sprintf "%9.2f", $_;
}

my $mw = new MainWindow;

my $lb = $mw->Listbox(-font => '{Courier New} 12 {normal}')->pack();


$lb->insert('end', "$_") for (@numbers);

MainLoop();

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

ptk

2004-01-29 19:04

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Wenn Tk::Listbox etwas nicht kann, muss man auf Tk::HList umsteigen und sich die Tk::DItem-Dokumentation durchlesen.

Oder man verwendet Tk::TextList. Das ist weitgehend API-kompatibel zu Tk::Listbox, aber noch nicht 100% wasserdicht getestet.

View all threads created 2004-01-29 14:36.