forum.vdsworld.com

[filip]

I have created a zoom limiter for VDSobj.dll

I have problems with Negative Zoom limiter part

Positive its working fine

:BUTTON1BUTTON
%N = @sum(%N,1)
%D = @diff(%D,1)
%A = @sendmsg(@object(gethandle,richedit1),1249,%N,%D)
dialog set,sb,Zoom @diff(%N,%D)x
%%ZoomLimitPos = @diff(%N,%D)
IF @EQUAL(%%ZoomLimitPos,136)
%N = 63
%D = 65
end
goto loop

:BUTTON2BUTTON
%N = @diff(%N,1)
%D = @sum(%D,1)
%A = @sendmsg(@object(gethandle,richedit1),1249,%N,%D)
dialog set,sb,Zoom @diff(%N,%D)x
%%ZoomLimitNeg = @diff(%N,%D)
IF @EQUAL(%%ZoomLimitNeg,-136)
%N = -63
%D = -65
end
goto loop

My idea is that the zoom reset it self to zero when it comes to + 136 or -136

[filip]

Reverse polarity solution

i can go work at NASA or what

:BUTTON1BUTTON
%N = @sum(%N,1)
%D = @diff(%D,1)
%A = @sendmsg(@object(gethandle,richedit1),1249,%N,%D)
dialog set,sb,Zoom @diff(%N,%D)x
%%ZoomLimitPos = @diff(%N,%D)
IF @EQUAL(%%ZoomLimitPos,136)
%N = 63
%D = 65
end
goto loop

:BUTTON2BUTTON
%N = @diff(%N,1)
%D = @sum(%D,1)
%A = @sendmsg(@object(gethandle,richedit1),1249,%N,%D)
dialog set,sb,Zoom @diff(%N,%D)x
%%ZoomLimitNeg = @diff(%N,%D)
IF @EQUAL(%%ZoomLimitNeg,-136)
%N = 65
%D = 63
end
goto loop

Mybe the negative zoom is set to high but hoo cares...