Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
Samples
- Advancing Through a Series of Dialogs
- Align Dialog in Corner
- Animated GIF in Dialog
- Auto Configure Dialog
- Auto Resize Dialog Based on Size of Text
- Background Colors - Red Alert Heartbeat
- Background Colors - Slowly Shifting
- BeforeNavigate Event Sample Code
- Calculate Width of Given Text
- Calendar Popup
- Change a Control Color
- Change Dialog PushButton Text
- Check Value of Checkbox In Dialog Callback Procedure
- Colored Multi Line Dialog
- Custom AskItemList
- Date Range Selection
- Determine Which Dialog Control Previously Had Focus
- Dialog Grid Navigation
- Dialog Resize Demo
- Display Data in Columns
- Display Hyperlinks in Dialog
- DllCall Rich Edit Control
- Editbox Text Changed Event
- Expandable Dialog
- Field Validation Example
- Field validation with WinBatch Dialog
- File Copy Progress Bar In Winbatch Dialog
- File Save As Dialog
- Get Size of Dialog in Dialog Units
- Grid Navigate
- Grid Sample - Office Web Component
- GridNavigate
- Horizontal Scroll Bars
- Managing a pair of Dynamic ItemBoxes
- Menu Buttons in Dialog
- menubut
- Move Controls in Dialog
- MultilineButtonText
- Multiple Dependent Listboxes
- Only Use Mouse to Exit Dialog
- Panel Placement Manager.
- PushButton Causes Dialog to Minimize
- Resize Dialog and Move Controls
- Resize Dialog Toolbar with Buttonpush
- Resize Dialog
- Resize the Dialog Based on Length of Text and Font
- Scrollable Dialog using MSHTML
- Scrolling Listbox In Dialog
- Spiffy Progress Meter
- Trade Mark Symbol in Dialog
- Transparent Images in Dialogs
- Transparent Progress Dialog
- UDF - ItemBox ToolTips
- Using Standard Windows bitmaps in dialogs
- Viewing More than Bitmaps in Dialogs
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Animated GIF in Dialog
Keywords: comcontrol mshtml dynamic dialog gif animated display
How to display an animated GIF in a WinBatch Dialog.
;Winbatch - animated GIF in dialog
;
;Stan Littlefield, September 6, 2006
;////////////////////////////////////////////////////////////////////////////////////
#DefineSubRoutine dlgproc(handle,msg,id,p4,p5)
Switch msg
Case 0
DialogProcOptions(handle,2,@TRUE)
; Get the control's object
oGif = DialogObject(handle, 002,3)
oGif.writeln(cHTM)
Return(-1)
Case 2
Switch id
Case 001
Return(0)
EndSwitch
EndSwitch ; Exam_Message
Return(-1) ; Do default processing
#EndSubRoutine ; End of Dialog Callback ExamProc
cGIF = StrCat(DirScript(),"trex.gif")
If ! FileExist(cGIF) Then Exit
cHTM = StrCat('<html><head>',@CRLF)
cHTM = StrCat(cHTM,'<style type="text/css">',@CRLF)
cHTM = StrCat(cHTM,'<!--',@CRLF)
cHTM = StrCat(cHTM,'body { overflow:hidden; }',@CRLF)
cHTM = StrCat(cHTM,'-->',@CRLF)
cHTM = StrCat(cHTM,'</style>',@CRLF)
cHTM = StrCat(cHTM,'</head><body bgcolor="#FF8000">',@CRLF)
cHTM = StrCat(cHTM,'<img border="0" src="%cGIF%" width="110" height="70" >',@CRLF)
cHTM = StrCat(cHTM,"</body>",@CRLF)
cHTM = StrCat(cHTM,"</html>",@CRLF)
GifFormat=`WWWDLGED,6.1`
GifCaption=`Test GIF`
GifX=002
GifY=061
GifWidth=152
GifHeight=095
GifNumControls=002
GifProcedure=`dlgproc`
GifFont=`Microsoft Sans Serif|6144|70|34`
GifTextColor=`0|0|0`
GifBackground=`DEFAULT,255|128|0`
GifConfig=0
Gif001=`095,033,036,012,PUSHBUTTON,DEFAULT,"OK",1,1,32,DEFAULT,DEFAULT,"255|128|0"`
Gif002=`005,007,080,068,COMCONTROL,DEFAULT,"mshtml:",DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
ButtonPushed=Dialog("Gif")
Exit
Article ID: W16938
File Created: 2007:07:03:14:27:06
Last Updated: 2007:07:03:14:27:06