windows/caret.c

   1 /*
   2  * Caret functions
   3  *
   4  * Copyright 1993 David Metcalfe
   5  * Copyright 1996 Frans van Dorsselaer
   6  */
   7
   8 #include "windows.h"
   9 #include "module.h"
  10 #include "stddebug.h"
  11 /* #define DEBUG_CARET */
  12 #include "debug.h"
  13
  14
  15 typedef struct
  16 {
  17     HWND          hwnd;
  18     short         hidden;
  19     BOOL          on;
  20     short         x;
  21     short         y;
  22     short         width;
  23     short         height;
  24     HBRUSH        hBrush;
  25     WORD          timeout;
  26     WORD          timerid;
  27 } CARET;
  28
  29 typedef enum
  30 {
  31     CARET_OFF = 0,
  32     CARET_ON,
  33     CARET_TOGGLE,
  34 } DISPLAY_CARET;
  35
  36 static CARET Caret = { 0, };
  37
  38
  39 /*****************************************************************
  40  *              CARET_GetHwnd
  41  */
  42 HWND CARET_GetHwnd()
  43 {
  44     return Caret.hwnd;
  45 }
  46
  47 /*****************************************************************
  48  *               CARET_DisplayCaret
  49  */
  50 void CARET_DisplayCaret(DISPLAY_CARET status)
  51 {
  52     HDC hdc;
  53     HBRUSH hPrevBrush;
  54
  55     if (Caret.on && (status == CARET_ON)) return;
  56     if (!Caret.on && (status == CARET_OFF)) return;
  57
  58     /* So now it's always a toggle */
  59
  60     Caret.on = !Caret.on;
  61     if (!(hdc = GetDCEx( Caret.hwnd, 0, DCX_USESTYLE | DCX_CACHE ))) return;
  62     hPrevBrush = SelectObject( hdc, Caret.hBrush );
  63     PatBlt( hdc, Caret.x, Caret.y, Caret.width, Caret.height, PATINVERT );
  64     SelectObject( hdc, hPrevBrush );
  65     ReleaseDC( Caret.hwnd, hdc );
  66 }
  67
  68
  69 /*****************************************************************
  70  *               CARET_Callback
  71  */
  72 WORD CARET_Callback(HWND hwnd, WORD msg, WORD timerid, LONG ctime)
  73 {
  74     dprintf_caret(stddeb,"CARET_Callback: hwnd=%04x, timerid=%d, caret=%d\n",
  75                   hwnd, timerid, Caret.on);
  76
  77     CARET_DisplayCaret(CARET_TOGGLE);
  78     return 0;
  79 }
  80
  81
  82 /*****************************************************************
  83  *               CARET_SetTimer
  84  */
  85 void CARET_SetTimer(void)
  86 {
  87     if (Caret.timerid) KillSystemTimer((HWND)0, Caret.timerid);
  88     Caret.timerid = SetSystemTimer((HWND)0, 0, Caret.timeout,
  89                                    MODULE_GetWndProcEntry16("CARET_Callback"));
  90 }
  91
  92
  93 /*****************************************************************
  94  *               CARET_ResetTimer
  95  */
  96 void CARET_ResetTimer(void)
  97 {
  98     if (Caret.timerid)
  99     {
 100         KillSystemTimer((HWND)0, Caret.timerid);
 101         Caret.timerid = SetSystemTimer((HWND)0, 0, Caret.timeout,
 102                                    MODULE_GetWndProcEntry16("CARET_Callback"));
 103     }
 104 }
 105
 106
 107 /*****************************************************************
 108  *               CARET_KillTimer
 109  */
 110 void CARET_KillTimer(void)
 111 {
 112     if (Caret.timerid)
 113     {
 114         KillSystemTimer((HWND)0, Caret.timerid);
 115         Caret.timerid = 0;
 116     }
 117 }
 118
 119
 120 /*****************************************************************
 121  *               CreateCaret          (USER.163)
 122  */
 123 BOOL CreateCaret(HWND hwnd, HBITMAP bitmap, INT width, INT height)
 124 {
 125     dprintf_caret(stddeb,"CreateCaret: hwnd=%04x\n", hwnd);
 126
 127     if (!hwnd) return FALSE;
 128
 129     /* if cursor already exists, destroy it */
 130     if (Caret.hwnd) DestroyCaret();
 131
 132     if (bitmap && (bitmap != 1))
 133     {
 134         BITMAP16 bmp;
 135         if (!GetObject16( bitmap, sizeof(bmp), &bmp )) return FALSE;
 136         Caret.width = bmp.bmWidth;
 137         Caret.height = bmp.bmHeight;
 138         /* FIXME: we should make a copy of the bitmap instead of a brush */
 139         Caret.hBrush = CreatePatternBrush( bitmap );
 140     }
 141     else
 142     {
 143         Caret.width = width ? width : GetSystemMetrics(SM_CXBORDER);
 144         Caret.height = height ? height : GetSystemMetrics(SM_CYBORDER);
 145         Caret.hBrush = CreateSolidBrush( bitmap ? GetSysColor(COLOR_GRAYTEXT) :
 146                                          GetSysColor(COLOR_WINDOW) );
 147     }
 148
 149     Caret.hwnd = hwnd;
 150     Caret.hidden = 1;
 151     Caret.on = FALSE;
 152     Caret.x = 0;
 153     Caret.y = 0;
 154
 155     Caret.timeout = GetProfileInt( "windows", "CursorBlinkRate", 750 );
 156     return TRUE;
 157 }
 158
 159
 160 /*****************************************************************
 161  *               DestroyCaret         (USER.164)
 162  */
 163
 164 BOOL DestroyCaret()
 165 {
 166     if (!Caret.hwnd) return FALSE;
 167
 168     dprintf_caret(stddeb,"DestroyCaret: hwnd=%04x, timerid=%d\n",
 169                 Caret.hwnd, Caret.timerid);
 170
 171     DeleteObject( Caret.hBrush );
 172     CARET_KillTimer();
 173     CARET_DisplayCaret(CARET_OFF);
 174
 175     Caret.hwnd = 0;
 176     return TRUE;
 177 }
 178
 179
 180 /*****************************************************************
 181  *               SetCaretPos          (USER.165)
 182  */
 183
 184 void SetCaretPos(short x, short y)
 185 {
 186     if (!Caret.hwnd) return;
 187     if ((x == Caret.x) && (y == Caret.y)) return;
 188
 189     dprintf_caret(stddeb,"SetCaretPos: x=%d, y=%d\n", x, y);
 190
 191     CARET_KillTimer();
 192     CARET_DisplayCaret(CARET_OFF);
 193     Caret.x = x;
 194     Caret.y = y;
 195     if (!Caret.hidden)
 196     {
 197         CARET_DisplayCaret(CARET_ON);
 198         CARET_SetTimer();
 199     }
 200 }
 201
 202 /*****************************************************************
 203  *               HideCaret            (USER.166)
 204  */
 205
 206 void HideCaret(HWND hwnd)
 207 {
 208     if (!Caret.hwnd) return;
 209     if (hwnd && (Caret.hwnd != hwnd)) return;
 210
 211     dprintf_caret(stddeb,"HideCaret: hwnd=%04x, hidden=%d\n",
 212                   hwnd, Caret.hidden);
 213
 214     CARET_KillTimer();
 215     CARET_DisplayCaret(CARET_OFF);
 216     Caret.hidden++;
 217 }
 218
 219
 220 /*****************************************************************
 221  *               ShowCaret            (USER.167)
 222  */
 223
 224 void ShowCaret(HWND hwnd)
 225 {
 226     if (!Caret.hwnd) return;
 227     if (hwnd && (Caret.hwnd != hwnd)) return;
 228
 229     dprintf_caret(stddeb,"ShowCaret: hwnd=%04x, hidden=%d\n",
 230                 hwnd, Caret.hidden);
 231
 232     if (Caret.hidden)
 233     {
 234         Caret.hidden--;
 235         if (!Caret.hidden)
 236         {
 237             CARET_DisplayCaret(CARET_ON);
 238             CARET_SetTimer();
 239         }
 240     }
 241 }
 242
 243
 244 /*****************************************************************
 245  *               SetCaretBlinkTime    (USER.168)
 246  */
 247
 248 void SetCaretBlinkTime(WORD msecs)
 249 {
 250     if (!Caret.hwnd) return;
 251
 252     dprintf_caret(stddeb,"SetCaretBlinkTime: hwnd=%04x, msecs=%d\n",
 253                 Caret.hwnd, msecs);
 254
 255     Caret.timeout = msecs;
 256     CARET_ResetTimer();
 257 }
 258
 259
 260 /*****************************************************************
 261  *               GetCaretBlinkTime    (USER.169)
 262  */
 263
 264 WORD GetCaretBlinkTime()
 265 {
 266     if (!Caret.hwnd) return 0;
 267
 268     dprintf_caret(stddeb,"GetCaretBlinkTime: hwnd=%04x, msecs=%d\n",
 269                 Caret.hwnd, Caret.timeout);
 270
 271     return Caret.timeout;
 272 }
 273
 274
 275 /*****************************************************************
 276  *               GetCaretPos16          (USER.183)
 277  */
 278 void GetCaretPos16( LPPOINT16 pt )
 279 {
 280     if (!Caret.hwnd || !pt) return;
 281
 282     dprintf_caret(stddeb,"GetCaretPos: hwnd=%04x, pt=%p, x=%d, y=%d\n",
 283                   Caret.hwnd, pt, Caret.x, Caret.y);
 284
 285     pt->x = Caret.x;
 286     pt->y = Caret.y;
 287 }
 288
 289
 290 /*****************************************************************
 291  *               GetCaretPos32          (USER32.209)
 292  */
 293 void GetCaretPos32( LPPOINT32 pt )
 294 {
 295     if (!Caret.hwnd || !pt) return;
 296     pt->x = Caret.x;
 297     pt->y = Caret.y;
 298 }