Otras Modificaciones a TGraph de Alfredo Arteaga

[RSalazarU]

Hola amigos de foro:

Hice nuevas modificaciones a la clase TGraph de Alfredo Arteaga

* Ahora la clase corrige automaticamente el tamaño de las series y el arreglo ayVals al de mayor tamaño
aYVal={"A","B"} => {"A","B",,,,,,,} //tamaño 8
Serie1={1,2,3,4,5,6,7,8} //sin cambio
Serie2={3,NIL,NIL,3} => {3,NIL,NIL,3,,,,,} //tamaño 8

* Se ha añadido tres nuevos parametros al metodo AddSerie()

AddSerie( aDat, cLegend, nColor, nType, l3D, lViewVal, lDrawPoint, cxLegend )

lViewVal: por defecto .T. y si es .F. no muestra los valores de esta serie
lDrawPoint: por defecto .T. y si es .F. no muestra los puntos de esta serie
cxLegend: si no es NIL, se muestra cxLegend a la derecha de la ultima columa de la grafica

Si lo necesitan, el programa fuente se lo puede descargar desde http://www.sauro-sys.com/Source/tgraph.rar

Las correcciones, hechas por mi, estan indicadas por //RSU.. (buscar esto en con el editor)

Las correcciones las hice sobre todo para el tipo de grafico GRAPH_TYPE_LINE, el que era mi requerimiento.

La version sobre la que trabaje es la de FWH v9.07

Atentamente,

Rolando Salazar Ureña
http://www.sauro-sys.com
email: SauroSrl@entelnet.bo
Cochabamba-Bolivia
FWH 9.07, xharbor 1.2.1

PD. Espero que les sirva

[RSalazarU]

... y aca esta una vista del programa que desarrolle con TGraph. Sirve para realizar el analisis de Control de Calidad de un laboratorio de Analisis Clinicos



Salu2

Rolando

[csincuir]

Se ve excelente Rolando. Filicitaciones.
Podrias colocar tu codigo de como hiciste para colocar el xBrowse y la grafica?, si no es mucha molestia por favor.
Estoy tratando de hacer un modulo de estadistica y agradeceria bastante si puedes ayudarme con esto.

Saludos cordiales.

Carlos Sincuir

[jll-fwh]

Hola ronaldo:

Felicidades por tu trabajo, se ve muy profesional, excelente.

Por cierto, como se hace para crear la grafica como la tuya que marca con un punto y una raya ( -*- ) en el punto de valor?

Dejo una imagen marcada con lo que quiero decir.



maginifico trabajo.

un saludo
JLL

[Patricio Avalos Aguirre]

Hola Rolando

se ve muy bien, gracias por el aporte

lo otro tienes el statusbar un par de iconos, me podrias indicar como se hace..

gracias

[QAZWSX2K]

saludos, si me gusto lo de poner el usuario con un icono en la status bar, como lo hiciestes?

[cuatecatl82]

Defines tu StatusBar de la Ventana Principal oWnd como siempre..

Code: Select all | Expand

Local oItem   //Como Variable Local

SET MESSAGE OF oWnd TO "Mi Programa" NOINSET
DEFINE MSGITEM oItem OF oWnd:oMsgBar SIZE 23 BITMAP cAnBMP ADJUST TOOLTIP "Ver Usuarios en Linea" ACTION (MsgInfo("Ver Usuarios")) 
   
DEFINE MSGITEM oItem OF oWnd:oMsgBar SIZE 23 BITMAP "B_CALE" ADJUST TOOLTIP "Activar Calendario" ACTION (FwCalendar())

Espero les funcione..

[Patricio Avalos Aguirre]

Gracias.

Funciona perfect..

[RSalazarU]

Hola Amigos del foro:

Aca las respuestas..

csincuir
mi codigo es largo y rebuscado, pero es algo como esto:
- oBrw es un xBrowse dentro de oWndMDI (MDI)
- oGraph lo creo dentro de oWndGrf (TGroup)
- y separo oBrw de oWndGrf con oSplit

Code: Select all | Expand

oBrw:nWidth := oBrw:nWidth/4

oWndGrf:=TGroup():New( 0, oBrw:nWidth+3, 0, oBrw:nWidth-2-3, "", oWndMDI,,nRGB( 192, 192, 192 ), .T., ,,)

oSplit:=TSplitter():New( 0, oBrw:nWidth, .T., {oBrw}, .T., {oWndGrf}, .T., GENBLOCK(CVALTOCHAR(oBrw:nWidth/2)), GENBLOCK(CVALTOCHAR(oBrw:nWidth/2)), oWndMDI,, 3, 0, .T., .T.,, .F., .T. )
oSplit:AdjClient()   

oGraph:=TGraph():New(0, 0, oWndGrf, oWndMDI:nWidth(),oWndMDI:nHeight(),"GRAFICA",,,.F.,.F.,.T.,.T.,.T.,.F.,.T.,GRAPH_TYPE_POINT)

oWnd:oClient := NIL
oWnd:bResized := {|| oSplit:AdjClient()}

 

disculpa por el codigo, pero yo manejo todo mi codigo como funciones y no como comandos, espero me entiendas.


jll-fwh

Code: Select all | Expand

   oGraph:nPoint   :=POINT_TYPE_2 //POINT_TYPE_1,POINT_TYPE_2,POINT_TYPE_3
 

Patricio Avalos Aguirre
- Al inciar el programa defino un objeto en la barra de mensajes oUserMsgItem
- Cuando obtengo el codigo de usuario llamo a oUserMsgItem:SetText()

Code: Select all | Expand

:
DEFINE MSGITEM ::oUserMsgItem OF ::oWnd:oMsgBar BITMAP "User" PROMPT "..USUARIO.." SIZE 90
:
:
oApp:oUserMsgItem:SetText( IF(LEN(ALLTRIM(cUser))<=9,ALLTRIM(cUser),LEFT(cUser,7)+"..") ) 
:
 

Atentamente,

Rolando Salazar Ureña
http://www.sauro-sys.com
email: SauroSrl@entelnet.bo
Cochabamba-Bolivia
FWH 9.07, xharbor 1.2.1

PD. Espero que les sirva
para ver algunos de mis programas visiten mi pagina se los puede descargar e instalar facilmente .. eso creo...

[RSalazarU]

Ah y otra cosa...

Lo del StatusBar lo saque/use del ejemplo de FiveGen de la carpeta samples (Num,Caps,fecha, hora,..).

La B.D. activa y Usuario actual, son MSGITEM de oWnd:oMsgBar

Atentamente,

Rolando.

[csincuir]

Gracias Rolando por lo tips...
Saludos

Carlos Sincuir