1 files changed, 116 insertions, 0 deletions
diff --git a/include/delphi/reserve/m_anismiley.inc b/include/delphi/reserve/m_anismiley.inc
new file mode 100644
index 0000000000..4fcf598208
--- /dev/null
+++ b/include/delphi/reserve/m_anismiley.inc
@@ -0,0 +1,116 @@
+{$IFNDEF M_ANISMILEY}
+{$DEFINE M_ANISMILEY}
+
+const
+  IASF_UNICODE = 1;
+
+type
+  TINSERTANISMILEY = record
+    cbSize     :size_t;
+    hWnd       :HWND;
+    szFilename :TChar;
+    dwBackColor:COLORREF;
+    nHeight    :int;
+    dwFlags    :dword;
+  end;
+  tagINSERTANISMILEY = TINSERTANISMILEY;
+
+const
+  MS_INSERTANISMILEY :PAnsiChar = 'mAnimator/InsertSmiley';
+(*
+    function InsertAnimatedSmiley(wnd:HWND;filename:TChar;Back:TCOLORREF;height:int):bool;
+    const
+      bServiceExists:int=-1
+    var
+      ias:TINSERTANISMILEY;
+    begin
+      if bServiceExists=-1 then
+          bServiceExists:=ServiceExists(MS_INSERTANISMILEY);
+      if bServiceExists=0 then
+        result:=false
+      else
+      begin
+        ias.cbSize     :=SizeOf(TINSERTANISMILEY);
+        ias.hWnd       :=wnd;
+        ias.tcsFilename:=Filename.w;
+        ias.dwFlags    :=IASF_UNICODE;
+        ias.nHeight    :=Height;
+        ias.dwBackColor:=Back;
+        result:=CallService(MS_INSERTANISMILEY,WPARAM(@ias),0)<>0;
+      end;
+    end;
+
+    BOOL InsertAnimatedSmiley(HWND _hwnd, TCHAR * _szFilename, COLORREF _dwBack, int _nHeight)
+    {
+        static int bServiceExists=-1;        
+         ias={0};
+        if (bServiceExists==-1)
+            bServiceExists=ServiceExists(MS_INSERTANISMILEY);        
+        if (!bServiceExists) return FALSE;
+        ias.cbSize=sizeof(INSERTANISMILEY);
+        ias.hWnd=_hwnd;
+        ias.tcsFilename=_szFilename;
+        ias.dwFlags=IASF_TCHAR;
+        ias.nHeight=_nHeight;
+        ias.dwBackColor=_dwBack;
+        return (BOOL) CallService(MS_INSERTANISMILEY,(WPARAM)&ias, 0);
+    };
+*)
+
+
+{
+  NM_FIREVIEWCHANGE is WM_NOTIFY Message for notify parent of host window about smiley are going to be repaint
+
+  The proposed action is next: Owner of RichEdit windows received NM_FIREVIEWCHANGE through WM_NOTIFY
+  twice first time before painting|invalidating (FVCN_PREFIRE) and second time - after (FVCN_POSTFIRE).
+  The Owner window may change any values of received FVCNDATA_NMHDR structure in order to raise needed action.
+  For example it may substitute FVCA_INVALIDATE to FVCA_CUSTOMDRAW event to force painting on self offscreen context.
+  
+  It can be:
+  FVCA_CUSTOMDRAW - in this case you need to provide valid HDC to draw on and valid RECT of smiley
+  FVCA_INVALIDATE - to invalidate specified rect of window 
+  FVCA_NONE    - skip any action. But be aware - animation will be stopped till next repainting of smiley.
+  FVCA_SENDVIEWCHANGE - to notify richedit ole about object changed. Be aware Richedit will fully reconstruct itself
+
+  Another point is moment of received smiley rect - it is only valid if FVCA_DRAW is initially set, 
+  and it is PROBABLY valid if FVCA_INVALIDATE is set. And it most probably invalid in case of FVCA_SENDVIEWCHANGE.
+  The smiley position is relative last full paint HDC. Usually it is relative to top-left corner of host 
+  richedit (NOT it client area) in windows coordinates. 
+}
+
+const
+// Type of Event one of
+  FVCN_PREFIRE  = 1;
+  FVCN_POSTFIRE = 2;
+
+// Action of event are going to be done
+  FVCA_NONE           = 0;
+  FVCA_DRAW           = 1;   // do not modify hdc in case of _DRAW, Use _CUSTOMDRAW
+  FVCA_CUSTOMDRAW     = 2;
+  FVCA_INVALIDATE     = 3;
+  FVCA_SENDVIEWCHANGE = 4;
+  FVCA_SKIPDRAW       = 5;
+
+// Extended NMHDR structure for WM_NOTIFY
+type
+  TFVCNDATA_NMHDR = record
+    //NMHDR structure
+    hwndFrom     :HWND;      // Window of smiley host
+    idFrom       :uint_ptr;  // ignored
+    code         :uint;      // NM_FIREVIEWCHANGE
+    
+    cbSize       :size_t;
+    bEvent       :byte;      // FVCN_ value - pre- or post- painting
+    bAction      :byte;      // FVCA_ keys
+    hDC          :HDC;       // Canvas to draw on
+    rcRect       :TRECT;     // Valid/should be in case of FVCA_DRAW
+    clrBackground:TCOLORREF; // color to fill background if fTransparent is not set
+    fTransparent :bool;      // if need to fill back color
+    lParam       :LPARAM;    // used by host window PreFire and PostFire event
+  end;
+
+const
+// Code of WM_NOTIFY message (code)
+  NM_FIREVIEWCHANGE = NM_FIRST+1;
+
+{$ENDIF}