First commit 25/07/1999

ActImg/actimg.h

@@ -0,0 +1,72 @@
+//---------------------------------------------------------------------------
+#ifndef ActImgH
+#define ActImgH
+//---------------------------------------------------------------------------
+#include <vcl\SysUtils.hpp>
+#include <vcl\Controls.hpp>
+#include <vcl\Classes.hpp>
+#include <vcl\Forms.hpp>
+#include <vcl\ExtCtrls.hpp>
+
+//---------------------------------------------------------------------------
+class PACKAGE TActiveImage : public TCustomControl
+{
+private:
+//	bool mcaptured;
+    enum CStates { CSt_NORMAL, CSt_PRESS, CSt_OVER } CState;
+	void __fastcall MouseMove( Classes::TShiftState Shift, int X, int Y);
+    void __fastcall MouseDown( TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
+    void __fastcall MouseUp( TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
+
+protected:
+    bool MouseCaptured;
+
+    void __fastcall Paint();
+
+    void __fastcall CreateParams(TCreateParams &Params);
+
+    void __fastcall SetGlyphOver( Graphics::TBitmap *val );
+    void __fastcall SetGlyphPress( Graphics::TBitmap *val );
+    void __fastcall SetGlyphNormal( Graphics::TBitmap *val );
+
+    bool vAutoSize;
+    void __fastcall SetAutoSize( bool val );
+
+    MESSAGE void __fastcall CMMouseEnter    ( TMessage& Msg );
+    MESSAGE void __fastcall CMMouseLeave    ( TMessage& Msg );
+
+public:
+	Graphics::TBitmap *GlyphOver,*GlyphNormal, *GlyphPress;
+    Graphics::TCanvas *RCanvas;
+
+	__fastcall TActiveImage(TComponent* Owner);
+	__fastcall ~TActiveImage();
+
+__published:
+    __property Graphics::TBitmap *Glyph_Normal={read=GlyphNormal, write=SetGlyphNormal};
+    __property Graphics::TBitmap *Glyph_Over={read=GlyphOver, write=SetGlyphOver};
+    __property Graphics::TBitmap *Glyph_Press={read=GlyphPress, write=SetGlyphPress};
+    __property bool AutoSize={read=vAutoSize, write=SetAutoSize, default=false };
+/*
+    __property TMouseEvent OnMouseDown = {read=FOnMouseDown, write=FOnMouseDown};
+    __property TMouseMoveEvent OnMouseMove = {read=FOnMouseMove, write=FOnMouseMove};
+    __property TMouseEvent OnMouseUp = {read=FOnMouseUp, write=FOnMouseUp};
+
+    __property Classes::TNotifyEvent OnClick = {read=FOnClick, write=FOnClick};
+    __property Classes::TNotifyEvent OnDblClick = {read=FOnDblClick, write=FOnDblClick};
+*/
+    __property OnMouseDown;
+    __property OnMouseMove;
+    __property OnMouseUp;
+
+    __property OnClick;
+    __property OnDblClick;
+
+  BEGIN_MESSAGE_MAP
+    VCL_MESSAGE_HANDLER ( CM_MOUSEENTER,        TMessage,           CMMouseEnter     )
+    VCL_MESSAGE_HANDLER ( CM_MOUSELEAVE,        TMessage,           CMMouseLeave     )
+  END_MESSAGE_MAP(inherited);
+
+};
+//---------------------------------------------------------------------------
+#endif