Re: [perl-win32-gui-users] camel

[Robert M. <rob...@us...>]

Geoffrey Spear wrote:
> I hate to bring back a nearly 6 month old thread, but is there some
> sort of trick to getting Win32::GUI to find icons bundled with a
> pp-built .exe?
> 
> I built one using "pp script.pl -o script.exe -a icon.ico" but the
> icon only displays properly if there's a copy of it in the same
> directory as the executable; if the .exe file is moved to another
> directory it can't find the icon which should be bundled.
> 
> Geoffrey

I've got some code in Win32::GUI::SplashScreen that attempts to work
with PAR packed icon/bitmap files.  I think it used to work, but it's
pretty old.

There's a comment that says:

# try to load the splash image from the PAR_TEMP directory
# this is for exes built with PAR's pp -a xxxxx.bmp ...

And then goes on to do something equivalent to:

my $file = 'icon.ico';
my $path = '.';
$path = $ENV{PAR_TEMP} . "/inc" if exists $ENV{PAR_TMP};

my $icon = Win32::GUI::Icon->new("$path/$file");


I'd be interested to know if it still works :-)

Rob.

> 
> On 11/29/06, Glenn Linderman <pe...@ne...> wrote:
>> On approximately 11/29/2006 1:41 AM, came the following characters from
>> the keyboard of Steve Loughran:
>>> yes, aparantly you can :)
>>>
>>> http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=bitmapinline
>>>
>> Aparantly :)  Or Apparently :)
>>
>> But in a PAR context, there is little incentive to do that, vs. bundling
>> the file into the pp-built .exe
>>
>> OK, I admit to bringing up the PAR context, but if you are looking to
>> bundle everything into a single file for easier distribution, PAR goes a
>> lot further toward that goal than BitmapInline :)
>>> Steve Loughran wrote:
>>>
>>>> This was on my "to-find-out" list :) Can you use DIBitmap for inline icons?
>>>>
>>>> Steve
>>>>
>>>> Glenn Linderman wrote:
>>>>
>>>>> On approximately 11/28/2006 9:08 PM, came the following characters from
>>>>> the keyboard of Apu islam:
>>>>>
>>>>>> anyone knows how I can replace the camel logo on the
>>>>>> Main window with my smily face ?
>>>>>>
>>>>>>
>>>>>> -Apu
>>>>>>
>>>>>>
>>>>> Assuming $mw points to the main window, use
>>>>>
>>>>> $my_smily_face_icon = new Win32::GUI::Icon( $iconfile );
>>>>> $mw->SetIcon ( $my_smily_face_icon );
>>>>>
>> --
>> Glenn -- http://nevcal.com/
>> ===========================
>> A protocol is complete when there is nothing left to remove.
>> -- Stuart Cheshire, Apple Computer, regarding Zero Configuration Networking
>>
>>
>> -------------------------------------------------------------------------
>> Take Surveys. Earn Cash. Influence the Future of IT
>> Join SourceForge.net's Techsay panel and you'll get the chance to share your
>> opinions on IT & business topics through brief surveys - and earn cash
>> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
>> _______________________________________________
>> Perl-Win32-GUI-Users mailing list
>> Per...@li...
>> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>> http://perl-win32-gui.sourceforge.net/
>>
> 
>