Steema Central

Code: Select all

uses
 Teeconst, TeeProcCo, TeeTranslate,  TeeFrench,

  chart1 := Tchart.create(self);
  [..] 
  charteditor1.chart := chart1;
  TeeSetFrench;

Code: Select all

uses Chart, TeeEdit, TeeTranslate, TeeFrench;

var ChartEditor1: TChartEditor;
    Chart1: TChart;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1 := TChart.Create(self);
  Chart1.Parent := Form1;

  ChartEditor1 := TChartEditor.Create(self);

  TeeSetFrench;

  ChartEditor1.Chart := Chart1;
  ChartEditor1.Execute;
end;

Code: Select all

unit testCodeU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Chart, TeeEdit, TeeTranslate, TeeFrench;

type
  TForm5 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    ChartEditor1: TChartEditor;
    Chart1: TChart;
  public
    { Public declarations }
    class procedure Showform;
  end;



implementation

{$R *.nfm}

procedure TForm5.FormCreate(Sender: TObject);
begin
  Chart1 := TChart.Create(self);
  Chart1.Parent := self;

  ChartEditor1 := TChartEditor.Create(self);

  TeeSetFrench;

  ChartEditor1.Chart := Chart1;
  ChartEditor1.Execute;
end;

class procedure TForm5.Showform;
var
  Form5: Tform5;
begin
   Form5:= Tform5.create(application);
   with Form5 do
   try
     showmodal;
   finally
     release;
   end;

end;


end.

Code: Select all

begin
   Tform5.showform;
end;

Code: Select all

  TeeAskLanguage;
  MessageDlg('TeeLanguageRegistry:' + inttostr(TeeLanguageRegistry), mtWarning, [mbOK], 0);

  ChartEditor1 := TChartEditor.Create(self);
  ChartEditor1.Chart := Chart1;
  ChartEditor1.Execute;