Xailer & OZ Software

Wilson,
> Trato de crear un browse generico
> en la llamada a tFrmGenerica()
> oFrm := TFrmGenerica():New()
> oFrm:cAlias := 'Tablab'
> oFrm:cDbf := 'Tablab'
> oFrm:cPath := DIR_DATA
> oFrm:ShowModal()
>
> Porque no se asigna oFrm:cDbf ?
>
> al parecer se ejecuta antes createform
Sí, efectívamente. CreateForm() se ejecuta desde dentro de New(). Es decir,
cuando retorna de la llamada a :New(), ya está todo hecho, a falta solamante
de mostrar el formulario.
En este caso, lo más sencillo es asignar esas DATAs antes de llamar a
:New(). De esta forma:
oFrm := TFrmGenerica()
oFrm:cAlias := 'Tablab'
oFrm:cDbf := 'Tablab'
oFrm:cPath := DIR_DATA
oFrm::New()
oFrm:ShowModal()
--
Un saludo,
José F. Giménez

Gracias maestro funciono perfecto
aprovechando la oportunidad
como calculo el ancho en pixels de cada columna ??
Saludos
--
Wilson 'W' Gamboa A
SoftWare Writer
swrite@uio.satnet.net
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=44298e87@ozsrvnegro.ozlan.local...]44298e87@ozsrvnegro.ozlan.local...[/email]
> Wilson,
>
>> Trato de crear un browse generico
>> en la llamada a tFrmGenerica()
>> oFrm := TFrmGenerica():New()
>> oFrm:cAlias := 'Tablab'
>> oFrm:cDbf := 'Tablab'
>> oFrm:cPath := DIR_DATA
>> oFrm:ShowModal()
>>
>> Porque no se asigna oFrm:cDbf ?
>>
>> al parecer se ejecuta antes createform
>
> Sí, efectívamente. CreateForm() se ejecuta desde dentro de New(). Es
> decir, cuando retorna de la llamada a :New(), ya está todo hecho, a falta
> solamante de mostrar el formulario.
>
> En este caso, lo más sencillo es asignar esas DATAs antes de llamar a
> :New(). De esta forma:
>
> oFrm := TFrmGenerica()
> oFrm:cAlias := 'Tablab'
> oFrm:cDbf := 'Tablab'
> oFrm:cPath := DIR_DATA
> oFrm::New()
> oFrm:ShowModal()
>
> --
> Un saludo,
>
> José F. Giménez
>

Wilson,
> Gracias maestro funciono perfecto
> aprovechando la oportunidad
> como calculo el ancho en pixels de cada columna ??
Haciendo doble click sobre la linea de separación en la cabecera te lo
recalcula automáticamente.
--
Un saludo,
José F. Giménez

Si, pero como lo hago desde codigo ??
si mismo como hago para que me vaya a la derecha cuando finalizo de ingresar
datos en una columna ??
y asi mismo en la ultima para que me vaya a la siguiente de abajo o hacer un
append()
Gracias x Todo
--
Wilson 'W' Gamboa A
SoftWare Writer
swrite@uio.satnet.net
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:442991e4$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Wilson,
>
>> Gracias maestro funciono perfecto
>> aprovechando la oportunidad
>> como calculo el ancho en pixels de cada columna ??
>
> Haciendo doble click sobre la linea de separación en la cabecera te lo
> recalcula automáticamente.
>
> --
> Un saludo,
>
> José F. Giménez
>

