selicon.ssc

来自「PowerBuilder8.0开发分散式应用所帶的例程」· SSC 代码 · 共 29 行

<OBJECT CLASSID="clsid:9319A422-D2CA-11D0-818F-00805F8AF9E8" PSOBJMOD=TRUE></OBJECT><!--SCRIPT PSOBJMOD
    import( site.GetRootDocument().location + "/ObjMod80.ssc" );
    session.active = true;
    InitObjects(session);
-->
<!--SCRIPT // {{ SCRIPT()
/*
 * Select an icon image based on the document type.
 */
function SelectIcon( docType )
{
  if( docType == 'directory' ) {
    document.write( 'folder.gif' );
  } else if( docType == 'directorylink' ) {
    document.write( 'linked.gif' );
  } else if( docType == 'image' ) {
    document.write( 'image.gif' );
  } else if( docType == 'text' ) {
    document.write( 'document.gif' );
  } else if( docType == 'script' ) {
    document.write( 'script.gif' );
  } else {
    document.write( 'document.gif' );
  }
}
// }}
-->