In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

addControl - how to add control?

Xailer professional forum in English
Responder
Avatar de Usuario
Hurricane
Mensajes: 262
Registrado: Mar Mar 24, 2015 10:21 am
Ubicación: Brasil
Contactar:

addControl - how to add control?

Mensaje por Hurricane »

Hi,

I'm trying to create a plugin to insert controls on the Form. Where am I going wrong?

I added the control, but with problems... Control is in edit mode

Código: Seleccionar todo

   with object oObj:=TDbMaskEdit():New(::IInspector:oActiveForm) // Parent is TFormEditor
      :SetBounds( 50, 30, 80, 20 )
      :cVarname := "oTmp" + ToString(++nId)
      :Create()
   end with
   ::IInspector:AddControl( oObj, ::IInspector:oActiveForm, .t. )
   // doc: AddControl( <oCtrl>, <oParent>, <lSelect> ): add a new control.
xailer_addcontrol.png
xailer_addcontrol.png (17.16 KiB) Visto 448 veces
different problem

Código: Seleccionar todo

   with object oObj:=TDbMaskEdit()
      :SetBounds( 50, 30, 80, 20 )
      :cVarname := "oTmp" + ToString(++nId)
   end with
   ::IInspector:AddControl( oObj, ::IInspector:oActiveForm, .t. ) // Parent is TFormEditor
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9246
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Re: addControl - how to add control?

Mensaje por ignacio »

Código: Seleccionar todo

local oControl
with object oControl:=TDbMaskEdit():New()
  :Create()
end with
::IInspector:oActiveForm:AddExistingControl( oControl )
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Avatar de Usuario
Hurricane
Mensajes: 262
Registrado: Mar Mar 24, 2015 10:21 am
Ubicación: Brasil
Contactar:

Re: addControl - how to add control?

Mensaje por Hurricane »

Thanks for your help.

It worked, but I needed to add Parent to avoid the error.

Código: Seleccionar todo

//   with object oObj:=TDbMaskEdit():New() // --> GETNEWID(0) Error BASE/1004  No exported method: GETNEWID   *** The object is NIL or doesn't exists ***
   with object oObj:=TDbMaskEdit():New(::IInspector:oActiveForm)
      :SetBounds( 50, 30, 80, 20 )
      :Create()
   end with
   ::IInspector:oActiveForm:AddExistingControl( oObj )
   return nil
Responder