Opened by rommi at 2007-12-27 23:16
Da kann ich nur Win32::GUI ( insbesondere Win32::GUI::DC ) empfehlen.
Den Desktop kannste damit auf jedenfall bemalen, den Rahmen zu zeichnen sollte also kein Problem sein, und auch Bilddaten kann man damit auslesen, nur wie man an die Mauskoordinaten ran kommt, kann ich dir nich sagen, aber wenn du sowieso Tk benutzt, kannst du das auch mit Tk regeln.
$color ist im ersten Fall ein Integer, den du einfach mit sprintf( '%x' ) umwandeln kannst in eine hexadezimale Zahl, mit RGB Werten.
Im 2. Fall kann es eine hexadezimale Zahl sein, falls '#' voran steht.
Und wie gesagt, die Koordinaten musst du dir so holen, wie ptk es geschreiben hat.
MfG Horst
Den Desktop kannste damit auf jedenfall bemalen, den Rahmen zu zeichnen sollte also kein Problem sein, und auch Bilddaten kann man damit auslesen, nur wie man an die Mauskoordinaten ran kommt, kann ich dir nich sagen, aber wenn du sowieso Tk benutzt, kannst du das auch mit Tk regeln.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
# Modul einbinden
use Win32::GUI;
# Bildschirm holen
my $screen = Win32::GUI::DC -> new( "SCREEN" );
# Bilddaten auslesen ( da gibts bestimmt schon ne Funktion GetRect() oder ähnlich, habs aber gerade nur so im Kopf )
my $color = $screen -> GetPixel( $x, $y );
# Desktop bemalen ( bestimmt kannste auch direkt ein Rechteck malen, hab nur gerade nur diese Funktion im Kopf )
$screen -> SetPixel( $x, $y, $color );
$color ist im ersten Fall ein Integer, den du einfach mit sprintf( '%x' ) umwandeln kannst in eine hexadezimale Zahl, mit RGB Werten.
Im 2. Fall kann es eine hexadezimale Zahl sein, falls '#' voran steht.
Und wie gesagt, die Koordinaten musst du dir so holen, wie ptk es geschreiben hat.
MfG Horst