unit LangMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ImgList, ExtCtrls, ComCtrls,XMLIntf, msxmldom, XMLDoc,
XPMan, Menus;
type TAdressRecord =
record
name:
string;
plz: integer;
ort:
string;
end;
type
TMain =
class(TForm)
LangTree: TTreeView;
Panel1: TPanel;
Label1: TLabel;
Panel2: TPanel;
Images: TImageList;
HotKey1: THotKey;
XPManifest1: TXPManifest;
PopupMenu1: TPopupMenu;
NeuenZeichensatzderSprachehinzufgen1: TMenuItem;
Zeichensatzlschen1: TMenuItem;
Zeichensatzeditieren1: TMenuItem;
N1: TMenuItem;
Sprachebersetzen1: TMenuItem;
Sprachelschen1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure LangTreeMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
end;
private
{ Private declarations }
public
{ Public declarations }
end;