Outlines под Web.

Тема в разделе "Lotus - Программирование", создана пользователем Sasha*, 31 янв 2008.

Статус темы:
Закрыта.
  1. Sasha*

    Sasha* Гость

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

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

    Sandr Гость

    убрать рисунки под Вебом.. :)
     
  3. Sasha*

    Sasha* Гость

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

    Sandr Гость

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


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

    Sasha* Гость

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

    Sandr Гость

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

    Sasha* Гость

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

    Sandr Гость

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

    Код (Text):
    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
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей