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

grid-Probleme: Ausrichtung im Frame



<< >> 1 Eintrag, 1 Seite
pktm
 2004-12-26 01:59
#42709 #42709
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
Hallo!

Ich möchte folgendes machen:
Eine Tabelle bestehend aus 2 Spalten und mehreren Zeilen (Anz. variiert).
Links soll immer eine nette Grafik stehen und rechts soll ein Text ausgegeben werden.

Zuvor habe ich einfach mittels pack Text untereinander geklatscht.
Jetzt muss aber noch die Grafik links hin.

Wenn ich das aber wie unten im Code mache (was .E. natürlich völlig richtig sein müsste ;-) ) erhalte ich immer nur eine leere Ausgabe. Das soll bedeuten, dass in den Labels nichts drinne steht (wenn sie denn angezeigt werden), obwohl sie bei der Definition einen Wert erhalten.
Das gelbe Label ist das einzige angezeigte (ohne Text).
Die Grafiken der Labels werden angezeigt.
Das gepackte Frame mit columspan=>2 bleibt leer.


Hier der
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#####################################################
# TEXT-FRAME                                        #
#####################################################

#my $spaceForText = ($width - $imageFrame->reqwidth());
my $spaceForText = (($width - $imageFrame->reqwidth())-$pfeil->width());

# Preis Label definieren
my $preisLabel = $textFrame->Label(
    -fg => 'red',
    -bg => 'yellow',
    -width => $spaceForText,
    -relief => 'raised',
    -justify=> 'left',
    -text => "Preis: XXX EUR",
    -font => $mf->Font(-weight=>'medium',-size=>20,-family=>'Rockwell',),
);

# Label für Name / Titel des Objekts defiieren
my $objektCaption = $textFrame->Label(
    -bg => 'green',
    -width => $spaceForText,
    -wraplength => $spaceForText - 10,
    -justify=> 'left',
    -relief => 'groove',
    -text => 'ObjektName',
    -font => $mf->Font(-weight=>'bold',-size=>16,),
);

# ObjektDaten ausgeben
my $daten = $textFrame->Frame(
    -width  => $spaceForText,
    -height => 50,
    -bg => 'blue',
);

# Nachtrag: Pfeile zum links drankleben
my $pfeilPreis = $textFrame->Label(-image=>$pfeil,-bd=>0,);
my $pfeilCaption = $textFrame->Label(-image=>$pfeil,-bd=>0,);

# Alles Packen
$pfeilPreis->grid(-row=>0, -column=>0,);
$preisLabel->grid(-row=>0, -column=>1,);

$pfeilCaption->grid(    -row=>1, -column=>0,);
$objektCaption->grid(   -row=>1, -column=>1,);

$daten->grid(-row => 2, -column=>0, -columnspan => 2,);

# Vorher:
#$preisLabel->pack();
#$objektCaption->pack();
#$daten->pack(-anchor=>'w');


Was mache ich falsch?
Da muss doch irgend etwas elementares falsch gelaufen sein oder?
mfg pktm
http://www.intergastro-service.de (mein erstes CMS :) )
<< >> 1 Eintrag, 1 Seite



View all threads created 2004-12-26 01:59.