FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Otras Modificaciones a TGraph de Alfredo Arteaga
Posts: 211
Joined: Wed Jul 16, 2008 12:59 PM
Otras Modificaciones a TGraph de Alfredo Arteaga
Posted: Thu Oct 14, 2010 08:03 PM
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
Posts: 211
Joined: Wed Jul 16, 2008 12:59 PM
Re: Otras Modificaciones a TGraph de Alfredo Arteaga
Posted: Thu Oct 14, 2010 08:13 PM
... 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
Posts: 476
Joined: Sat Feb 03, 2007 06:36 AM
Re: Otras Modificaciones a TGraph de Alfredo Arteaga
Posted: Fri Oct 15, 2010 12:35 AM

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

Posts: 408
Joined: Fri Jan 29, 2010 08:14 PM
Re: Otras Modificaciones a TGraph de Alfredo Arteaga
Posted: Fri Oct 15, 2010 12:25 PM
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
Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: Otras Modificaciones a TGraph de Alfredo Arteaga
Posted: Fri Oct 15, 2010 12:47 PM

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
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 364
Joined: Tue Oct 25, 2005 07:06 PM
Re: Otras Modificaciones a TGraph de Alfredo Arteaga
Posted: Fri Oct 15, 2010 02:29 PM

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

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
Re: Otras Modificaciones a TGraph de Alfredo Arteaga
Posted: Fri Oct 15, 2010 03:29 PM
Defines tu StatusBar de la Ventana Principal oWnd como siempre..

Code (fw): Select all Collapse
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..
Soluciones y DiseƱo de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y DiseƱador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: Otras Modificaciones a TGraph de Alfredo Arteaga
Posted: Fri Oct 15, 2010 07:02 PM

Gracias.

Funciona perfect..

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 211
Joined: Wed Jul 16, 2008 12:59 PM
Re: Otras Modificaciones a TGraph de Alfredo Arteaga
Posted: Fri Oct 15, 2010 07:23 PM
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 (fw): Select all Collapse
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 (fw): Select all Collapse
Ā  Ā 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 (fw): Select all Collapse
:
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...
Posts: 211
Joined: Wed Jul 16, 2008 12:59 PM
Re: Otras Modificaciones a TGraph de Alfredo Arteaga
Posted: Fri Oct 15, 2010 07:29 PM
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.
Posts: 476
Joined: Sat Feb 03, 2007 06:36 AM
Re: Otras Modificaciones a TGraph de Alfredo Arteaga
Posted: Fri Oct 15, 2010 10:26 PM

Gracias Rolando por lo tips...
Saludos

Carlos Sincuir

Continue the discussion