Hi listers,
Vladimir and myself are trying to have the icon, in the program (NOT
what is seen on the desktop)
to change from the "Joe Camel" icon...
Here is the code we are using:
use Win32::GUI;
use Win32::GUI::BitmapInline ();
$I = new Win32::GUI::BitmapInline( q(
Qk1KCAAAAAAAADYEAAAoAAAAIQAAAB0AAAABAAgAAAAAABQEAAAAAAAAAAAAAAABAAAAAAAA////
AGtrawDOzs4A1tbWAN7e3gDn5+cA7+/vAPf39wCtrcYAjJS9AJylxgBzhL0AWnPGAEpjtQAAKbUA
e4y9ADFStQCcpb0AGEK1AAAxvQAAOc4AADnGAAhK1gAAQs4AAELWAABK5wCUrd4ASnvWAABK1gAA
St4AAFLvAJS17wBKe84AAFLnAABa9wC91v8Ae5zOACl79wAhY84AKXv/ABhz/wAQa/8AAFrvAABj
/wCtzv8ASpT/ADmM/wAhc+cAIXv/ABBz/wAIa/8AnMb/AHu1/wBjpf8AQoTeAEKU/wA5hOcAKYT/
AIS9/wBapf8ASozeAEqc/wC1vcYA3u//AM7n/wB7vf8A3ufvAL3n9wDG3ucAvdbeAJzO3gAApdYA
nL3GAHu9zgBKpb0AQpy1ACGcvQAQve8ACLXnAACUvQAAnMYAAK3eAIzO3gBrrb0Aa7XGAFKcrQBC
pb0AKdb/ACHW/wAYnL0AGMbvABjO9wAQvecACM7/AACEpQAAjK0AAJS1AAClzgAArdYAAMb3AADO
/wCt1t4AnMbOAIy1vQBjrb0AWqW1ABiUrQAIe5QACIScAABzjAAAe5QAAJy9AHOlrQCM5/cAOZyt
ACmUpQAhpb0AAIScAACUrQAhjJwACISUAABzhACMztYAa7W9AGOttQC9xsYA3u/vALXGxgCcra0A
pb29AJzOxgBahHsAGIRrAABrUgDO7+cAe5yUACmMcwAYe2MACGtSAABjSgAAhGMAnNbGAFq1nABK
pYwAOZR7ABhzWgAIe1oAAHNSAAB7WgCMxrUAc62cAEqEcwBjtZwAMYRrAACMYwC1/+cAWqWMAGP3
xgA5nHsAIYRjACGccwAYe1oAGK17AABjQgAAlGMAAJxrAACtcwAAxoQAe62cAIzWvQAAjFoAAL17
AADOhAAA1owAAOeUAADvnACc3sYACP+lAACEUgAAnGMAAK1rAAC1cwAAxnsAAN6MAADvlADW/+8A
vefWAIy1pQAAvXMAANaEAO/37wD/7+cA/+feAP/OvQD/vaUA/7WcAP+lhAD/nHsA/4xjAP+EWgD/
rZQA/5RzAP97UgD/c0oA972tAP+ljAD/jGsA/4RjAP9rQgD/YzkA78a9AP+9rQD/nIQA95R7AP+U
ewD/e1oA93NSAP9zUgDva0oA/7WlAPellADnlIQA/4RrAPdzWgD/zsYA98a9AOeEcwD/e2MA92tS
AO9jSgDvWkIA3lI5AOdSOQD3hHMA51pKAOdSQgDnSjkA3kIxANY5KQDWMSEA1ntzAN5zawDOY1oA
zlJKAM5KQgDWQjkA//f3AM7GxgDOra0AvZycANatrQDOnJwAzoyMANaMjADOa2sAAAAAAAAAAAAA
AAAAAAAAAAAAAAAHBQUFBQYHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB39TU1NTU4ECAgQF
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAABmd15QR1xaWE1hTEsCAgEAAAAAAAAAAAAAAAAAAAAAAAAA
BkZ5bl9vYlxcV1tdZFFIfQUAAAAAAAAAAAAFBge+Br4GBgX6+EVrbV5gYU5cW1ddZGRpAwAAAAAA
AAAAAOrw+/kCAgL3/PHn8wVzeXVgYWJcWlhbZGRZAgAAAAAAAAAAANvLzund4uLV6eXn7wNJeW5f
UGFcWldbXWRifwUAAAAAAAAAAMDQ19bIw9TJz9jo7vtleW5eb0dcXFtYXWRjcAQAAAAAAAAAAADQ
ysnIw83Wzt/r7f4GeHleYGFRXFpXXWRkSwIAAAAAAAAAAADUy97E28jUyd/l5/QES3l1dlBiXFpX
W2RkUAIGAAAAAAAAAADTy8/Ww8jUyd7a5+/3enluX29hXFpbWF1kUWcEAAAAAAAAAAC/0cfJyMPN
1sbY6+78RG1tXmBhTlxbV11kY1UEAAAAAAAAAAAAx9nOzcPNxc7f6+3yBXh5alI/Bwd+Q3FXZEwA
AAAAAAAAAAAAzdDP1NvI1MnP5ef1BUpTB367lpiYlqh9A0QHBwAAAAAAAAAA4NDXxcjIzcnP2Oju
wAB+nJKkpqutrrGroqCABAAAAAAAAAAAv9DKyc3bzdbO2OrhAACfi5SltKusrq+xrqyZAgAAAAAA
AAAAAPbSzNzT08PD4PZCGgWPo5Oapbyst6+xr62TAgYAAAAAAAAAAB8mJBE+AgL3CiAWDgOCioWM
pbW2ra+xr7ezgAUAAAAAAAAAAEArMCU4PDYvMiEcDgkGn4uUpaarra6vsa62gwMAAAAAAAAAAAAp
KDk9OzcnMiocEw0GkIuUpLSrrK6vsa69nwIHAAAAAAAAAAAtKSc3Oy05KSIdFRIEgqOTmqW1p62v
sbitlH0GAAAAAAAAAAAzMjAuOz0uKCshFw4IhpGFjKWmtq2usa+3pocEAAAAAAAAAAA/KyguPTsu
MDIeFxMLB5mLlKW0q6yusbGurJcCAAAAAAAAAAAAMCk5LTUtOTIqHRMQBJWjk5qlq6y3r7G4raEC
BgAAAAAAAAAANSkwNzs9OSgrHRUOArqRhZipAAAAuZudrqoFAAAAAAAAAAAALCswLj09LigrIRgO
D36esAAAAAAAAAAAAH4AAAAAAAAAAAAABysoOT07NycyHhwTDAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAACcpOTc7PTkoIh0bBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAIzo0NDUtNUAAAAAAAAAA
AAAAAAAAAAAAAAAAAA==
) );
$W = new Win32::GUI::Window(
-title => "Test",
-left => 200,
-top => 200,
-width => 100,
-height => 100,
-style => WS_OVERLAPPEDWINDOW,
);
$E = MIME::Base64::encode_base64($I);
$B = new Win32::GUI::Bitmap($E);
$BITMAP = $W->AddLabel(
-width => 100,
-height => 100,
-style => 14,
-visible => 1,
);
$BITMAP->SetImage($I);
$W->Show;
Win32::GUI::Dialog();
sub Window_Terminate {
return -1;
}
Any help would be greatly appreciated.
Best I have been able to do is get the BMP to show up IN the window, not
as the icon...
Chris Anderson
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
