atl

' ATL Viewer - thanks to Doyle Whisenant for the concept and the basic atl dll code
' - and to Alyce Watson for the technique of remembering the filedialog directory
' - and a little code borrowed from Eddie
' - and all the good stuff in the LB4 Companion and past support
' - and to the LB community (Sean Brown, Dan, ElEdwards, Stefan Pendl, Janet Terra...)
' - and, of course, Carl Gundel.
global hWndViewer, hATL, curstyle, cw, ch, FileOpen, true, false
false = 0
true = not(false)
FileOpen = false
global CurDir$, curFileType$
CurDir$ = DefaultDir$
nomainwin
WindowWidth=DisplayWidth
WindowHeight=DisplayHeight
UpperLeftX=0:UpperLeftY=0
menu #main, "File",_
    "Open",ViewFile,_
    "Type",SelectFileType,_
    "Close" ,CloseViewerFromMenu
listbox #main.type, filetype$(),FileType,0,0,60,130
filetype$(1) = "txt" : style(1) = _WS_CHILD + _WS_VISIBLE +_WS_VSCROLL
filetype$(2) = "rtf" : style(2) = _WS_CHILD + _WS_VISIBLE +_WS_VSCROLL :ed(2)=1
filetype$(3) = "doc" : style(3) = _WS_CHILD + _WS_VISIBLE                   :ed(3)=1
filetype$(4) = "pdf" : style(4) = _WS_CHILD + _WS_VISIBLE                   :ed(4)=1
filetype$(5) = "htm" : style(5) = _WS_CHILD + _WS_VISIBLE +_WS_VSCROLL
filetype$(6) = "jpg" : style(6) = _WS_CHILD + _WS_VISIBLE +_WS_VSCROLL
filetype$(7) = "gif"  : style(7) = _WS_CHILD + _WS_VISIBLE
filetype$(8) = "png"  : style(8) = _WS_CHILD + _WS_VISIBLE
filetype$(9) = "xls"  : style(9) = _WS_CHILD + _WS_VISIBLE                :ed(9) = 1
    curFileType$ = "txt"    : curstyle = style(1)
Open "Liberty Basic ATL Viewer" For Window_nf As #main
#main "TrapClose CloseViewer"
#main.type "hide"
Open "atl" For DLL As #atl
CallDLL #atl, "AtlAxWinInit", Ret As void
    hWndViewer = hWnd(#main)
STRUCT Rect,_ 'struct for storing client area rectangle
        leftX as long,_ 'upper left x
        upperY as long,_ 'upper left y
        rightX as long,_ 'lower right x
        lowerY as long 'lower right y
calldll #user32,"GetClientRect",_
        hWndViewer as ulong,_ 'window handle
        Rect as struct,_ 'name of struct
        r as long 'return
cw = Rect.rightX.struct
ch = Rect.lowerY.struct
' for later calls to CreateWindowExA  which creates a child window
'WindowWidth=cw
'WindowHeight=ch
'UpperLeftX=0:UpperLeftY=0 top left corner of client area of main window
wait
sub SelectFileType
    call CloseMainView
    #main.type "show"
    #main.type "setfocus"
end sub
sub FileType handle$
    #handle$, "selectionindex? styleIndex"
    curFileType$ = filetype$(styleIndex)
    curstyle = style(styleIndex)
    if ed(styleIndex) then
        msg$ = "When editing features are enabled, right click for popup menu."+chr$(13)+_
             "Ctrl S will save changes overwriting the file!  Okay to view in edit mode?"
        confirm msg$; resp$
        if resp$="no" then curstyle = curstyle + _WS_DISABLED
    end if
    #handle$ "hide"
    call ViewFile
end sub
sub ViewFile
    filedialog "Open file", CurDir$+"\*."+curFileType$, fileName$
    if fileName$ = "" then exit sub
    CurDir$ = SeparatePath$(fileName$)
    if FileOpen then call CloseMainView
    on error goto [error]
    CallDLL #user32, "GetWindowLongA", _
        hWndViewer As ulong, _
        _GWL_HINSTANCE As long, _
        hInst As long
    CallDLL #user32, "CreateWindowExA", _
        _WS_EX_STATICEDGE As long, _
        "AtlAxWin" As ptr, _
        fileName$ As ptr, _
        curstyle As long, _
        0 As long, _
        0 As long, _
        cw As long, _
        ch As long, _
        hWndViewer As ulong, _
        100 As long, _
        hInst As long, _
        0 As long, _
        hATL As ulong
    FileOpen = true
    exit sub
[error]
    notice "There is a problem reading this file"
end sub
sub CloseMainView
' destroy the atl child
    CallDLL #user32, "DestroyWindow", _
        hATL As ulong, _
        r as boolean
    FileOpen = false
end sub
sub CloseViewer handle$
    call CloseViewerFromMenu
end sub
sub CloseViewerFromMenu
    Close #atl
    if FileOpen then call CloseMainView
    Close #main
    end
end sub
function SeparatePath$(f$)
    fileindex=Len(f$)
    filelength=Len(f$)
    while Mid$(f$, fileindex,1)<>"\"
        fileindex=fileindex-1
    wend
    SeparatePath$=Left$(f$,fileindex)
end function
' end of code '

You might like to try adding the bmp file type to see what you get!

The following relevant article was referred to me by Alyce Watson.
http://www.pluralsight.com/articlecontent/cpprep0799.htm


Regards,

Grahame King, April 5th 2006