FiveTech Software tech support forums

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

... 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

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

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

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

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

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

Code: Select all  Expand view

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..

Gracias.

Funciona perfect..

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 view

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 view

   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 view

:
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...

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.

Gracias Rolando por lo tips...
Saludos

Carlos Sincuir