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