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

Anordnung Label und Entry (page 2)



<< |< 1 2 3 >| >> 24 entries, 3 pages
Strat
 2005-11-22 18:53
#45016 #45016
User since
2003-08-04
5246 articles
ModeratorIn
[Homepage] [default_avatar]
@crian: ja, vielleicht sogar komfortabler als mit grid... nur wuerde ich bei deinem code noch ein paar -fill => 'both' gleichmaessig verteilen...
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
Matze
 2005-11-22 21:18
#45017 #45017
User since
2005-08-29
222 articles
BenutzerIn
[Homepage] [default_avatar]
Danke!
Ich habe es jetzt mit pack gemacht.

Ach ja, das passt jetzt hier nicht, aber bei Tk::Dialog, bin ich auf -bitmap gestoßen, und frage mich welche 'build in bitmaps' es gibt.

Danke nochmal.

MfG. Matze
Mit freundlichen Grüßen: Matze
ptk
 2005-11-23 00:20
#45018 #45018
User since
2003-11-28
3645 articles
ModeratorIn
[default_avatar]
Schau dir mal das Programm "widget" an. Da gibt es einen Abschnitt "The Built-in Bitmaps". Und auch ansonsten ist es als Demonstrationsprogramm nützlich.
Crian
 2005-11-23 16:02
