Subversion Repositories delphiutils

Rev

Rev 42 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 42 Rev 59
Line 2... Line 2...
2 
 
 2 
 
3 
interface
 3 
interface
4 
 
 4 
 
5 
uses
 5 
uses
6 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 6 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 
  Dialogs, StdCtrls, ExtCtrls, QuerySystemMenu;
 7 
  Dialogs, StdCtrls, ExtCtrls, QuerySystemMenu, Menus;
8 
 
 8 
 
9 
type
 9 
type
10 
  TMainForm = class(TForm)
 10 
  TMainForm = class(TForm)
11 
    CheckBox1: TCheckBox;
 11 
    CheckBox1: TCheckBox;
12 
    Timer1: TTimer;
 12 
    Timer1: TTimer;
13 
    Label1: TLabel;
 13 
    Label1: TLabel;
- 
 
 14 
    MainMenu1: TMainMenu;
- 
 
 15 
    N12231: TMenuItem;
- 
 
 16 
    N123124235425541: TMenuItem;
- 
 
 17 
    N45koiaejfunsdkf1: TMenuItem;
- 
 
 18 
    erlknf1: TMenuItem;
- 
 
 19 
    fkjn1: TMenuItem;
- 
 
 20 
    fe1: TMenuItem;
- 
 
 21 
    flmnakwjfnajwrngl1: TMenuItem;
- 
 
 22 
    ewfkjanwrgboinginrginaikrwngka1: TMenuItem;
- 
 
 23 
    asdasdjknsafjnaskfnakjf1: TMenuItem;
- 
 
 24 
    askfnjakfnkjasndfkjandf1: TMenuItem;
- 
 
 25 
    fkjafnjkasndf1: TMenuItem;
14 
    procedure FormCreate(Sender: TObject);
 26 
    procedure FormCreate(Sender: TObject);
15 
    procedure FormDestroy(Sender: TObject);
 27 
    procedure FormDestroy(Sender: TObject);
16 
    procedure Timer1Timer(Sender: TObject);
 28 
    procedure Timer1Timer(Sender: TObject);
17 
    procedure SysMenuOpened(Sender: TObject);
 29 
    procedure SysMenuOpened(Sender: TObject);
18 
    procedure SysMenuClosed(Sender: TObject);
 30 
    procedure SysMenuClosed(Sender: TObject);