windows/caret.c

   1 /*
   2  * Caret functions
   3  *
   4  * Copyright 1993 David Metcalfe
   5  *
   6 static char Copyright[] = "Copyright  David Metcalfe, 1993";
   7 */
   8
   9 #include "windows.h"
  10 #include "selectors.h"
  11 #include "stddebug.h"
  12 /* #define DEBUG_CARET */
  13 #include "debug.h"
  14
  15
  16 typedef struct
  17 {
  18     HWND          hwnd;
  19     short         hidden;
  20     BOOL          on;
  21     short         x;
  22     short         y;
  23     short         width;
  24     short         height;
  25     COLORREF      color;
  26     HBITMAP       bitmap;
  27     WORD          timeout;
  28     WORD          timerid;
  29 } CARET;
  30
  31 static CARET Caret;
  32 static BOOL LockCaret;
  33
  34 static void CARET_HideCaret();
  35
  36
  37 /*****************************************************************
  38  *               CARET_Callback
  39  */
  40 WORD CARET_Callback(HWND hwnd, WORD msg, WORD timerid, LONG ctime)
  41 {
  42     HDC hdc;
  43     HBRUSH hBrush;
  44     HRGN rgn;
  45
  46     dprintf_caret(stddeb,"CARET_Callback: id=%d: LockCaret=%d, hidden=%d, on=%d\n",
  47            timerid, LockCaret, Caret.hidden, Caret.on);
  48     if (!LockCaret && (!Caret.hidden || Caret.on))
  49     {
  50         Caret.on = (Caret.on ? FALSE : TRUE);
  51         hdc = GetDC(Caret.hwnd);
  52         if (Caret.bitmap == 0 || Caret.bitmap == 1)
  53             hBrush = CreateSolidBrush(Caret.color);
  54         else
  55             hBrush = CreatePatternBrush(Caret.bitmap);
  56         SelectObject(hdc, (HANDLE)hBrush);
  57         SetROP2(hdc, R2_XORPEN);
  58         rgn = CreateRectRgn(Caret.x, Caret.y,
  59                             Caret.x + Caret.width,
  60                             Caret.y + Caret.height);
  61         FillRgn(hdc, rgn, hBrush);
  62         DeleteObject((HANDLE)rgn);
  63         DeleteObject((HANDLE)hBrush);
  64         ReleaseDC(Caret.hwnd, hdc);
  65     }
  66     return 0;
  67 }
  68
  69
  70 /*****************************************************************
  71  *               CARET_HideCaret
  72  */
  73
  74 static void CARET_HideCaret()
  75 {
  76     HDC hdc;
  77     HBRUSH hBrush;
  78     HRGN rgn;
  79
  80     Caret.on = FALSE;
  81     hdc = GetDC(Caret.hwnd);
  82     if (Caret.bitmap == 0 || Caret.bitmap == 1)
  83         hBrush = CreateSolidBrush(Caret.color);
  84     else
  85         hBrush = CreatePatternBrush(Caret.bitmap);
  86     SelectObject(hdc, (HANDLE)hBrush);
  87     SetROP2(hdc, R2_XORPEN);
  88     rgn = CreateRectRgn(Caret.x, Caret.y,
  89                         Caret.x + Caret.width,
  90                         Caret.y + Caret.height);
  91     FillRgn(hdc, rgn, hBrush);
  92     DeleteObject((HANDLE)rgn);
  93     DeleteObject((HANDLE)hBrush);
  94     ReleaseDC(Caret.hwnd, hdc);
  95 }
  96
  97
  98 /*****************************************************************
  99  *               CreateCaret          (USER.163)
 100  */
 101
 102 void CreateCaret(HWND hwnd, HBITMAP bitmap, short width, short height)
 103 {
 104     if (!hwnd) return;
 105
 106
 107     /* if cursor already exists, destroy it */
 108 /*    if (Caret.hwnd)
 109         DestroyCaret();
 110 */
 111     if (bitmap && bitmap != 1)
 112         Caret.bitmap = bitmap;
 113
 114     if (width)
 115         Caret.width = width;
 116     else
 117         Caret.width = GetSystemMetrics(SM_CXBORDER);
 118
 119     if (height)
 120         Caret.height = height;
 121     else
 122         Caret.height = GetSystemMetrics(SM_CYBORDER);
 123
 124     Caret.hwnd = hwnd;
 125     Caret.hidden = 1;
 126     Caret.on = FALSE;
 127     Caret.x = 0;
 128     Caret.y = 0;
 129     if (bitmap == 1)
 130         Caret.color = GetSysColor(COLOR_GRAYTEXT);
 131     else
 132         Caret.color = GetSysColor(COLOR_WINDOWTEXT);
 133     Caret.timeout = 750;
 134     LockCaret = FALSE;
 135
 136     Caret.timerid = SetSystemTimer( (HWND)0, 0, Caret.timeout,
 137                                 (FARPROC)GetWndProcEntry16("CARET_Callback"));
 138
 139     dprintf_caret(stddeb,"CreateCaret: hwnd=%d, timerid=%d\n",
 140                   hwnd, Caret.timerid);
 141 }
 142
 143
 144 /*****************************************************************
 145  *               DestroyCaret         (USER.164)
 146  */
 147
 148 void DestroyCaret()
 149 {
 150 /*    if (!Caret.hwnd) return;
 151 */
 152     dprintf_caret(stddeb,"DestroyCaret: timerid=%d\n", Caret.timerid);
 153
 154     KillSystemTimer( (HWND)0, Caret.timerid);
 155
 156     if (Caret.on)
 157         CARET_HideCaret();
 158
 159     Caret.hwnd = 0;          /* cursor marked as not existing */
 160 }
 161
 162
 163 /*****************************************************************
 164  *               SetCaretPos          (USER.165)
 165  */
 166
 167 void SetCaretPos(short x, short y)
 168 {
 169     if (!Caret.hwnd) return;
 170
 171     dprintf_caret(stddeb,"SetCaretPos: x=%d, y=%d\n", x, y);
 172
 173     LockCaret = TRUE;
 174     if (Caret.on)
 175         CARET_HideCaret();
 176
 177     Caret.x = x;
 178     Caret.y = y;
 179     LockCaret = FALSE;
 180 }
 181
 182 /*****************************************************************
 183  *               HideCaret            (USER.166)
 184  */
 185
 186 void HideCaret(HWND hwnd)
 187 {
 188     if (!Caret.hwnd) return;
 189     if (hwnd && (Caret.hwnd != hwnd)) return;
 190
 191     LockCaret = TRUE;
 192     if (Caret.on)
 193         CARET_HideCaret();
 194
 195     ++Caret.hidden;
 196     LockCaret = FALSE;
 197 }
 198
 199
 200 /*****************************************************************
 201  *               ShowCaret            (USER.167)
 202  */
 203
 204 void ShowCaret(HWND hwnd)
 205 {
 206     if (!Caret.hwnd) return;
 207     if (hwnd && (Caret.hwnd != hwnd)) return;
 208
 209     dprintf_caret(stddeb,"ShowCaret: hidden=%d\n", Caret.hidden);
 210     if (Caret.hidden)
 211         --Caret.hidden;
 212 }
 213
 214
 215 /*****************************************************************
 216  *               SetCaretBlinkTime    (USER.168)
 217  */
 218
 219 void SetCaretBlinkTime(WORD msecs)
 220 {
 221     if (!Caret.hwnd) return;
 222
 223     KillSystemTimer( (HWND)0, Caret.timerid);
 224     Caret.timeout = msecs;
 225     Caret.timerid = SetSystemTimer( (HWND)0, 0, Caret.timeout,
 226                                  (FARPROC)GetWndProcEntry16("CARET_Callback"));
 227 }
 228
 229
 230 /*****************************************************************
 231  *               GetCaretBlinkTime    (USER.169)
 232  */
 233
 234 WORD GetCaretBlinkTime()
 235 {
 236     if (!Caret.hwnd) return 0;
 237     return Caret.timeout;
 238 }
 239
 240
 241 /*****************************************************************
 242  *               GetCaretPos          (USER.183)
 243  */
 244
 245 void GetCaretPos(LPPOINT pt)
 246 {
 247     if (!Caret.hwnd || !pt) return;
 248
 249     pt->x = Caret.x;
 250     pt->y = Caret.y;
 251 }