Вверх ↑
Ответов: 700
Рейтинг: 145
#1: 2023-03-27 13:17:10 ЛС | профиль | цитата
Aziz писал(а):
Просто при вращении формы мышью если таймер автовращения формы не остановить то он начинает драться с мышью. И вращается всегда в одну сторону.

А такой вариант. Просто медленно двигать мышью вправо-лево для изменеия врашения.
https://forum.hiasm.com/getfile/39586

Так даже веселей
Add(CounterEx,9911111,224,273)
{
Max=359
Point(onThroughMax)
Point(onThroughMin)
Point(doPrev)
Point(doStep)
Point(doMax)
Point(doDirect)
link(onNext,12465343:doRefresh,[])
}
Add(MainForm,12061819,350,147)
{
@Hint=#8:3.3.2023|
Width=500
Height=499
Color=16777215
Ctl3D=0
Caption="Img"
BorderStyle=0
DragForm=0
Point(Handle)
Point(onKeyDown)
link(onCreate,11240625:doColor,[])
link(onKeyDown,3448284:doCase,[(389,174)(389,139)(298,139)(298,167)])
}
Add(Timer,4020990,154,273)
{
Interval=33
Point(doInterval)
link(onTimer,9911111:doNext,[])
}
Add(WinTools,8023775,448,133)
{
Point(doTransparentColor)
link(Handle,9629725:Var2,[])
}
Add(SelectColor,11240625,406,161)
{
Color=16777215
link(onColor,8023775:doTransparentColor,[])
}
Add(MoveWindow,945688,483,308)
{
link(Handle,9629725:Var3,[(489,124)])
}
Add(GetDataEx,9629725,448,119)
{
Angle=3
link(Data,12061819:Handle,[(399,124)(399,189)(356,189)])
}
Add(Case,3448284,308,161)
{
Value=Integer(27)
link(onTrue,12061819:doClose,[])
}
Add(PaintBox,12465343,280,273)
{
Left=615
Top=245
Align=5
Color=16777215
ClearBeforeDraw=0
Point(onMouseDown)
Point(onMouseMove)
Point(MouseX)
link(onBeforeDraw,4757424:doDraw,[])
link(onMouseDown,945688:doMove,[(393,286)(393,314)])
link(onMouseMove,15574220:doCalcDelta,[(319,293)(319,328)(277,328)(277,349)])
}
Add(Img_Bmp,4757424,399,273)
{
TransparentColor=16777215
Point(Transform)
link(Bitmap,12465343:Bitmap,[(405,262)(388,262)(388,317)(286,317)])
link(SourceBitmap,359550:Bitmap,[])
link(Transform,3452604:Transform,[(419,265)(447,265)])
}
Add(Img_UseRotate,3452604,441,217)
{
link(Angle,9911111:Count,[(454,208)(141,208)(141,326)(230,326)])
}
Add(SampleDelta,15574220,287,343)
{
link(onCalcDelta,9911111:doStep,[(326,349)(326,335)(214,335)(214,293)])
link(Data,12465343:MouseX,[])
}
Add(Bitmap,359550,406,224)
{
@Hint=#18:Вставить картинку!|
FillColor=16777215
AddHint(-141,10,114,13,@Hint)
}
Только вставь свою картинку
карма: 15

0
файлы: 1form_rotations 4.zip [30.9KB] [153]
Редактировалось 2 раз(а), последний 2023-03-27 13:28:47