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: In diesem Parameter können Sie eine der folgenden Konstanten unter dem Thema WR Parameter übergeben:

• ErsteSeite

Dieser Parameter wird allein aus Kompatibilitätsgründen beibehalten. Sie sollten ihn 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.