Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Координаты курсора мыши [D6, Win95/98]

DMA © (2002-04-06 13:30:00)
Как определить координаты курсора мыши на всей области экрана.
Пробовал GetCursorPos() - но он работает не корректно.
Помогите PLZ!!!!!

DMA (2002-04-06 16:40:00) [1]
Вот тот unit , о котором я говорил :

++++++++++++++++++++++++++++++++++++++++++++++++
unit ScrnCap;
interface
uses WinTypes, WinProcs, Forms, Classes, Graphics, Controls;
{ Копирует прямоугольную область экрана }
function CaptureScreenRect(ARect : TRect) : TBitmap;
{ Копирование всего экрана }
function CaptureScreen : TBitmap;
{ Копирование клиентской области формы или элемента }
function CaptureClientImage(Control : TControl) : TBitmap;
{ Копирование всей формы элемента }
function CaptureControlImage(Control : TControl) : TBitmap;
{===============================================================}
implementation
function GetSystemPalette : HPalette;
var PaletteSize : integer;
LogSize : integer;
LogPalette : PLogPalette;
DC : HDC;
Focus : HWND;
begin
result:=0;
Focus:=GetFocus;
DC:=GetDC(Focus);
try
PaletteSize:=GetDeviceCaps(DC, SIZEPALETTE);
LogSize:=SizeOf(TLogPalette)+(PaletteSize-1)*SizeOf(TPaletteEntry);
GetMem(LogPalette, LogSize);
try
with LogPalette^ do
begin
palVersion:=$0300;
palNumEntries:=PaletteSize;
GetSystemPaletteEntries(DC, 0, PaletteSize, palPalEntry);
end;
result:=CreatePalette(LogPalette^);
finally
FreeMem(LogPalette, LogSize);
end;
finally
ReleaseDC(Focus, DC);
end;
end;
function CaptureScreenRect(ARect : TRect) : TBitmap;
var ScreenDC : HDC;
begin
Result:=TBitmap.Create;
with result, ARect do
begin
Width:=Right-Left;
Height:=Bottom-Top;
ScreenDC:=GetDC(0);
try
BitBlt(Canvas.Handle, 0,0,Width,Height,ScreenDC, Left, Top, SRCCOPY );
finally
ReleaseDC(0, ScreenDC);
end;
Palette:=GetSystemPalette;
end;
end;
function CaptureScreen : TBitmap;
begin
with Screen do
Result:=CaptureScreenRect(Rect(0,0,Width,Height));
end;
function CaptureClientImage(Control : TControl) : TBitmap;
begin
with Control, Control.ClientOrigin do
result:=CaptureScreenRect(Bounds(X,Y,ClientWidth,ClientHeight));
end;
function CaptureControlImage(Control : TControl) : TBitmap;
begin
with Control do
if Parent=Nil then
result:=CaptureScreenRect(Bounds(Left,Top,Width,Height))
else
with Parent.ClientToScreen(Point(Left, Top)) do
result:=CaptureScreenRect(Bounds(X,Y,Width,Height));
end;
end.

- из него я использую функцию CaptureScreen .

Anatoly Podgoretsky (2002-04-06 14:37:00) [2]
А я не знаю того unit

DMA (2002-04-06 14:27:00) [3]
Действительно, тот unit гадил - но как их использовать вместе?

DMA (2002-04-06 14:21:00) [4]
Ладно, попробую!

Anatoly Podgoretsky (2002-04-06 14:20:00) [5]
Сделай совсем пустой только один ярлык и таймер

DMA (2002-04-06 14:00:00) [6]
Проект у меня почти пустой - подключен только один unit - он копирует текущее изображение экрана. Его я взял из FAQ`а, но там вроде ClipCursor`а нету.

lipskiy (2002-04-06 13:56:00) [7]
Черт, опять опоздал...

lipskiy (2002-04-06 13:56:00) [8]
Совет - создай новое пустое приложение и сделай там только одну процедуру - на OnMouseMove формы повесь обработчик, а внем напиши то, что ты писал для определения координат, и печатай их в лейбл или в кэпшен формы. Если все ок будет - ошибки в твоем приложении, а если та же фигня - то тогда не знаю...

Anatoly Podgoretsky (2002-04-06 13:55:00) [9]
Ну не обязательно лично ты, а не скажем какой либо компонент.
Попробуй на пустом проекте.

DMA (2002-04-06 13:50:00) [10]
Нет.

Anatoly Podgoretsky (2002-04-06 13:48:00) [11]
А это нигде не используется ClipCursor, прямо или косвенно?

DMA (2002-04-06 13:48:00) [12]
Дальше присваиваю pt моей переменной и определяю координаты заново.

Anatoly Podgoretsky (2002-04-06 13:45:00) [13]
А дальше что делаешь с pt

DMA (2002-04-06 13:44:00) [14]
А в чём дело?

lipskiy (2002-04-06 13:43:00) [15]
Черт, опоздал.
Да вроде все правильно...

lipskiy (2002-04-06 13:42:00) [16]
Приведи код, такого не должно быть, если делаешь все верно.

DMA (2002-04-06 13:41:00) [17]
Пишу следующее:
var pt : TPoint;
...............

GetCursorPos(pt);

................
Возвращает:
pt.x - координаты по X
pt.y - координаты по Y

Правильно?

DMA (2002-04-06 13:37:00) [18]
Почему - то у меня он реально определяет только координаты в "прямоугольнике" ~200*200, а дальше идёт по кругу.
Например: если мышь сейчас имеет координаты 250*250 - он покажет ~50*50 !

Anatoly Podgoretsky (2002-04-06 13:35:00) [19]
Наверно неправильно пользуешься?

lipskiy (2002-04-06 13:33:00) [20]
А чем это он некорректно работает?
Все жизнь только им и пользуемся.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »