Cheat Engine :: View topic - When mouse over do ?

Cheat Engine
The Official Site of Cheat Engine

FAQ

Memberlist

Usergroups

Profile

When mouse over do ?
Goto page Previous 1, 2

Cheat Engine Forum Index -> General programming

View previous topic :: View next topic

Author

Message

assaf84
Expert Cheater

Reputation: 0

Joined: 03 Oct 2006
Posts: 238

Posted: Wed Sep 19, 2007 11:35 pm Post subject:

Add to your global variables:

Code:

bTemp: Boolean;

In Form1.Create add something like:

Code:

var
point: TPoint;
begin
GetCursorPos(@point);
if point.x<Form1.left+Form1.width AND point.x>Form1.left AND point.y<Form1.top+Form1.height AND point.y>Form1.top then
bTemp = True
else
begin
bTemp = False;
FadeOff;
end;
end;

Then make a thread, and write in it:

Code:

var
point: TPoint;
begin
GetCursorPos(@point);
if point.x<Form1.left+Form1.width AND point.x>Form1.left AND point.y<Form1.top+Form1.height AND point.y>Form1.top then
begin
if not(bTemp) then
FadeOn;
bTemp = True;
else
begin
if bTemp then
FadeOn;
bTemp = False;
end;
end;

Hope this helped you..

DeletedUser14087
I post too much

Reputation: 2

Joined: 21 Jun 2006
Posts: 3069

Posted: Thu Sep 20, 2007 5:20 am Post subject:

What is he trying to do ?

HolyBlah
Master Cheater

Reputation: 2

Joined: 24 Aug 2007
Posts: 446

Posted: Thu Sep 20, 2007 5:55 am Post subject:

assaf84 wrote:

Add to your global variables:

Code:

bTemp: Boolean;

In Form1.Create add something like:

Code:

Then make a thread, and write in it:

Code:

var
point: TPoint;
begin
GetCursorPos(@point);
if point.x<Form1.left+Form1.width AND point.x>Form1.left AND point.y<Form1.top+Form1.height AND point.y>Form1.top then
begin
if not(bTemp) then
FadeOn;
bTemp = True;
else
begin
if bTemp then
FadeOn;
bTemp = False;
end;
end;

Hope this helped you..

this code wont compile.
1. you have ";" before "else".
2. you do "@point" and this should be "point".
3. you didnt give as the procedures "FadeOn" and "FadeOff".
4. i dont know why but your if is wrong... i think u need to do it like this:

Code:

if (point.x<Form1.left+Form1.width) AND (point.x>Form1.left)
AND (point.y<Form1.top+Form1.height) AND (point.y>Form1.top) then

Kevinnn wrote:

Nope ... nothing called that. Im using Delphi Enterprise 7

but nvm...
put this in timer:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var
pt:tpoint;
begin
getcursorpos(pt);//get mouse position

if (Left >pt.x )or (Left+Width <pt.x) or (top >pt.y )or (top+Height <pt.y) then begin
if AlphaBlendValue >123 then//dec AlphaBlendValue
repeat
AlphaBlendValue:=AlphaBlendValue-1;
until AlphaBlendValue =123;
end
else
if AlphaBlendValue <255 then//incAlphaBlendValue
repeat
AlphaBlendValue:=AlphaBlendValue+1;
until AlphaBlendValue =255;

end;

btw AlphaBlend must be true.

Kevin
Grandmaster Cheater Supreme

Reputation: 0

Joined: 07 Mar 2007
Posts: 1139
Location: Spiderman-World

Posted: Thu Sep 20, 2007 8:04 am Post subject:

doesnt work on delphi enterprise 7, you must have delphi 2007 i think.

HolyBlah
Master Cheater

Reputation: 2

Joined: 24 Aug 2007
Posts: 446

Posted: Thu Sep 20, 2007 10:08 am Post subject:

Kevinnn wrote:

doesnt work on delphi enterprise 7, you must have delphi 2007 i think.

its work on delphi 6...

Display posts from previous:

	Cheat Engine Forum Index -> General programming	All times are GMT - 6 Hours Goto page Previous 1, 2
Page 2 of 2

Jump to:

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum