<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'><div dir='ltr'>
Thanks Jeff,<br>I'll try it out, hopefully tomorrow (I'm not at home right now)<br>Clear Skies!<br>Inge<br><br><div><hr id="stopSpelling">From: jey@adobe.com<br>To: apbeta@lists.astroplanner.net<br>Date: Sat, 9 Jul 2011 15:18:06 +0100<br>Subject: Re: [APBeta] Script help<br><br>
<meta http-equiv="Content-Type" content="text/html; charset=unicode">
<meta name="Generator" content="Microsoft SafeHTML"><style>
.ExternalClass .ecxshape
{;}
</style><style>
.ExternalClass p.ecxMsoNormal, .ExternalClass li.ecxMsoNormal, .ExternalClass div.ecxMsoNormal
{margin-bottom:.0001pt;font-size:12.0pt;font-family:'Times New Roman','serif';}
.ExternalClass a:link, .ExternalClass span.ecxMsoHyperlink
{color:blue;text-decoration:underline;}
.ExternalClass a:visited, .ExternalClass span.ecxMsoHyperlinkFollowed
{color:purple;text-decoration:underline;}
.ExternalClass p
{margin-right:0cm;margin-left:0cm;font-size:12.0pt;font-family:'Times New Roman','serif';}
.ExternalClass p.ecxecxmsonormal, .ExternalClass li.ecxecxmsonormal, .ExternalClass div.ecxecxmsonormal
{margin-right:0cm;margin-left:0cm;font-size:12.0pt;font-family:'Times New Roman','serif';}
.ExternalClass span.ecxecxmsohyperlink
{;}
.ExternalClass span.ecxecxmsohyperlinkfollowed
{;}
.ExternalClass span.ecxecxemailstyle17
{;}
.ExternalClass p.ecxecxmsonormal1, .ExternalClass li.ecxecxmsonormal1, .ExternalClass div.ecxecxmsonormal1
{margin-right:0cm;margin-bottom:0cm;margin-left:0cm;margin-bottom:.0001pt;font-size:11.0pt;font-family:'Calibri','sans-serif';}
.ExternalClass span.ecxecxmsohyperlink1
{color:blue;text-decoration:underline;}
.ExternalClass span.ecxecxmsohyperlinkfollowed1
{color:purple;text-decoration:underline;}
.ExternalClass span.ecxecxemailstyle171
{font-family:'Calibri','sans-serif';color:windowtext;}
.ExternalClass span.ecxEmailStyle26
{font-family:'Calibri','sans-serif';color:#1F497D;}
.ExternalClass .ecxMsoChpDefault
{font-size:10.0pt;}
@page WordSection1
{size:612.0pt 792.0pt;}
.ExternalClass div.ecxWordSection1
{page:WordSection1;}
</style><div class="ecxWordSection1"><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:'Calibri','sans-serif';color:#1F497D">Inge,</span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:'Calibri','sans-serif';color:#1F497D"> </span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:'Calibri','sans-serif';color:#1F497D">The sorting doesn’t destroy the usefulness of the script (it just means M2 sorts after M19), so I went ahead and cleaned it up a bit (and added editing of image height and width in case anyone uses those) and published it.</span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:'Calibri','sans-serif';color:#1F497D"> </span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:'Calibri','sans-serif';color:#1F497D">(It’s under Other / Images in the By Category section.)</span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:'Calibri','sans-serif';color:#1F497D"> </span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:'Calibri','sans-serif';color:#1F497D">Let me know if you find any issues.</span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:'Calibri','sans-serif';color:#1F497D"> </span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:'Calibri','sans-serif';color:#1F497D">Cheers,</span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:'Calibri','sans-serif';color:#1F497D">Jeff.</span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:'Calibri','sans-serif';color:#1F497D"> </span></p><p class="ecxMsoNormal"><span style="font-size:11.0pt;font-family:'Calibri','sans-serif';color:#1F497D"> </span></p><div style="border:none;border-left:solid blue 1.5pt;padding:0cm 0cm 0cm 4.0pt"><div><div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm"><p class="ecxMsoNormal"><b><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'" lang="EN-US">From:</span></b><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'" lang="EN-US"> apbeta-bounces@lists.astroplanner.net [mailto:apbeta-bounces@lists.astroplanner.net] <b>On Behalf Of </b>I.R. van de Stadt<br><b>Sent:</b> Saturday, July 09, 2011 1:56 AM<br><b>To:</b> apbeta@lists.astroplanner.net<br><b>Subject:</b> Re: [APBeta] Script help</span></p></div></div><p class="ecxMsoNormal"> </p><div><p class="ecxMsoNormal" style="margin-bottom:12.0pt"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'">I sincerely hope that Paul will help you out.<br>A really useful script-idea and I'm looking forward to that one.<br>Inge</span></p><div><div class="ecxMsoNormal" style="text-align:center" align="center"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"><hr id="ecxstopSpelling" align="center" size="2" width="100%"></span></div><p class="ecxMsoNormal" style="margin-bottom:12.0pt"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'">From: jey@adobe.com<br>To: APBeta@lists.astroplanner.net<br>Date: Sat, 9 Jul 2011 01:12:02 +0100<br>Subject: [APBeta] Script help</span></p><div><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'">Paul,</span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"> </span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'">I’ve written the following script to allow editing of user image descriptions (and some of the flags). The first dialog shows a list of user images. Double-clicking one of them brings up an edit dialog which allows you to edit the description and two of the flags.</span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"> </span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'">The first dialog list is doing a string-sort instead of an ID-sort, though. Is there a way to return ID for the MultiFieldObject’s ColumnType so the list will sort correctly?</span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"> </span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'">Thanks,</span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'">Jeff.</span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"> </span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">function EditImage(img as Image) as boolean</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> dim editor as Dialog, imgCanvas as Canvas</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> editor = new Dialog</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> imgCanvas = Dialog.NewCanvas(500, 500)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> imgCanvas.DrawImage(img, 0, 0, 500)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> </span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> editor.CanvasParameter(imgCanvas)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> editor.StringParameter("Description", img.Description)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> editor.BooleanParameter("Color", img.IsColor)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> editor.BooleanParameter("Black on White", img.IsBlackOnWhite)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> </span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> if editor.show("Edit User Image for " + img.ID) then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> img.Description = editor.StringParameter("Description")</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> img.IsColor = editor.BooleanParameter("Color")</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> img.IsBlackOnWhite = editor.BooleanParameter("Black on White")</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return true</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end if</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> </span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return false</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">end function</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">function toStr(b as boolean) as string</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> if b then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return "true"</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> else</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return "false"</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end if</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">end function</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">class ImageMetaData </span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> implements MultiFieldObject</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> ID as string</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> Desc as string</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> isColor as boolean</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> isBlackOnWhite as boolean</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> index as integer</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> function ColumnName(idx as integer) as string</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> if idx = 1 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return "ID"</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> elseif idx = 2 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return "Description"</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> elseif idx = 3 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return "Color"</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> elseif idx = 4 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return "Black on White"</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> elseif idx = 5 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return "Index"</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end if</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end function</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> function ColumnType(idx as integer) as integer</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> if idx = 1 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return vtype_String</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> elseif idx = 2 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return vtype_String</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> elseif idx = 3 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return vtype_Boolean</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> elseif idx = 4 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return vtype_Boolean</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> elseif idx = 5 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return vtype_Integer</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end if</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end function</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> function ColumnValue(idx as integer) as string</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> if idx = 1 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return ID</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> elseif idx = 2 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return Desc</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> elseif idx = 3 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return toStr(isColor)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> elseif idx = 4 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return toStr(isBlackOnWhite)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> elseif idx = 5 then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return Str(index)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end if</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return "undefined column (" + Str(idx) + ")"</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end function</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> function nColumns() as integer</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return 5</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end function</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">end class</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">function getImageMetaData(img as Image, idx as integer) as ImageMetaData</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> dim metadata as ImageMetaData</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> metadata = new ImageMetaData</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> </span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> metadata.ID = img.ID</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> metadata.Desc = img.Description</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> metadata.isColor = img.IsColor</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> metadata.isBlackOnWhite = img.IsBlackOnWhite</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> metadata.index = idx</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> </span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return metadata</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">end function</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">sub main()</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">try</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> dim imageData(1000) as ImageMetaData</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> </span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> dim i, idx as integer, img as Image</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> i = 0</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> for idx = 1 to Image.Count</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> img = Image.Get(idx)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> if img.IsUser then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> imageData(i) = getImageMetaData(img, idx)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> i = i + 1</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end if</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> next</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> redim imageData(i-1)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> </span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> dim browser as Dialog</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> while true</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> browser = new Dialog</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> browser.ListChoiceParameter("User Images", 0, imageData, true, 50, true)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> browser.ParameterWindowNoCancel()</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> browser.ParameterWindowOKCaption("Done")</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> </span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> if browser.show("User Image Browser") then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> if browser.DoubleClickedList() = "User Images" then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> i = browser.ListChoiceParameter("User Images")</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> idx = imageData(i).index</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> img = Image.Get(idx)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> if EditImage(img) then</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> imageData(i) = getImageMetaData(img, idx)</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end if</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> else</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end if</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> else</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> return</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> end if</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> wend</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">catch</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'"> print "My bad. Image Browser script generated an exception."</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">end try</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Courier New'">end sub</span><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"></span></p></div><p class="ecxMsoNormal"><span style="font-size:10.0pt;font-family:'Tahoma','sans-serif'"><br>_______________________________________________ APBeta mailing list APBeta@lists.astroplanner.net http://lists.astroplanner.net/listinfo.cgi/apbeta-astroplanner.net</span></p></div></div></div></div><br>_______________________________________________
APBeta mailing list
APBeta@lists.astroplanner.net
http://lists.astroplanner.net/listinfo.cgi/apbeta-astroplanner.net</div> </div></body>
</html>