Outlines под Web.

[Sasha*]

В лотусе у меня Outlines с рисунками (рисунки в Background image). При отображении под Web все рисунки смещаются и цвет теста при нажатии также не меняется.

Подскажите, пожалуйста, каким образом лучше делать Outlines под Web?

 

[Sandr]

убрать рисунки под Вебом..

 

[Sasha*]

убрать рисунки под Вебом..

1. Дизайн базы должен сохраниться
2. Если даже без рисунков , а просто указывать, что бы цвет менялся при наведении курсора и нажатии (цвет текста и фона), то под Web эти настройки тоже не работаю.

 

[Sandr]

Напигите CSSку для оутлайна и используйте её для определения стиля...
Например


Напишите агентик, который будет заново перерисовывать оутлайн использую HTML.
Агент вешатете на WebQueryOpen формы анализируйте в нем notesOutline и генерируйте на основе результата чистый HTML...

 

[Sasha*]

Напигите CSSку для оутлайна и используйте её для определения стиля...
Например

В оутлайне отсутствует закладка, на которой можно подключить стиль.

 

[Sandr]

В оутлайне отсутствует закладка, на которой можно подключить стиль.

Я же говорю, генерируйте HTML для оутлайта агентом.. там и подключайте стиль...

 

[Sasha*]

Я же говорю, генерируйте HTML для оутлайта агентом.. там и подключайте стиль...

Расскажите, пожалуйста, подробней как генерировать оутлайн агентом

 

[Sandr]

Это так.. кучок для размышления... не полное решение... там Вы должны разобраться...

Set outline = db.GetOutline(contDoc.GetItemValue("OutlineName")(0))
If outline Is Nothing Then
HTML = "<P>OutLine " & contDoc.GetItemValue("OutlineName")(0) & " не найден</P>"
Else			
Set entry = outline.GetFirst()

Do Until entry Is Nothing

Call processEntry(outline, entry, True, HTML)

Set entry = outline.getnextsibling(entry)
Loop

End If

Function processEntry(AOutline As NotesOutline, AEntry As NotesOutlineEntry, AIsParent As Boolean, AHtml As String) As Boolean


Dim resHtml As String
Dim childEntry As NotesOutlineEntry

If AEntry.Label = "" Then
resHtml = resHtml & "<BR>"
End If

If AIsParent Then
resHtml = resHtml & {<DIV class="OutlineParent" }
Else
resHtml = resHtml & {<DIV class="OutlineChild" }
End If

If AEntry.HasChildren Then
resHtml = resHtml & { onClick="myFunc();" haschildren="1">} & AEntry.Label & "</DIV>" & Chr(10)
resHtml = resHtml & { <DIV style="display:none">}
Set childEntry = AOutline.getchild(AEntry)
Do Until childEntry Is Nothing

Call processEntry(AOutline, childEntry, False, resHtml)

Set childEntry = AOutline.getnextsibling(childEntry)
Loop
resHtml = resHtml & { </DIV>}
Else
resHtml = resHtml & ">" & getEntryLink(AEntry) & "</DIV>" & Chr(10)
End If

AHtml = AHtml & resHtml

End Function

Function getEntryLink(entry As notesoutlineEntry) As String
If entry.Type = OUTLINE_TYPE_NAMEDELEMENT Then
Select Case entry.EntryClass 
Case OUTLINE_CLASS_FOLDER:
linkHTML = linkHTML & entry.NamedElement & "?OpenView"			
Case OUTLINE_CLASS_FORM:
linkHTML = linkHTML & entry.NamedElement & "?OpenForm"
Case OUTLINE_CLASS_VIEW:			

linkHTML = linkHTML & entry.NamedElement & "?OpenView"

Case OUTLINE_CLASS_FORM:
linkHTML = linkHTML & entry.NamedElement & "?OpenForm"
Case OUTLINE_CLASS_PAGE:
linkHTML = linkHTML & entry.NamedElement & "?OpenPage"		
End Select

Elseif entry.Type = OUTLINE_TYPE_ACTION Then
linkHTML = linkHTML & "#"
End if
End Function