home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / lingua / unit1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-22  |  2.8 KB  |  109 lines
  1. unit Unit1;
  2. (***************************************************************************)
  3. (*                                                                         *)
  4. (*   #####    #####     #####   #####    #####    ####    ######  #######  *)
  5. (*  #        #     #   #          #     #        #    #   #          #     *)
  6. (*  #        #     #   #  ###     #      ####    #    #   ###        #     *)
  7. (*  #        #     #   #    #     #          #   #    #   #          #     *)
  8. (*   #####    #####     #####   #####   #####     ####    #          #     *)
  9. (*                                                                         *)
  10. (***************************************************************************)
  11. {
  12.  (c) 1995 Cogisoft
  13.  This component is FREE distribution. Use it for your own utilization.
  14.  But you can't sell an application, using this component, without the
  15.  authorization of Cogisoft.
  16.  
  17.  COGISOFT,H⌠tel de MΘziΦres,19 rue Michel Le Comte,75003 PARIS,FRANCE
  18.  Tel:(1)40-65-04-04, FAX:(1)42-72-27-87
  19.  
  20.  NO CODING !!!
  21.  Jerome VOLLET, CompuServe : 100560,3342
  22. }
  23. interface
  24.  
  25. uses
  26.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  27.   Forms, Dialogs, ExtCtrls, StdCtrls, Menus, Lingua, TabNotBk;
  28.  
  29. type
  30.   TForm1 = class(TForm)
  31.     MainMenu1: TMainMenu;
  32.     N1: TMenuItem;
  33.     N2: TMenuItem;
  34.     N3: TMenuItem;
  35.     N4: TMenuItem;
  36.     N5: TMenuItem;
  37.     N6: TMenuItem;
  38.     N7: TMenuItem;
  39.     N8: TMenuItem;
  40.     N9: TMenuItem;
  41.     N10: TMenuItem;
  42.     N11: TMenuItem;
  43.     N12: TMenuItem;
  44.     N13: TMenuItem;
  45.     N14: TMenuItem;
  46.     TabbedNotebook1: TTabbedNotebook;
  47.     Panel1: TPanel;
  48.     Button1: TButton;
  49.     Statusbar: TPanel;
  50.     Lingua1: TLingua;
  51.     procedure Button1Click(Sender: TObject);
  52.     procedure N14Click(Sender: TObject);
  53.     procedure FormCreate(Sender: TObject);
  54.     procedure N7Click(Sender: TObject);
  55.   private
  56.     { Private declarations }
  57.     protected
  58.       procedure ShowHint( Sender : TObject );
  59.   public
  60.     { Public declarations }
  61.   end;
  62.  
  63. var
  64.   Form1: TForm1;
  65.  
  66. implementation
  67.  
  68. uses unit2;
  69.  
  70. {$R *.DFM}
  71.  
  72. procedure TForm1.Button1Click(Sender: TObject);
  73. begin
  74.     with TCheckbox.Create( Self ) do
  75.   begin
  76.       Parent := Panel1;
  77.         Left := 20;
  78.     Top := 20;
  79.     Width := 200;
  80.     Caption := '##Checkbox2';
  81.   end;
  82. end;
  83.  
  84. procedure TForm1.N14Click(Sender: TObject);
  85. begin
  86.     AboutBox.ShowModal;
  87. end;
  88.  
  89. procedure TForm1.FormCreate(Sender: TObject);
  90. var
  91.     i : Integer;
  92. begin
  93.     Application.OnHint := ShowHint;
  94.     for i:=0 to TabbedNotebook1.Pages.Count-1 do
  95.       TabbedNotebook1.Pages[ i ] := Lingua1.GetWordWithCookie( TabbedNotebook1.Pages[ i ] );
  96. end;
  97.  
  98. procedure TForm1.ShowHint(Sender: TObject);
  99. begin
  100.     Statusbar.Caption := Application.Hint;
  101. end;
  102.  
  103. procedure TForm1.N7Click(Sender: TObject);
  104. begin
  105.     Close;
  106. end;
  107.  
  108. end.
  109.