Otra cosa Maestro como capturo o en donde el teclado
me interesa las teclas Insert , delete y enter
perdon por tanta pedidera
Saludos
--
Wilson 'W' Gamboa A
SoftWare Writer
swrite@uio.satnet.net
"Wilson 'W' Gamboa A" <swriter@uio.satnet.net> escribió en el mensaje
news:[email=442992c4@ozsrvnegro.ozlan.local...]442992c4@ozsrvnegro.ozlan.local...[/email]
> Si, pero como lo hago desde codigo ??
> si mismo como hago para que me vaya a la derecha cuando finalizo de
> ingresar datos en una columna ??
> y asi mismo en la ultima para que me vaya a la siguiente de abajo o hacer
> un append()
>
> Gracias x Todo
>
> --
> Wilson 'W' Gamboa A
> SoftWare Writer
> swrite@uio.satnet.net
>
> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
> news:442991e4$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Wilson,
>>
>>> Gracias maestro funciono perfecto
>>> aprovechando la oportunidad
>>> como calculo el ancho en pixels de cada columna ??
>>
>> Haciendo doble click sobre la linea de separación en la cabecera te lo
>> recalcula automáticamente.
>>
>> --
>> Un saludo,
>>
>> José F. Giménez
>>
>
>

Wilson,
Has de capturar los eventos de teclado que se producen en el propio control
o en su contenedor: OnKeyDown por ejemplo.
Saludos,
"Wilson 'W' Gamboa A" <swriter@uio.satnet.net> escribió en el mensaje
news:[email=4429aaa5@ozsrvnegro.ozlan.local...]4429aaa5@ozsrvnegro.ozlan.local...[/email]
> Otra cosa Maestro como capturo o en donde el teclado
> me interesa las teclas Insert , delete y enter
>
> perdon por tanta pedidera
>
> Saludos
>
> --
> Wilson 'W' Gamboa A
> SoftWare Writer
> swrite@uio.satnet.net
>
> "Wilson 'W' Gamboa A" <swriter@uio.satnet.net> escribió en el mensaje
> news:[email=442992c4@ozsrvnegro.ozlan.local...]442992c4@ozsrvnegro.ozlan.local...[/email]
>> Si, pero como lo hago desde codigo ??
>> si mismo como hago para que me vaya a la derecha cuando finalizo de
>> ingresar datos en una columna ??
>> y asi mismo en la ultima para que me vaya a la siguiente de abajo o hacer
>> un append()
>>
>> Gracias x Todo
>>
>> --
>> Wilson 'W' Gamboa A
>> SoftWare Writer
>> swrite@uio.satnet.net
>>
>> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el
>> mensaje news:442991e4$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>> Wilson,
>>>
>>>> Gracias maestro funciono perfecto
>>>> aprovechando la oportunidad
>>>> como calculo el ancho en pixels de cada columna ??
>>>
>>> Haciendo doble click sobre la linea de separación en la cabecera te lo
>>> recalcula automáticamente.
>>>
>>> --
>>> Un saludo,
>>>
>>> José F. Giménez
>>>
>>
>>
>
>

Wilson,
La propiedad oBrwCol:nWidth te permite modificar su ancho. Simplemente haz:
WITH OBJECT oCol
:nWidth := Max( :nWidth, :DataWidth() )
END WITH
Para ir a la derecha: oBrw:GoRight(). Para ir hacia abajo: oBrw:GoDown()
Te recomiendo que le eches un vistazo a la documentación y revises los
ejemplos de Browses.
Saludos,
"Wilson 'W' Gamboa A" <swriter@uio.satnet.net> escribió en el mensaje
news:[email=442992c4@ozsrvnegro.ozlan.local...]442992c4@ozsrvnegro.ozlan.local...[/email]
> Si, pero como lo hago desde codigo ??
> si mismo como hago para que me vaya a la derecha cuando finalizo de
> ingresar datos en una columna ??
> y asi mismo en la ultima para que me vaya a la siguiente de abajo o hacer
> un append()
>
> Gracias x Todo
>
> --
> Wilson 'W' Gamboa A
> SoftWare Writer
> swrite@uio.satnet.net
>
> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
> news:442991e4$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Wilson,
>>
>>> Gracias maestro funciono perfecto
>>> aprovechando la oportunidad
>>> como calculo el ancho en pixels de cada columna ??
>>
>> Haciendo doble click sobre la linea de separación en la cabecera te lo
>> recalcula automáticamente.
>>
>> --
>> Un saludo,
>>
>> José F. Giménez
>>
>
>