Desarrollando clase para código de barras.

[FiveWiDi]

Hola Antonio,

Estoy intentando crear una clase para pintar en una WINDOW o DIALOG un código de barras.

He conseguido pintarlo mediante una adaptación de la librería BarLib de Cayetano.
Para pintar el código de barras utilizo un FOR-NEXT y la función:
FillRect( oWnd:GetDC(), {nx, ny, (nx += nWidth), ny + nLen}, oBr:hBrush )

Ahora pretendo crear un control a partir de una clase.

Me estoy fijando en la clase TSay que és la más sencilla.
Qué método debo programar para que cuando la ventana se mueva o iconice o pierda-recupere el foco se vuelva a pintar el código de barras?
Es correcto utilizar oWnd:GetDC() en esta nueva clase? O debería utilizar el :Hdc del propio control?

Se me está empezando a liar la cosa (con lo bonito que me iba a quedar).

Un Saludo
Carlos G.

[Marcelo Via Giglio]

hola,

asegurate, que tienes el metodo paint y es en ese metodo,donde pintas las barras fill.....

saludos

Marcelo

[FiveWiDi]

hola,

asegurate, que tienes el metodo paint y es en ese metodo,donde pintas las barras fill.....

saludos

Marcelo

Gracias Marcelo,

lo tendré en cuenta.

Saludos
Carlos G.

[Daniel Garcia-Gil]

FiveWidi

Si lo que quieres es hacer una clase que te cree un control para solo pintar el codigo de barras no es muy complicado...

esta es una plantilla para que comiences

viewtopic.php?p=76632#p76632

Qué método debo programar para que cuando la ventana se mueva o iconice o pierda-recupere el foco se vuelva a pintar el código de barras?

El control crea su propia ventana, que va a ser hija de otra, cuando muevas, iconices, etc, el padre este se "encarga" de sus hijos...

Es correcto utilizar oWnd:GetDC() en esta nueva clase? O debería utilizar el :Hdc del propio control?

Si deberas usar el propio DC para este control...

Solo debes tener esto, asi de simple...
METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0
cuando window envie el mensaje de pintar este es interceptado (HandleEvent ) y llama a este metodo para preparar la ventana creada para pintar en ella...
aqui es llamado al otro metodo que hara el trabajo de pintado Paint()

en el metodo paint lo mas recomendable es que uses la tecnica de doble buffer que proporciona FW

METHOD Paint Class MyControl
local aInfo := ::DispBegin() //comienza el doble buffer

RUTINA DE PINTADO

::DispEnd( aInfo ) //Termina doble buffer y pintado del control

return nil

espero esto te ayude y haber sido lo suficientemente claro y explicito

[FiveWiDi]

FiveWidi

Si lo que quieres es hacer una clase que te cree un control para solo pintar el codigo de barras no es muy complicado...

esta es una plantilla para que comiences

viewtopic.php?p=76632#p76632

Qué método debo programar para que cuando la ventana se mueva o iconice o pierda-recupere el foco se vuelva a pintar el código de barras?

El control crea su propia ventana, que va a ser hija de otra, cuando muevas, iconices, etc, el padre este se "encarga" de sus hijos...

Es correcto utilizar oWnd:GetDC() en esta nueva clase? O debería utilizar el :Hdc del propio control?

Si deberas usar el propio DC para este control...

Solo debes tener esto, asi de simple...
METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0
cuando window envie el mensaje de pintar este es interceptado (HandleEvent ) y llama a este metodo para preparar la ventana creada para pintar en ella...
aqui es llamado al otro metodo que hara el trabajo de pintado Paint()

en el metodo paint lo mas recomendable es que uses la tecnica de doble buffer que proporciona FW

METHOD Paint Class MyControl
local aInfo := ::DispBegin() //comienza el doble buffer

RUTINA DE PINTADO

::DispEnd( aInfo ) //Termina doble buffer y pintado del control

return nil

espero esto te ayude y haber sido lo suficientemente claro y explicito

Gracias Daniel,

Muy poco a poco estoy avanzando, y esta plantilla y tus consejos me serviran.

A ver si pronto la puedo compartir; no és una cosa útil pero me ilusiona.

Saludos
Carlos G.