WR SET PICTURE IN PAGE INFO

Version 2004 (Geändert)

WR SET PICTURE IN PAGE INFO (Bereich; Bildnr; Seite; Hinten; ErsteSeite; HorizPos; VertPos; Breite; Hö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 Textfluss 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 -11 erscheint das Bild nur auf den rechten Seiten, wenn die Kopfteile für gerade und ungerade Seitennummern unterschiedlich sind; sonst auf allen Seiten.

• Bei Seite gleich -12 erscheint das Bild nur auf den linken Seiten, wenn die Kopfteile für gerade und ungerade Seitennummern unterschiedlich sind.

• 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

Dieser Parameter wird allein aus Kompatibilitätsgründen beibehalten. Sie sollten ihn ab Version 2004 nicht mehr verwenden.

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 passt
   $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.