Loading ...
Sorry, an error occurred while loading the content.
 

Compare img height btwn display selct+orig..LIST IMAGES

Expand Messages
  • intervalqwert@yahoo.com
    Hi Alan, thank you very much for this ingeniously solved label problem, I m very happy. Things are now working very well. I made some simplifications to the
    Message 1 of 1 , Jul 2, 2001
      Hi Alan,

      thank you very much for this ingeniously solved label problem, I'm
      very happy. Things are now working very well.

      I made some simplifications to the basic html code, everthing ok in
      NS-5 and IE5, when I tested it, EXCEPT...you guessed it : Netscape 6
      (*#@%!!!) : ALT=" N6 will not show some txt".

      I did not integrate the suggested ^!Info Boxes, because if there are
      too many pictures to deal with, it's becoming a nuissance. Instead
      the
      vital information about the images will show up in the list itself.

      Best regards,

      Hans


      ______[Copy below this line]_______
      H="LIST IMAGES"
      ;=================[begin long line]=================
      ^!Set %PageTitle%=^?{TITLE=New York, ^$GetDate(yyy
      y/mm/dd___hh:nn:ss)$
      EDT}; %SaveTitle%=INDEX^$GetDate(yymmddhhnnss¶ddd','mmmd','yyyy)$;
      %FileName%=^?{FILE NAME=INDEXIMG}; %DOCPATH%=^$GetDocumentPath$;
      %DOCNAME%=^$GetDocName$; %Directory%=^?{(T=D)Directory to
      search=C:\B\z_REFERENCE\gifs_unused\}; %Specs%=^?{File
      Specs=_*.jpg;*.gif;*tga;*tiff|ALL FILES INCL
      TEXT:*.jpg*.gif*tga*tiff*bmp*.txt*.doc^=*.jpg;*.gif;*tga;*tiff;*bmp;*.
      txt;*.doc|*.jpg|*.gif|*tga|*tiff|*bmp|*SEARCHTERM*.*|*SEARCHTERM*.jpg|
      *SEARCHTERM*.gif|*SEARCHTERM*.tga|*SEARCHTERM*.tiff|*SEARCHTERM*.txt|*
      SEARCHTERM*.doc}; %Sorting%=^?{(T=C)File
      sorting==Unsorted|_Name|Type|Date|Size}; %Reverse%=^?{(T=C)Ascending
      [default]==Descending order YES^=Rev|_default_ascending^=};
      %COLNUMBER%=^?{CHOOSE NUMBER OF COLUMNES?=_1^=|2|3
      |4|5|6|7|8|9|10|30};
      %IMGH%=^?{(T=C)DISPLAY IMAGES pixelHEIGHT^%NL%if you choose this,
      leave WIDTH EMPTY [default]=}; %IMGW%=^?{(T=C))DISPLAY IMAGES
      pixelWIDTH^%NL%if you choose this, leave HIGHT EMPTY [default]=};
      %TableBORDER%=^?{Table
      border=_0|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|25|30|40|
      50|60|70|80|90|100|140|180|200|300|400}; %TableCOLOR%=^?{Table
      color=_#FFFFFF|#FFFF00|#AAFF56|#00FF00|#00F550|#FAFDEC|#CCFFB2|#B2FFCF
      |#0000FF|#DBDBF6|#AAAAFF|#7575D0|#000000}; %HR%=^?{(T=C)Separations
      line beetween Images==Separation lines <HR> YES^=<HR>|_I DON'T want
      separations lines NO HR^=}
      ;=================[end long line]===================

      ^!IfCancel Exit

      ^!SetPasteIndent Off
      ;Set variable for sorting parameter
      ^!Set %Sorting%=^%Reverse%^%Sorting%
      ;Close the output file if there is one open in NoteTab
      ^!Close "^%Directory%^%FileName%.htm"
      ;Create a new document with specified name for web page
      ^!Set %KeepNameFormat%=^$GetNameFormat$
      ^!SetNameFormat ^%Directory%^%FileName%.htm
      ^!ToolBar New Document
      ^!SetNameFormat ^%KeepNameFormat%
      ;Turn word wrap off
      ^!SetWordWrap OFF

      ;Insert web page header and title
      ; BE AWARE :
      ; If you make "^P"-changes here, you have also go to
      ; > 'put <TR> into document' (further down)
      ; to change the line jump

      ;=================[begin long line]=================
      ^!InsertHtml <!--
      -----------------------------------------------------------------
      -->^P^P<!--
      -----------------------------------------------------------------
      -->^P^P<HTML>^P<HEAD>^P<TITLE>^%PageTitle%
      ^%Directory%^%FileName%</TITLE>^P<META name="generator"
      content="^$GetProgName$ ^$GetProgVersion$">^P</HEAD>^P<BODY
      BGCOLOR="#ffffff" text="#000000" link="#000064" alink="#000064"
      vlink="#000064">^P<CENTER>^P<FONT FACE="HELVETIA"
      size="2">^%PageTitle%</FONT>^P<BR><BR>^P<FONT FACE="HELVETIA"
      size="2"
      COLOR="#000068"><B>^%Directory%</B></FONT> <FONT FACE="HELVETIA"
      size="4" COLOR="#000000">^%Specs%</FONT><BR><BR><FONT FACE="MS SANS
      SERIF" size="1">[images displayed at <B>H=^%IMGH% / W=^%IMGW%</B> (if
      H+W is empty = ORIGINAL SIZE), in <B>^%COLNUMBER%</B>]
      column(s)</FONT>^P<hr size=1>^P</CENTER>^P<TABLE WIDTH=100%
      BORDER=^%TableBORDER% CELLSPACING=0 CELLPADDING=12>^P^P
      ;=================[end long line]===================

      ;Retrieve first image name that matches specified search criteria

      ^!Set
      %ImageFullName%=^$GetFileFirst(^%Directory%;"^%Specs%";^%Sorting%)$

      ^!Set %nnn%=^%ImageFullName%

      :StartLoop
      ;If the image name is empty (no more matching files), leave the loop
      ^!IfTrue ^$IsEmpty(^%ImageFullName%)$ ExitLoop

      ;Copy image name without path to variable
      ^!Set %ImageName%=^$GetFileName(^%ImageFullName%)$


      ;Copy image width and height information into variables
      ;=================[begin long line]=================
      ^!Set %ImgWidth%=^$GetImgWidth(^%ImageFullName%)$;
      %ImgHeight%=^$GetImgHeight(^%ImageFullName%)$
      ;=================[end long line]===================

      ^!IfFalse ^%IMGH% skip
      ^!If ^%IMGH% > ^%ImgHeight% origsize else sizeh


      ^!IfFalse ^%IMGW% origsize
      ^!If ^%IMGW% > ^%ImgWidth% origsize else sizew

      :sizeh
      ^!Inc %nnn%
      ;=================[begin long line]=================
      ^!InsertHtml <!-- [No.^%nnn%.] ^$GetShort(^%ImageName%)$ [display is
      img height value=^%IMGH%,w=proportional] --><TD ALIGN="left"
      VALIGN="Top" WIDTH="150"><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0
      WIDTH=100% BGCOLOR=^%TableCOLOR%><B><FONT FACE="HELVETIA"
      size="3">^%nnn%.</FONT></B>  <FONT FACE="HELVETIA" SIZE="2"
      color="#000000"><B>^%ImageName%</B></FONT><TD ALIGN="left"
      VALIGN="left" WIDTH="25%" COLSPAN="1"><A href="^%ImageName%"
      onClick="window.open('','^$GetFileSize(^%ImageFullName%)$','scrollbars
      =yes,menubar=no,status=no,width=680,height=500,resizable')"
      target="^$GetFileSize(^%ImageFullName%)$"><img
      src="^$StrLower("^%ImageName%")$" HEIGHT="^%IMGH%" BORDER="0"
      ALT="[No.^%nnn%.] ^%ImageName% click here to display img original
      size [display is img height value=^%IMGH%,w=proportional] "
      VSPACE="10" HSPACE="0"></A><BR><FONT FACE="MS SANS SERIF"
      size="1">[resized : h = ^%IMGH%, width =
      proportional]</FONT></TD></TR><TD ALIGN="left" VALIGN="left"
      WIDTH="25%" COLSPAN="1"><FONT FACE="MS SANS SERIF"
      size="1">[No.^%nnn%.] dir+file_name:</FONT>  <FONT
      FACE="HELVETIA" size="2"
      color="#000068"><B>^%Directory%</B></FONT><BR><FONT FACE="MS SANS
      SERIF" size="1">img size (w x h):</FONT>  <FONT
      FACE="HELVETIA" size="2" color="#000068"><B>^%ImgWidth% x
      ^%ImgHeight%</B></FONT><BR><FONT FACE="MS SANS SERIF" size="1">file
      size:</FONT>  <FONT FACE="HELVETIA" size="2"
      color="#000068"><B>^$GetFileSize(^%ImageFullName%)$</B></FONT></TD></T
      R></TABLE>^%HR%</TD>^P
      ;=================[end long line]===================

      ;Get next matching image name and go back to start of loop
      ^!Set %ImageFullName%=^$GetFileNext$
      ;=================[begin long line]=================
      ;^!Info [L]sizeh^%NL%^%NL%^%ImageFullName%^%NL%^%NL%your selected
      display values are = ^%IMGH% X ^%IMGW%^%NL%^%NL%img height is bigger
      then selected display value^%NL%therefore^%NL%the image will be
      resized to:^%NL% size h= ^%ImgWidth% X w= ^%ImgHeight%
      ^!GoTo StartLoop

      :sizew
      ^!Inc %nnn%
      ;=================[begin long line]=================
      ^!InsertHtml <!-- [No.^%nnn%.] ^$GetShort(^%ImageName%)$ [display is
      img width value=^%IMGW%,h=proportional] --><TD ALIGN="left"
      VALIGN="Top" WIDTH="150"><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0
      WIDTH=100% BGCOLOR=^%TableCOLOR%><B><FONT FACE="HELVETIA"
      size="3">^%nnn%.</FONT></B>  <FONT FACE="HELVETIA" SIZE="2"
      color="#000000"><B>^%ImageName%</B></FONT><TD ALIGN="left"
      VALIGN="left" WIDTH="25%" COLSPAN="1"><A href="^%ImageName%"
      onClick="window.open('','^$GetFileSize(^%ImageFullName%)$','scrollbars
      =yes,menubar=no,status=no,width=680,height=500,resizable')"
      target="^$GetFileSize(^%ImageFullName%)$"><img
      src="^$StrLower("^%ImageName%")$" WIDTH="^%IMGW%" BORDER="0"
      ALT="[No.^%nnn%.] ^%ImageName% click here to display img original
      size   [display is img width value=^%IMGW%,h=proportional]
      "
      VSPACE="10" HSPACE="0"></A><BR><FONT FACE="MS SANS SERIF"
      size="1">[resized : h = proportional, width
      =^%IMGW%]</FONT></TD></TR><TD ALIGN="left" VALIGN="left" WIDTH="25%"
      COLSPAN="1"><FONT FACE="MS SANS SERIF"
      size="1">[No.^%nnn%.] dir+file_name:</FONT>  <FONT
      FACE="HELVETIA" size="2"
      color="#000068"><B>^%Directory%</B></FONT><BR><FONT FACE="MS SANS
      SERIF" size="1">img size (w x h):</FONT>  <FONT
      FACE="HELVETIA" size="2" color="#000068"><B>^%ImgWidth% x
      ^%ImgHeight%</B></FONT><BR><FONT FACE="MS SANS SERIF" size="1">file
      size:</FONT>  <FONT FACE="HELVETIA" size="2"
      color="#000068"><B>^$GetFileSize(^%ImageFullName%)$</B></FONT></TD></T
      R></TABLE>^%HR%</TD>^P
      ;=================[end long line]===================

      ;Get next matching image name and go back to start of loop
      ^!Set %ImageFullName%=^$GetFileNext$
      ;=================[begin long line]=================
      ;^!Info [L]sizew^%NL%^%NL%^%ImageFullName%^%NL%^%NL%your selected
      display values are = ^%IMGH% X ^%IMGW%^%NL%^%NL%img width is bigger
      then selected display value^%NL%therefore^%NL%the image will be
      downsized:^%NL%original size h= ^%ImgWidth% X w= ^%ImgHeight%
      ;=================[end long line]===================
      ^!GoTo StartLoop

      :origsize
      ^!Inc %nnn%
      ;=================[begin long line]=================
      ^!InsertHtml <!-- [No.^%nnn%.] ^$GetShort(^%ImageName%)$ [img actual
      size NOT resized to:H=^%IMGH% x W=^%IMGW%] --><TD ALIGN="left"
      VALIGN="Top" WIDTH="150"><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0
      WIDTH=100% BGCOLOR=^%TableCOLOR%><B><FONT FACE="HELVETIA"
      size="3">^%nnn%.</FONT></B>  <FONT FACE="HELVETIA" SIZE="2"
      color="#000000"><B>^%ImageName%</B></FONT><TD ALIGN="left"
      VALIGN="left" WIDTH="25%" COLSPAN="1"><A href="^%ImageName%"
      onClick="window.open('','^$GetFileSize(^%ImageFullName%)$','scrollbars
      =yes,menubar=no,status=no,width=680,height=500,resizable')"
      target="^$GetFileSize(^%ImageFullName%)$"><img
      src="^$StrLower("^%ImageName%")$" BORDER="0" ALT="[No.^%nnn%.]
      ^%ImageName% click here to display img original size in a new window
      [img actual size] " VSPACE="10" HSPACE="0"></A><BR><FONT FACE="MS
      SANS
      SERIF" size="1">[actual size]</FONT></TD></TR><TD ALIGN="left"
      VALIGN="left" WIDTH="25%" COLSPAN="1"><FONT FACE="MS SANS SERIF"
      size="1">[No.^%nnn%.] dir+file_name:</FONT>  <FONT
      FACE="HELVETIA" size="2"
      color="#000068"><B>^%Directory%</B></FONT><BR><FONT FACE="MS SANS
      SERIF" size="1">img size (w x h):</FONT>  <FONT
      FACE="HELVETIA" size="2" color="#000068"><B>^%ImgWidth% x
      ^%ImgHeight%</B></FONT><BR><FONT FACE="MS SANS SERIF" size="1">file
      size:</FONT>  <FONT FACE="HELVETIA" size="2"
      color="#000068"><B>^$GetFileSize(^%ImageFullName%)$</B></FONT></TD></T
      R></TABLE>^%HR%</TD>^P
      ;=================[end long line]===================

      ;Get next matching image name and go back to start of loop
      ^!Set %ImageFullName%=^$GetFileNext$
      ;=================[begin long line]=================
      ;^!Info [L]origsize^%NL%^%NL%^%ImageFullName%^%NL%^%NL%your selected
      display values are = ^%IMGH% X ^%IMGW%^%NL%^%NL%img height or width
      is
      smaller then selected display value^%NL%therefore^%NL%the image will
      be displayed in its :^%NL%original size h= ^%ImgWidth% X w=
      ^%ImgHeight%
      ;=================[end long line]===================
      ^!GoTo StartLoop

      :ExitLoop
      ;Close the file-find variable to restore system resources
      ^!CloseFileFind
      ;Insert line break after last image tag
      ^!InsertText ^P
      ;Insert web page closing tags
      ;=================[begin long line]=================
      ^!InsertHtml </table>^P^P<FONT FACE="MS SANS SERIF" size="1">document
      name= <FONT FACE="FIXEDSYS"
      COLOR="#FF0000">^%Directory%^%SaveTitle%_[dply=^%IMGH%^%IMGW%_cols=^%C
      OLNUMBER%].htm</FONT> created on <B>^$GetDate(dddd, mmmm dd, yyyy</B>
      [hh:nn:ss])$</FONT>^P</BODY>^P</HTML>^P
      ;=================[end long line]===================

      ; put <TR> into document
      ; BE AWARE :
      ; jump to +19 is related to > 'Insert web page header and title'
      ^!Jump +19
      ^!Set %line%=19
      :Loop
      ^!SetCursor ^%line%:1
      :Finish
      ^!Inc %line% +^%COLNUMBER%
      ^!InsertText <TR>
      ^!If ^%line% <= ^$GetLineCount$ Loop
      ^!StatusClose

      ^!Jump Text_Start
      ^!Jump +1
      ;=================[begin long line]=================
      ^!InsertText ^p<!--
      ^%SaveTitle%_[dply=H='^%IMGH%',W='^%IMGW%'_cols=^%COLNUMBER%].htm --
      -->^p
      ;=================[end long line]===================

      ;=================[begin long line]=================
      ^!Save As
      "^%Directory%^%SaveTitle%_[dply=H='^%IMGH%',W='^%IMGW%'_cols=^%COLNUMB
      ER%].htm"
      ;=================[end long line]===================

      ;Place cursor back to top of page
      ^!Jump Text_Start
      ;Offer user the choice to display the newly created web page
      ;in browser or end Clip
      ;=================[begin long line]=================
      ^!Goto ^?{What would you like to do now?==_View page in main
      browser^=Next|View page in second browser^=SecondBrowser|No
      preview^=End}
      ;=================[end long line]===================
      ^!ToolBar View in Browser
      ^!Goto End
      :SecondBrowser
      ^!ToolBar View Other Browser
      _____[Copy above this line]______
      | right click over the clipbook |
      | and choose "Add from Clipboard" |
    Your message has been successfully submitted and would be delivered to recipients shortly.