RMChart

RMChart

Postby jose_murugosa » Wed Apr 17, 2024 7:02 pm

Hola,
he visto una mención a este modo de crear graficos con la dll o el ocx de RMChart.
Hace bastantes años lo usaba con gran satisfacción, pero cuando me pasé a Harbour no pude usarla más.
Aparte, si mal no recuerdo para usarla habia que utilizar una clase activex modificada.

Alguien ha podido utilizar RMChart con Harbour, y de ser posible sin clases activex externas?

Aprecio cualquier información al respecto, me gustaba mucho trabajar con RMChart por lo inmensamente sencillo y poderoso que era trabajar con él.
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
jose_murugosa
 
Posts: 1144
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay


Re: RMChart

Postby jose_murugosa » Thu Apr 18, 2024 5:11 pm

Gracias Karinha

Revisé todos los links, al parecer hay un hilo en un blog de alguien que tiene esa clase para harbour desarrollada, pero el link no funciona.
Y los demás usan la versión para xharbour con la clase de oscar lira .

Seguiré buscando..........

Pero muchas gracias por tu ayuda!!! :D
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
jose_murugosa
 
Posts: 1144
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Re: RMChart

Postby karinha » Thu Apr 18, 2024 5:44 pm

jose_murugosa wrote:Gracias Karinha

Revisé todos los links, al parecer hay un hilo en un blog de alguien que tiene esa clase para harbour desarrollada, pero el link no funciona.
Y los demás usan la versión para xharbour con la clase de oscar lira .

Seguiré buscando..........

Pero muchas gracias por tu ayuda!!! :D


José, haz un EJEMPLO práctico, alojalo en MegaUpload, que descargo e intento compilar con xHarbour. Dos cabezas piensan mejor que una... Creo... No estoy seguro. jajajajajaja.

Gracias.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7236
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: RMChart

Postby jose_murugosa » Fri Apr 19, 2024 2:01 pm

Hola,

Revisando unos Cd viejos, encontré una versión de RmChart que andaba bien por el 2011 con xharbour, pero tengo un problema con un rc que no logro compilar
A ver si encuentro la ayuda que necesito.
Este es el archivo RC en cuestión
TestRMC.rc
Code: Select all  Expand view

// Generated by ResEdit 1.6.6
// Copyright (C) 2006-2015
// http://www.resedit.net

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>
#include "resource.h"




LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
0                  0              "resource1.bin"



//
// Dialog resources
//
LANGUAGE LANG_SPANISH, SUBLANG_SPANISH_MEXICAN
DL_FLDCHART DIALOGEX 6, 18, 210, 142
STYLE DS_3DLOOK | DS_CONTEXTHELP | DS_MODALFRAME | DS_SETFONT | WS_VISIBLE | WS_CHILDWINDOW | WS_SYSMENU
FONT 8, "MS Sans Serif", 0, 0, 1
{
    CONTROL         "Personalizar1", 101, "TActiveX", 0x50010000, 0, 0, 208, 140, 0x00000000
}



LANGUAGE LANG_SPANISH, SUBLANG_SPANISH_MEXICAN
DL_FLDFLD DIALOGEX 6, 18, 270, 178
STYLE DS_3DLOOK | DS_CONTEXTHELP | DS_MODALFRAME | DS_SETFONT | WS_VISIBLE | WS_CHILDWINDOW | WS_SYSMENU
FONT 8, "MS Sans Serif", 0, 0, 1
{
    CONTROL         "", 101, WC_TABCONTROL, 0, 0, 0, 268, 176, WS_EX_LEFT
}



LANGUAGE LANG_SPANISH, SUBLANG_SPANISH_MEXICAN
DL_FOLDER DIALOGEX 6, 18, 374, 218
STYLE DS_3DLOOK | DS_CONTEXTHELP | DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "Dialog"
FONT 8, "MS Sans Serif", 0, 0, 1
{
    CONTROL         "", 101, WC_TABCONTROL, 0, 4, 4, 368, 208, WS_EX_LEFT
}



LANGUAGE 48, 4
DL_RMCHART DIALOGEX 0, 0, 469, 299
STYLE DS_MODALFRAME | DS_SHELLFONT | WS_CAPTION | WS_POPUP | WS_SYSMENU
CAPTION "Dialog"
FONT 8, "MS Shell Dlg", 400, 0, 1
{
    CONTROL         "Personalizar1", 101, "TActiveX", 0x50010000, 7, 7, 455, 285, 0x00000000
}

 


Y me devuelve este error:

Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Compiling 'd:\xbase-proyectos\varios\rmchart\source\TESTRMC.prg'...
Lines 5422, Functions/Procedures 8
Generating C source output to 'C:\fivedit\TESTRMC.c'... Done.
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
C:\fivedit\TESTRMC.c:
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Compiling 'd:\xbase-proyectos\varios\rmchart\source\TRMCHARTX.prg'...
Lines 5183, Functions/Procedures 10
Generating C source output to 'C:\fivedit\TRMCHARTX.c'... Done.
Embarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.
C:\fivedit\TRMCHARTX.c:





C:\fivedit>C:\BCC7\bin\brc32.exe -r d:\xbase-proyectos\varios\rmchart\resource\TESTRMC -iC:\BCC7\include -iC:\BCC7\include\dinkumware -iC:\BCC7\include\windows\sdk -fod:\xbase-proyectos\varios\rmchart\resource\TESTRMC.res
Borland Resource Compiler Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved.

Error TESTRMC.RC 14 20: Not a positive short integer

Agradezco cualquier ayuda.
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
jose_murugosa
 
Posts: 1144
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Re: RMChart

Postby karinha » Fri Apr 19, 2024 2:31 pm

José, empieza a aprender desde el principio, usa la DLL RMCHART. A continuación se muestran ejemplos sencillos de uso con (X)HARBOUR.

Download de mi MegaUpload:

https://mega.nz/file/dAVQjbia#_6idiQiaTPc6-nGhOa2wtsF0LddU1TNJWDwG-h0VSyE

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7236
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: RMChart

Postby karinha » Fri Apr 19, 2024 2:43 pm

Ejemplo inicial:

Code: Select all  Expand view

#include "FiveWin.ch"
#include "RMChartX.ch"  // Anadir el .DLL

FUNCTION Main()

   LOCAL oMenu

   PUBLIC oWnd

   AtlAxWinInit() // ???

   MENU oMenu

      MenuItem '&1-Gráficos Barras' Action TestDialog( '1' )

      MenuItem '&2-Gráficos Torta' Action TestDialog( '2' )

      MenuItem '&X-Sair' Action oWnd:end()

   EndMenu

   DEFINE Window oWnd

   oWnd:SetMenu( oMenu )

   oChart := CActiveX():New( oWnd, "RMChart.RMChartX" )

   oWnd:oClient := oChart

   Activate Window oWnd

RETURN NIL

// FIN / END
 


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7236
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 6 guests