WR SET PICTURE IN PAGE INFO

Home

4D Write v16


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	Position des Bildes
Hinten	Ganzzahl	0=Bild ist vor dem Text, 1=Bild ist hinter dem Text
ErsteSeite	Ganzzahl	* Obsolet, nicht verwenden *
HorizPos	Lange Ganzzahl	Horizontale Position auf der Seite
VertPos	Lange Ganzzahl	Vertikale Position auf der Seite
Breite	Lange Ganzzahl	Aktuelle Bildbreite
Höhe	Lange Ganzzahl	Aktuelle Bildhöhe

Beschreibung

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:

Konstante	Typ	Wert	Kommentar
wr above text	Lange Ganzzahl	0	Bild wird vor dem Text eingefügt
wr behind text	Lange Ganzzahl	1	Bild wird hinter dem Text eingefügt. In diesem Fall müssen Sie auf die Attribute für Text- und Absatzhintergrund achten. Wählen Sie "Nichts" aus, ist das Bild hinter dem Text sichtbar.

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.

Beispiel

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 GET 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)

Siehe auch

WR GET PICTURE IN PAGE INFO