Tkx - messageBox Font für Message ändern (Graphische Oberflächen)

[thread]18282[/thread]

Tkx - messageBox Font für Message ändern

Tags: perl5 GUI Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+12 replies
JVBSOFT

2013-04-18 14:34

User since
2013-01-19
16 articles
BenutzerIn

Ich habe folgendes Problem:

Ich möchte den Font für die Message ändern. Die MessageBox besitzt hierfür leider keinen Parameter. Wie bekommt es dennoch hin hier eine andere Schrift zu benutzen ???

modedit Editiert von GwenDragon: Titel sinnvoll zum Inhalt des Postings geändert
Last edited: 2013-04-18 15:02:52 +0200 (CEST)
- +11 replies
- GUIfreund
  
  2013-04-19 11:53
  
  User since
  2011-08-08
  559 articles
  BenutzerIn
  
  Bei Tkx habe ich mich noch nicht mit Fonts befasst. Bei Perl/Tk gibt es die Option -font für alle Widgets, bei denen sie Sinn macht (einschließlich MessageBox).
  
  Da Tkx sehr ähnlich zu Perl/Tk ist, sind die Chancen gut, dass -font auch bei Tkx::tk___messageBox funktioniert. Hast du es mal versucht?
  Gruß
  GUIfreund
  - +10 replies
  - JVBSOFT
    
    2013-04-19 12:42
    
    User since
    2013-01-19
    16 articles
    BenutzerIn
    
    Danke für den Hinweis.
    
    Aber Tkx::tk__messageBox besitzt leider keine Option '-font'.
    Es gibt nur dir Optionen: -type, -message, -detail, -title, -icon, -default und -parent.
    
    Unter Linux kann man den Font wie folgt ändern:
    
    Tkx::font_configure("TkCaptionFont", -family => "Courier", -size => 15, -weight => "normal");
    
    Danach wird der Text in der MessageBox in Courier angezeigt. Das klappt aber leider nicht unter Windows und MacOS.
    
    Da ich aber ein Programm schreibe, das auf allen drei Systemen laufen soll bin ich z.Zt. etwas ratlos.
    Gruß
    JVBSOFT
    
    modedit Editiert von pq: code-tag
    Last edited: 2013-04-21 19:34:18 +0200 (CEST)
    - GUIfreund
      
      2013-04-20 11:35
      
      User since
      2011-08-08
      559 articles
      BenutzerIn
      
      Ich probier's mal aus (unter Win XP), bitte aber um etwas Geduld, da ich mich erst über Fonts schlau machen muss.
      Gruß
      GUIfreund
    - +8 replies
    - GUIfreund
      
      2013-04-20 13:11
      
      User since
      2011-08-08
      559 articles
      BenutzerIn
      
      Du hast Recht, es gibt offenbar bei Tkx keine Möglichkeit, das Aussehen einer MessageBox zu ändern. Text und Screenshots im Tutorial zeigen, dass die Standarddialoge so konzipiert sind, dass sie den vom System verwendeten Dialogen der jeweiligen Plattform möglichst ähnlich sind.
      
      Tut mir leid, dass ich dich mit meinem Hinweis auf eine falsche Fährte gelockt habe.
      Gruß
      GUIfreund
      - +7 replies
      - JVBSOFT
        
        2013-04-20 14:36
        
        User since
        2013-01-19
        16 articles
        BenutzerIn
        
        Kein Problem !!!
        
        Was mich etwas wundert ist nur, daß es unter Linux ohne Probleme geht.
        Kannst es eventuell ja mal selber ausprobieren.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        Tkx::font_configure( "TkCaptionFont", -family => "Courier", -size => 15, -weight => "normal" ); $top = Tkx::widget->new(q{.}); Tkx::tk___messageBox( -parent => $top, -title => 'Fehler', -type => 'ok', -icon => 'error', -message => 'Diese Eingabe ist falsch' );
        
        Eigentlich müßte es dann auch unter MSWin gehen. Hab es unter 2000, XP, Vista, 7 und 8 probiert !!!
        
        Am Montag werde ich es mir mal im Dienst noch unter MacOS Lion ansehen. Basis ist ja hier auch ein Unix.
        
        Gruß
        JVBSOFT
        
        modedit Editiert von pq: code-tags
        Last edited: 2013-04-21 19:34:49 +0200 (CEST)
        
        +2 replies
        
        GwenDragon
        
        2013-04-20 14:43
        
        User since
        2005-01-17
        14911 articles
        Admin1
        
        Was passiert, wenn du als Font "Courier New" verwendest?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        JVBSOFT
        
        2013-04-20 15:20
        
        User since
        2013-01-19
        16 articles
        BenutzerIn
        
        Habe ich bereits ausprobiert - klappt auch nicht.
        
        Hab mittels Tkx::fontNames die installierten Schriften ermittelt und es mit verschiedenen ausprobiert (Courier New, Courier, Arial usw.)
        
        Hab auch ausprobiert die speziellen Windows-Schrift-Vorgaben (system, ansi, device, systemfixed, ansifixed, oemfixed) zu verändern - analog zu TkCaptionFont - alles ohne Erfolg
        
        Gruß JVBSOFT
        
        +4 replies
        
        GUIfreund
        
        2013-04-21 13:39
        
        User since
        2011-08-08
        559 articles
        BenutzerIn
        
        2013-04-20T12:36:40 JVBSOFT
        Was mich etwas wundert ist nur, daß es unter Linux ohne Probleme geht.
        
        Unterschiedliche Versionen von Tkx? Im Abschnitt Fonts, Colors, Images des Tutorials glaube ich herauszulesen, dass es die Option -font früher häufiger in Tkx gab, z. B. bei dem Satz
        Quote
        Most of the themed widgets that display text don't have a "font" configuration option, unlike the classic Tk widgets.
        Die Portierung nach Perl/Tk ist ja schon recht betagt.
        
        Und im Abschnitt Windows and Dialogs ist (ziemlich am Ende) gesagt und gezeigt, dass die MessageBox möglichst so wie auf der jeweiligen Plattform üblich aussehen soll.
        
        Wenn dir der Font wichtig genug ist, kannst du ja mal nachforschen, ob es auch bei Tkx ein DialogBox-Widget gibt. Da man dieses bei Perl/Tk recht frei gestalten kann, scheint es mir gut möglich zu sein, dass es da auch in Tkx die Option -font gibt bzw. dass sie bei den eingebetteten Widgets zugelassen wird. Damit könntest du dann die MessageBox nachbilden.
        Gruß
        GUIfreund
        
        +3 replies
        
        JVBSOFT
        
        2013-04-21 14:30
        
        User since
        2013-01-19
        16 articles
        BenutzerIn
        
        Danke für die Hinweise !!!
        
        Es gibt bei den BWidgets eine DialogBox - aber auch diese besitzt keinen Font-Parameter !!! Habe auch schon probiert, weil die BWidgets sich mit 'require' recht leicht einbinden lassen - sind indirekt in Tkx mit eingebaut.
        
        Die einzige MessageBox, die ich mit Font-Parameter gefunden habe kommt von den IWidgets. Diese sind aber nicht offiziell gegen Tkx gebunden und an Endanwender ausgeliefert wird.
        
        Der Standart-Font ist unter Windows meiner Meinung nach einfach zu sehr augenunfreundlich - besonders für doch etwas betagte Endanwender.
        
        Bleibt warscheinlich doch nur eine der Varianten: Megawidget selbst bauen oder IWidgets !?!?!?!
        
        Für die Einbindung habe ich zwar ein Modul 'Tkx-TclTk-Bind-IWidgets' geschrieben - klaptt also auch. Aber ich wollte nicht immer das gesamte 'IWidgets-Paket' mit einbinden. Speziell wenn ein Programm mit ActiveState PDK gebaut wird.
        
        Gruß JVBSOFT
        
        +2 replies
        
        GUIfreund
        
        2013-04-21 18:55
        
        User since
        2011-08-08
        559 articles
        BenutzerIn
        
        Ich beschreibe mal, wie die DialogBox in Perl/Tk aussieht: Unten ist eine wählbare Reihe von Buttons, so wie bei messageBox. Darüber sitzt nur ein (unsichtbarer) Frame, in den man Widgets einfügen kann.
        
        Ich hoffe, dass das in Tkx ähnlich ist. Dann könntest du dort ein Text-Widget einfügen (eine nur lesbare Version würde für deinen Zweck genügen, heißt in Perl/Tk ROText). Bei dem sollte der Font änderbar sein.
        
        Waidmanns Heil!
        Gruß
        GUIfreund
        
        JVBSOFT
        
        2013-04-22 16:30
        
        User since
        2013-01-19
        16 articles
        BenutzerIn
        
        Ich habe heute noch einmal etwas getestet und eine Lösung gefunden.
        
        Mit messageBox geht es nicht !!! Die messageBox kann wohl unter Linux einen anderen Font erhalten aber nicht unter MSWin und MacOS. Hier wird sie laut Beschreibung auf die nativen MessageBoxen umgeleitet.
        
        http://wiki.tcl.tk/1062
        
        Aber es geht folgendermaßen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        my $message = "Das Betriebssystem wird nicht unterstützt !\n'"; Tkx::font_create( 'message_font', -family => 'Arial' , -size => 12, -weight => 'bold' ); Tkx::font_create( 'button_font' , -family => 'Courier New', -size => 10, -weight => 'bold' ); Tkx::option_add( '*Dialog.msg.font' , 'message_font' ); Tkx::option_add( '*Dialog.Button.font', 'button_font' ); Tkx::option_add( '*Dialog.msg.wrapLength', '6i' ); my $top = Tkx::widget->new(q{.}); my $box = Tkx::tk___dialog( './message', 'System Fehler', $message, 'error', 'Beenden', ['Beenden'], );
        
        Diese Version habe ich unter MSWin, Linux und MacOS getestet und sie macht das was sie soll.
        
        Die Icons (error, warning usw.) sind etwas altbacken, sollten sich aber auch noch austauschen lassen.
        
        Gruß
        JVBSOFT

View all threads created 2013-04-18 14:34.