REVO2700 0 HTMLHelper 2 H jX ctRevID
1249619296 on cleanUp
put "Address,Name,LinkHTML,LinkScript,Image,Alt,Width,height,ImageHTML,ImageScript" into tFlds
repeat for each item f in tFlds
put empty into fld f
end repeat
set the menuhistory of btn "Tabs" to 1
show fld "ImageInfo"
hide img "TestImage"
set the filename of img "TestImage" to empty
put empty into img "TestImage"
save this stack
end cleanUp
on preOpenStack
if the environment = "browser" then
set the showborder of cd 1 to true
put "Click here to select an image. Minimize or move browser window to see file dialog..." into fld "ImageInfo"
else
put "Click here to select an image..." into fld "ImageInfo"
end if
end preOpenStack
4 HTML Helper U Type Embellishments One LET U Verdana U Lucida Grande
U Lucida Grande U Verdana W Verdana W Verdana
U Verdana cRevStandaloneSettings DscriptLibraries Internet
Geometry
PrintingMacOSX falseMacOS,documentType UNIX,fileSelector trueWindows falseWeb,WindowsSupported trueWindows,LegalCopyright #2009 All rights reserved worldwideUNIX,pageSetup trueWeb true
answerDialog trueWeb,LinuxSupported trueWindows,FileDescription HTMLHelper 1.0.0.0 for WindowsOSX,longVersion HTMLHelper 1.0.0.0Web,RequestedName Windows,buildU3 falseOSX,copyright #2009 All rights reserved worldwideWeb,CustomBackgroundColor 237,237,237Web,CustomLoadIcon MacOS,versionnumber1 1MacOS,versionnumber2 0MacOS,Release FinalOSX,identifier com..htmlhelpername
HTMLHelperMacOS,versionnumber3 0OSX,shortVersion 1.0.0.0Web,InstanceId Windows,fileversion1 1Windows,fileversion2 0Windows,fileversion3 0cursors falseWindows,fileversion4 0Web,MacOSXSupported trueMacOSX PowerPC-32 falseMacOS,dynamicMemory true
Windows,UUID $21AB52EB-EE29-4CA1-998B-A104C6A2F93DMacOS,PreferredSize 15000MacOS,creator ???? OSX,name
HTMLHelper"automaticallyBuildInDefaultFolder trueMacOS,longVersion HTMLHelper 1.0.0.0OSX,documentType Web,MinEnvironmentVersion inclusions searchWindows,documenticonFile i/Applications/Revolution Enterprise/4.0.0-dp-3/Runtime/Windows/x86-32/Support/Sample Icons/genericdoc.icoOSX,documentExtension Web,Domain 0xFFWeb,AllowOtherPlatforms trueUNIX,printerChooser true Web,DetectSecurityPermissions falseMacOS,MinimumSize 15000Web,SecurityPermissions ,Disk,,,,,,,
MacOS,Region 1Windows,productversion1 1Windows,productversion2 0Windows,productversion3 0Windows,productversion4 0 OSX,info HTMLHelper Version 1.0.0.0Web,ExecutionMode BrowserWeb,CustomBackgroundColor2 237,237,237
askDialog trueOSX,signature ????Windows,iconFile i/Applications/Revolution Enterprise/4.0.0-dp-3/Runtime/Windows/x86-32/Support/Sample Icons/genericapp.icodefaultBuildFolder /Users/sarahtim/DesktopWindows,ProductName
HTMLHelper Web,UUID $AF81C559-E784-4832-885E-2A2B0128FC11UNIX,colorChooser trueMacOSX x86-32 falseWindows,companyname cREVGeometryCache stackID 1070 cREVGeneral scripteditorvscroll 0breakpointconditions revUniqueID
1253424873735scripteditorselection 189 breakpoints breakpointstates stackfileversion 2.7 Pon adjustImageSize pNewPixels, pWhich
-- only one dimension will be supplied: pWhich = "width" or "height"
-- adjust the other to maintain the aspect ratio
put the formattedwidth of img "TestImage" into tFullWidth
put the formattedheight of img "TestImage" into tFullHeight
if tFullWidth = 0 or tFullHeight = 0 then exit adjustImageSize
if pNewPixels = 0 then
put tFullWidth into fld "Width"
put tFullHeight into fld "Height"
else if pWhich = "width" then
put pNewPixels / tFullWidth into tScale
put round(tFullHeight * tScale) into fld "Height"
else if pWhich = "height" then
put pNewPixels / tFullHeight into tScale
put round(tFullWidth * tScale) into fld "Width"
end if
end adjustImageSize
X ctRevID
1249600243 cREVGeneral scripteditorvscroll 0 revUniqueID
1253424066300scripteditorselection 719 cREVGeometryCacheIDs %1249618109819 10561249599302069 10191249599323277 10201249600581863 10491249599674293 10251249600581801 10471249598166991 10061249599369499 10211249621887492 10671249599797640 10281249599797639 10271249598216918 10101249599797641 10291249599797642 10301249599797643 10311249598171875 10081249598229548 10141249599797644 10321249599797645 10331249599797646 10341249620094001 10641249618776516 10611249599797647 10351249599797648 10361249599797650 10381249599797649 10371249598193908 10091249598264712 10171249600581970 10511249599680567 10261249618352933 10581249602083338 10541249600581896 10501249600581830 10481250063480720 10701249598226129 10121249598078989 1004 cREVGeometrycache total 37order
% . " 0 Tabs } on menuPick pNew ,pOld
if there is a grp pOld then
hide grp pOld
end if
if there is a fld (pOld & "Help") then
if the visible of fld (pOld & "Help") then
put true into tHelpShowing
hide fld (pOld & "Help")
else
put false into tHelpShowing
end if
end if
if there is a grp pNew then
show grp pNew
end if
if there is a fld (pNew & "Help") and tHelpShowing = true then
show fld (pNew & "Help")
end if
end menuPick
D ctRevID
1249599378 Contents Links
Images6
Links
Images cREVGeneral revUniqueID
1249598078989 Links i ::< cREVGeneral revUniqueID
1249599369499
AddressLabel
> F cREVGeneral revUniqueID
1249598193908 Address:
Address i` Q > cREVGeneral revUniqueID
1249598216918
NameLabel
h F cREVGeneral revUniqueID
1249598166991 Name: MakeLink e oon mouseUp
put fld "Address" into tAddr
if tAddr is empty then
answer warning "Please enter a web address."
exit to top
end if
-- make sure the address is a full address, including the protocol
if tAddr contains "://" is false then
put "http://" before tAddr
end if
put fld "Name" into tName
if tName is empty then
put tAddr into tName
end if
-- make a direct html link
put "" & tName & "" into tHTML
put tHTML into fld "LinkHTML"
-- make a scripted html link
put tHTML into tScript
replace quote with quote & " & quote & " & quote in tScript
put "put " & quote before tScript
put quote & " into tLink" after tScript
put tScript into fld "LinkScript"
-- test for scripted link
-- do tScript
-- put tLink & cr & tHTML
end mouseUp
R ctRevID
12495985066
Make Link cREVGeneral revUniqueID
1249598264712
HTMLLabel d cREVGeneral revUniqueID
1249599302069 HTML:
Name i` Q h cREVGeneral revUniqueID
1249598171875
LinkHTML )` , 0 cREVGeneral revUniqueID
1249598226129 Copy1 e Kon mouseUp
set the clipboardData["text"] to fld "LinkHTML"
end mouseUp
B ctRevID
1249599581U Copy cREVGeneral revUniqueID
1249599680567
ScriptLabel d cREVGeneral revUniqueID
1249599323277 Script:
LinkScript )` 0, 0 cREVGeneral revUniqueID
1249598229548 Copy2 e Mon mouseUp
set the clipboardData["text"] to fld "LinkScript"
end mouseUp
` B ctRevID
1249599619W Copy cREVGeneral revUniqueID
1249599674293 Images a ::< cREVGeneral revUniqueID
1249599797639
ImageLabel
> F cREVGeneral revUniqueID
1249599797642 Image:
Image pon mouseUp
answer file "Select an image file:" with type "Image files|jpg,jpeg,png,gif" or type "All files"
put it into tFilename
put tFilename into me
put url ("binfile:" & tFileName) into image "TestImage"
if tFilename is not empty and the result is not empty then
if there is a file tFilename then
answer error "There was a problem checking the image:" & cr & the result \
& cr & "Even though the file '" & tFilename & "' does exist."
else
answer error "There was a problem checking the image:" & cr & the result \
& cr & "The file '" & tFilename & "' could not be found."
end if
-- clear the image, so that manually setting the dimensions will work
set the filename of img "TestImage" to empty
else if tFilename is empty then
put empty into image "TestImage"
show fld "ImageInfo"
end if
if tFilename is not empty then
put the formattedwidth of img "TestImage" into fld "Width"
put the formattedheight of img "TestImage" into fld "Height"
else
put empty into fld "Width"
put empty into fld "Height"
end if
end mouseUp
Q > ctRevID
1249599834 cREVGeneral revUniqueID
1249599797643
AltLabel
h F cREVGeneral revUniqueID
1249599797640 Alt:
Alt i` Q h cREVGeneral revUniqueID
1249599797641
WidthLabel
$ 2 cREVGeneral revUniqueID
1249600581801 Width:
Width m` Q < ctRevID
1249600440 5Enter 0 (zero) to revert to the original dimensions. jon rawKeyUp pKey
adjustImageSize me, "width"
pass rawKeyUp
end rawKeyUp
0HTMLHelper cREVGeneral scripteditorvscroll 0 revUniqueID
1249600581830scripteditorselection 0
HeightLabel
2 cREVGeneral revUniqueID
1249600581863 Height:
Height m` < ctRevID
1249600517 5Enter 0 (zero) to revert to the original dimensions. kon rawKeyUp pKey
adjustImageSize me, "height"
pass rawKeyUp
end rawKeyUp
0HTMLHelper cREVGeneral revUniqueID
1249600581896
MakeImage e on mouseUp
put fld "Image" into tImage
if tImage is empty then
answer warning "Please select an image file."
exit to top
end if
-- get the actual file name
set the itemdel to "/"
put last item of tImage into tImage
put fld "Alt" into tAlt
if tAlt is empty then
put tImage into tAlt
end if
-- get the image sizes
put fld "Width" into tW
put fld "Height" into tH
if tW = 0 or tH = 0 or tW is empty or tH is empty then
put the formattedwidth of img "TestImage" into tW
put the formattedheight of img "TestImage" into tH
end if
-- make a direct html link
put "images/" into tFolder
put "
" after tHTML
put tHTML into fld "ImageHTML"
-- make a scripted html link
put tHTML into tScript
replace quote with quote & " & quote & " & quote in tScript
put "put " & quote before tScript
put quote & " into tImageLink" after tScript
put tScript into fld "ImageScript"
-- test for scripted link
-- do tScript
-- put tImageLink & cr & tHTML
end mouseUp
ctRevID
1249598506U Make Image Link cREVGeneral scripteditorvscroll 0 revUniqueID
1249599797646scripteditorselection 1231
HTMLLabel d cREVGeneral revUniqueID
1249599797647 HTML:
ImageHTML )` , 0 cREVGeneral revUniqueID
1249599797644
SizeInfo
D cREVGeneral revUniqueID
1249602083338 \Editing the width & height will not change the image size, but will alter the display size. Copy1 e Lon mouseUp
set the clipboardData["text"] to fld "ImageHTML"
end mouseUp
B ctRevID
1249599581Q Copy cREVGeneral scripteditorvscroll 0 revUniqueID
1249599797650scripteditorselection 57
ScriptLabel d cREVGeneral revUniqueID
1249599797648 Script:
ImageScript )` 0, 0 cREVGeneral revUniqueID
1249599797645
Copy2 e Non mouseUp
set the clipboardData["text"] to fld "ImageScript"
end mouseUp
` B ctRevID
1249599619S Copy cREVGeneral scripteditorvscroll 0 revUniqueID
1249599797649scripteditorselection 57 ( Show E \on mouseUp
set the vis of img "TestImage" to not the vis of img "TestImage"
end mouseUp
R B ctRevID
1249620016w cREVGeneral revUniqueID
1249620094001
TestImage ` l@ cREVGeneral revUniqueID
1249600581970
+
ImageInfo Don mouseUp
hide me
send "mouseUp" to fld "Image"
end mouseUp
R > ctRevID
1249621712
cREVTable currentview Click here to select an image... cREVGeneral revUniqueID
1249621887492 !Click here to select an image... % Help E on mouseUp
put the selectedtext of btn "Tabs" into tWhich
put tWhich & "Help" into tFldName
hide me
show fld tFldName
click at "0,0" -- to remove any text field focus
end mouseUp
{ R ctRevID
1249618788s cREVGeneral revUniqueID
1249618776516 . Clear E Xon mouseUp
cleanUp
click at "0,0" -- to remove any text field focus
end mouseUp
{ R ctRevID
1249618788q cREVGeneral revUniqueID
1250063480720
" ImagesHelp x 6on mouseUp
hide me
show btn "Help"
end mouseUp
&0n ctRevID
1249618884
cREVTable currentview This utility is to help create valid HTML image links for inserting into a web page or Revolution script.
Click the 'Image' field at the top and select an image file (jpg, png or gif).
Enter some text for the 'alt' of the image if you want. If this is blank, the file name will be used as the alt.
When you choose an image file, the size of that image in pixels will be displayed. If you want to show the image at a different size in the web page, edit the height or width. The other dimension will be edited to maintain the aspect ratio.
Click 'Make Image Link' and the html for the image link will be created, as well as the Revolution script to create that link which can be pasted directly into any Revolution or On-Rev script. This assumes the image is in a sub-folder called 'images', so edit the link manually if this is not the case.
Use the 'Copy' buttons to copy either of these into the clipboard. cREVGeneral revUniqueID
1249618352933 jThis utility is to help create valid HTML image links for inserting into a web page or Revolution script. OClick the 'Image' field at the top and select an image file (jpg, png or gif). qEnter some text for the 'alt' of the image if you want. If this is blank, the file name will be used as the alt. When you choose an image file, the size of that image in pixels will be displayed. If you want to show the image at a different size in the web page, edit the height or width. The other dimension will be edited to maintain the aspect ratio. /Click 'Make Image Link' and the html for the image link will be created, as well as the Revolution script to create that link which can be pasted directly into any Revolution or On-Rev script. This assumes the image is in a sub-folder called 'images', so edit the link manually if this is not the case. CUse the 'Copy' buttons to copy either of these into the clipboard.
LinksHelp x 6on mouseUp
hide me
show btn "Help"
end mouseUp
&0n ctRevID
1249618751 cREVGeneral revUniqueID
1249618109819 dThis utility is to help create valid HTML links for inserting into a web page or Revolution script. Enter the web address e.g. http://www.google.com or www.runrev.com (the http:// will be added automatically if you leave it off). mEnter a name for the web site if you want. If this is blank, the address will show up as the clickable link. Click 'Make Link' and the html for the link will be created, as well as the Revolution script to create that link which can be pasted directly into any Revolution or On-Rev script. CUse the 'Copy' buttons to copy either of these into the clipboard. 0 Numeric Ew -- behavior script to limit input in image width & height fields
-- to positive integers only
on keyDown pKey
if pKey is a number then
pass keyDown
end if
end keyDown
Xx R w cREVGeneral revUniqueID
1253425615529