Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Graphische Oberflächen
[thread]4711[/thread]

Listbox rechtsbündig: s. Name des Themas



<< >> 5 Einträge, 1 Seite
Seppel
 2004-01-29 14:36
#46802 #46802
User since
2004-01-29
1 Artikel
BenutzerIn
[Homepage] [default_avatar]
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
#46803 #46803
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
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
#46804 #46804
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
...hhmmmm da find ich gerade nichts. Aber Du könntest Deine Zahlen mit einer passenden Anzahl Leerzeichen davor ausstatten, etwa so:

Code: (dl )
1
2
3
4
5
6
7
my @numbers = ( -1.22, 47.11, 42, 13.5, 10000.2, -213);

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

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


Ausgabe:

Code: (dl )
1
2
3
4
5
6
     -1.22
     47.11
     42.00
     13.50
  10000.20
   -213.00
\n\n

<!--EDIT|Crian|1075387399-->
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
#46805 #46805
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
Oder als Tk-Variante:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/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
#46806 #46806
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.
<< >> 5 Einträge, 1 Seite



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