WR SET PICTURE IN PAGE INFO

Version 6.5

WR SET PICTURE IN PAGE INFO (Bereich; Bildnr; Seite; Hinten; ErsteSeite; HorizPos; VertPos; Breite; Höhe)

Parameter	Typ		Beschreibung
Bereich	Lange Ganzzahl		4D Write Bereich
Bildnr	Lange Ganzzahl		Bildnummer
Seite	Lange Ganzzahl		Plazierung des Bildes
Hinten	Ganzzahl		0=Bild im Hintergrund
			1=Bild im Vordergrund
ErsteSeite	Ganzzahl		1=Bild nicht auf 1. Seite
			sonst 0
HorizPos	Numerisch		Horizontale Position auf der Seite
VertPos	Numerisch		Vertikale Position auf der Seite
Breite	Numerisch		Aktuelle Bildbreite
Höhe	Numerisch		Aktuelle Bildhöhe

Mit dem Befehl WR SET PICTURE IN PAGE INFO können Sie die Eigenschaften des Bildes mit der Nummer Bildnr ändern.

Warnung: Verwenden Sie diesen Befehl nicht mit Bildern, die im Textfluß eingebunden sind.

• Seite gibt an, auf welcher Seite das Bild angezeigt werden soll. Übergeben Sie dazu die entsprechende Seitennummer, die die voreingestellte Seitennumerierung berücksichtigen sollte.

Bei Seite größer als -1 erscheint das Bild auf der Seite, dessen Nummer zurückgegeben wird. Dieser Wert richtet sich nach der in den Voreinstellungen eingestellten Seitennumerierung.

Bei Seite gleich -1 erscheint das Bild auf allen Seiten.

Bei Seite gleich -2 erscheint das Bild auf allen rechten Seiten.

Bei Seite gleich -3 erscheint das Bild auf allen linken Seiten.

Bei Seite gleich -4 wird der vorige Wert nicht verändert.

• Hinten

Bei Hinten gleich 0 erscheint das Bild vor dem Text.

Bei Hinten gleich 1 erscheint das Bild hinter dem Text. Der Text hat dann einen transparenten Hintergrund, außer es wurde zuvor eine Farbe für den Hintergrund gewählt.

• ErsteSeite

Bei ErsteSeite gleich 0 erscheint das Bild auf allen Seiten.

Bei ErsteSeite gleich 1 erscheint das Bild auf allen Seiten mit Ausnahme der ersten.

In HorizPos und VertPos definieren Sie die Koordinaten der oberen linken Ecke des Bildes in Bezug auf die obere linke Ecke der Seite. Der Wert für HorizPos kann zwischen Null (0) und der gesamten Breite der Seite liegen. In diesem Fall definieren Sie in Breite und Höhe die neuen Maße des Bildes. Diese Werte erscheinen in der Standardeinheit für das Dokument.

Hinweis: Übergeben Sie -1 in den Parametern Hinten, ErsteSeite, HorizPos, VertPos, Breite und Höhe, wird der ursprüngliche Wert nicht verändert.

Sie wollen in den Kopfteil all Ihrer Dokumente ein Bild einfügen:

   C_REAL($PosHoriz;$PosVert;$PictWidth;$PictHeight;$OrigWidth;$OrigHeight;$TxtMgTop;
                                                $HeadMgBottom)
   WR SET DOC PROPERTY(Bereich;wr view mode;0)
   $PosHoriz:=WR Get doc property (Bereich;wr text left margin)
   $PosVert:=WR Get doc property(Bereich;wr header top margin)
   ALL RECORDS([Interface])
      `Bild einfügen
   WR INSERT PICTURE(Bereich;[Interface]Logo;-1;$PosHoriz;$PosVert;1;0) 
                                     `Bild ist in Logo Feld gespeichert
   WR SELECT PICTURE IN PAGE(Bereich;1)   `Bild auswählen
      `Erhalte Bildeigenschaften
   MyPict:=WR Get selected picture(Bereich;$NumPict)
   WR SET PICTURE IN PAGE INFO (Bereich;$NumPict;$Page;$Behind;$PageOne;$PosHoriz;$PosVert;
                                       $PictWidth;$PictHeight;$OrigWidth;$OrigHeight)
      `Bildgröße um 50 % verringern
   $PictHeight:=$PictHeight*1/2
   $PictWidth:=$PictWidth*1/2
   WR SET PICTURE IN PAGE INFO(Bereich;$NumPict;$Page;$Behind;$PageOne;$PosHoriz;$PosVert;
                                       $PictWidth;$PictHeight)
      `Prüfe, ob Logo in Kopfteil paßt
   $TxtMgTop:=WR Get doc property(Bereich;wr text top margin)
   $HeadMgBottom:=WR Get doc property(Bereich;wr header bottom margin)
   WR SET DOC PROPERTY(Bereich;wr text top margin;$PosVert+$PictHeight+
                                       $TxtMgTop+$HeadMgBottom)
   WR SET DOC PROPERTY(Bereich;wr header bottom margin;$PosVert+$PictHeight)

WR GET PICTURE IN PAGE INFO.