First commit 26/10/1998

traymain.h

@@ -0,0 +1,64 @@
+//----------------------------------------------------------------------------
+//Borland C++Builder
+//Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
+//----------------------------------------------------------------------------
+//---------------------------------------------------------------------------
+#ifndef traymainH
+#define traymainH
+//---------------------------------------------------------------------------
+#include <Forms.hpp>
+#include <StdCtrls.hpp>
+#include <Controls.hpp>
+#include <Classes.hpp>
+#include <ExtCtrls.hpp>
+#include <Menus.hpp>
+#include <Buttons.hpp>
+#define MYWM_NOTIFY         (WM_APP+100)
+#define IDC_MYICON                     1006
+extern HINSTANCE g_hinst;
+LRESULT IconDrawItem(LPDRAWITEMSTRUCT lpdi);
+//---------------------------------------------------------------------------
+class TTrayMainForm : public TForm
+{
+__published:
+    TPopupMenu *PopupMenu1;
+    TMenuItem *Properties1;
+    TMenuItem *ToggleState1;
+    TMenuItem *Shutdown1;
+    TMenuItem *N1;
+    TMenuItem *N2;
+    TMenuItem *Acercade1;
+    TImage *imagenOn;
+    TImage *imagenOFF;
+    TSpeedButton *BSalir;
+    TMenuItem *Estado1;
+    void __fastcall FormDestroy(TObject *Sender);
+    void __fastcall Properties1Click(TObject *Sender);
+    void __fastcall ToggleState1Click(TObject *Sender);
+    void __fastcall Shutdown1Click(TObject *Sender);
+    
+    
+    
+    void __fastcall BSalirClick(TObject *Sender);
+    
+    void __fastcall FormCreate(TObject *Sender);
+private:        // private user declarations
+    void __fastcall DrawItem(TMessage& Msg);
+    void __fastcall MyNotify(TMessage& Msg);
+    bool __fastcall TrayMessage(DWORD dwMessage);
+    HANDLE __fastcall IconHandle(void);
+    void __fastcall ToggleState(void);
+    PSTR __fastcall TipText(void);
+    bool Running;
+public:         // public user declarations
+    virtual __fastcall TTrayMainForm(TComponent* Owner);
+BEGIN_MESSAGE_MAP
+MESSAGE_HANDLER(WM_DRAWITEM,TMessage,DrawItem)
+MESSAGE_HANDLER(MYWM_NOTIFY,TMessage,MyNotify)
+END_MESSAGE_MAP(TForm)
+};
+//---------------------------------------------------------------------------
+extern TTrayMainForm *TrayMainForm;
+//---------------------------------------------------------------------------
+#endif
+