Jump to content

ECharts


stone feng

Recommended Posts

Hi Arving, great charts!! 

 

I compiled in Delphi 2006 and I'm getting this error:

 

[Pascal Fatal Error] Main.pas(9): F1026 File not found: 'System.Generics.Collections.dcu'

 

Some clues? please.

 

delete System.Generics.Collections unit in main.pas 

Link to comment
Share on other sites

  • 2 weeks later...
  • 7 months later...
  • 3 weeks later...
Dear, I have Delphi 2010 and unigui 0.99.10.1172 I could not check this demo, it looks phenomenal. My error is "[MSBuild error]" 0 "is an invalid value for the" debugInformation "parameter of the" DCC "task" .... any help will thank
 
Greetings to all

 

mmurgas

Link to comment
Share on other sites

Solution

 

RxForForX , abrir cualquier archivo DPROJ-editor de texto, en busca de una fila existe

El código XML
1 <DCC_DebugInformation > 0 </ DCC_DebugInformation >

Y cambiarlo a

El código XML
1 <DCC_DebugInformation > false </ DCC_DebugInformation >
Link to comment
Share on other sites

  • 5 months later...
  • 3 months later...
  • 4 years later...
17 hours ago, Sherzod said:

  ...
  options.LoadFromFile(Format('option_%d.txt', [TUniBitBtn(Sender).Tag + 1] ) );
  ...

?

There are some buttons in the bottom of the Form,

click any button will load a corresponding txt file(base json data) and draw a chart.

procedure TMainForm.UniBitBtn1Click(Sender: TObject);
var
  options: TStringList;
begin
  options := TStringList.Create;
  try
    options.LoadFromFile(Format('option_%d.txt', [TUniBitBtn(Sender).Tag + 1] ) );
    UniSession.AddJS(Format('var option = %s', [options.Text]));
    UniSession.AddJS('myChart.setOption(option, true);');
    Self.Caption := Format('%s - %s', ['ECharts', TUniBitBtn(Sender).Caption]);
  finally
    options.Free;
  end;
end;

procedure TMainForm.UniFormShow(Sender: TObject);
begin
  UniTimer1.Enabled := True;
end;

2020-02-11_114857.thumb.jpg.08ead00a6580e55ca725e5562ed10847.jpg

Link to comment
Share on other sites

2 hours ago, 55143681 said:

There are some buttons in the bottom of the Form,

click any button will load a corresponding txt file(base json data) and draw a chart.

procedure TMainForm.UniBitBtn1Click(Sender: TObject);
var
  options: TStringList;
begin
  options := TStringList.Create;
  try
    options.LoadFromFile(Format('option_%d.txt', [TUniBitBtn(Sender).Tag + 1] ) );
    UniSession.AddJS(Format('var option = %s', [options.Text]));
    UniSession.AddJS('myChart.setOption(option, true);');
    Self.Caption := Format('%s - %s', ['ECharts', TUniBitBtn(Sender).Caption]);
  finally
    options.Free;
  end;
end;

I realized that it should be loaded from a file.

But where is the file?

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...