Subversion Repositories delphiutils

Rev

Rev 59 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 59 Rev 64
Line 21... Line 21...
21 
    flmnakwjfnajwrngl1: TMenuItem;
 21 
    flmnakwjfnajwrngl1: TMenuItem;
22 
    ewfkjanwrgboinginrginaikrwngka1: TMenuItem;
 22 
    ewfkjanwrgboinginrginaikrwngka1: TMenuItem;
23 
    asdasdjknsafjnaskfnakjf1: TMenuItem;
 23 
    asdasdjknsafjnaskfnakjf1: TMenuItem;
24 
    askfnjakfnkjasndfkjandf1: TMenuItem;
 24 
    askfnjakfnkjasndfkjandf1: TMenuItem;
25 
    fkjafnjkasndf1: TMenuItem;
 25 
    fkjafnjkasndf1: TMenuItem;
- 
 
 26 
    Button1: TButton;
- 
 
 27 
    Edit1: TEdit;
- 
 
 28 
    Timer2: TTimer;
26 
    procedure FormCreate(Sender: TObject);
 29 
    procedure FormCreate(Sender: TObject);
27 
    procedure FormDestroy(Sender: TObject);
 30 
    procedure FormDestroy(Sender: TObject);
28 
    procedure Timer1Timer(Sender: TObject);
 31 
    procedure Timer1Timer(Sender: TObject);
29 
    procedure SysMenuOpened(Sender: TObject);
 32 
    procedure SysMenuOpened(Sender: TObject);
30 
    procedure SysMenuClosed(Sender: TObject);
 33 
    procedure SysMenuClosed(Sender: TObject);
- 
 
 34 
    procedure Button1Click(Sender: TObject);
- 
 
 35 
    procedure Timer2Timer(Sender: TObject);
31 
  private
 36 
  private
32 
    x: TQuerySystemMenu;
 37 
    x: TQuerySystemMenu;
33 
  end;
 38 
  end;
34 
 
 39 
 
35 
var
 40 
var
Line 49... Line 54...
49 
begin
 54 
begin
50 
  CheckBox1.Checked := false;
 55 
  CheckBox1.Checked := false;
51 
  Label1.Caption := TimeToStr(Now());
 56 
  Label1.Caption := TimeToStr(Now());
52 
end;
 57 
end;
53 
 
 58 
 
- 
 
 59 
procedure TMainForm.Button1Click(Sender: TObject);
- 
 
 60 
begin
- 
 
 61 
timer1.Enabled := true;
- 
 
 62 
end;
- 
 
 63 
 
54 
procedure TMainForm.FormCreate(Sender: TObject);
 64 
procedure TMainForm.FormCreate(Sender: TObject);
55 
begin
 65 
begin
56 
  x := TQuerySystemMenu.Create(Handle);
 66 
  x := TQuerySystemMenu.Create(Handle);
57 
  x.OnSystemMenuOpen := SysMenuOpened;
 67 
  x.OnSystemMenuOpen := SysMenuOpened;
58 
  x.OnSystemMenuClose := SysMenuClosed;
 68 
  x.OnSystemMenuClose := SysMenuClosed;
Line 61... Line 71...
61 
procedure TMainForm.FormDestroy(Sender: TObject);
 71 
procedure TMainForm.FormDestroy(Sender: TObject);
62 
begin
 72 
begin
63 
  x.Destroy;
 73 
  x.Destroy;
64 
end;
 74 
end;
65 
 
 75 
 
- 
 
 76 
// Bug: Traybar-Menu...
- 
 
 77 
// Bug: Traybar-Icon-Popup...
- 
 
 78 
// Nicht beachtet: Shortcuts werden versehentlich gedrückt?
- 
 
 79 
// (System-Shortcuts, Windows-Programme-Shortcuts (*.lnk), oder MainMenu Shortcuts?
- 
 
 80 
 
66 
procedure TMainForm.Timer1Timer(Sender: TObject);
 81 
procedure TMainForm.Timer1Timer(Sender: TObject);
67 
begin
 82 
begin
68 
  // CheckBox1.Checked := x.IsSystemMenuOpened;
 83 
  // CheckBox1.Checked := x.IsSystemMenuOpened;
- 
 
 84 
 Keybd_Event(Ord('S'),   1, 0, 0);
- 
 
 85 
   Keybd_Event(Ord('S'), 1, KEYEVENTF_KEYUP, 0);
- 
 
 86 
end;
- 
 
 87 
 
- 
 
 88 
// WARNUNG: FOCUSED ist nicht gegeben bei
- 
 
 89 
// Popups (der eigenen VCL), Menüs (system, mainmenu...), etc!
- 
 
 90 
 
- 
 
 91 
procedure TMainForm.Timer2Timer(Sender: TObject);
- 
 
 92 
begin
- 
 
 93 
if   Edit1.Focused then Edit1.Color := clred
- 
 
 94 
else edit1.Color := clwhite;
69 
end;
 95 
end;
70 
 
 96 
 
71 
end.
 97 
end.