Podstata riešenia vlastných ikoniek v pohľade je nasledovná:
1. Dokument obsahuje obrázok (image resource) v rich text poli.
2. Pri ukladaní sa zabezpečí viditeľnosť tohto poľa v pohľade (nastavením vlastnosti IsSummary=True)
3. V pohľade sa zobrazí obsah poľa ako ikonka.

Nejasné? Tu sú detaily:
1. Vložte si do aplikacie (Image Resources) vhodné obrázky - piktogrami. Ich veľkosť by mala byť primeraná k šírke riadku pre dokument v pohľade.
2. Vo formulári vytvorte rich text pole (napr. Ikonky) a upravte PostSave event formulára:

Sub Postsave(Source As Notesuidocument)

Dim myDoc As NotesDocument
Set myDoc=Source.Document

'Sprístupnenie poľa s ikonou
Dim myItem As NotesItem
Set myItem=myDoc.GetfirstItem("Ikonka")

'Zabezpečenie viditeľnosti poľa v pohľade
myItem.IsSummary = True
Call myDoc.Save(False,True)

End Sub

3. Do pohľadu vložte stĺpec, ktorého formula bude názov poľa s ikonkou (napr. Ikonky). A nezabudnite zvoliť zobrazovanie hodnôt ako ikonky.


No a takto to funguje

1. Používateľ vloží do dokumentu piktogram (Creta-Image Resource). Ak to nechcete nechať na používateľovi, tak sa obrázok môže vyberať na základe predprogramovanej logiky. Napríklad stavu dokumentu.
2. Po uložení dokumentu a občerstvení pohľadu sa piktogram zobrazí v stĺpci, napríklad takto:




Ešte raz upozorňujem, že tento obrázok je z R5 Notes klienta. Pre verziu R4.6 som neskúšal - možno to urobí niekto za mňa...