Estoy trabajando con VO - MYSQL via odbc.
A nivel local todo ok. Pero tengo algunas
dificultades cuando quiero acceder a MYsql
desde otra máquina de la red.
Alguien sabe cuales son los datos requeridos
para configurar
el puesto de trabajo y el servidor ?
Gracias y saludos
Jorge Accinelli
Te estoy enviando un AEF de un pequeño modulo para tu evaluación, si no lo recibes por favor comunicamelo,
Saludos,
GVigo
Gustavo Biasone <gb_guvoa@...> escribió:
Esto sirve para salir con Enter o con Escape:
Method TreeViewItemEdit(oEvent) class MyWindow local oItem as TreeViewItem local cNewTextValue as string local cType as string local lError as logic
super:TreeViewItemEdit(oEvent)
oItem := oEvent:TreeViewItem if oItem!=null_object
if oEvent:EditBeginning lError:=true if oItem:Value=="ROOT" // There is a bug in the Win32 SDK // and here is the workaround hTree := self:oTV:Handle() hEdit := TreeView_GetEditControl( self:oTV:Handle() ) SendMessage(hEditProc,EM_SETLIMITTEXT,20,0) SendMessage(hEditProc,EM_SETSEL,0,0) hEditProc := SetWindowLong(hEdit,GWL_WNDPROC,long_cast,@TVLabelEdit()))
lError:=false endif endif
if lError self:lEditCancel:=true self:EventReturnValue:=1 return endif
if oEvent:EditEnding SetWindowLong(hEdit,GWL_WNDPROC,long(_cast,hEditProc)) hEdit := NULL hTree := NULL
if self:lEditCancel self:lEditCancel:=false else cNewTextValue:=oEvent:EditText if !Empty(cNewTextValue)
oItem:TextValue:=cNewTextValue oTV:SetItemAttributes(oItem) endif endif endif endif
STATIC GLOBAL hEdit AS PTR STATIC GLOBAL hEditProc AS PTR STATIC GLOBAL hTree AS PTR
Function TVLabelEdit(hWnd as ptr , wMsg as dword , wParam as dword , lParam as long ) as long callback
if wMsg == WM_GETDLGCODE Return DLGC_WANTALLKEYS endif
if wMsg == WM_CHAR if wParam == VK_RETURN SendMessage( hTree , TVM_ENDEDITLABELNOW , dword(_cast,false) , 0 ) Return 0 endif
Method TreeViewItemEdit(oEvent) class MyWindow local oItem as TreeViewItem local cNewTextValue as string local cType as string local lError as logic
super:TreeViewItemEdit(oEvent)
oItem := oEvent:TreeViewItem if oItem!=null_object
if oEvent:EditBeginning lError:=true if oItem:Value=="ROOT" // There is a bug in the Win32 SDK // and here is the workaround hTree := self:oTV:Handle() hEdit := TreeView_GetEditControl( self:oTV:Handle() ) SendMessage(hEditProc,EM_SETLIMITTEXT,20,0) SendMessage(hEditProc,EM_SETSEL,0,0) hEditProc := SetWindowLong(hEdit,GWL_WNDPROC,long_cast,@TVLabelEdit())) lError:=false endif endif
if lError self:lEditCancel:=true self:EventReturnValue:=1 return endif
if oEvent:EditEnding SetWindowLong(hEdit,GWL_WNDPROC,long(_cast,hEditProc)) hEdit := NULL hTree := NULL
if self:lEditCancel self:lEditCancel:=false else cNewTextValue:=oEvent:EditText if !Empty(cNewTextValue) oItem:TextValue:=cNewTextValue oTV:SetItemAttributes(oItem) endif endif endif endif
STATIC GLOBAL hEdit AS PTR STATIC GLOBAL hEditProc AS PTR STATIC GLOBAL hTree AS PTR
Function TVLabelEdit(hWnd as ptr , wMsg as dword , wParam as dword , lParam as long ) as long callback
if wMsg == WM_GETDLGCODE Return DLGC_WANTALLKEYS endif
if wMsg == WM_CHAR if wParam == VK_RETURN SendMessage( hTree , TVM_ENDEDITLABELNOW , dword(_cast,false) , 0 ) Return 0 endif
Alguien sabe como invocar un item del menu ( de mi shell ) por medio de codigo?, por ejemplo yo quiero invocar este item de mi menu principal (esto es un fragmento del init del menu)
__________________________________________________ Correo Yahoo! Espacio para todos tus mensajes, antivirus y antispam ¡gratis! ¡Abrí tu cuenta ya! - http://correo.yahoo.com.ar
Gracias a todos por responder
Voy a probar y comento
La funcion __Copy de clipper no la conozco
y de hecho me da indefinida.
Saludos
Jorga Accinelli
----- Original Message -----
From: "Juan Francolino" <francolino@...>
To: <guvoaII@...>
Sent: Tuesday, March 28, 2006 1:48 PM
Subject: RE: [guvoaII] BUSCANDO DOS IDEAS
Hola,
¿ para que necesitas llamar a un comando vía shell ?
Para eso esta la función FCOPY(<cOrigen>,<cDestino>) si mi memoria no me
falla.
y en Clipper la función __Copy (<cOrigen>,<cDestino>)
Atentamente,
Juan Francolino
_____
De: guvoaII@... [mailto:guvoaII@...] En nombre
de jorgeeugenio2002
Enviado el: Martes, 28 de Marzo de 2006 01:25 p.m.
Para: guvoaII@...
Asunto: [guvoaII] BUSCANDO DOS IDEAS
Saludos al grupo:
1) Esto ques hacia en clipper
SWPRUNCMD ( "COPY remito.txt LPT3: " )
ó "COPY to \\server\impresora"
como lo puedo hacer en VO ?
Gracias
Jorge Accinelli
_____
Enlaces de Yahoo! Grupos
* Para visitar el sitio web del grupo, andá a:
http://ar.groups.yahoo.com/group/guvoaII/
* Para cancelar tu suscripción a este grupo, enviá un mensaje a:
guvoaII-unsubscribe@...
<mailto:guvoaII-unsubscribe@...?subject=Unsubscribe>
* El uso de Yahoo! Grupos está sujeto a las Condiciones del servicio
de <http://ar.docs.yahoo.com/info/utos.html> Yahoo!.
----------------------------------------------------------------------------
----
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.3.2/294 - Release Date: 27/03/2006
¿ para que necesitas llamar a un comando vía shell ?
Para eso esta la función FCOPY(<cOrigen>,<cDestino>) si mi memoria no me falla.
y en Clipper la función __Copy (<cOrigen>,<cDestino>)
Atentamente,
Juan Francolino
De: guvoaII@... [mailto:guvoaII@...] En nombre de jorgeeugenio2002 Enviado el: Martes, 28 de Marzo de 2006 01:25 p.m. Para: guvoaII@... Asunto: [guvoaII] BUSCANDO DOS IDEAS
Saludos al grupo:
1) Esto ques hacia en clipper
SWPRUNCMD ( "COPY remito.txt LPT3: " ) ó "COPY to \\server\impresora"
Recorda que desde VO al enviar a LPTx le tenes que agregar .DOS.
Ejemplo
FCOPY("REMITO.TXT","LPT3.DOS")
Atentamente,
Juan Francolino
De: guvoaII@... [mailto:guvoaII@...] En nombre de jorgeeugenio2002 Enviado el: Martes, 28 de Marzo de 2006 01:25 p.m. Para: guvoaII@... Asunto: [guvoaII] BUSCANDO DOS IDEAS
Saludos al grupo:
1) Esto ques hacia en clipper
SWPRUNCMD ( "COPY remito.txt LPT3: " ) ó "COPY to \\server\impresora"
COPY FILE remito.txt TO LPT3
GB
----- Original Message -----
From: "jorgeeugenio2002" <jorgeaccinelli@...>
To: <guvoaII@...>
Sent: Tuesday, March 28, 2006 1:25 PM
Subject: [guvoaII] BUSCANDO DOS IDEAS
Saludos al grupo:
1) Esto ques hacia en clipper
SWPRUNCMD ( "COPY remito.txt LPT3: " )
ó "COPY to \\server\impresora"
como lo puedo hacer en VO ?
Gracias
Jorge Accinelli
Enlaces de Yahoo! Grupos
Saludos al grupo:
1) Esto ques hacia en clipper
SWPRUNCMD ( "COPY remito.txt LPT3: " )
ó "COPY to \\server\impresora"
como lo puedo hacer en VO ?
Gracias
Jorge Accinelli
Muchas gracias por el documento, muy interesante espero poder encaminar mi
problema igual en mí búsqueda previo a recibir tú archivo ubique un
Collectforced() en el módulo donde me documentaba el Error y al volver a
ejecutar la aplicación el mismo no se produjo igual voy a procurara leer el
archivo y ver como encarar el tema.
Te mando un cordial saludo
Mauro
Original Message:
-----------------
From: lsantibanez72@...
Date: Sat, 25 Mar 2006 23:19:56 -0400
To: guvoaII@...
Subject: RE: [guvoaII] Error subcode 5333
Hola, saludos. En realidad tuve ese problema, sin embargo cambiaron el
equipo
porque era temporal mientras se hacia la presentación. Al final quedó en
otro equipo con WIN XP y hasta el momento no me han reportado problemas,
al menos no ha llegado a mis oídos.
Revisa el adjunto te puede ayudar, atte.
Larry Santibáñez Flores
Enlaces de Yahoo! Grupos
--------------------------------------------------------------------
mail2web - Check your email from the web at
http://mail2web.com/ .
Hola, saludos. En realidad tuve ese problema, sin embargo cambiaron el equipo
porque era temporal mientras se hacia la presentación. Al final quedó en
otro equipo con WIN XP y hasta el momento no me han reportado problemas,
al menos no ha llegado a mis oídos.
Revisa el adjunto te puede ayudar, atte.
Larry Santibáñez Flores
Amigos del grupo en una aplicación desarrollada en CAVO 2.5 b3 para un
cliente, aparecio luego de un tiempo de migrar a PC más nuevas ( PIV de
2 gb, y XP Prof. ) el Error Subcode 5333, buscando algo de info en
internet creo que viene por el lado de asignación de memoria en
realidad no sabria por donde analizar ya que este cliente tenia PCs de
menor jerarquía y win98 2, e inclusive en mi PC ( PIII con W2000
Prof. ) ese error no se produce. Por tal motivo acudo a Uds. para ver
si pueden aportarme algo de data, desde ya les agradezco.
Un cordial saludo
Mauro
1. Definir todas las Clases FieldSpec 2. Definir todas las Clases DBServer/SQL 3. Definir todas las Clases DataWindows 4. Definir todas las Clases Menú 5. Y contruir la aplicación
Cualquier duda aquí estamos para ayudarte en lo que podamos, es muy dificil y algo confuso al inicar con CAVO pero luego te darás cuenta que es en relidad mas sencillo de lo que pensabas al principio
Saludos desde México
Luciano Esteban <robrensenbrink78@...> escribió:
Hola Compáñeros del foro...
Les cuento que estoy tratando de desarrollar una pequeña aplicacion para dar mis primeros pasos en CAVO, tengo la version full del CAVO 2.5 b-3, y vengo leyendo bastante documentacion hacer rato, y definitivamente quiero pasar a este potente lenguaje de
programacion... El tema es que quiero pasar un pequeño programita hecho en CA-Clipper 5.3b, que lo unico que hace es consultar una DBF (de empleados) , y poder agregar o borrar registros, algo sencillo para empezar; el tema es que cree una aplicacion MDI con una shellwindow, y un menu que tiene solo dos opciones "Abrir y Salir", y estuve leyendo que para mostrar una DBF (al estilo "DBedit" de CA-Clipper) tengo que crear una Datawindow e incrustarle en la misma una Sub-data Window para en la misma inscrustarle la consulta del DBserver, pero ahi me pierdo un poco y no entiendo bien como hacerlo, ya que lei la documentacion pero no entiendo muy bien el concepto... Lo que pude hacer es con el editor de DBserver cree una clase heredada del dbserver con la informacion de mi DBF, con mi RDD, hasta ahi todo bien, pero el problema es que no se como mostrar esa consulta
Bueno, espero me puedan ayudar Desde ya, muchas
Gracias LUciano
__________________________________________________ Correo Yahoo! Espacio para todos tus mensajes, antivirus y antispam ¡gratis! Regístrate ya - http://correo.yahoo.com.mx/
Estos artículos te van a esclarecer un poco más el tema.
Gerardo J. Biagiotti
Analista de Sistemas
(2580) Marcos Juárez
Córdoba - Argentina
Mail: gjbiagiotti@...
MSN: gerardo_biagiotti@...gjbiagiotti@...gjbiagiotti@...
-----Mensaje original-----
De: guvoaII@... [mailto:guvoaII@...] En nombre
de Luciano Esteban
Enviado el: Lunes, 20 de Marzo de 2006 12:45 p.m.
Para: guvoaII@...
Asunto: [guvoaII] Consulta sobre Dbserver...
Hola Compáñeros del foro...
Les cuento que estoy tratando de desarrollar una pequeña
aplicacion para dar mis primeros pasos en CAVO, tengo la
version full del CAVO 2.5 b-3, y vengo leyendo bastante
documentacion hacer rato, y definitivamente quiero pasar
a este potente lenguaje de programacion...
El tema es que quiero pasar un pequeño programita hecho en CA-Clipper
5.3b, que lo unico que hace es consultar una DBF (de empleados)
, y poder agregar o borrar registros, algo sencillo para empezar;
el tema es que cree una aplicacion MDI con una shellwindow, y un menu
que tiene solo dos opciones "Abrir y Salir", y estuve leyendo
que para mostrar una DBF (al estilo "DBedit" de CA-Clipper) tengo
que crear una Datawindow e incrustarle en la misma una Sub-data Window
para en la misma inscrustarle la consulta del DBserver, pero ahi me
pierdo un poco y no entiendo bien como hacerlo, ya que lei la
documentacion pero no entiendo muy bien el concepto...
Lo que pude hacer es con el editor de DBserver cree una clase heredada
del dbserver con la informacion de mi DBF, con mi RDD, hasta ahi
todo bien, pero el problema es que no se como mostrar esa consulta
Bueno, espero me puedan ayudar
Desde ya, muchas Gracias
LUciano
Enlaces de Yahoo! Grupos
De:guvoaII@... [mailto:guvoaII@...] En nombre de José Ramón Castro Enviado el: Miércoles, 22 de Marzo
de 2006 03:44 p.m. Para:guvoaII@... Asunto: RE: [guvoaII] BBrowser y
Editar una columna.
Saludos Gerardo:
Como veo que el bBrowser puede tener más de una columna y no vas a desactivar
una por una aquí te pongo un ejemplo de cómo desactivarlas en un subformulario
que para el caso es casi lo mismo.
LOCAL oColumn AS OBJECT
LOCAL i AS INT
LOCAL nColumn AS INT // nº de columnas
LOCAL
nDesact AS INT // nº de columnas a desactivar
LOCAL nResto AS INT // diferencia entre el total de columnas y las
que se quiere desactivar
** Desactivar las cinco primeras columnas del bBrowser
De:guvoaII@...
[mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti Enviado el: miércoles, 22 de marzo
de 2006 17:22 Para:GUVOA
II Asunto: [guvoaII] BBrowser y
Editar una columna.
Tengo un
bBrowser en una Datawindow y necesito que solo una columna sea editable por el
usuario..
Algún
ejemplo?
Gerardo J. Biagiotti Analista de Sistemas (2580) Marcos Juárez Córdoba - Argentina
De:guvoaII@... [mailto:guvoaII@...] En nombre de José Ramón Castro Enviado el: Miércoles, 22 de Marzo
de 2006 03:44 p.m. Para:guvoaII@... Asunto: RE: [guvoaII] BBrowser y
Editar una columna.
Saludos Gerardo:
Como veo que el bBrowser puede tener más de una columna y no vas a desactivar
una por una aquí te pongo un ejemplo de cómo desactivarlas en un subformulario
que para el caso es casi lo mismo.
LOCAL oColumn AS OBJECT
LOCAL i AS INT
LOCAL nColumn AS INT // nº de columnas
LOCAL
nDesact AS INT // nº de columnas a desactivar
LOCAL nResto AS INT // diferencia entre el total de columnas y las
que se quiere desactivar
** Desactivar las cinco primeras columnas del bBrowser
De:guvoaII@...
[mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti Enviado el: miércoles, 22 de marzo
de 2006 17:22 Para:GUVOA
II Asunto: [guvoaII] BBrowser y
Editar una columna.
Tengo un
bBrowser en una Datawindow y necesito que solo una columna sea editable por el
usuario..
Algún
ejemplo?
Gerardo J. Biagiotti Analista de Sistemas (2580) Marcos Juárez Córdoba - Argentina
Como veo que el bBrowser puede
tener más de una columna y no vas a desactivar una por una aquí te pongo un
ejemplo de cómo desactivarlas en un subformulario que para el caso es casi lo
mismo.
LOCAL oColumn AS OBJECT
LOCAL i AS INT
LOCAL nColumn AS INT // nº de
columnas
LOCAL nDesact AS INT // nº de
columnas a desactivar
LOCAL nResto AS INT //
diferencia entre el total de columnas y las que se quiere desactivar
** Desactivar las cinco
primeras columnas del bBrowser
De:
guvoaII@... [mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti Enviado el: miércoles, 22 de marzo
de 2006 17:22 Para: GUVOA II Asunto: [guvoaII] BBrowser y
Editar una columna.
Tengo un bBrowser en una Datawindow y necesito que solo una
columna sea editable por el usuario..
Algún ejemplo?
Gerardo J. Biagiotti Analista de Sistemas (2580)
Marcos Juárez Córdoba
- Argentina
De:guvoaII@... [mailto:guvoaII@...] En nombre de Hernÿffffe1n Sinclair Enviado el: Lunes, 20 de Marzo de
2006 03:59 p.m. Para:guvoaII@... Asunto: [guvoaII] Consulta sobre
el menu?
Hola lista.
Quería saber si alguien sabe como ocultar (no
borrando) elementos del menu (items de un submenu), ya que estoy teniendo
el siguiente problema si los borro:
1 - Si borro un ítem, y luego quiero que aparezca
nuevamente, no puedo hacerlo si no cierro y vuelvo abrir el sistema...
2 - Puedo borrar todos los ítem de un sub-menu pero no los
separadores...
Quería saber si alguien sabe como ocultar (no borrando) elementos del menu (items de un submenu), ya que estoy teniendo el siguiente problema si los borro:
1 - Si borro un ítem, y luego quiero que aparezca nuevamente, no puedo hacerlo si no cierro y vuelvo abrir el sistema...
2 - Puedo borrar todos los ítem de un sub-menu pero no los separadores...
Luciano:
Cuando tenés la DataWindow haces drag and drop de un control
Sub-DataWindow y lo soltás sobre la DataWindow.
Modificás el tamaño de la Sub-DataWindow.
Salvás el trabajo.
Doble click sobre la Sub-DataWindow.
Hacés click en el botón Autolayout , seleccionás el server en el combobox
y click en Ok.
Seleccionás los campos a mostrar y click en Ok.
Presionás el botón Browse:Form View para que aparezcan como columnas.
Salvás el trabajo y ya puedes ver tu primer browser.
Luego volvés a la pantalla para personalizarlo.
Bueno, esto lo escribí de memoria espero no olvidar algo, cualquier duda
escribes.
Saludos.
Walter Funes
Luciano Esteban escribió:
> Hola Compáñeros del foro...
>
> Les cuento que estoy tratando de desarrollar una pequeña
> aplicacion para dar mis primeros pasos en CAVO, tengo la
> version full del CAVO 2.5 b-3, y vengo leyendo bastante
> documentacion hacer rato, y definitivamente quiero pasar
> a este potente lenguaje de programacion...
> El tema es que quiero pasar un pequeño programita hecho en CA-Clipper
> 5.3b, que lo unico que hace es consultar una DBF (de empleados)
> , y poder agregar o borrar registros, algo sencillo para empezar;
> el tema es que cree una aplicacion MDI con una shellwindow, y un menu
> que tiene solo dos opciones "Abrir y Salir", y estuve leyendo
> que para mostrar una DBF (al estilo "DBedit" de CA-Clipper) tengo
> que crear una Datawindow e incrustarle en la misma una Sub-data Window
> para en la misma inscrustarle la consulta del DBserver, pero ahi me
> pierdo un poco y no entiendo bien como hacerlo, ya que lei la
> documentacion pero no entiendo muy bien el concepto...
> Lo que pude hacer es con el editor de DBserver cree una clase heredada
> del dbserver con la informacion de mi DBF, con mi RDD, hasta ahi
> todo bien, pero el problema es que no se como mostrar esa consulta
>
> Bueno, espero me puedan ayudar
> Desde ya, muchas Gracias
> LUciano
>
>
> Enlaces de Yahoo! Grupos
>
>
>
>
Hola Compáñeros del foro...
Les cuento que estoy tratando de desarrollar una pequeña
aplicacion para dar mis primeros pasos en CAVO, tengo la
version full del CAVO 2.5 b-3, y vengo leyendo bastante
documentacion hacer rato, y definitivamente quiero pasar
a este potente lenguaje de programacion...
El tema es que quiero pasar un pequeño programita hecho en CA-Clipper
5.3b, que lo unico que hace es consultar una DBF (de empleados)
, y poder agregar o borrar registros, algo sencillo para empezar;
el tema es que cree una aplicacion MDI con una shellwindow, y un menu
que tiene solo dos opciones "Abrir y Salir", y estuve leyendo
que para mostrar una DBF (al estilo "DBedit" de CA-Clipper) tengo
que crear una Datawindow e incrustarle en la misma una Sub-data Window
para en la misma inscrustarle la consulta del DBserver, pero ahi me
pierdo un poco y no entiendo bien como hacerlo, ya que lei la
documentacion pero no entiendo muy bien el concepto...
Lo que pude hacer es con el editor de DBserver cree una clase heredada
del dbserver con la informacion de mi DBF, con mi RDD, hasta ahi
todo bien, pero el problema es que no se como mostrar esa consulta
Bueno, espero me puedan ayudar
Desde ya, muchas Gracias
LUciano
De:guvoaII@... [mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti Enviado el: Jueves, 16 de Marzo de 2006 10:04 a.m. Para:GUVOA II Asunto: [guvoaII] rich Edit y Formatos en el texto.
Tengo un control RichEdit y necesito asignarle diferentes formatos a los párrafos del mismo.
Por ejemplo:
El control RichEdit se llama Sugerencias.
LOCAL DIM aFonts[4] AS OBJECT
LOCAL cTexto AS STRING
//Niveles de texto
//1 = Título principal, centralizado.
//2 = Subtítulo 1
//3 = Subtítulo 2
//4 = Cuerpo de Texto
//Formato 1
aFonts[1] := Font{,10,"Arial"}
aFonts[1]:Bold := TRUE
aFonts[1]:Italic := TRUE
aFonts[1]:Underline := TRUE
//oDCFT_Titulo:TextColor := Color{COLORBLUE}
//Formato 2
aFonts[2] := Font{,9,"Arial"}
aFonts[2]:Bold := TRUE
aFonts[2]:Underline := TRUE
//Formato 3
aFonts[3] := Font{,8,"Arial"}
aFonts[3] :Bold := TRUE
//Formato 4
aFonts[4] := Font{,8,"Arial"}
//FIN Niveles de Texto
cTexto := “Párrafo 1”+CRLF+;
“Párrafo 2”+CRLF+;
“Párrafo 3”+CRLF+;
“Párrafo 4”+CRLF+;
SELF:oDCSugerencias:TextValue := cTexto
A cada párrafo debo asignarles las características definidas en aFonts 1,2,3 y 4 respectivamente.
Cómo debería hacerlo? Alguno tiene ejemplos de cómo hacerlo?
Aclaro también que el texto no es cargado por el operador, ya que lo que quiero hacer es una clase de sugerencias operativas para los usuarios de mis programas.
Estuve viendo la clase VOPad pero utiliza la API de Window para hacerlo, y quiero evitarlo, me gustaría usar los comandos que proporciona VO para la clase RichEdit.
Gerardo J. Biagiotti Analista de Sistemas (2580) Marcos Juárez Córdoba - Argentina
De:guvoaII@... [mailto:guvoaII@...] En nombre de Gerardo J. Biagiotti Enviado el: Jueves, 16 de Marzo de
2006 10:04 a.m. Para:GUVOA
II Asunto: [guvoaII] rich Edit y
Formatos en el texto.
Tengo un control RichEdit y necesito asignarle diferentes
formatos a los párrafos del mismo.
Por ejemplo:
El control RichEdit se llama Sugerencias.
LOCAL DIM aFonts[4] AS OBJECT
LOCAL cTexto AS STRING
//Niveles de texto
//1 = Título principal, centralizado.
//2 = Subtítulo 1
//3 = Subtítulo 2
//4 = Cuerpo de Texto
//Formato 1
aFonts[1] := Font{,10,"Arial"}
aFonts[1]:Bold := TRUE
aFonts[1]:Italic := TRUE
aFonts[1]:Underline := TRUE
//oDCFT_Titulo:TextColor := Color{COLORBLUE}
//Formato 2
aFonts[2] := Font{,9,"Arial"}
aFonts[2]:Bold := TRUE
aFonts[2]:Underline := TRUE
//Formato 3
aFonts[3] := Font{,8,"Arial"}
aFonts[3] :Bold := TRUE
//Formato 4
aFonts[4] := Font{,8,"Arial"}
//FIN Niveles de Texto
cTexto := “Párrafo 1”+CRLF+;
“Párrafo 2”+CRLF+;
“Párrafo 3”+CRLF+;
“Párrafo 4”+CRLF+;
SELF:oDCSugerencias:TextValue := cTexto
A cada párrafo debo asignarles las características definidas
en aFonts 1,2,3 y 4 respectivamente.
Cómo debería hacerlo? Alguno tiene ejemplos de cómo
hacerlo?
Aclaro también que el texto no es cargado por el operador,
ya que lo que quiero hacer es una clase de sugerencias operativas para los
usuarios de mis programas.
Estuve viendo la clase VOPad pero utiliza la API de Window para
hacerlo, y quiero evitarlo, me gustaría usar los comandos que proporciona VO
para la clase
RichEdit.
Gerardo J. Biagiotti Analista de Sistemas (2580)
Marcos Juárez Córdoba
- Argentina
Estimadísimos:
Durante la próxima Semana Santa estaré por Bs.As. unos días. Quisiera
comprar algunos artículos de electrónica que por acá no se consiguen y
mi pedido es si me acercan direcciones de comercios de repuestos y
artículos de electrónica. Seguramente debe de haber alguna zona donde
ese tipo de comercios se agrupen.
Saludos.
Walter.
Tengo un control RichEdit y necesito asignarle diferentes
formatos a los párrafos del mismo.
Por ejemplo:
El control RichEdit se llama Sugerencias.
LOCAL DIM aFonts[4] AS OBJECT
LOCAL cTexto AS STRING
//Niveles de texto
//1 = Título principal, centralizado.
//2 = Subtítulo 1
//3 = Subtítulo 2
//4 = Cuerpo de Texto
//Formato 1
aFonts[1] := Font{,10,"Arial"}
aFonts[1]:Bold := TRUE
aFonts[1]:Italic := TRUE
aFonts[1]:Underline := TRUE
//oDCFT_Titulo:TextColor := Color{COLORBLUE}
//Formato 2
aFonts[2] := Font{,9,"Arial"}
aFonts[2]:Bold := TRUE
aFonts[2]:Underline := TRUE
//Formato 3
aFonts[3] := Font{,8,"Arial"}
aFonts[3] :Bold := TRUE
//Formato 4
aFonts[4] := Font{,8,"Arial"}
//FIN Niveles de Texto
cTexto := “Párrafo 1”+CRLF+;
“Párrafo 2”+CRLF+;
“Párrafo 3”+CRLF+;
“Párrafo 4”+CRLF+;
SELF:oDCSugerencias:TextValue := cTexto
A cada párrafo debo asignarles las características definidas
en aFonts 1,2,3 y 4 respectivamente.
Cómo debería hacerlo? Alguno tiene ejemplos de cómo hacerlo?
Aclaro también que el texto no es cargado por el operador,
ya que lo que quiero hacer es una clase de sugerencias operativas para los
usuarios de mis programas.
Estuve viendo la clase VOPad pero utiliza la API de Window para
hacerlo, y quiero evitarlo, me gustaría usar los comandos que proporciona VO
para la clase
RichEdit.
Gerardo J. Biagiotti Analista de Sistemas (2580)
Marcos Juárez Córdoba
- Argentina
Hola Gerardo:
Estas utilizando Window:Pen para dibujar LineObjects, EllipseObjects,
etc
Quieres dibujar estos objetos utilizando las características que
tiene la pluma actual a excepción del grosor. Las características de
color y estilo de línea no las conoces pero quieres conservarlas.
LOCAL sPen IS _winLogpen
LOCAL oColor AS Color
GetObject(SELF:Pen:Handle(), _SizeOf(_winLogpen), @sPen)
oColor := Color{GetRValue(sPen.lopnColor),GetGValue
(sPen.lopnColor),GetBValue(sPen.lopnColor)}
SELF:Pen := Pen{oColor, sPen.lopnStyle, 10}
Acabas de darle a la pluma el grosor 10 sin cambiar color ni estilo
de línea
Saludos, Eusebi
Sin conexión 
Enviar correo