Wie kann man einen gefaerbten Text mit GUI erzeugen?

[chadha]

Hallo alle zusammen,
ich moechte fragen, wie kann ich einen gefaerbten Text auf einer graphischen Oberflaeche erzeugen.
Ich suche den Perl-Code
ich hab versucht mit Highlight-optionen einen code zu schreiben aber leider hat es nicht geklappt.

 

[renee]

Mit welchem Framework arbeitest Du? Perl/Tk? wxPerl? Qt? ...

 

[chadha]

Mit welchem Framework arbeitest Du? Perl/Tk? wxPerl? Qt? ...

Ich arbeite mit PERL TK

 

[deepthroat]

Hi.

Kannst du das noch etwas näher spezifieren?!

Was für eine Arte von Text willst du worauf farbig anzeigen?

 $main->Button('-text' => 'Quit',
			   '-foreground' => 'red',
			   '-command' => sub { exit },			   
			   );

Erzeugt einen Button mit rotem Text.

Gruß

 

[renee]

Wenn es um Syntaxhighlighting geht, dann könnte man Tk::CodeText verwenden oder Du verwendest Tk::Text und verwendest die Tags für das Highlighting.

Alle Dokus sind unter http://search.cpan.org zu finden.

 

[chadha]

Hallo
ich hab folgende struktur definiert
$MODEL_TREE = $topleft_frame->Scrolled('Tree',
-height => 41,
-width => 30,
-scrollbars => 'se',
-font => $FONT3,
-selectmode => 'single',
-browsecmd => \&GUI_TreeSelect,
-opencmd => sub{GUI_TreeOpen($MODEL_TREE,$_[0])},
-foreground => 'black',
-background => 'white',
);
und dann moechte ich den text" HALLO" z.B rot schreiben
$MODEL_TREE->add(1, -text => "HALLO")

-----------------------------------------------------------------------------------------------------
Viele Gruesse

 

[deepthroat]

Hi.

require Tk::ItemStyle;

my $style = $MODEL_TREE->ItemStyle('text', -foreground => 'red');

$MODEL_TREE->add(1, -itemtype => 'text', -text => "HALLO", -style => $style);

Gruß

 

[chadha]

Hallo
Vielen Dank
Das ist genau was ich gesucht habe
Viele Gruesse