home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / COLORS.AP_ / COLORS.AP
Encoding:
Text File  |  1997-12-08  |  4.0 KB  |  149 lines
  1. <[
  2. // colors.ap    
  3. // Colors Active Page
  4. // (c) 1997 SmartDesk, Inc., All Rights Reserved.
  5.  
  6. #include "/desktop/desksupp.fgl"
  7. #include "/desktop/colors.fgl"
  8.  
  9. FUNCTION UpdateColor( desk, var, retval, flag )
  10.     clr = desk.session.var( var )
  11.     if ( strempty( clr ) )
  12.         return( retval )
  13.     end
  14.     flag = 1
  15.     return( clr )
  16. END
  17.  
  18. TRY
  19.  
  20. desk = new( "PrivateDesktop", param( 1 ), param( 2 ) )
  21. if ( type( desk ) != "O" )
  22.     return( 0 )
  23. end
  24.  
  25. flag = 0
  26. desk.fClrBody = UpdateColor( desk, "fpage", desk.fClrBody, @flag )
  27. desk.bClrBody = UpdateColor( desk, "bpage", desk.bClrBody, @flag )
  28. desk.fClrHdr = UpdateColor( desk, "fhdr", desk.fClrHdr, @flag )
  29. desk.bClrHdr = UpdateColor( desk, "bhdr", desk.bClrHdr, @flag )
  30. desk.ClrLink = UpdateColor( desk, "ulink", desk.ClrLink, @flag )
  31. desk.ClrVLink = UpdateColor( desk, "vlink", desk.ClrVLink, @flag )
  32. if ( flag )
  33.     desk.ClrALink = desk.ClrLink
  34.     desk.update( )
  35. end
  36.  
  37.  
  38. ]>
  39. <HTML>
  40. <HEAD>
  41. <TITLE>Colors</TITLE>
  42. </HEAD>
  43. <BODY BGCOLOR=<[ ! desk.bclrBody + " TEXT=" + desk.fclrBody + " LINK=" + desk.clrLink + " ALINK=" + desk.clrALink + " VLINK=" + desk.clrVLink ]>>
  44.  
  45. <p>
  46. <CENTER>
  47.  
  48. <[ ! desk.templateHeader( ) ]>
  49.  
  50. <TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=1>
  51.  <TR BGCOLOR=<[! desk.bclrHdr ]>>
  52.   <TD VALIGN=bottom NOWRAP><FONT SIZE=+1 COLOR=<[ ! desk.fclrHdr + " FACE=" + desk.fontTitle + "><B> " + desk.fname ]>'s Color Options</B></FONT></TD>
  53.   <TD WIDTH=100% ALIGN=right><FONT SIZE=-1 FACE=geneva,arial COLOR=<[ ! desk.fclrHdr + ">" + cdow( jdate( ) ) + ", " + date( "MMMM dd, YYYY " ) + timetostr( time( ), 0 ) + "m" ]></FONT></TD>
  54.  </TR>
  55. </TABLE>
  56.  
  57. <[ ! desk.templateNavBar( ) ]>
  58.  
  59. </CENTER>
  60. </p>
  61.  
  62. <TABLE WIDTH=98% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  63.  <TR VALIGN=top>
  64.   <TD WIDTH=24%>
  65.  
  66.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  67.     <TR>
  68.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Page</B></FONT></TD>
  69.     </TR>
  70.    </TABLE>
  71.  
  72.     <[
  73.         ! DisplayColors( "Foreground", "", "colors.ap?fpage=" )
  74.         ! DisplayColors( "Background", "", "colors.ap?bpage=" )
  75.     ]>
  76.    
  77.   </TD>
  78.   
  79.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  80.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  81.   </TD>  
  82.   
  83.   <TD WIDTH=24%>
  84.  
  85.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  86.     <TR>
  87.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Header</B></FONT></TD>
  88.     </TR>
  89.    </TABLE>
  90.  
  91.     <[
  92.         ! DisplayColors( "Foreground", "", "colors.ap?fhdr=" )
  93.         ! DisplayColors( "Background", "", "colors.ap?bhdr=" )
  94.     ]>
  95.    
  96.   </TD>
  97.  
  98.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  99.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  100.   </TD>  
  101.   
  102.   <TD WIDTH=24%>
  103.  
  104.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  105.     <TR>
  106.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Unvisted Link</B></FONT></TD>
  107.     </TR>
  108.    </TABLE>
  109.  
  110.     <[
  111.         ! DisplayColors( "Link", "", "colors.ap?ulink=" )
  112.         ! "<br><CENTER><a href=\"public.ap\"><FONT SIZE=3>Goto Public Desktop</FONT></a></CENTER><br>"
  113.     ]>
  114.    
  115.   </TD>
  116.  
  117.   <TD NOWRAP WIDTH=13 ALIGN=middle><IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  118.    <IMG SRC=vspots.gif WIDTH=1 HEIGHT=249 HSPACE=6><BR>
  119.   </TD>  
  120.   
  121.   <TD WIDTH=24%>
  122.  
  123.    <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  124.     <TR>
  125.      <TD BGCOLOR=<[! desk.bclrHdr + "> <FONT SIZE=+0 COLOR=" + desk.fclrHdr + " FACE=" + desk.fontHdr ]>><B>Visited Link</B></FONT></TD>
  126.     </TR>
  127.    </TABLE>
  128.  
  129.     <[
  130.         ! DisplayColors( "Vlink", "", "colors.ap?vlink=" )
  131.         ! "<br><CENTER><a href=\"private.ap\"><FONT SIZE=3>Goto Private Desktop</FONT></a></CENTER><br>"
  132.     ]>
  133.    
  134.   </TD>
  135.  
  136.  </TR>
  137. </TABLE>
  138.  
  139.  
  140. </BODY>
  141. </HTML>
  142.  
  143. <[
  144.     CATCH ( err )
  145.         println( 3000, "Error [" + err.errornum + "] at line #" + err.errorline + " (" + ErrorAsText( err.errornum ) + ")" )
  146.         return( 0 )
  147.     END
  148. ]>
  149.