4D Doc Center : WR SET DOC PROPERTY

4D Write v14

WR SET DOC PROPERTY


WR SET DOC PROPERTY ( area ; propiedad ; valor )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
propiedad	Entero	Número de la propiedad del documento a fijar
valor	Entero largo	Valor para la propiedad seleccionada

Descripción

El comando WR SET DOC PROPERTY permite modificar las propiedades del documento en el área 4D Write referenciado por area.

El significado dado al parámetro valor depende del valor de la propiedad utilizada. propiedad y valor se pueden definir con constantes.

Las constantes del tema "WR Propiedades del documento" se describen a continuación.

Las siguientes constantes se pueden utilizar con WR SET DOC PROPERTY y WR Get doc property. También puede utilizar las constantes del tema "WR Parámetros" para definir los valores:

Constante	Tipo	Valor
wr first page	Entero largo	0
wr view mode	Entero largo	1
wr view rulers	Entero largo	2
wr view frames	Entero largo	3
wr view headers	Entero largo	4
wr view footers	Entero largo	5
wr view pictures	Entero largo	6
wr view Hscrollbar	Entero largo	7
wr view Vscrollbar	Entero largo	8
wr view statusbar	Entero largo	9
wr view menubar	Entero largo	10
wr view standard palette	Entero largo	11
wr view format palette	Entero largo	12
wr view style palette	Entero largo	13
wr view borders palette	Entero largo	14
wr view invisible chars	Entero largo	15
wr view references	Entero largo	16
wr view column separators	Entero largo	17
wr different on first page	Entero largo	18
wr different left right pages	Entero largo	19
wr widow orphan	Entero largo	20
wr unit	Entero largo	21
wr default tab	Entero largo	22
wr language	Entero largo	23
wr number of columns	Entero largo	24
wr columns spacing	Entero largo	25
wr binding	Entero largo	26
wr opposite pages	Entero largo	27
wr right first page	Entero largo	28
wr text inside margin	Entero largo	29
wr text left margin	Entero largo	29
wr text outside margin	Entero largo	30
wr text right margin	Entero largo	30

Si se selecciona la opción 'Primera página diferente' en la caja de diálogo Preferencias, las siguientes constantes se debe utilizar para todas las páginas excepto para la primera:

Constante	Tipo	Valor
wr text top margin	Entero largo	31
wr text bottom margin	Entero largo	32
wr header top margin	Entero largo	33
wr header bottom margin	Entero largo	34
wr footer top margin	Entero largo	35
wr footer bottom margin	Entero largo	36
wr paper width	Entero largo	37
wr paper height	Entero largo	38
wr dead left margin	Entero largo	39
wr dead top margin	Entero largo	40
wr printable width	Entero largo	41
wr printable height	Entero largo	42
wr data size	Entero largo	43
wr undo buffer size	Entero largo	44
wr horizontal splitter	Entero largo	45
wr vertical splitter	Entero largo	46
wr links color	Entero largo	47
wr visited links color	Entero largo	48
wr view frame area	Entero largo	49

(*) Cuando define el tamaño del papel por programación, 4D Write considera que se trabaja con una impresora "virtual". El programa establecerá los márgenes muertos en cero y el área de impresión será igual al tamaño del papel. Esta función es útil para documentos que no están destinados a ser impresos.

Las siguientes constantes (50 a 59) deben utilizarse para la primera página de su documento cuando se elige la opción 'Primera página diferente' en la caja de diálogo Preferencias.

Constante	Tipo	Valor
wr view first page header	Entero largo	50
wr view first page footer	Entero largo	51
wr first page top margin	Entero largo	52
wr first page bottom margin	Entero largo	53
wr header 1st page top margin	Entero largo	54
wr header 1st page bottom mg	Entero largo	55
wr footer 1st page top margin	Entero largo	56
wr footer 1st page bottom mg	Entero largo	57
wr draft mode	Entero largo	58
wr column width	Entero largo	59

Ejemplo 1

Usted quiere mostrar un área 4D Write en pantalla sin que los menús y las reglas sean visibles:

 If(Form event=On Load)

    WR SET DOC PROPERTY(Area;wr view menubar;wr hidden)

    WR SET DOC PROPERTY(Area;wr view rulers;wr hidden)

 End if

Ejemplo 2

Este método permite al usuario mostrar u ocultar las barras de desplazamiento:

 C_LONGINT(ScrollStatus)

 ScrollStatus:=WR Get doc property(Area;wr Hscrollbar) `Constant=7

 ScrollStatus:=ScrollStatus+WR Get doc property(Area;wr Vscrollbar) `Constant=8

 If(ScrollStatus>0)

    CONFIRM("Al menos se muestra una barra de desplazamiento, ¿quiere ocultarlas?")

    If(OK=1)

       WR SET DOC PROPERTY(Area;wr Hscrollbar;wr hidden)

       WR SET DOC PROPERTY(Area;wr Vscrollbar;wr hidden)

    End if

 Else

    CONFIRM("Las barras de desplazamiento están ocultas, ¿Quiere mostrarlas?")

    If(OK=1)

       WR SET DOC PROPERTY(Area;wr Hscrollbar;wr displayed)

       WR SET DOC PROPERTY(Area;wr Vscrollbar;wr displayed)

    End if

 End if