BLACK ROZE
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Привет Всем! Копалась в архивах и нашла примерчик, в котором за мышкой бегает картинка (Image Follows Mouse). Этот примерчик так хорошо вписался бы в мой проект... Только вот проблема в том, что в данном примере только одна страничка, а в моем проекте - несколько. И к сожалению, действие происходит только на одной странице...
Помогите справиться:
1). как сделать, чтобы картинка бегала на нескольких страницах (нужно выборочно, к примеру, на 2 и 5 странице).
2). можно ли к одной странице за курсором прилепить одно изображение, а на другой странице - другое?
Вот это было в Глобальных:
Цитата:
-- Name: ImageToMouse
-- Purpose: Sets an image's position to the current mouse pointer's location
-- Values: bBound: A boolean value, set to true if the image should stop
-- at the 'bounds' of the application window, or false if it should not
-- sImage: The object name of the image object to follow the mouse
-- ******************************************************************
function ImageToMouse (sImage, bBound)
-- ****( INITIALIZE LOCAL VARIABLES )****
local sPos = "";
local split_pos = 0;
local XPos = 0;
local YPos = 0;
local nHandle = 0;
local WPos = {};
local ISize = {};
local WSize = {};
-- ****( GET THE POSITION OF THE MOUSE POINTER )****
-- ****( THANKS TO WORM FOR THIS DLL )****
sPos = DLL.CallFunction("AutoPlay\\Docs\\CursorPos.dll", "GetMouseXY", "", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL);
-- ****( SPLIT THE RESULT FROM ABOVE INTO TWO USEABLE NUMBERS )****
split_pos = String.Find(sPos, ";;", 1, false);
XPos = String.ToNumber(String.Left(sPos, split_pos-1));
YPos = String.ToNumber(String.Mid(sPos, split_pos+2, -1));
-- ****( GET THE WINDOW POSITION )****
nHandle = Application.GetWndHandle();
WPos = Window.GetPos(nHandle);
-- ****( IF THE IMAGE SHOULD BE BOUND TO THE WINDOW DIMENSIONS )****
if bBound then
-- ****( GET THE IMAGE SIZE AND WINDOW SIZE )****
ISize = Image.GetSize("Image1");
WSize = Window.GetSize(nHandle);
-- ****( IF THE MOUSE POINTER IS INSIDE THE APPLICATION )****
if (XPos >= WPos.X) and (XPos + ISize.Width <= WPos.X + WSize.Width) and (YPos >= WPos.Y) and (YPos + ISize.Height <= WPos.Y + WSize.Height) then
-- ****( SET THE IMAGE TO THE MOUSE POINTER POSITION )****
Image.SetPos("Image1", XPos - WPos.X, YPos - WPos.Y);
end
else
-- ****( SET THE IMAGE TO THE MOUSE POINTER POSITION )****
Image.SetPos("Image1", XPos - WPos.X, YPos - WPos.Y);
end
end |
|
Всего записей: 65 | Зарегистр. 07-04-2006 | Отправлено: 02:21 26-07-2009 | Исправлено: BLACK ROZE, 02:24 26-07-2009 |
|
-умер, сорри... 
Ответы на наиболее часто задаваемые вопросы: 
Почти каждый объект имеет св-во ToolTip Text. 
Просто супер, так все пашет!!! Мдя справку нужно читать чаще. 
Этот велик в шапку непременно 
Если в окне свойств указывать подсказку с управляющим символом \n - то не работает, а если программно задавать текст подсказки, то все ОК. 
