Why didn't translate?
Posted: Fri Aug 16, 2013 5:06 pm
hi, i write a simple program to test translation function.
The popup window by "ChartEditor1.Execute" don't translate. who can tell me why and how to?
=================== Main.pas =======================
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, TeeProcs, TeeGalleryPanel, TeeGDIPlus, StdCtrls, TeEngine,
Chart, DBChart, TeeEdit, ComCtrls, TeeChineseSimp, Series;
type
TForm1 = class(TForm)
ChartEditor1: TChartEditor;
Panel1: TPanel;
Button1: TButton;
DBChart1: TDBChart;
Series1: TLineSeries;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
TeeSetChineseSimp;
TeeTranslateControl(Form1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ChartEditor1.Execute;
end;
end.
The popup window by "ChartEditor1.Execute" don't translate. who can tell me why and how to?
=================== Main.pas =======================
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, TeeProcs, TeeGalleryPanel, TeeGDIPlus, StdCtrls, TeEngine,
Chart, DBChart, TeeEdit, ComCtrls, TeeChineseSimp, Series;
type
TForm1 = class(TForm)
ChartEditor1: TChartEditor;
Panel1: TPanel;
Button1: TButton;
DBChart1: TDBChart;
Series1: TLineSeries;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
TeeSetChineseSimp;
TeeTranslateControl(Form1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ChartEditor1.Execute;
end;
end.