Language Config

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Unit2, Buttons, Menus, IniFiles, xmldom, XMLIntf,
msxmldom, XMLDoc, ComCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
File1: TMenuItem;
New1: TMenuItem;
Open1: TMenuItem;
SaveAs1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
Language1: TMenuItem;
Indonesian1: TMenuItem;
English1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Email1: TMenuItem;
Websit1: TMenuItem;
StatusBar1: TStatusBar;
Norge1: TMenuItem;
N2: TMenuItem;
procedure New1Click(Sender: TObject);
procedure English1Click(Sender: TObject);
procedure Indonesian1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure SaveAs1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Email1Click(Sender: TObject);
procedure Websit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Norge1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Ini : TIniFile;
Lang : String;
implementation

{$R *.dfm}

procedure TForm1.New1Click(Sender: TObject);
begin
Memo1.Clear;
end;

procedure TForm1.English1Click(Sender: TObject);
begin
Eng;
English1.Checked := true;
Indonesian1.Checked := false;
Norge1.Checked := false;
StatusBar1.Panels[1].Text := 'English';
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Ini.WriteString('Copyright © 2009, Zephio Soft.','Language','English');
finally
Ini.Free;
end;
end;

procedure TForm1.Indonesian1Click(Sender: TObject);
begin
Ind;
Indonesian1.Checked := true;
English1.Checked := false;
Norge1.Checked := false;
StatusBar1.Panels[1].Text := 'Bahasa Indonesia';
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Ini.WriteString('Copyright © 2009, Zephio Soft.','Language','Bahasa Indonesia') ;
finally
Ini.Free;
end;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.SaveAs1Click(Sender: TObject);
begin
if not SaveDialog1.Execute then
Exit;
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
if not OpenDialog1.Execute then
Exit;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Email1Click(Sender: TObject);
begin
Email;
end;

procedure TForm1.Websit1Click(Sender: TObject);
begin
Web;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Lang := Ini.ReadString('Copyright © 2009, Zephio Soft.','Language','') ;
StatusBar1.Panels[1].Text := Lang;
finally
Ini.Free;
if StatusBar1.Panels[1].Text = 'Bahasa Indonesia' then
begin
Ind;
Indonesian1.Checked := true;
English1.Checked := false;
Norge1.Checked := false;
end
else
if StatusBar1.Panels[1].Text = 'English' then
begin
Eng;
English1.Checked := true;
Indonesian1.Checked := false;
Norge1.Checked := false;
end
else
if StatusBar1.Panels[1].Text = 'Norge' then
begin
Nor;
Norge1.Checked := true;
Indonesian1.Checked := false;
English1.Checked := false
end
else
begin
StatusBar1.Panels[1].Text := 'English';
Eng;
English1.Checked := true;
Indonesian1.Checked := false;
Norge1.Checked := false;
end;

end;

end;

procedure TForm1.Norge1Click(Sender: TObject);
begin
Nor;
Norge1.Checked := true;
English1.Checked := false;
Indonesian1.Checked := false;
StatusBar1.Panels[1].Text := 'Norge';
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
Ini.WriteString('Copyright © 2009, Zephio Soft.','Language','Norge') ;
finally
Ini.Free;
end;
end;

end.

//-------------------------------------------------->

unit Unit2;

interface

procedure Ind;
procedure Eng;
procedure Nor;
procedure Web;
procedure Email;

implementation


Uses
Unit1, ShellApi, Windows, SysUtils;

procedure Ind;
begin
Form1.File1.Caption := 'Berkas';
Form1.New1.Caption := 'Baru';
Form1.Open1.Caption := 'Buka';
Form1.SaveAs1.Caption := 'Simpan Sebagai';
Form1.Exit1.Caption := 'Keluar';
Form1.Language1.Caption := 'Bahasa';
Form1.English1.Caption := 'Inggris';
Form1.Indonesian1.Caption := 'Indonesia';
Form1.Norge1.Caption := 'Norwegia';
end;

procedure Eng;
begin
Form1.File1.Caption := 'File';
Form1.New1.Caption := 'New File';
Form1.Open1.Caption := 'Open';
Form1.SaveAs1.Caption := 'Save As';
Form1.Exit1.Caption := 'Exit';
Form1.Language1.Caption := 'Language';
Form1.English1.Caption := 'English';
Form1.Indonesian1.Caption := 'Indonesian';
Form1.Norge1.Caption := 'Norsk';
end;

procedure Nor;
begin
Form1.File1.Caption := 'fil...';
Form1.New1.Caption := 'Ny fil...';
Form1.Open1.Caption := 'Åpne...';
Form1.SaveAs1.Caption := 'Lagre som...';
Form1.Exit1.Caption := 'Avslutt';
Form1.Language1.Caption := 'Språk';
Form1.English1.Caption := 'Engelsk';
Form1.Indonesian1.Caption := 'Indonesisk';
Form1.Norge1.Caption := 'Norge';
end;

procedure Web;
var
St : Array [0..255] of char;
begin
ShellExecute(0,'open',StrPCopy(St,'http://myspace.com/zephio'),nil,nil,SW_SHOW);
end;

procedure Email;
begin
ShellExecute(0,'open','mailto:zephio@myspace.com?subject=Hi, Zephio...','','',SW_SHOW);
end;
end.

DL SChttp://www.mediafire.com/?za6ql1x1bj1b540