Search Btn

    * * *    
Главная » Статьи » Ucoz
Просмотров: 1855 | Дата: 18.01.2025 | Коментарии (0)

Cпойлер

На той странице, где будет стоять
(у меня Новости сайта >> Страница материала и комментариев к нему)
добавляем перед тегом </head>, JavaScript код:

Code
<script language="JavaScript1.2">  
var ns6=document.getElementById&&!document.all?1:0  
var head="display:''"  
var folder=''  
   
function expandit(curobj){  
folder=ns6?curobj.nextSibling.nextSibling.style:document.all[curobj.sourceIndex+1].style  
if (folder.display=="none")  
folder.display=""  
else  
folder.display="none"}  
</script>


Далее вставляем следующий код туда, где это нам необходимо отображение "спойлера":

Code
<div class="codeMessage"><div style="cursor:hand" onClick="expandit(this)">Показать/скрыть код</div>  
<span style="display:none" style=&{head};><hr class="manHr"><pre class="prettyprint">  
  наш скрытый текст  
</pre></span></div>

В таблице стилей прописываем:

Code
<style>
.codeMessage{
  font-family: Verdana;
  font-size:11px;
  padding: 10px;
  margin:5px 40px !important;
  color: #333;
  line-height: 1.4em;
  background: #F3F3F3;
  max-height:5000px !important;
  width: 800px;
  border:1px dotted #AAAAAA !important;
  white-space:nowrap;
  overflow:auto;
  max-height:none!important;
  }
.manHr{color:#999; border:0px none; border-top:dashed 1px #999; height:1px;}
</style>

Должно получится так:

Показать/скрыть код
Enumeration
 #Window_0 
 #Hyp 
 #But_1 
 #But_2 
 EndEnumeration 
 Procedure ProsWB() 
 EndProcedure 
 ;CatchImage(1, ?Im1, ?Im1End -?Im1 ) 
 OpenWindow (#Window_0, 0, 0, 380, 200, "Заглавие", #PB_Window_MinimizeGadget |#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget) 
 ;SetWindowColor(#Window_0,RGB(255, 255, 255)) 
 HyperLinkGadget(#Hyp, 45, 10, 80, 20, "ссылка",RGB(52, 25, 226)) 
 ButtonGadget(#But_1,10, 30, 110, 25, "кнопка") 
 ;ButtonImageGadget(#But_2,10, 60, 110, 25,ImageID(1)) 
 Repeat 
 Event = WaitWindowEvent() 
 Window = EventWindow() 
 Gadget = EventGadget() 
 Select Event 
 Case #PB_Event_Gadget 
 Select EventGadget() 
 Case 1 
 Case 2 
 Case 3 
 EndSelect 
 EndSelect 
 If Event = #PB_Event_CloseWindow 
 Break ;CloseWindow(Window) ; если много окон 
 EndIf 
 ForEver ;Until Event=#PB_Event_CloseWindow And Window=#Window_0 ; если много окон 
 DataSection 
 Im1: 
 ;IncludeBinary "изображение.png" 
 Im1End: 
 EndDataSection


  Источник http://apocalypse.ucoz.kz/  











www.purebasic.info/

www.purebasic.com

www.purebasic.mybb.ru

www.www.purebasic.fr/english

www.www.purebasic.fr/german









Сайт посвящён языку программирования PureBasic — коммерческий компилятор языка программирования, использующего синтаксис BASIC. Предназначен для создания кроссплатформенных приложений для AmigaOS, Linux, Microsoft Windows, Windows NT и Mac OS X. Разработан компанией Fantaisie Software.