Older Version
Newer Version
GordonSweet
Jun 2, 2009
=HTML Coder=
The purpose of this is to simply the creation of a web page involving graphic images, a block of text, and a Heading. I find it useful sometimes in converting untidy emails such as those set left of centre, with unnecessary massive TPI print, and inter line spacing. A number of such conversions can often bee seen from contributions I receive each day at <span style="color: black;"><span style="color: #0000cc;">[[http://www.sigord.co.uk/News.htm]]</span> <span style="mso-spacerun: yes;"> </span>A number of sites host the complete package such as at </span>
[[http://download.cnet.com/HTMLcoder/3000-10247_4-10906797.html?tag=mncol]]
As you can see it allows for a variety of options such selecting the Text, heading and background colours along with the size of fonts, and width of the images. The height of the images are adjusted accordingly. Text is COPY and Pasted in, allowing for automatic reformatting to remove all extra line and word spacing. Also any single CHR$ such as the dreaded < can be removed. An extra option allows reformatted text to be saved as a TXT file. The HTML coding is fairly simple with my limitations, but others may be able to include greater improvements for their use.
Gordon
<span style="mso-spacerun: yes;"> </span>nomainwin<span style="mso-spacerun: yes;"> </span>' Beginners HTML Thanks to Alyce for image323.dll
<span style="mso-spacerun: yes;"> </span>dim dir$(10,3) : dim pic$(60,2)
<span style="mso-spacerun: yes;"> </span>head$ = "" : hfile$ = "" : tfile$ = "" : this$ = DefaultDir$
<span style="mso-spacerun: yes;"> </span>tcol$ = "000000" : bcol$ = "FFFFFF"
<span style="mso-spacerun: yes;"> </span>txtsize$ = "3" : headsize$ = "5" : imagewidth$ = "500"
<span style="mso-spacerun: yes;"> </span>open "image323.dll" for dll as #im
[main]
<span style="mso-spacerun: yes;"> </span>WindowWidth = 800 : WindowHeight = 600
<span style="mso-spacerun: yes;"> </span>button #h, "Text Colour", [textcol], UL, 140, 140
<span style="mso-spacerun: yes;"> </span>button #h, "Back Colour", [backcol], UL, 320, 140
<span style="mso-spacerun: yes;"> </span>button #h, "Heading", [heading], UL, 470, 140
<span style="mso-spacerun: yes;"> </span>button #h, "Colour", [headcol], UL, 540, 140
<span style="mso-spacerun: yes;"> </span>button #h, "Text Window", [text], UL, 175, 180
<span style="mso-spacerun: yes;"> </span>button #h, "Insert JPGs", [jpg], UL, 296, 180
<span style="mso-spacerun: yes;"> </span>button #h, "Save web page", [page], UL, 416, 180
<span style="mso-spacerun: yes;"> </span>button #h, "Save text", [file], UL, 550, 180
<span style="mso-spacerun: yes;"> </span>button #h, "<span style="mso-spacerun: yes;"> </span>Text Size ", [textsize], UL, 180, 220
<span style="mso-spacerun: yes;"> </span>button #h, "Heading Size ", [headsize], UL, 350, 220
<span style="mso-spacerun: yes;"> </span>button #h, "Images Width", [imgwidth], UL, 520, 220
<span style="mso-spacerun: yes;"> </span>button #h, "Display HTML", [show], UL, 180, 280
<span style="mso-spacerun: yes;"> </span>button #h, "Test web page", [test], UL, 300, 280
<span style="mso-spacerun: yes;"> </span>button #h, "Display .txt", [tfile], UL, 430, 280
<span style="mso-spacerun: yes;"> </span><span style="mso-ansi-language: FR;">button #h, "* QUIT *", [quit], UL, 550, 280 </span>
<span style="mso-ansi-language: FR; msoansilanguage: FR; msospacerun: yes;"> </span>open "Simple Web Pages" for graphics_nsb as #h
<span style="mso-spacerun: yes;"> </span>#h "trapclose [quit]; font arial 18 bold; place 280 40; down"
<span style="mso-spacerun: yes;"> </span>#h "\Simple Web Pages"
<span style="mso-spacerun: yes;"> </span>#h "font arial 8 bold; color black; place 250 56"
<span style="mso-spacerun: yes;"> </span>#h "\Produced with Liberty Basic - ver 2.1- Gordon Sweet"
<span style="mso-spacerun: yes;"> </span>#h "font arial 10 bold; place 180 80; color darkgreen"
<span style="mso-spacerun: yes;"> </span>#h "\You can import any text by using COPY then Text Window Options to"
<span style="mso-spacerun: yes;"> </span>#h "\PASTE, up to 50 JPGs must be placed in an adjoining folder to this"
<span style="mso-spacerun: yes;"> </span>#h "\program. The HTML file that is saved and the folder must be uploaded."
<span style="mso-spacerun: yes;"> </span>#h "\Note the display of samples such as the colours etc is only temporary."
<span style="mso-spacerun: yes;"> </span>#h "font fixedsys 9; color black; place 250 160 " : #h "\Sample"
<span style="mso-spacerun: yes;"> </span><span style="mso-ansi-language: PT-BR;">#h "place 610 160" : #h "\Sample" </span>
<span style="mso-ansi-language: PT-BR;"><span style="mso-spacerun: yes;"> </span>#h "color darkblue" </span>
<span style="mso-ansi-language: PT-BR;"><span style="mso-spacerun: yes;"> </span>#h "place 180 320" : #h "|Web page = ";hfile$ </span>
<span style="mso-ansi-language: PT-BR; msoansilanguage: PT-BR; msospacerun: yes;"> </span>#h "place 180 340" : #h "|Text file = ";tfile$
<span style="mso-spacerun: yes;"> </span>#h "place 180 360" : #h "\HEADING = ";head$
<span style="mso-spacerun: yes;"> </span>#h "place 180 260" : #h "\Current Text size 3, Heading size 5, Images width 500"
<span style="mso-spacerun: yes;"> </span>#h "place 420 164; box 440 140; flush"
<span style="mso-spacerun: yes;"> </span>'get DC of graphicbox
<span style="mso-spacerun: yes;"> </span>gDC=GetDC(hwnd(#h))
<span style="mso-spacerun: yes;"> </span>'create memory DC
<span style="mso-spacerun: yes;"> </span>mDC=CreateCompatibleDC(gDC)
<span style="mso-spacerun: yes;"> </span>hW=hwnd(#h)<span style="mso-spacerun: yes;"> </span>'graphicbox handle
<span style="mso-spacerun: yes;"> </span>wait
[textcol]
<span style="mso-spacerun: yes;"> </span>gosub [colours] : tcol$ = html$
<span style="mso-spacerun: yes;"> </span>#h "place 250 160; color " + col$ : #h "\Sample"
<span style="mso-spacerun: yes;"> </span>#h "color black"
<span style="mso-spacerun: yes;"> </span>wait
[backcol]
<span style="mso-spacerun: yes;"> </span>gosub [colours] : bcol$ = html$
<span style="mso-spacerun: yes;"> </span>#h "backcolor ";col$ : #h "place 420 164; boxfilled 440 140"
<span style="mso-spacerun: yes;"> </span>#h "backcolor white"
<span style="mso-spacerun: yes;"> </span>wait
[colours]
<span style="mso-spacerun: yes;"> </span>colordialog "red", col$
<span style="mso-spacerun: yes;"> </span>if val(col$) = 0 then col$ ="0 0 0" : notice "black selected"
<span style="mso-spacerun: yes;"> </span>r$ = word$(col$,1) : g$ = word$(col$,2) : b$ = word$(col$,3)
<span style="mso-spacerun: yes;"> </span>html$ = RIGHT$("0"+dechex$(val(r$)),2)
<span style="mso-spacerun: yes;"> </span>html$ = html$ + RIGHT$("0"+dechex$(val(g$)),2)
<span style="mso-spacerun: yes;"> </span>html$ = html$ + RIGHT$("0"+dechex$(val(b$)),2)
<span style="mso-spacerun: yes;"> </span>return
[heading]
<span style="mso-spacerun: yes;"> </span>prompt "Enter a heading";head$ : if head$ = "" then wait
<span style="mso-spacerun: yes;"> </span>#h "place 180 360" : #h "\HEADING = ";head$ : wait
[headcol]
<span style="mso-spacerun: yes;"> </span>gosub [colours] : hcol$ = html$
<span style="mso-spacerun: yes;"> </span>#h "place 610 160; color " + col$ : #h "\Sample"
<span style="mso-spacerun: yes;"> </span>#h "color black"
<span style="mso-spacerun: yes;"> </span>wait
[page]
<span style="mso-spacerun: yes;"> </span>DefaultDir$ = this$
<span style="mso-spacerun: yes;"> </span>prompt "Enter filename.htm";hfile$
<span style="mso-spacerun: yes;"> </span>if hfile$ = "" then wait
<span style="mso-spacerun: yes;"> </span>open hfile$ for output as #2
<span style="mso-spacerun: yes;"> </span>#2 "<html><head><title>Text & Images</title></head>"
<span style="mso-spacerun: yes;"> </span>t$ ="<body><body bgcolor="+bcol$+">"
<span style="mso-spacerun: yes;"> </span><span style="mso-ansi-language: FR;">#2 t$ </span>
<span style="mso-ansi-language: FR;"><span style="mso-spacerun: yes;"> </span>t$ = "<font face=arial><font size="+headsize$+"><font color="+hcol$+">" </span>
<span style="mso-ansi-language: FR;"><span style="mso-spacerun: yes;"> </span>#2 t$ </span>
<span style="mso-ansi-language: FR;"><span style="mso-spacerun: yes;"> </span>t$ = "<br><b><center>"+head$+"</center></b><font>" </span>
<span style="mso-ansi-language: FR;"><span style="mso-spacerun: yes;"> </span>#2 t$ </span>
<span style="mso-ansi-language: FR;"><span style="mso-spacerun: yes;"> </span>#2 "</center></b><font><br>" </span>
<span style="mso-ansi-language: FR;"><span style="mso-spacerun: yes;"> </span>t$ = "<font face=arial><font size="+textsize$+"><font color="+tcol$+">" </span>
<span style="mso-ansi-language: FR; msoansilanguage: FR; msospacerun: yes;"> </span><span style="mso-ansi-language: DE;">#2 t$ </span>
<span style="mso-ansi-language: DE;"><span style="mso-spacerun: yes;"> </span>#2 "<BLOCKQUOTE><b>" </span>
<span style="mso-ansi-language: DE;"><span style="mso-spacerun: yes;"> </span>#2 new$ </span>
<span style="mso-ansi-language: DE;"><span style="mso-spacerun: yes;"> </span>#2 "</b></BLOCKQUOTE>" </span>
<span style="mso-ansi-language: DE;"><span style="mso-spacerun: yes;"> </span>#2 t$ </span>
<span style="mso-ansi-language: DE; msoansilanguage: DE; msospacerun: yes;"> </span>for N = 1 to qtyFiles
<span style="mso-spacerun: yes;"> </span>t$="<center><img src="+pic$(N,1)
<span style="mso-spacerun: yes;"> </span>t$ = t$ +" width="+imagewidth$+" height="+pic$(N,2)+"></center><p>"
<span style="mso-spacerun: yes;"> </span>if qtyFiles > 0 then #2 t$
<span style="mso-spacerun: yes;"> </span>next N
<span style="mso-spacerun: yes;"> </span>#2 "</body><html>"
<span style="mso-spacerun: yes;"> </span>close #2
<span style="mso-spacerun: yes;"> </span><span style="mso-ansi-language: PT-BR;">#h "place 180 320" : #h "|Web page = ";hfile$; </span>
<span style="mso-ansi-language: PT-BR; msoansilanguage: PT-BR; msospacerun: yes;"> </span>#h "place 180 340" : #h "|Text file = ";tfile$
<span style="mso-spacerun: yes;"> </span>wait
[file]
<span style="mso-spacerun: yes;"> </span>DefaultDir$ = this$
<span style="mso-spacerun: yes;"> </span>prompt "Enter filename.txt";tfile$
<span style="mso-spacerun: yes;"> </span>if tfile$ = "" then wait
<span style="mso-spacerun: yes;"> </span>open tfile$ for output as #2
<span style="mso-spacerun: yes;"> </span>#2 new$
<span style="mso-spacerun: yes;"> </span>close #2
<span style="mso-spacerun: yes;"> </span>#h "place 180 320" : #h "|Web page = ";hfile$;
<span style="mso-spacerun: yes;"> </span>#h "place 180 340" : #h "|Text file = ";tfile$
<span style="mso-spacerun: yes;"> </span>wait
[textsize]
<span style="mso-spacerun: yes;"> </span>prompt "Enter text size 1/7";textsize$ : q = val(textsize$)
<span style="mso-spacerun: yes;"> </span>if q < 1 or q > 7 then notice "INVALID ENTRY !" :<span style="mso-spacerun: yes;"> </span>textsize$ = "3"
<span style="mso-spacerun: yes;"> </span>#h "place 180 260"
<span style="mso-spacerun: yes;"> </span>#h "\Current Text size ";textsize$;" Heading size ";headsize$;" Images width ";imgwidth$;"<span style="mso-spacerun: yes;"> </span>"
<span style="mso-spacerun: yes;"> </span>wait
[headsize]
<span style="mso-spacerun: yes;"> </span>prompt "Enter heading size 1/7";headsize$ : q = val(headsize$)
<span style="mso-spacerun: yes;"> </span>if q < 1 or q > 7 then notice "INVALID ENTRY !" : headsize$ = "5"
<span style="mso-spacerun: yes;"> </span>#h "place 180 260"
<span style="mso-spacerun: yes;"> </span>#h "\Current Text size ";textsize$;" Heading size ";headsize$;" Images width ";imgwidth$;"<span style="mso-spacerun: yes;"> </span>"
<span style="mso-spacerun: yes;"> </span>wait
[imgwidth]
<span style="mso-spacerun: yes;"> </span>prompt "Enter images width over 99";imagewidth$ : q = val(imagewidth$)
<span style="mso-spacerun: yes;"> </span>if q < 100 then notice "INVALID ENTRY !" : imagewidth$ = "500"
<span style="mso-spacerun: yes;"> </span>#h "place 180 260"
<span style="mso-spacerun: yes;"> </span>#h "\Current Text size ";textsize$;" Heading size ";headsize$;" Images width ";imagewidth$;"<span style="mso-spacerun: yes;"> </span>"
<span style="mso-spacerun: yes;"> </span>wait
[show]
<span style="mso-spacerun: yes;"> </span>if hfile$ = "" then notice "NO FILE !" : wait
<span style="mso-spacerun: yes;"> </span><span style="mso-ansi-language: NL;">op$ = "notepad.exe "+hfile$ : run op$ </span>
<span style="mso-ansi-language: NL; msoansilanguage: NL; msospacerun: yes;"> </span>wait
[test]
<span style="mso-spacerun: yes;"> </span>if hfile$ = "" then notice "NO Web Page" : wait
<span style="mso-spacerun: yes;"> </span>CALL ShellExecute hWnd, hfile$
<span style="mso-spacerun: yes;"> </span>wait
[tfile]
<span style="mso-spacerun: yes;"> </span>if tfile$ = "" then notice "NO FILE !" : wait
<span style="mso-spacerun: yes;"> </span><span style="mso-ansi-language: NL;">op$ = "notepad.exe "+tfile$ : run op$ </span>
<span style="mso-ansi-language: NL; msoansilanguage: NL; msospacerun: yes;"> </span>wait
[text]
<span style="mso-spacerun: yes;"> </span>close #h
<span style="mso-spacerun: yes;"> </span>menu #t, "OPTIONS","Paste",[insert],"Clear",[clear],"Remove Blank Lines",[lines],_
<span style="mso-spacerun: yes;"> </span>"Erase Character",[del],"Reformat Text",[format],|,"MAIN MENU", [quitclip]
<span style="mso-spacerun: yes;"> </span>open "Text" for text as #t
<span style="mso-spacerun: yes;"> </span><span style="mso-ansi-language: FR;">#t "!trapclose [quitclip]" :<span style="mso-spacerun: yes;"> </span>#t "!font fixedsys 9" </span>
<span style="mso-ansi-language: FR;"><span style="mso-spacerun: yes;"> </span>wait </span>
<span style="mso-ansi-language: FR;"> </span>
<span style="mso-ansi-language: FR;">[insert] </span>
<span style="mso-ansi-language: FR;"><span style="mso-spacerun: yes;"> </span>#t "!cls" : #t "!paste" : #t "!contents? new$"; </span>
<span style="mso-ansi-language: FR;"><span style="mso-spacerun: yes;"> </span>#t "!contents? text$"; : #t "!cls" </span>
<span style="mso-ansi-language: FR; msoansilanguage: FR; msospacerun: yes;"> </span>if len(text$) < 50 then notice "Text too short to reformat" : wait
<span style="mso-spacerun: yes;"> </span>temp$ = "" : p = 1 : lp = 1: l = len(text$)
<span style="mso-spacerun: yes;"> </span>while p < l+1
<span style="mso-spacerun: yes;"> </span>k$ = mid$(text$,p,1)
<span style="mso-spacerun: yes;"> </span>k
=asc(k$) : p=
p + 1
<span style="mso-spacerun: yes;"> </span>new$ = new$ + chr$(k)
<span style="mso-spacerun: yes;"> </span><span style="mso-ansi-language: NL;">temp$ = temp$ + chr$(k) : lp = lp + 1 </span>
<span style="mso-ansi-language: NL; msoansilanguage: NL; msospacerun: yes;"> </span>if lp > 88 and k = 32 or lp > 124 then
<span style="mso-spacerun: yes;"> </span>#t temp$ : temp$ = "" : lp = 0
<span style="mso-spacerun: yes;"> </span>end if
<span style="mso-spacerun: yes;"> </span>wend
<span style="mso-spacerun: yes;"> </span>#t "!contents? new$"; : #t "!origin 1 1"
<span style="mso-spacerun: yes;"> </span>wait
<span style="mso-spacerun: yes;"> </span>wait
[clear]
<span style="mso-spacerun: yes;"> </span>#t "!cls" : text$ = "" : #t "!copy" ;
<span style="mso-spacerun: yes;"> </span>wait
[lines]
<span style="mso-spacerun: yes;"> </span>text$ = new$
<span style="mso-spacerun: yes;"> </span>if len(text$) < 5 then notice "NO REAL TEXT !!" : wait
<span style="mso-spacerun: yes;"> </span>new$ = "" : p = 1 : l = len(text$) : k1 = 0 : ls = 0
<span style="mso-spacerun: yes;"> </span>while p < l+1
<span style="mso-spacerun: yes;"> </span>ok = 0
<span style="mso-spacerun: yes;"> </span>k$ = mid$(text$,p,1) : k = asc(k$)
<span style="mso-spacerun: yes;"> </span>if k = 13 and k1 <> 999 then ls = 0
<span style="mso-spacerun: yes;"> </span>if k = 9 or k > 31 and k < 127 then ok = 1
<span style="mso-spacerun: yes;"> </span>if k = 13 and ls = 0 then
<span style="mso-spacerun: yes;"> </span>new$ = new$ + chr$(13)+chr$(10)
<span style="mso-spacerun: yes;"> </span>ls = 1 : k1 = 999 : p = p + 1
<span style="mso-spacerun: yes;"> </span>end if
<span style="mso-spacerun: yes;"> </span>if ok = 1 then new$ = new$ + chr$(k) : k1 = k
<span style="mso-spacerun: yes;"> </span>p = p + 1
<span style="mso-spacerun: yes;"> </span>wend
<span style="mso-spacerun: yes;"> </span>text$ = new$ : #t "!cls" : #t text$
<span style="mso-spacerun: yes;"> </span><span style="mso-ansi-language: FR;">#t "!contents? new$"; : #t "!origin 1 1" </span>
<span style="mso-ansi-language: FR; msoansilanguage: FR; msospacerun: yes;"> </span>wait
[del]
<span style="mso-spacerun: yes;"> </span>if new$ = "" then notice "NO TEXT !!" : wait
<span style="mso-spacerun: yes;"> </span>d$ = "" : prompt "Enter one character to delete"; d$
<span style="mso-spacerun: yes;"> </span>if len(d$) <> 1 then notice "ONE CHARACTER ONLY !!" : wait
<span style="mso-spacerun: yes;"> </span><span style="mso-ansi-language: FR;">#t "!contents? text$"; : #t "!cls" </span>
<span style="mso-ansi-language: FR; msoansilanguage: FR; msospacerun: yes;"> </span>if len(text$) < 50 then notice "Text too short to reformat" : wait
<span style="mso-spacerun: yes;"> </span>x
=asc(d$) : new$=
"" : p = 1 : l = len(text$)
<span style="mso-spacerun: yes;"> </span>while p < l+1
<span style="mso-spacerun: yes;"> </span>ok = 0
<span style="mso-spacerun: yes;"> </span>k$ = mid$(text$,p,1) : k = asc(k$)
<span style="mso-spacerun: yes;"> </span>if k = 9 or k > 31 and k < 127 then ok = 1
<span style="mso-spacerun: yes;"> </span>if k = 13 then
<span style="mso-spacerun: yes;"> </span>new$ = new$ + chr$(13)+chr$(10)
<span style="mso-spacerun: yes;"> </span>p = p + 1
<span style="mso-spacerun: yes;"> </span>end if
<span style="mso-spacerun: yes;"> </span>if ok = 1 and k <> x then new$ = new$ + chr$(k)
<span style="mso-spacerun: yes;"> </span>p = p + 1
<span style="mso-spacerun: yes;"> </span>wend
<span style="mso-spacerun: yes;"> </span>text$ = new$ : #t "!cls" : #t text$
<span style="mso-spacerun: yes;"> </span><span style="mso-ansi-language: FR;">#t "!contents? new$"; : #t "!origin 1 1" </span>
<span style="mso-ansi-language: FR;"><span style="mso-spacerun: yes;"> </span>wait </span>
<span style="mso-ansi-language: FR;"> </span>
<span style="mso-ansi-language: FR;">[format] </span>
<span style="mso-ansi-language: FR;"><span style="mso-spacerun: yes;"> </span>#t "!contents? text$"; : #t "!cls" </span>
<span style="mso-ansi-language: FR; msoansilanguage: FR; msospacerun: yes;"> </span>if len(text$) < 50 then notice "Text too short to reformat" : wait
<span style="mso-spacerun: yes;"> </span>temp$ = "" : p = 1 : lp = 1
<span style="mso-spacerun: yes;"> </span>l
=len(text$) : k1=
0
<span style="mso-spacerun: yes;"> </span>while p < l+1 : ok = 0
<span style="mso-spacerun: yes;"> </span>k$ = mid$(text$,p,1)
<span style="mso-spacerun: yes;"> </span>k
=asc(k$) : p=
p + 1
<span style="mso-spacerun: yes;"> </span>if k = 9 or k > 31 and k < 127 then ok = 1
<span style="mso-spacerun: yes;"> </span>if k = 13 then k = 32 : ok = 1
<span style="mso-spacerun: yes;"> </span>if k = 32 and k1 = 32 then ok = 0
<span style="mso-spacerun: yes;"> </span>if ok = 1 then
<span style="mso-spacerun: yes;"> </span>new$ = new$ + chr$(k) : k1 = k
<span style="mso-spacerun: yes;"> </span><span style="mso-ansi-language: NL;">temp$ = temp$ + chr$(k) : lp = lp + 1 </span>
<span style="mso-ansi-language: NL; msoansilanguage: NL; msospacerun: yes;"> </span>end if
<span style="mso-spacerun: yes;"> </span>if lp > 88 and k = 32 or lp > 124 then
<span style="mso-spacerun: yes;"> </span>#t temp$ : temp$ = "" : lp = 0
<span style="mso-spacerun: yes;"> </span>end if
<span style="mso-spacerun: yes;"> </span>wend
<span style="mso-spacerun: yes;"> </span>#t "!contents? new$"; : #t "!origin 1 1"
<span style="mso-spacerun: yes;"> </span>wait
[jpg]
<span style="mso-spacerun: yes;"> </span>DefaultDir$ = left$(DefaultDir$,2)+"\HTMLcode"
<span style="mso-spacerun: yes;"> </span>filedialog "Select any JPG file","*.jpg", File$
<span style="mso-spacerun: yes;"> </span>if File$ = "" then wait
<span style="mso-spacerun: yes;"> </span>sFile$ = noPath$(File$) :<span style="mso-spacerun: yes;"> </span>plen = len(File$)-len(sFile$)
<span style="mso-spacerun: yes;"> </span>path$ = left$(File$,plen) : ext$ = "*.jpg"
<span style="mso-spacerun: yes;"> </span>files path$, ext$, dir$()
<span style="mso-spacerun: yes;"> </span>qtyFiles = val(dir$(0, 0))
<span style="mso-spacerun: yes;"> </span>if qtyFiles > 50 then notice "LIMITED to maximum of 50)" : qtyFiles = 50
<span style="mso-spacerun: yes;"> </span>'reformat the file information
<span style="mso-spacerun: yes;"> </span>for x = 1 to qtyFiles
<span style="mso-spacerun: yes;"> </span>dir$(x, 1) = right$("<span style="mso-spacerun: yes;"> </span>" + dir$(x, 1), 9)
<span style="mso-spacerun: yes;"> </span>pic$(x,1) =<span style="mso-spacerun: yes;"> </span>dir$(x, 0)
<span style="mso-spacerun: yes;"> </span>next x
<span style="mso-spacerun: yes;"> </span>FL = len(path$)-1
<span style="mso-spacerun: yes;"> </span>for TEST = FL to 1 step -1
<span style="mso-spacerun: yes;"> </span>if mid$(path$,TEST,1)="\" then
<span style="mso-spacerun: yes;"> </span>PL = FL-TEST : exit for
<span style="mso-spacerun: yes;"> </span>end if
<span style="mso-spacerun: yes;"> </span>next TEST
<span style="mso-spacerun: yes;"> </span>dpath$ = right$(path$,PL+1)
<span style="mso-spacerun: yes;"> </span>#h "place 10 390 " : #h "|";space$(20);qtyFiles;"<span style="mso-spacerun: yes;"> </span>JPGs FILES IN<span style="mso-spacerun: yes;"> </span>";dpath$
<span style="mso-spacerun: yes;"> </span>for j = 1 to qtyFiles
<span style="mso-spacerun: yes;"> </span>jpg$ = jpg$ + " - ";pic$(j,1)
<span style="mso-spacerun: yes;"> </span>if len(jpg$) > 70 then #h "\";jpg$ : jpg$ = ""
<span style="mso-spacerun: yes;"> </span>pic$(j,1) = dpath$ + pic$(j,1) : bmp$ = pic$(j,1)
<span style="mso-spacerun: yes;"> </span>gosub [picsize] : f = val(imagewidth$)
<span style="mso-spacerun: yes;"> </span>height = int(f/bw * bh)
<span style="mso-spacerun: yes;"> </span>pic$(j,2) = str$(height)
<span style="mso-spacerun: yes;"> </span>next : #h "\";jpg$
<span style="mso-spacerun: yes;"> </span>wait
[picsize]
<span style="mso-spacerun: yes;"> </span>hImage=LoadImageFile(hW,bmp$)
<span style="mso-spacerun: yes;"> </span>if hImage=0 then
<span style="mso-spacerun: yes;"> </span>notice "Function failed."
<span style="mso-spacerun: yes;"> </span>cursor normal
<span style="mso-spacerun: yes;"> </span>wait
<span style="mso-spacerun: yes;"> </span>end if
<span style="mso-spacerun: yes;"> </span>if hDemo<>0 then unloadbmp "demo"
<span style="mso-spacerun: yes;"> </span>loadbmp "demo",hImage : hDemo=hbmp("demo")
<span style="mso-spacerun: yes;"> </span>if bmp$ ="" then notice "NO image" : goto [quit]
<span style="mso-spacerun: yes;"> </span>bw=BitmapWidth(hDemo) : bh=BitmapHeight(hDemo)
<span style="mso-spacerun: yes;"> </span>return
[quitclip] close #t : goto [main]
[quit]
<span style="mso-spacerun: yes;"> </span>if hDemo<>0 then unloadbmp "demo"
<span style="mso-spacerun: yes;"> </span>if hImage<>0 then ok = DeleteObject(hImage)
<span style="mso-spacerun: yes;"> </span>call ReleaseDC hwnd(#h), gDC
<span style="mso-spacerun: yes;"> </span>call DeleteDC mDC
<span style="mso-spacerun: yes;"> </span>close #h : close #im : end
<span style="mso-spacerun: yes;"> </span>Function GetDC(hWnd)
<span style="mso-spacerun: yes;"> </span>CallDLL #user32, "GetDC",_
<span style="mso-spacerun: yes;"> </span>hWnd As Long,_<span style="mso-spacerun: yes;"> </span>'window or control handle
<span style="mso-spacerun: yes;"> </span>GetDC As Long<span style="mso-spacerun: yes;"> </span>'returns device context
<span style="mso-spacerun: yes;"> </span>End Function
Sub ReleaseDC hWnd, hDC
<span style="mso-spacerun: yes;"> </span>CallDLL#user32,"ReleaseDC",_
<span style="mso-spacerun: yes;"> </span>hWnd As Long,_<span style="mso-spacerun: yes;"> </span>'window or control handle
<span style="mso-spacerun: yes;"> </span>hDC As Long,_<span style="mso-spacerun: yes;"> </span>'handle of DC to delete
<span style="mso-spacerun: yes;"> </span>result As Long
<span style="mso-spacerun: yes;"> </span>End Sub
Function CreateCompatibleDC(hDC)
<span style="mso-spacerun: yes;"> </span>CallDLL #gdi32,"CreateCompatibleDC",_
<span style="mso-spacerun: yes;"> </span>hDC As Long,_<span style="mso-spacerun: yes;"> </span>'window DC
<span style="mso-spacerun: yes;"> </span>CreateCompatibleDC As Long<span style="mso-spacerun: yes;"> </span>'memory DC
<span style="mso-spacerun: yes;"> </span>End Function
Sub DeleteDC hDC
<span style="mso-spacerun: yes;"> </span>CallDLL #gdi32, "DeleteDC",_
<span style="mso-spacerun: yes;"> </span>hDC As Long,_<span style="mso-spacerun: yes;"> </span>'memory DC to delete
<span style="mso-spacerun: yes;"> </span>r As Boolean
<span style="mso-spacerun: yes;"> </span>End Sub
Function BitmapWidth(Hbmp)
<span style="mso-spacerun: yes;"> </span>struct BITMAP,_
<span style="mso-spacerun: yes;"> </span>bmType As Long,_
<span style="mso-spacerun: yes;"> </span>bmWidth As Long,_
<span style="mso-spacerun: yes;"> </span>bmHeight As Long,_
<span style="mso-spacerun: yes;"> </span>bmWidthBytes As Long,_
<span style="mso-spacerun: yes;"> </span>bmPlanes As Word,_
<span style="mso-spacerun: yes;"> </span>bmBitsPixel As Word,_
<span style="mso-spacerun: yes;"> </span>bmBits As Long
<span style="mso-spacerun: yes;"> </span>nSize=Len(BITMAP.struct)
<span style="mso-spacerun: yes;"> </span>CallDLL #gdi32, "GetObjectA", Hbmp As Long,_
<span style="mso-spacerun: yes;"> </span>nSize As Long,BITMAP As struct,_
<span style="mso-spacerun: yes;"> </span>results As Long
<span style="mso-spacerun: yes;"> </span>BitmapWidth=BITMAP.bmWidth.struct
<span style="mso-spacerun: yes;"> </span>End Function
Function BitmapHeight(Hbmp)
<span style="mso-spacerun: yes;"> </span>struct BITMAP,_
<span style="mso-spacerun: yes;"> </span>bmType As Long,_
<span style="mso-spacerun: yes;"> </span>bmWidth As Long,_
<span style="mso-spacerun: yes;"> </span>bmHeight As Long,_
<span style="mso-spacerun: yes;"> </span>bmWidthBytes As Long,_
<span style="mso-spacerun: yes;"> </span>bmPlanes As Word,_
<span style="mso-spacerun: yes;"> </span>bmBitsPixel As Word,_
<span style="mso-spacerun: yes;"> </span>bmBits As Long
<span style="mso-spacerun: yes;"> </span>nSize=Len(BITMAP.struct)
<span style="mso-spacerun: yes;"> </span>CallDLL #gdi32, "GetObjectA", Hbmp As Long,_
<span style="mso-spacerun: yes;"> </span>nSize As Long,BITMAP As struct,_
<span style="mso-spacerun: yes;"> </span>results As Long
<span style="mso-spacerun: yes;"> </span>BitmapHeight=BITMAP.bmHeight.struct
<span style="mso-spacerun: yes;"> </span>End Function
Function DeleteObject(hObject)
<span style="mso-spacerun: yes;"> </span>CallDLL #gdi32,"DeleteObject",_
<span style="mso-spacerun: yes;"> </span>hObject As Long,_<span style="mso-spacerun: yes;"> </span>'handle of object
<span style="mso-spacerun: yes;"> </span>DeleteObject As Long 'returns whatever
<span style="mso-spacerun: yes;"> </span>End Function
Function LoadImageFile(hWnd, file$)
<span style="mso-spacerun: yes;"> </span>'load an image from file,
<span style="mso-spacerun: yes;"> </span>'bmp, jpg, emf, wmf, ico
<span style="mso-spacerun: yes;"> </span>'returns handle of memory bmp
<span style="mso-spacerun: yes;"> </span>calldll #im, "LoadImageFile",hWnd as ulong,_
<span style="mso-spacerun: yes;"> </span>file$ as ptr,LoadImageFile as ulong
<span style="mso-spacerun: yes;"> </span>End Function
function noPath$(t$)
<span style="mso-spacerun: yes;"> </span>while instr(t$, "\")
<span style="mso-spacerun: yes;"> </span>t$ = mid$(t$, 2)
<span style="mso-spacerun: yes;"> </span>wend
<span style="mso-spacerun: yes;"> </span>noPath$ = t$
<span style="mso-spacerun: yes;"> </span>end function
Sub ShellExecute hWnd, cf$
<span style="mso-spacerun: yes;"> </span>parameter = _SW_SHOWNORMAL<span style="mso-spacerun: yes;"> </span>' set up for viewing
<span style="mso-spacerun: yes;"> </span>lpszOp$ = "open" + Chr$(0)<span style="mso-spacerun: yes;"> </span>' "open" or "play" or "print"
<span style="mso-spacerun: yes;"> </span>lpszFile$ = cf$ + Chr$(0)
<span style="mso-spacerun: yes;"> </span>lpszDir$ = DefaultDir$ + Chr$(0)
<span style="mso-spacerun: yes;"> </span>lpszParams$="" + Chr$(0)
<span style="mso-spacerun: yes;"> </span>CallDLL #shell32, "ShellExecuteA", hWnd As long,lpszOp$ As ptr,lpszFile$ As ptr,_
<span style="mso-spacerun: yes;"> </span>lpszParams$ As ptr,lpszDir$ As ptr,parameter As long, result As long
<span style="mso-spacerun: yes;"> </span>End Sub