From: Plum, J. <jp...@ba...> - 2005-12-29 20:34:08
|
=20 My $ico =3D new Win32::GUI::Icon( +@_); then in the button, -icon =3D> $ico =20 Jason P =20 =20 ________________________________ From: per...@li... [mailto:per...@li...] On Behalf Of Jos...@us... Sent: Thursday, December 29, 2005 3:05 PM To: per...@li... Subject: [perl-win32-gui-users] Button bitmap and icons =20 Hello,=20 I'm a little confused about how to add a bitmap to a button or create one as an icon. I want to create a button with a picture of a printer on it, like you see in a word processing program. Also a button with internet explorer icon on it, or any other program's icon. I can't find an example on the web site on how to do this.=20 I tried this out but the button was blank, you couldn't see the word "TEST". So I must have done something to block the text, but the image did not show up either.=20 $MainWin->AddButton(=20 -name =3D> "Button1",=20 -text =3D> "TEST",=20 -bitmap =3D> 1,=20 -picture =3D> 'bliss.bmp',=20 -left =3D> 350,=20 -top =3D> 10,=20 ); =20 Windows XP SP2, 5.8.7, GUI 1.02=20 Thanks,=20 Joe=20 |
From: Plum, J. <jp...@ba...> - 2005-12-29 21:28:34
|
=20 Give me a bit here and I'll whip up a full demo for you, I've got a program at home that's running with like, 50 icons. =20 Jason P ________________________________ From: per...@li... [mailto:per...@li...] On Behalf Of Jos...@us... Sent: Thursday, December 29, 2005 4:22 PM To: per...@li... Subject: RE: [perl-win32-gui-users] Button bitmap and icons =20 Jason,=20 I got the same result=20 Joe=20 "Plum, Jason" <jp...@ba...>=20 Sent by: per...@li...=20 12/29/2005 03:34 PM=20 To <per...@li...>=20 cc =20 Subject RE: [perl-win32-gui-users] Button bitmap and icons =20 =20 =20 =20 My $ico =3D new Win32::GUI::Icon( +@_);=20 then in the button, -icon =3D> $ico=20 =20 Jason P=20 =20 =20 =20 ________________________________ From: per...@li... [mailto:per...@li...] On Behalf Of Jos...@us... Sent: Thursday, December 29, 2005 3:05 PM To: per...@li... Subject: [perl-win32-gui-users] Button bitmap and icons=20 =20 Hello,=20 I'm a little confused about how to add a bitmap to a button or create one as an icon. I want to create a button with a picture of a printer on it, like you see in a word processing program. Also a button with internet explorer icon on it, or any other program's icon. I can't find an example on the web site on how to do this.=20 I tried this out but the button was blank, you couldn't see the word "TEST". So I must have done something to block the text, but the image did not show up either.=20 $MainWin->AddButton(=20 -name =3D> "Button1",=20 -text =3D> "TEST",=20 -bitmap =3D> 1,=20 -picture =3D> 'bliss.bmp',=20 -left =3D> 350,=20 -top =3D> 10,=20 ); =20 Windows XP SP2, 5.8.7, GUI 1.02=20 Thanks,=20 Joe=20 |
From: <Jos...@us...> - 2005-12-30 16:28:46
|
SSBmaWd1cmVkIG91dCBob3cgdG8gZ2V0IHRoZSBpbWFnZSB3aGVuIHJlZmVyZW5jaW5nIGFuIGFj dHVhbCAnLmljbycgZmlsZSwgDQpqdXN0IHNwZWNpZnkgdGhlIHBhdGggb2YgdGhlIGZpbGUgaW4g bmV3IFdpbjMyOjpHVUk6Okljb24uICBCdXQgaG93IGRvIHlvdSANCmdldCBpdCBmcm9tIGEgZGxs IG9yIGV4ZSBmaWxlPw0KDQpKb2UNCiANCg0KDQpKb3NlcGggVmllaXJhIA0KQ0lPIElUIFN1cHBv cnQgDQpGVUpJVFNVIENPTlNVTFRJTkcgDQpQaG9uZTogICAgKDczMikgNTQ5LTQxMDAgZXh0ICg4 NjU3KSANCkVtYWlsOiAgSm9zZXBoLlZpZWlyYUB1cy5mdWppdHN1LmNvbQ0KDQoNCg0KDQoiUGx1 bSwgSmFzb24iIDxqcGx1bUBiYXJyYWNrLmNvbT4gDQpTZW50IGJ5OiBwZXJsLXdpbjMyLWd1aS11 c2Vycy1hZG1pbkBsaXN0cy5zb3VyY2Vmb3JnZS5uZXQNCjEyLzI5LzIwMDUgMDQ6MjkgUE0NCg0K VG8NCjxwZXJsLXdpbjMyLWd1aS11c2Vyc0BsaXN0cy5zb3VyY2Vmb3JnZS5uZXQ+DQpjYw0KDQpT dWJqZWN0DQpSRTogW3Blcmwtd2luMzItZ3VpLXVzZXJzXSBCdXR0b24gYml0bWFwIGFuZCBpY29u cw0KDQoNCg0KDQoNCg0KIA0KR2l2ZSBtZSBhIGJpdCBoZXJlIGFuZCBJ4oCZbGwgd2hpcCB1cCBh IGZ1bGwgZGVtbyBmb3IgeW91LCBJ4oCZdmUgZ290IGEgDQpwcm9ncmFtIGF0IGhvbWUgdGhhdOKA mXMgcnVubmluZyB3aXRoIGxpa2UsIDUwIGljb25zLg0KIA0KSmFzb24gUA0KDQpGcm9tOiBwZXJs LXdpbjMyLWd1aS11c2Vycy1hZG1pbkBsaXN0cy5zb3VyY2Vmb3JnZS5uZXQgDQpbbWFpbHRvOnBl cmwtd2luMzItZ3VpLXVzZXJzLWFkbWluQGxpc3RzLnNvdXJjZWZvcmdlLm5ldF0gT24gQmVoYWxm IE9mIA0KSm9zZXBoLlZpZWlyYUB1cy5mdWppdHN1LmNvbQ0KU2VudDogVGh1cnNkYXksIERlY2Vt YmVyIDI5LCAyMDA1IDQ6MjIgUE0NClRvOiBwZXJsLXdpbjMyLWd1aS11c2Vyc0BsaXN0cy5zb3Vy Y2Vmb3JnZS5uZXQNClN1YmplY3Q6IFJFOiBbcGVybC13aW4zMi1ndWktdXNlcnNdIEJ1dHRvbiBi aXRtYXAgYW5kIGljb25zDQogDQoNCkphc29uLCANCg0KSSBnb3QgdGhlIHNhbWUgcmVzdWx0IA0K DQpKb2UgDQoNCg0KDQoiUGx1bSwgSmFzb24iIDxqcGx1bUBiYXJyYWNrLmNvbT4gDQpTZW50IGJ5 OiBwZXJsLXdpbjMyLWd1aS11c2Vycy1hZG1pbkBsaXN0cy5zb3VyY2Vmb3JnZS5uZXQgDQoxMi8y OS8yMDA1IDAzOjM0IFBNIA0KDQoNClRvDQo8cGVybC13aW4zMi1ndWktdXNlcnNAbGlzdHMuc291 cmNlZm9yZ2UubmV0PiANCmNjDQogDQpTdWJqZWN0DQpSRTogW3Blcmwtd2luMzItZ3VpLXVzZXJz XSBCdXR0b24gYml0bWFwIGFuZCBpY29ucw0KIA0KDQoNCiANCiANCg0KDQoNCg0KICANCk15ICRp Y28gPSBuZXcgV2luMzI6OkdVSTo6SWNvbiggK0BfKTsgDQp0aGVuIGluIHRoZSBidXR0b24sIC1p Y29uID0+ICRpY28gDQogIA0KSmFzb24gUCANCiAgDQogIA0KIA0KDQoNCkZyb206IHBlcmwtd2lu MzItZ3VpLXVzZXJzLWFkbWluQGxpc3RzLnNvdXJjZWZvcmdlLm5ldCANClttYWlsdG86cGVybC13 aW4zMi1ndWktdXNlcnMtYWRtaW5AbGlzdHMuc291cmNlZm9yZ2UubmV0XSBPbiBCZWhhbGYgT2Yg DQpKb3NlcGguVmllaXJhQHVzLmZ1aml0c3UuY29tDQpTZW50OiBUaHVyc2RheSwgRGVjZW1iZXIg MjksIDIwMDUgMzowNSBQTQ0KVG86IHBlcmwtd2luMzItZ3VpLXVzZXJzQGxpc3RzLnNvdXJjZWZv cmdlLm5ldA0KU3ViamVjdDogW3Blcmwtd2luMzItZ3VpLXVzZXJzXSBCdXR0b24gYml0bWFwIGFu ZCBpY29ucyANCiAgDQoNCkhlbGxvLCANCg0KSSdtIGEgbGl0dGxlIGNvbmZ1c2VkIGFib3V0IGhv dyB0byBhZGQgYSBiaXRtYXAgdG8gYSBidXR0b24gb3IgY3JlYXRlIG9uZSANCmFzIGFuIGljb24u ICBJIHdhbnQgdG8gY3JlYXRlIGEgYnV0dG9uIHdpdGggYSBwaWN0dXJlIG9mIGEgcHJpbnRlciBv biBpdCwgDQpsaWtlIHlvdSBzZWUgaW4gYSB3b3JkIHByb2Nlc3NpbmcgcHJvZ3JhbS4gIEFsc28g YSBidXR0b24gd2l0aCBpbnRlcm5ldCANCmV4cGxvcmVyIGljb24gb24gaXQsIG9yIGFueSBvdGhl ciBwcm9ncmFtJ3MgaWNvbi4gIEkgY2FuJ3QgZmluZCBhbiBleGFtcGxlIA0Kb24gdGhlIHdlYiBz aXRlIG9uIGhvdyB0byBkbyB0aGlzLiANCg0KSSB0cmllZCB0aGlzIG91dCBidXQgdGhlIGJ1dHRv biB3YXMgYmxhbmssIHlvdSBjb3VsZG4ndCBzZWUgdGhlIHdvcmQgDQoiVEVTVCIuICBTbyBJIG11 c3QgaGF2ZSBkb25lIHNvbWV0aGluZyB0byBibG9jayB0aGUgdGV4dCwgYnV0IHRoZSBpbWFnZSAN CmRpZCBub3Qgc2hvdyB1cCBlaXRoZXIuIA0KDQokTWFpbldpbi0+QWRkQnV0dG9uKCANCiAgICAg LW5hbWUgICA9PiAiQnV0dG9uMSIsIA0KICAgICAtdGV4dCAgID0+ICJURVNUIiwgDQogICAgIC1i aXRtYXAgPT4gMSwgDQogICAgIC1waWN0dXJlID0+ICdibGlzcy5ibXAnLCANCiAgICAgLWxlZnQg ICA9PiAzNTAsIA0KICAgICAtdG9wICAgID0+IDEwLCANCik7ICAgDQoNCg0KV2luZG93cyBYUCBT UDIsIDUuOC43LCBHVUkgMS4wMiANCg0KVGhhbmtzLCANCkpvZSANCg0K |
From: Ariel S. <as...@ya...> - 2005-12-30 16:55:07
|
there are programs that can extract the icons from the system dlls. check out this link: http://www.vbaccelerator.com/home/VB/Utilities/Icon_Extractor/article.asp and this link: http://www.vbaccelerator.com/home/VB/Utilities/Bitmap_Extractor/article.asp on a related note, i have always thought that it would be nice to have some built in functions to retrieve common icons (i.e. Save, Open, etc...) -ariel --- Jos...@us... wrote: > I figured out how to get the image when referencing > an actual '.ico' file, > just specify the path of the file in new > Win32::GUI::Icon. But how do you > get it from a dll or exe file? > > Joe > > > > Joseph Vieira > CIO IT Support > FUJITSU CONSULTING > Phone: (732) 549-4100 ext (8657) > Email: Jos...@us... > > > > > "Plum, Jason" <jp...@ba...> > Sent by: > per...@li... > 12/29/2005 04:29 PM > > To > <per...@li...> > cc > > Subject > RE: [perl-win32-gui-users] Button bitmap and icons > > > > > > > > Give me a bit here and Iâll whip up a full demo > for you, Iâve got a > program at home thatâs running with like, 50 > icons. > > Jason P > > From: > per...@li... > [mailto:per...@li...] > On Behalf Of > Jos...@us... > Sent: Thursday, December 29, 2005 4:22 PM > To: per...@li... > Subject: RE: [perl-win32-gui-users] Button bitmap > and icons > > > Jason, > > I got the same result > > Joe > > > > "Plum, Jason" <jp...@ba...> > Sent by: > per...@li... > 12/29/2005 03:34 PM > > > To > <per...@li...> > cc > > Subject > RE: [perl-win32-gui-users] Button bitmap and icons > > > > > > > > > > > My $ico = new Win32::GUI::Icon( +@_); > then in the button, -icon => $ico > > Jason P > > > > > > From: > per...@li... > [mailto:per...@li...] > On Behalf Of > Jos...@us... > Sent: Thursday, December 29, 2005 3:05 PM > To: per...@li... > Subject: [perl-win32-gui-users] Button bitmap and > icons > > > Hello, > > I'm a little confused about how to add a bitmap to a > button or create one > as an icon. I want to create a button with a > picture of a printer on it, > like you see in a word processing program. Also a > button with internet > explorer icon on it, or any other program's icon. I > can't find an example > on the web site on how to do this. > > I tried this out but the button was blank, you > couldn't see the word > "TEST". So I must have done something to block the > text, but the image > did not show up either. > > $MainWin->AddButton( > -name => "Button1", > -text => "TEST", > -bitmap => 1, > -picture => 'bliss.bmp', > -left => 350, > -top => 10, > ); > > > Windows XP SP2, 5.8.7, GUI 1.02 > > Thanks, > Joe > > |
From: <Jos...@us...> - 2005-12-29 21:17:57
|
Jason, I got the same result Joe "Plum, Jason" <jp...@ba...> Sent by: per...@li... 12/29/2005 03:34 PM To <per...@li...> cc Subject RE: [perl-win32-gui-users] Button bitmap and icons My $ico = new Win32::GUI::Icon( +@_); then in the button, -icon => $ico Jason P From: per...@li... [mailto:per...@li...] On Behalf Of Jos...@us... Sent: Thursday, December 29, 2005 3:05 PM To: per...@li... Subject: [perl-win32-gui-users] Button bitmap and icons Hello, I'm a little confused about how to add a bitmap to a button or create one as an icon. I want to create a button with a picture of a printer on it, like you see in a word processing program. Also a button with internet explorer icon on it, or any other program's icon. I can't find an example on the web site on how to do this. I tried this out but the button was blank, you couldn't see the word "TEST". So I must have done something to block the text, but the image did not show up either. $MainWin->AddButton( -name => "Button1", -text => "TEST", -bitmap => 1, -picture => 'bliss.bmp', -left => 350, -top => 10, ); Windows XP SP2, 5.8.7, GUI 1.02 Thanks, Joe |
From: Johan L. <johanl@DarSerMan.com> - 2005-12-29 22:00:05
|
At 21:34 2005-12-29, Plum, Jason wrote: >My $ico = new Win32::GUI::Icon( +@_); >then in the button, -icon => $ico Make sure the $ico variable is in scope for the lifetime of the dialog. The easiest way to do that is to put it in a global (replace "my" with "our" in this case, or put all image resources in a global array or hash). IMHO, this should be handled automatically by controls that has other media objects assigned to them like this. /J |