HTMLv 0.99.64: cursor pointer support for links

git-svn-id: svn://kolibrios.org@4497 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/cmm/TWB/TWB.c

@@ -1,5 +1,6 @@
 #include "..\lib\draw_buf.h"
 #include "..\lib\list_box.h"
+#include "..\lib\cursor.h"
 #include "..\TWB\links.h"
 
 int	downloader_id;
@@ -595,7 +596,7 @@ void TWebBrowser::WhatTextStyle(int left1, top1, width1) {
 	} ELSE li_tab++;
 	if (isTag("dd")) stolbec += 5;
 	if (isTag("blockquote")) blq_text = opened;
-	if (isTag("pre")) pre_text = opened; 
+	if (isTag("pre")) || (isTag("code")) pre_text = opened; 
 	if (isTag("hr"))
 	{
 		if (anchor) || (stroka < -1)

programs/cmm/TWB/links.h

@@ -1,3 +1,6 @@
+CustomCursor CursorPointer;
+dword CursorFile = FROM "../TWB/pointer.cur";
+
 struct array_link {
 	dword link, text;
 	int x,y,w,h;
@@ -51,81 +54,32 @@ void LinksArray::Clear()
 	buflen = #page_links;
 	count = 0;
 	active = -1;
+	CursorPointer.Restore();
 }
 
+
 void LinksArray::Hover(dword mx, my, link_col_in, link_col_a, bg_col)
 {
 	int i;
-	if (active>=0)
-	{
-		//WriteText(links[active].x,links[active].y, 0x80, link_col_in, links[active].text);
-		DrawBar(links[active].x,links[active].y+8,links[active].w,1, link_col_in);
-		active = -1;
-	}
 	for (i=0; i<count; i++)
 	{
 		if (mx>links[i].x) && (my>links[i].y) && (mx<links[i].x+links[i].w) && (my<links[i].y+links[i].h)
 		{
-			//WriteText(links[i].x,links[i].y, 0x80, link_col_a, links[i].text);
+			if (active==i) return;
+			CursorPointer.Set();
+			DrawBar(links[active].x,links[active].y+8,links[active].w,1, link_col_in);
 			DrawBar(links[i].x,links[i].y+8,links[i].w,1, bg_col);
 			active = i;
 			return;
 		}
 	}
+	if (active!=-1)
+	{
+		CursorPointer.Restore();
+		DrawBar(links[active].x,links[active].y+8,links[active].w,1, link_col_in);
+		active = -1;
+	}
 }
 
 
 LinksArray PageLinks;
-
-
-/*
------------------- Подфункция 4 - загрузить курсор -------------------
-Параметры:
-  * eax = 37 - номер функции
-  * ebx = 4 - номер подфункции
-  * dx = источник данных:
-  * dx = LOAD_FROM_FILE = 0 - данные в файле
-    * ecx = указатель на полный путь к файлу курсора
-    * файл курсора должен быть в формате .cur, стандартном для
-      MS Windows, причём размером 32*32 пикселя
-  * dx = LOAD_FROM_MEM = 1 - данные файла уже загружены в память
-    * ecx = указатель на данные файла курсора
-    * формат данных такой же, как и в предыдущем случае
-  * dx = LOAD_INDIRECT = 2 - данные в памяти
-    * ecx = указатель на образ курсора в формате ARGB 32*32 пикселя
-    * edx = 0xXXYY0002, где
-      * XX = x-координата "горячей точки" курсора
-      * YY = y-координата
-      * 0 <= XX, YY <= 31
-Возвращаемое значение:
-  * eax = 0 - неудача
-  * иначе eax = хэндл курсора
- 
------------------- Подфункция 5 - установить курсор ------------------
-Устанавливает новый курсор для окна текущего потока.
-Параметры:
-  * eax = 37 - номер функции
-  * ebx = 5 - номер подфункции
-  * ecx = хэндл курсора
-Возвращаемое значение:
-  * eax = хэндл предыдущего установленного курсора
-Замечания:
-  * Если передан некорректный хэндл, то функция восстановит курсор
-    по умолчанию (стандартную стрелку). В частности, к восстановлению
-    курсора по умолчанию приводит передача ecx=0.
- 
-------------------- Подфункция 6 - удалить курсор --------------------
-Параметры:
-  * eax = 37 - номер функции
-  * ebx = 6 - номер подфункции
-  * ecx = хэндл курсора
-Возвращаемое значение:
-  * eax разрушается
-Замечания:
-  * Курсор должен был быть ранее загружен текущим потоком
-    (вызовом подфункции 4). Функция не удаляет системные курсоры и
-    курсоры, загруженные другими приложениями.
-  * Если удаляется активный (установленный подфункцией 5) курсор, то
-    восстанавливается курсор по умолчанию (стандартная стрелка).
-    
-*/

programs/cmm/browser/HTMLv.c

@@ -25,11 +25,11 @@
 #include "img\URLgoto.txt";
 
 #ifdef LANG_RUS
-	char version[]=" ’¥ªáâ®¢ë© ¡à ã§¥à 0.99.63";
+	char version[]=" ’¥ªáâ®¢ë© ¡à ã§¥à 0.99.64";
 	?define IMAGES_CACHE_CLEARED "Šíè ª à⨭®ª ®ç¨é¥­"
 	?define T_LAST_SLIDE "<EFBFBD>â® ¯®á«¥¤­¨© á« ©¤"
 #else
-	char version[]=" Text-based Browser 0.99.63";
+	char version[]=" Text-based Browser 0.99.64";
 	?define IMAGES_CACHE_CLEARED "Images cache cleared"
 	?define T_LAST_SLIDE "This slide is the last"
 #endif
@@ -64,6 +64,7 @@ void main()
 	if (!URL) strcpy(#URL, "/sys/index.htm");
 	strcpy(#editURL, #URL);
 	
+	CursorPointer.Load(#CursorFile);
 	Form.width=WIN_W;
 	Form.height=WIN_H;
 	SetElementSizes();

programs/cmm/lib/cursor.h

@@ -0,0 +1,45 @@
+// cursor file should be 32x32 in default MS Windows .cur format
+
+struct CustomCursor
+{
+    dword CursorPointer;
+    dword Load();
+    dword Set();
+    dword Restore();
+    void Delete();
+};
+
+dword CustomCursor::Load(dword CursorFilePath)
+{
+    if (CursorPointer) return;
+    EAX = 37;
+    EBX = 4;
+    ECX = CursorFilePath;
+    EDX = 1;
+    $int 0x40
+    CursorPointer = EAX; // 0 - err, other - handle
+}
+
+dword CustomCursor::Set()
+{
+  EAX = 37;
+  EBX = 5;
+  ECX = CursorPointer;
+  $int 0x40
+}
+
+dword CustomCursor::Restore()
+{
+  EAX = 37;
+  EBX = 5;
+  ECX = 0;
+  $int 0x40
+}
+
+void CustomCursor::Delete()
+{
+    EAX = 37;
+    EBX = 6;
+    ECX = CursorPointer;
+    $int 0x40
+}