home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 March / PCWorld_2003-03_cd.bin / Software / Vyzkuste / prakticketipyprowindows / soft3_2003.exe / Pozn.hta < prev    next >
Text File  |  2003-01-18  |  6KB  |  126 lines
  1. <HTML>
  2.  <HEAD>
  3.   <TITLE>Script PC WORLDu: Poznßmky pro Active Desktop
  4.   </TITLE>
  5.   <HTA:APPLICATION
  6.    ID = "ActiveDesktopFrontend"
  7.    APPLICATIONNAME = "ActiveDesktopFrontend"
  8.    BORDER = "normal"
  9.    CAPTION = "yes"
  10.    SHOWINTASKBAR = "yes"
  11.    SINGLEINSTANCE = "yes"
  12.    SYSMENU = "yes"
  13.    WINDOWSTATE = "normal"
  14.    SCROLL = "no"
  15.    SCROLLFLAT = "no"
  16.    VERSION = "1.0"
  17.    INNERBORDER = "no"
  18.    SELECTION = "yes"
  19.    MAXIMIZEBUTTON = "no"
  20.    MINIMIZEBUTTON = "yes"
  21.    NAVIGABLE = "Yes"
  22.    CONTEXTMENU = "no"
  23.    BORDERSTYLE = "normal">
  24.    
  25.    
  26.   <STYLE type="text/css">
  27.   
  28.     body {        font-family:Tahoma,Verdana,Arial,Geneva;
  29.             font-size:12px;
  30.             background-color:Buttonface } 
  31.     
  32.     #TheFrame {    visibility=hidden }        
  33.  
  34.  
  35.   </STYLE>
  36.  </HEAD>
  37.  <SCRIPT LANGUAGE="VBScript">
  38.  
  39. '============================================================================================================    
  40. 'Definice n∞kolika globßlnφch prom∞nn²ch:
  41. '============================================================================================================    
  42.     
  43.     Set oFs = CreateObject("Scripting.FileSystemObject")
  44.     
  45. '============================================================================================================
  46. 'Tato funkce slou₧φ pouze pro nastavenφ velikosti okna editoru
  47. '============================================================================================================
  48.      
  49.     Sub SubInit_Fenster
  50.         window.resizeTo 346, 310
  51.         On Error Resume Next
  52.         EditorArea.value = TheFrame.Notiz.InnerHTML
  53.     End Sub
  54.  
  55. '============================================================================================================
  56. 'UkonΦenφ bez ulo₧enφ:
  57. '============================================================================================================
  58.      
  59.      Sub SubQuit_HTA
  60.          Window.Close     
  61.      End Sub
  62.  
  63.  
  64. '============================================================================================================
  65. 'Malß nßpov∞da, kterß se vyvolß po stisku klßvesy <F1> nebo p°i klepnutφ do menu Nßpov∞da.
  66. '============================================================================================================
  67.      
  68.      Sub SubZeige_Hilfe
  69.         Hilfe = Msgbox("Pomocφ tohoto HTA-Scriptu si m∙₧ete vytvß°et a upravovat poznßmky na pracovnφ ploÜe, a to dφky podpo°e Active Desktop ." & Chr(10) & "StaΦφ do okna napsat text poznßmky a potΘ stisknout tlaΦφtko " & Chr(34) & "Ulo₧it"& Chr(34) &". PotΘ se automaticky vytvo°φ HTML soubor s nßzvem" & Chr(34) & "POZN.HTM" & Chr(34) & " , a to ve stejnΘ slo₧ce jako tento HTA soubor. Z n∞j se pak vytvo°φ objekt v Active Desktop. Obsah poznßmek lze m∞nit a znovu uklßdat spuÜt∞nφm souboru " & Chr(34) & "POZN.HTA" & Chr(34) & ". Pomocφ p°φkazu Aktualizovat z kontextovΘho menu pracovnφ plochy, p°φpadn∞ stiskem klßvesy <F5> text poznßmek zaktualizujete." & Chr(10) & "TlaΦφtko " & Chr(34) & "ZruÜit" & Chr(34) & " ukonΦφ aplikaci bez ulo₧enφ napsan²ch poznßmek.",64,"Skript PC WORLDu: Nßpov∞da k POZN.HTA")
  70.     End Sub
  71.  
  72. '============================================================================================================
  73. 'Ulo₧φ poznßmku do HTML souboru "POZN.HTM" do stejnΘ slo₧ky jako HTA soubor
  74. '============================================================================================================   
  75.  
  76.      Sub SubNotiz_Speichern
  77.         
  78.         StrNotizHTMLTop = "<HTML>" & Chr(10) & " <HEAD>" & Chr(10) & "  <STYLE type=" & Chr(34) & "text/css" & Chr(34) & ">" & Chr(10) & Chr(10) & "body" & Chr(9) & "{" & Chr(10) & "/* Barva pozadφ:" &Chr(9) & Chr(9) & "*/ background-color:#ffff99;" & Chr(10) & "/* Ukazatel myÜi:" & Chr(9) & "*/ cursor: default;" & Chr(10) & "/* Velikost pφsma v bodech:" & Chr(9) & "*/ font-size:10pt }" & Chr(10) & Chr(10) &    "#Notiz" & Chr(9) & "{" & Chr(10) & "/* Pφsmo pro datum:" & Chr(9) & "*/ font-family:Arial;" & Chr(10) &    "/* Velikost pφsma v bodech:" & Chr(9) & "*/ font-size:10pt;" & Chr(10) & "/* ╪ez pφsma:" & Chr(9) & Chr(9) & Chr(9) & "*/ font-weight:normal;" & Chr(10) & "/* Barva pφsma v Hex:" & Chr(9) & Chr(9) & "*/ color:#000000 }" & Chr(10) & Chr(10) & "  </STYLE>" & Chr(10) & " </HEAD>" & Chr(10) & " <BODY>" & Chr(10) & "  </DIV>Poznßmka ze " & Now & ":</DIV>" & Chr(10) & "  <PRE ID=" & Chr(34) & "Notiz" & Chr(34) & ">"
  79.         
  80.         StrNotizHTMLBottom = "  </PRE>" & Chr(10) & " </BODY>" & Chr(10) & "</HTML>"
  81.         StrNotizHTML = StrNotizHTMLTop & EditorArea.Value & StrNotizHTMLBottom
  82.         
  83.         strHTAPfad = StripPath(Right(document.URLUnencoded,Len(document.URLUnencoded)-7))
  84.         Set FsNotizFile = oFs.CreateTextFile(strHTAPfad & "\pozn.htm", TRUE)
  85.          FsNotizFile.Write(StrNotizHTML)
  86.          FsNotizFile.close
  87.      End Sub
  88.  
  89. '============================================================================================================
  90. 'Funkce StripPath zjednoduÜuje Φtenφ cesty k HTA souboru a p°evßdφ cestu do krßtkΘho formßtu srozumitelnΘho program∙m MS-DOS
  91. '============================================================================================================
  92.  
  93.     Function StripPath(FileSpec)
  94.         Set DateiPfad = oFs.GetFile(filespec)
  95.         ZuLangerPfad = DateiPfad.ParentFolder
  96.         Set FolderPfad = oFs.GetFolder(ZuLangerPfad)
  97.         StripPath = FolderPfad.ShortPath 'ShortPath omezuje cestu na 8 znak∙
  98.     End Function
  99.  
  100.  </SCRIPT>
  101.  
  102.  <BODY scroll="no" onload="SubInit_Fenster" onhelp = "SubZeige_Hilfe">
  103.  
  104.  <TEXTAREA name="Editor" id="EditorArea" title="Editor" cols="37" rows="14"></TEXTAREA>
  105.   
  106.   <INPUT type="button"
  107.    onclick="SubNotiz_Speichern"
  108.    title="Ulo₧φ aktußlnφ obsah poznßmky"
  109.    value="Ulo₧it">
  110.   
  111.   <INPUT type="button"
  112.    onclick="SubQuit_HTA"
  113.    title="ZruÜenφ napsanΘ poznßmky bez ulo₧enφ"
  114.    value="ZruÜit">
  115.   
  116.   <INPUT type="button"
  117.    onclick="SubZeige_Hilfe"
  118.    title="Zobrazφ krßtkou nßpov∞du"
  119.    value="Nßpov∞da">
  120.   
  121.   <iframe src="pozn.htm"
  122.   id=TheFrame
  123.   </iframe>
  124.   
  125.  </BODY>
  126. </HTML>