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