Das hier ist der original Code, den mir RMCharts gibt:
Code: Alles auswählen
'************** Create the chart **********************
nRetVal = RMC_CreateChartOnDC(Me.hDC,ID_RMC1,10,10,600,450,Transparent,RMC_CTRLSTYLEFLAT,FALSE,"","Tahoma", Default)
IF nRetVal < 0 THEN GOTO IsError
'************** Add Region 1 *****************************
nRetVal = RMC_AddRegion(ID_RMC1,5,5,-5,-5,"",FALSE)
IF nRetVal < 0 THEN GOTO IsError
'************** Add caption to region 1 *******************
nRetVal = RMC_AddCaption(ID_RMC1,1,"Datum",Transparent,Black,10,TRUE)
IF nRetVal < 0 THEN GOTO IsError
'************** Add grid to region 1 *****************************
nRetVal = RMC_AddGrid(ID_RMC1,1,Transparent,FALSE,0,0,0,0,RMC_BICOLOR_NONE)
IF nRetVal < 0 THEN GOTO IsError
'************** Add data axis to region 1 *****************************
nRetVal = RMC_AddDataAxis(ID_RMC1,1,RMC_DATAAXISLEFT,0,100,11,8,Black,Black,RMC_LINESTYLESOLID,0,"","","",RMC_TEXTRIGHT)
IF nRetVal < 0 THEN GOTO IsError
'************** Add label axis to region 1 *****************************
sTemp = "2000*2001*2002*2003*2004"
nRetVal = RMC_AddLabelAxis(ID_RMC1,1, sTemp,1,5,RMC_LABELAXISBOTTOM,8,Default,RMC_TEXTCENTER,Default,RMC_LINESTYLESOLID,"")
IF nRetVal < 0 THEN GOTO IsError
'************** Add legend to region 1 *******************************
sTemp = "First quarter*Second quarter*Third quarter*Fourth quarter"
nRetVal = RMC_AddLegend(ID_RMC1,1,sTemp,RMC_LEGEND_TOP,Transparent,RMC_LEGENDNORECT,Black,8,FALSE)
IF nRetVal < 0 THEN GOTO IsError
'************** Add Series 1 to region 1 *******************************
'****** Read data values ******
REDIM aData(4)
aData(0) = 30 : aData(1) = 20 : aData(2) = 40 : aData(3) = 60 : aData(4) = 10
nRetVal = RMC_AddBarSeries(ID_RMC1,1,aData(0), 5,RMC_BARGROUP,RMC_BAR_3D,FALSE,DeepYellow,FALSE,1,RMC_VLABEL_NONE,1,RMC_HATCHBRUSH_ON)
IF nRetVal < 0 THEN GOTO IsError
'************** Add Series 2 to region 1 *******************************
'****** Read data values ******
REDIM aData(4)
aData(0) = 30 : aData(1) = 20 : aData(2) = 50 : aData(3) = 70 : aData(4) = 60
nRetVal = RMC_AddBarSeries(ID_RMC1,1,aData(0), 5,RMC_BARGROUP,RMC_BAR_3D,FALSE,Default,FALSE,1,RMC_VLABEL_NONE,1,RMC_HATCHBRUSH_OFF)
IF nRetVal < 0 THEN GOTO IsError
'************** Add Series 3 to region 1 *******************************
'****** Read data values ******
REDIM aData(4)
aData(0) = 40 : aData(1) = 10 : aData(2) = 30 : aData(3) = 20 : aData(4) = 80
nRetVal = RMC_AddBarSeries(ID_RMC1,1,aData(0), 5,RMC_BARGROUP,RMC_BAR_3D,FALSE,Default,FALSE,1,RMC_VLABEL_NONE,1,RMC_HATCHBRUSH_OFF)
IF nRetVal < 0 THEN GOTO IsError
'************** Add Series 4 to region 1 *******************************
'****** Read data values ******
REDIM aData(4)
aData(0) = 70 : aData(1) = 50 : aData(2) = 80 : aData(3) = 40 : aData(4) = 30
nRetVal = RMC_AddBarSeries(ID_RMC1,1,aData(0), 5,RMC_BARGROUP,RMC_BAR_3D,FALSE,Default,FALSE,1,RMC_VLABEL_NONE,1,RMC_HATCHBRUSH_OFF)
IF nRetVal < 0 THEN GOTO IsError
nRetVal = RMC_SetWatermark(RMC_USERWM,RMC_USERWMCOLOR,RMC_USERWMLUCENT,RMC_USERWMALIGN,RMC_USERFONTSIZE)
nRetVal = RMC_Draw(ID_RMC1)
IF nRetVal < 0 THEN GOTO IsError
Exit SUB
IsError:
Code: Alles auswählen
************** Region 1 hinzufügen *****************************
oChart:RMC_AddRegion(5, ;
5, ;
-5, ;
-5, ;
DToC(Date()) + " " + Time(), ;
FALSE)
************** Grid für Region 1 hinzufügen *****************************
oChart:RMC_AddGrid(1, ;
Transparent, ;
FALSE, ;
0, ;
0, ;
0, ;
0, ;
RMC_BICOLOR_NONE)
************** Datenachen zu Region 1 hinzufügen *****************************
oChart:RMC_AddDataAxis(1, ;
RMC_DATAAXISLEFT, ;
0, ;
100, ;
11, ;
8, ;
Black, ;
Black, ;
RMC_LINESTYLESOLID, ;
0, ;
"", ;
"", ;
"", ;
RMC_TEXTCENTER)
************** Labelachsen to Region 1 hinzufügen *****************************
sTemp = "2000*2001*2002*2003*2004"
oChart:RMC_AddLabelAxis(1, ;
sTemp, ;
1, ;
5, ;
RMC_LABELAXISBOTTOM, ;
8, ;
Black, ;
RMC_TEXTCENTER, ;
Black, ;
RMC_LINESTYLESOLID, ;
"")
************** Legende zu Region 1 hinzufügen *******************************
sTemp = "First quarter*Second quarter*Third quarter*Fourth quarter"
oChart:RMC_AddLegend(1, ;
sTemp, ;
RMC_LEGEND_TOP, ;
Transparent, ;
RMC_LEGENDNORECT, ;
Blue, ;
8, ;
FALSE)
aData := {{10, 15, 40, 60, 10}, {30, 20, 50, 70, 60}, {40, 10, 30, 20, 80}, {70, 50, 80, 40, 30}}
FOR i := 1 TO Len(aData)
oChart:RMC_AddLineSeries(1, ;
aData[i], ;
5, ;
RMC_BARGROUP, ;
RMC_BAR_3D, ;
FALSE, ;
DeepYellow, ;
FALSE, ;
1, ;
RMC_VLABEL_NONE, ;
1, ;
RMC_HATCHBRUSH_OFF)
NEXT
Und was macht der mir daraus? Das hier! Was läuft da schief? Eigentlich müßte die Bargroup doch wohl ein klitzekleines bißchen anders aussehen.
Jan