#45019 #45019
User since
2003-08-04
5871 articles
ModeratorIn
[Homepage]
user image
[quote=Strat,22.11.2005, 17:53]@crian: ja, vielleicht sogar komfortabler als mit grid... nur wuerde ich bei deinem code noch ein paar -fill => 'both' gleichmaessig verteilen...[/quote]
Ja schon klar, dass das noch nicht fertig war, aber ich wollte erstmal die wesentliche Information (Reihenfolge und Ausrichtung) wirken lassen. Auch -side => 'top' könnte man weglassen, weil das der default ist, aber es wäre weniger didaktisch.
Auch ein paar expands würd ich zu den fills gesellen (:

Man könnte sogar den temporären Frame weglassen iirc, aber der zeigt die Standard-Vorgehensweise bei pack...\n\n

<!--EDIT|Crian|1132754617-->
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
Matze
 2005-11-23 16:38
#45020 #45020
User since
2005-08-29
222 articles
BenutzerIn
[Homepage] [default_avatar]
@crian: das habe ich mich gefragt, wie kann man es mit pack machen, ohne den zusätzlichen Frame ???

@ptk: Danke, das hab ich noch garnicht bemerkt ...
Ich habe es mir mal angesehen, und habe eine Frage, ich bräuchte die icons von MessageBox aber in einem Dialog, da ich bis zu 6 Buttons angeben können muss.
Weiß du wie das gehen könnte ?

MfG. Matze
Mit freundlichen Grüßen: Matze
ptk
 2005-11-24 00:27
#45021 #45021
User since
2003-11-28
3645 articles
ModeratorIn
[default_avatar]
[quote=Matze,23.11.2005, 15:38]@crian: das habe ich mich gefragt, wie kann man es mit pack machen, ohne den zusätzlichen Frame ???[/quote]Da bin ich auch gespannt...

Quote
@ptk: Danke, das hab ich noch garnicht bemerkt ...
Ich habe es mir mal angesehen, und habe eine Frage, ich bräuchte die icons von MessageBox aber in einem Dialog, da ich bis zu 6 Buttons angeben können muss.
Weiß du wie das gehen könnte ?
Mit der -bitmap oder -image-Option von Tk::Dialog.
Strat
 2005-11-24 13:51
#45022 #45022
User since
2003-08-04
5246 articles
ModeratorIn
[Homepage] [default_avatar]
vielleicht so?
Code: (dl )
1
2
3
my $frame1 = $parent->Frame()->pack(-side => 'left', -fill => 'y');
my $frame2 = $parent->Frame()->pack(-side => 'top', -fill => 'both');
my $frame3 = $parent->Frame()->pack(-side => 'top', -fill => 'both');

Hab's aber nicht ausprobiert...\n\n

<!--EDIT|Strat|1132833121-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
Crian
 2005-11-24 15:25
#45023 #45023
User since
2003-08-04
5871 articles
ModeratorIn
[Homepage]
user image
[quote=ptk,23.11.2005, 23:27][quote=Matze,23.11.2005, 15:38]@crian: das habe ich mich gefragt, wie kann man es mit pack machen, ohne den zusätzlichen Frame ???[/quote]Da bin ich auch gespannt...[/quote]

Na einfach durch weglassen :D

Mit zusätzlichem Frame:

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
#!/usr/bin/perl
use strict;
use warnings;

use Tk;

tk_main();
MainLoop();
exit;


sub tk_main {
    my $mw = MainWindow->new();
    $mw->title('Pack Layout 1');

    # |------------------------------------------------|
    # |                      Frame 1                   |
    # |------------------------------------------------|
    # |      Frame 2    |            Frame 3           |
    # |                 |------------------------------|
    # |                 |             Frame 4          |
    # |------------------------------------------------|
    my $frame1 = $mw->Frame(
        -borderwidth => 5,
        -background  => 'blue',
    )->pack(
        -side   => 'top',
        -expand => 1,
        -fill   => 'both',
    );
    my $frame2 = $mw->Frame(
        -borderwidth => 5,
        -background  => 'green',
    )->pack(
        -side => 'left',
        -expand => 1,
        -fill   => 'both',
    );
    my $f_tmp  = $mw->Frame(
        -borderwidth => 5,
        -background  => 'red',
    )->pack(
        -side => 'left',
        -expand => 1,
        -fill   => 'both',
    );
    my $frame3 = $f_tmp->Frame(
        -borderwidth => 5,
        -background  => 'orange',
    )->pack(
        -side => 'top',
        -expand => 1,
        -fill   => 'both',
    );
    my $frame4 = $f_tmp->Frame(
        -borderwidth => 5,
        -background  => 'magenta',
    )->pack(
        -side => 'top',
        -expand => 1,
        -fill   => 'both',
    );

    $frame1->Label(-text => 'Label 1')->pack();
    $frame2->Label(-text => 'Label 2')->pack();
    $frame3->Label(-text => 'Label 3')->pack();
    $frame4->Label(-text => 'Label 4')->pack();
}


http://www.duehl.de/lay_back/bilder/pack_layout_fr...

Ohne den Frame:

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
54
55
56
57
58
59
60
#!/usr/bin/perl
use strict;
use warnings;

use Tk;

tk_main();
MainLoop();
exit;


sub tk_main {
    my $mw = MainWindow->new();
    $mw->title('Pack Layout 1');

    # |------------------------------------------------|
    # |                      Frame 1                   |
    # |------------------------------------------------|
    # |      Frame 2    |            Frame 3           |
    # |                 |------------------------------|
    # |                 |             Frame 4          |
    # |------------------------------------------------|
    my $frame1 = $mw->Frame(
        -borderwidth => 5,
        -background  => 'blue',
    )->pack(
        -side   => 'top',
        -expand => 1,
        -fill   => 'both',
    );
    my $frame2 = $mw->Frame(
        -borderwidth => 5,
        -background  => 'green',
    )->pack(
        -side => 'left',
        -expand => 1,
        -fill   => 'both',
    );
    my $frame3 = $mw->Frame(
        -borderwidth => 5,
        -background  => 'orange',
    )->pack(
        -side => 'top',
        -expand => 1,
        -fill   => 'both',
    );
    my $frame4 = $mw->Frame(
        -borderwidth => 5,
        -background  => 'magenta',
    )->pack(
        -side => 'top',
        -expand => 1,
        -fill   => 'both',
    );

    $frame1->Label(-text => 'Label 1')->pack();
    $frame2->Label(-text => 'Label 2')->pack();
    $frame3->Label(-text => 'Label 3')->pack();
    $frame4->Label(-text => 'Label 4')->pack();
}


http://www.duehl.de/lay_back/bilder/pack_layout.pn...
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
 2005-11-24 15:49
#45024 #45024
User since
2003-11-28
3645 articles
ModeratorIn
[default_avatar]
Ich bin beeindruckt. Obwohl ich persönlich wahrscheinlich immer mit Hilfsframes arbeiten werde; dann muss man sein Gehirn weniger verknoten, wenn die Layouts komplizierter werden...
Matze
 2005-11-24 18:49
#45025 #45025
User since
2005-08-29
222 articles
BenutzerIn
[Homepage] [default_avatar]
Ich hätte auch nicht gedacht das es ohne geht, ptk, bei -btmap kann man nur eines der schwarz-weiß bitmaps benutzen, bei messgaeBox nur eines der farbigen, ich bräuchte allerdings die farbigen in einem Tk::Dialog, oder ich mache das ganze ohne die vielen Buttons...

Kann man vielleicht mit verschiedenen Funktionen aus Tk::Wm oder ähnlichem das Fenster derartig verändern, das man es nicht verschieben kann, und nicht vergrößern bzw. verkleinern kann ?

MfG. Matze

PS: Ich werds aber erstmal 2 Versionen programmieren, eine mit MessageBox und eine mit Dialog.
Mit freundlichen Grüßen: Matze
<< |< 1 2 3 >| >> 24 entries, 3 pages



View all threads created 2005-11-19 13:23.