From: Fred Holmes 
@Date: Thu, 23 Jan 2003 16:07:02 -0500
@Sender: semware-owner{at}sawasdi.apana.org.au



If the below macro works, wouldn't it be just as easy to write a macro to 
install any arbitrary .ico file?  Named by an ASK() prompt or 
whatever?   And perhaps even the ones that one can browse for in some .dll 
files?

Fred Holmes

At 02:58 PM 1/23/2003, Sammy Mitchell wrote:

> >Different Icons are needed for different versions of Tse.
> >
> >So I would very much like to change the icon for different
> >versions of Tse, not only on the desktop, but the icon that
> >Tse sets for the task bar.
> >
> >How about yet another environment variable: Set (IconFile,
> >"C:\TSE\TseConsole.ico")
>
>How about something like the following.  This macro can
>interactively change the editors large and small icons.
>Note: you must change icon_fn[] to suite your needs:
>
>----------------- cut here ---------------------------------
>/**********************************************************
>  Change the editors large and small icons for the current
>  editing session.
>  ***********************************************************/
>dll ""
>     integer proc SendMessage(integer hwnd, integer msg, integer wparam,
>integer lparam) : "SendMessageA"
>     integer proc LoadImage(integer hinst, string s:cstrval, integer
>type, integer cx, integer cy, integer flag) : "LoadImageA"
>end
>
>#define IMAGE_ICON 1
>#define LR_LOADFROMFILE 16
>#define WM_SETICON 128
>#define ICON_BIG 1
>#define ICON_SMALL 0
>#define NULL 0
>
>string icon_fn[] = "d:\lastcon\e\gedit.ico"
>
>proc main()
>     integer big_icon, small_icon
>     integer hwnd = GetWinHandle()
>
>     big_icon = LoadImage(NULL, icon_fn, IMAGE_ICON, 32, 32,
>LR_LOADFROMFILE)
>     if big_icon
>         SendMessage(hwnd, WM_SETICON, ICON_BIG, big_icon)
>     else
>         MsgBox("Error", "Could not load large icon!")
>     endif
>
>     small_icon = LoadImage(NULL, icon_fn, IMAGE_ICON, 16, 16,
>LR_LOADFROMFILE)
>     if small_icon
>         SendMessage(hwnd, WM_SETICON, ICON_SMALL, small_icon)
>     else
>         MsgBox("Error", "Could not load small icon!")
>     endif
>end
>----------------- cut here ---------------------------------
>
>
>--
>TSEPro mailing list

--
TSEPro mailing list



---
[sawasdi.apana.org.au] (3:800/846.13)