Domino 9 und frühere Versionen > ND6: Entwicklung

In Dokument Bilder öfters darstellen?!

(1/3) > >>

pippo:
Hallo,
habe folgende Anforderung.

Ein User sollte in einem Feld ein Bild abspeichern können.
Dieses Bild sollte nun im Dokument öfters dargestellt weden können.

Habe versucht in einem Richttextfeld das Bild zu speichern. Habe es aber nicht geschafft in anderen Feldern das Bild wiederum darzustellen.

Kann man (ähnlich wie auf WEB) ein Bild über einen Pfad darzustellen?

Wer kann mir da bitte einen guten RAT geben?

Grüße, Pippo

Untitled:
Diese Bilder werden ja, wie ich annehme, in $FILE-Feldern abgespeichert. Wenn man jetzt im RTF das selbe $FILE-Feld, wie ein anderes refernziert, sollte es klappen. Die Frage ist, ob man diese Referenzierung ändern kann  ;D

Ansonsten könnte man vielleicht die Bilder in separaten Docs abspeichern und diese Docs dann mehrmals in Subforms anzeigen.

Hab das alles nicht probiert, weiss nicht obs funktioniert...

Grüsse
Untitled

Thomas Schulte:

--- Zitat von: Untitled am 15.02.06 - 16:32:54 ---Diese Bilder werden ja, wie ich annehme, in $FILE-Feldern abgespeichert. Wenn man jetzt im RTF das selbe $FILE-Feld, wie ein anderes refernziert, sollte es klappen. Die Frage ist, ob man diese Referenzierung ändern kann  ;D

--- Ende Zitat ---
Also das dürfte jetzt nicht wirklich funktionieren. Was ich mir vorstellen könnte ist das es eventuell mit Layern (Ebenen) zu lösen wäre, aber das warscheinlich auch nur dann wenn du das Bild immer an der gleichen Stelle halten kannst. Denn IBM hat es nicht geschafft das die absolute Position von Layern zur Laufzeit im Notes Client verändert werden kann. Noch so eine nette Funktion die "particular useless" ist.

Glombi:
Es geht so:
Überall wo das Bild sonst noch erscheinem soll, machst Du ein berechnetes Rich Text Feld. Die Formel für das Richtext Feld muss den Feldnamen des Richtext Feldes beinhalten, in das das Bild eingefügt wird.

Im Postsave dann sowas:

Sub Postsave(Source As Notesuidocument)
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument   
   Dim item As NotesItem
   
   Set uidoc = ws.CurrentDocument
   Set doc = Source.Document
   
   If doc.Flag(0) = "1" Then      
      
      Do While doc.HasItem( "Bild2" )
         Set item = doc.GetFirstItem( "Bild2" )
         Call item.Remove
         Call doc.Save( True, True, True )
      Loop
      
      Do While doc.HasItem( "Bild3" )
         Set item = doc.GetFirstItem( "Bild3" )
         Call item.Remove
         Call doc.Save( True, True, True )
      Loop
      
      doc.Flag = ""
      doc.SaveOptions = "0"
      
      Call doc.Save( True, True, True )
      
      
      Call uidoc.Close
      Call ws.EditDocument( True, doc )   
      
   End If
   
End Sub


Du musst dann dafür sorgen, dass das Dokument nach dem Einfügen des Bildes gespeichert wird. Daher würde ich einen Button machen, mit dem man
1. das Bild wählt
2. das Bild importiert
3. ein Flag setzt und
3. das Dokument speichert.


Im Postopen dann das SaveOptions Item löschen, sofern vorhanden.

Andreas

Thomas Schulte:
Was dann wieder klassische Notes Programmierung ist.
 >:D
Von hinten, durch die Brust, übers Knie ins Auge.

Navigation

[0] Themen-Index

[#] Nächste Seite