HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуСдвигать картинку влево вправо ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 91
Рейтинг: 6
#1: 2018-02-21 22:08:03 ЛС | профиль | цитата
Добрый вечер всем.
Не могу понять как двигать картинку например вправо или влево...
Помогите пожалуйста... 

Add(MainForm,7715963,63,385)
{
 Left=20
 Top=105
 Width=645
 Height=727
 BorderStyle=3
}
Add(Img_Loader,5258876,231,98)
{
 link(onLoad,2638583:doEvent2,[(274,104)(274,202)])
}
Add(Button,13908548,98,98)
{
 Left=15
 Top=335
 Width=80
 Caption="load image"
 link(onClick,6347196:doExecute,[])
}
Add(ODialog,6347196,168,98)
{
 link(onExecute,5258876:doLoad,[])
}
Add(Image,6521469,399,189)
{
 Left=15
 Top=10
 Width=290
 Height=290
 ViewStyle=0
 Picture=[ZIP5E0E000078DAEDD2318ED4401005D05E8900117086093726202E917305E4A3FCA338409CA362CE40E0236C4E303CD7ACB4A4C4D89E923DFED3E37EDDF5E5EBB78F6B8ECFEFD67A76FDF45A4FEBFD3C7FFEB0DE8EA7BFEE57E6B392C7E53CDD74F7EA5FBD5E7EFE58EB566A5382DBAE5A1D6B79BCEAA6DC94BCE4252F79C93D5A9B7C936FBE6CF24DBEC9B7E3F5BDF2C8B3CD1C56E49147EE76EDF25DBECB77F9EEE12EDFE52EABE52D6F799F13DFCFC92BB9CF3AE487FC901FF2437EC88FE331FD7553E7B9A9A85DB53A1EB49B9CBFF88BBFF88BBFF887ED47E5A6F88BBFF88BBFF86749F88BBFF88BBFF88BBFF867B9F88BBFF88BBFF88BBFF86729F98BBFF88BBFF88BBFF86799F98BBFF88BBFF88BBFF8CF2D28FEE22FFEE22FFEE22FFEC77EDF461DFED97BFEF0877FB6863FFCE10F7FF8C31FFED936FEF007364031E99858BC7CB6943FFCE10F7FF8C31FFED96E2F893F8A1FE7EC41FEF0877F5A813FFCE10F7FF8C31FFE6913FEF0873FFCE10F7FF8CF160A7FF8C31FFEF0873FFCD33EFC3D3BBE8DBAF97BCEE3D15AFCCDDFFCCDDFFCCDDFFCD376FCCDDFFCCDDFFCCDDFFCD392FCCDDFFCCDDFFCCDDFFCD3AEFCCDDFFCCDDFD00DD6263FADCCDFFCCDDFFCCDDFFCCD3F6D6E926D22ED65ED0FDBA097DFF7F5FD5CA77381D77D3EEB7E7F5CCEF37C747EFFE7635D63AE31D7986BCC35E61A738DB9C65C63FE83317F00BC10019D]
 Point(ImageWidth)
 Point(ImageHeight)
 Point(doRefresh)
}
Add(Img_Rotate,8022023,399,294)
{
 Point(Result)
 link(onResult,14955564:doEvent1,[])
 link(Bitmap,9697006:Var2,[])
}
Add(Resize,3262079,322,189)
{
 link(onResult,14005926:doEvent1,[])
 link(Bitmap,5258876:Bitmap,[(328,159)(237,159)])
 link(Width,6247319:Text,[(335,128)(286,128)])
 link(Height,8536735:Text,[])
}
Add(Button,15383693,203,189)
{
 Left=100
 Top=335
 Width=105
 Caption="size"
 link(onClick,2638583:doEvent1,[])
}
Add(Edit,6247319,280,35)
{
 Left=100
 Top=310
 Text="290"
 DataType=1
}
Add(Edit,8536735,336,35)
{
 Left=155
 Top=310
 Text="290"
 DataType=1
}
Add(Image,16132329,481,293)
{
 Left=310
 Top=10
 Width=290
 Height=290
 ViewStyle=0
 Picture=[ZIP5E0E000078DAEDD2318ED4401005D05E8900117086093726202E917305E4A3FCA338409CA362CE40E0236C4E303CD7ACB4A4C4D89E923DFED3E37EDDF5E5EBB78F6B8ECFEFD67A76FDF45A4FEBFD3C7FFEB0DE8EA7BFEE57E6B392C7E53CDD74F7EA5FBD5E7EFE58EB566A5382DBAE5A1D6B79BCEAA6DC94BCE4252F79C93D5A9B7C936FBE6CF24DBEC9B7E3F5BDF2C8B3CD1C56E49147EE76EDF25DBECB77F9EEE12EDFE52EABE52D6F799F13DFCFC92BB9CF3AE487FC901FF2437EC88FE331FD7553E7B9A9A85DB53A1EB49B9CBFF88BBFF88BBFF887ED47E5A6F88BBFF88BBFF86749F88BBFF88BBFF88BBFF867B9F88BBFF88BBFF88BBFF86729F98BBFF88BBFF88BBFF86799F98BBFF88BBFF88BBFF8CF2D28FEE22FFEE22FFEE22FFEC77EDF461DFED97BFEF0877FB6863FFCE10F7FF8C31FFED936FEF007364031E99858BC7CB6943FFCE10F7FF8C31FFED96E2F893F8A1FE7EC41FEF0877F5A813FFCE10F7FF8C31FFE6913FEF0873FFCE10F7FF8CF160A7FF8C31FFEF0873FFCD33EFC3D3BBE8DBAF97BCEE3D15AFCCDDFFCCDDFFCCDDFFCD376FCCDDFFCCDDFFCCDDFFCD392FCCDDFFCCDDFFCCDDFFCD3AEFCCDDFFCCDDFD00DD6263FADCCDFFCCDDFFCCDDFFCCD3F6D6E926D22ED65ED0FDBA097DFF7F5FD5CA77381D77D3EEB7E7F5CCEF37C747EFFE7635D63AE31D7986BCC35E61A738DB9C65C63FE83317F00BC10019D]
 Point(ImageWidth)
 Point(ImageHeight)
 Point(doRefresh)
 link(Bitmap,3740427:Var2,[(487,281)(374,281)(374,345)(405,345)])
}
Add(Image,4900490,510,542)
{
 Left=15
 Top=370
 Width=585
 Height=290
 ModeSp=2
 ViewStyle=0
 Picture=[ZIP5E0E000078DAEDD2318ED4401005D05E8900117086093726202E917305E4A3FCA338409CA362CE40E0236C4E303CD7ACB4A4C4D89E923DFED3E37EDDF5E5EBB78F6B8ECFEFD67A76FDF45A4FEBFD3C7FFEB0DE8EA7BFEE57E6B392C7E53CDD74F7EA5FBD5E7EFE58EB566A5382DBAE5A1D6B79BCEAA6DC94BCE4252F79C93D5A9B7C936FBE6CF24DBEC9B7E3F5BDF2C8B3CD1C56E49147EE76EDF25DBECB77F9EEE12EDFE52EABE52D6F799F13DFCFC92BB9CF3AE487FC901FF2437EC88FE331FD7553E7B9A9A85DB53A1EB49B9CBFF88BBFF88BBFF887ED47E5A6F88BBFF88BBFF86749F88BBFF88BBFF88BBFF867B9F88BBFF88BBFF88BBFF86729F98BBFF88BBFF88BBFF86799F98BBFF88BBFF88BBFF8CF2D28FEE22FFEE22FFEE22FFEC77EDF461DFED97BFEF0877FB6863FFCE10F7FF8C31FFED936FEF007364031E99858BC7CB6943FFCE10F7FF8C31FFED96E2F893F8A1FE7EC41FEF0877F5A813FFCE10F7FF8C31FFE6913FEF0873FFCE10F7FF8CF160A7FF8C31FFEF0873FFCD33EFC3D3BBE8DBAF97BCEE3D15AFCCDDFFCCDDFFCCDDFFCD376FCCDDFFCCDDFFCCDDFFCD392FCCDDFFCCDDFFCCDDFFCD3AEFCCDDFFCCDDFD00DD6263FADCCDFFCCDDFFCCDDFFCCD3F6D6E926D22ED65ED0FDBA097DFF7F5FD5CA77381D77D3EEB7E7F5CCEF37C747EFFE7635D63AE31D7986BCC35E61A738DB9C65C63FE83317F00BC10019D]
 Point(ImageWidth)
 Point(ImageHeight)
 Point(doRefresh)
 link(Bitmap,5350244:Result,[(516,522)(426,522)])
}
Add(ScrollBar,2021105,336,476)
{
 Left=420
 Top=340
 Width=165
 link(onPosition,5350244:doShift,[])
}
Add(Label,14027367,476,35)
{
 Left=480
 Top=320
 Width=37
 Height=17
 Caption="shifting"
}
Add(Hub,2638583,287,189)
{
 InCount=2
 OutCount=3
 link(onEvent1,3262079:doResize,[])
}
Add(Hub,14005926,364,189)
{
 link(onEvent1,6521469:doLoad,[])
 link(onEvent2,8022023:doRotate,[(388,202)(388,300)])
}
Add(Img_Shift,5350244,420,469)
{
 Pixels=2
 Point(Result)
 link(onResult,4900490:doLoad,[(478,475)(478,548)])
 link(ToShiftBmp,3740427:Var3,[(433,334)])
}
Add(Hub,14955564,441,294)
{
 OutCount=3
 link(onEvent1,16132329:doLoad,[(474,300)(474,299)])
 link(onEvent2,5350244:doLoad,[(465,307)(465,390)(408,390)(408,475)])
}
Add(GetDataEx,9697006,399,231)
{
 link(Data,6521469:ImageBitmap,[])
}
Add(GetDataEx,3740427,399,329)
{
 link(Data,8022023:Result,[])
}
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 196
Рейтинг: 43
#2: 2018-02-21 22:22:22 ЛС | профиль | цитата
Так?
Add(ScrollBar,2021105,637,602)
{
 Left=420
 Top=340
 Width=165
 link(onPosition,5350244:doShift,[])
}
Add(MainForm,7715963,364,539)
{
 Left=20
 Top=105
 Width=645
 Height=727
 BorderStyle=3
}
Add(Img_Loader,5258876,532,252)
{
 link(onLoad,2638583:doEvent2,[(575,258)(575,356)])
}
Add(Button,13908548,399,252)
{
 Left=15
 Top=335
 Width=80
 Caption="load image"
 link(onClick,6347196:doExecute,[])
}
Add(ODialog,6347196,469,252)
{
 link(onExecute,5258876:doLoad,[])
}
Add(Image,6521469,700,343)
{
 Left=15
 Top=10
 Width=290
 Height=290
 ViewStyle=0
 Picture=[ZIP5E0E000078DAEDD2318ED4401005D05E8900117086093726202E917305E4A3FCA338409CA362CE40E0236C4E303CD7ACB4A4C4D89E923DFED3E37EDDF5E5EBB78F6B8ECFEFD67A76FDF45A4FEBFD3C7FFEB0DE8EA7BFEE57E6B392C7E53CDD74F7EA5FBD5E7EFE58EB566A5382DBAE5A1D6B79BCEAA6DC94BCE4252F79C93D5A9B7C936FBE6CF24DBEC9B7E3F5BDF2C8B3CD1C56E49147EE76EDF25DBECB77F9EEE12EDFE52EABE52D6F799F13DFCFC92BB9CF3AE487FC901FF2437EC88FE331FD7553E7B9A9A85DB53A1EB49B9CBFF88BBFF88BBFF887ED47E5A6F88BBFF88BBFF86749F88BBFF88BBFF88BBFF867B9F88BBFF88BBFF88BBFF86729F98BBFF88BBFF88BBFF86799F98BBFF88BBFF88BBFF8CF2D28FEE22FFEE22FFEE22FFEC77EDF461DFED97BFEF0877FB6863FFCE10F7FF8C31FFED936FEF007364031E99858BC7CB6943FFCE10F7FF8C31FFED96E2F893F8A1FE7EC41FEF0877F5A813FFCE10F7FF8C31FFE6913FEF0873FFCE10F7FF8CF160A7FF8C31FFEF0873FFCD33EFC3D3BBE8DBAF97BCEE3D15AFCCDDFFCCDDFFCCDDFFCD376FCCDDFFCCDDFFCCDDFFCD392FCCDDFFCCDDFFCCDDFFCD3AEFCCDDFFCCDDFD00DD6263FADCCDFFCCDDFFCCDDFFCCD3F6D6E926D22ED65ED0FDBA097DFF7F5FD5CA77381D77D3EEB7E7F5CCEF37C747EFFE7635D63AE31D7986BCC35E61A738DB9C65C63FE83317F00BC10019D]
 Point(ImageWidth)
 Point(ImageHeight)
 Point(doRefresh)
}
Add(Img_Rotate,8022023,700,448)
{
 Point(Result)
 link(onResult,14955564:doEvent1,[])
 link(Bitmap,6521469:ImageBitmap,[])
}
Add(Resize,3262079,623,343)
{
 link(onResult,14005926:doEvent1,[])
 link(Bitmap,5258876:Bitmap,[(629,313)(538,313)])
 link(Width,6247319:Text,[(636,282)(587,282)])
 link(Height,8536735:Text,[])
}
Add(Button,15383693,504,343)
{
 Left=100
 Top=335
 Width=105
 Caption="size"
 link(onClick,2638583:doEvent1,[])
}
Add(Edit,6247319,581,189)
{
 Left=100
 Top=310
 Text="290"
 DataType=1
}
Add(Edit,8536735,637,189)
{
 Left=155
 Top=310
 Text="290"
 DataType=1
}
Add(Image,16132329,782,448)
{
 Left=310
 Top=10
 Width=290
 Height=290
 ViewStyle=0
 Picture=[ZIP5E0E000078DAEDD2318ED4401005D05E8900117086093726202E917305E4A3FCA338409CA362CE40E0236C4E303CD7ACB4A4C4D89E923DFED3E37EDDF5E5EBB78F6B8ECFEFD67A76FDF45A4FEBFD3C7FFEB0DE8EA7BFEE57E6B392C7E53CDD74F7EA5FBD5E7EFE58EB566A5382DBAE5A1D6B79BCEAA6DC94BCE4252F79C93D5A9B7C936FBE6CF24DBEC9B7E3F5BDF2C8B3CD1C56E49147EE76EDF25DBECB77F9EEE12EDFE52EABE52D6F799F13DFCFC92BB9CF3AE487FC901FF2437EC88FE331FD7553E7B9A9A85DB53A1EB49B9CBFF88BBFF88BBFF887ED47E5A6F88BBFF88BBFF86749F88BBFF88BBFF88BBFF867B9F88BBFF88BBFF88BBFF86729F98BBFF88BBFF88BBFF86799F98BBFF88BBFF88BBFF8CF2D28FEE22FFEE22FFEE22FFEC77EDF461DFED97BFEF0877FB6863FFCE10F7FF8C31FFED936FEF007364031E99858BC7CB6943FFCE10F7FF8C31FFED96E2F893F8A1FE7EC41FEF0877F5A813FFCE10F7FF8C31FFE6913FEF0873FFCE10F7FF8CF160A7FF8C31FFEF0873FFCD33EFC3D3BBE8DBAF97BCEE3D15AFCCDDFFCCDDFFCCDDFFCD376FCCDDFFCCDDFFCCDDFFCD392FCCDDFFCCDDFFCCDDFFCD3AEFCCDDFFCCDDFD00DD6263FADCCDFFCCDDFFCCDDFFCCD3F6D6E926D22ED65ED0FDBA097DFF7F5FD5CA77381D77D3EEB7E7F5CCEF37C747EFFE7635D63AE31D7986BCC35E61A738DB9C65C63FE83317F00BC10019D]
 Point(ImageWidth)
 Point(ImageHeight)
 Point(doRefresh)
}
Add(Image,4900490,748,595)
{
 Left=15
 Top=370
 Width=585
 Height=290
 ModeSp=2
 ViewStyle=0
 Picture=[ZIP5E0E000078DAEDD2318ED4401005D05E8900117086093726202E917305E4A3FCA338409CA362CE40E0236C4E303CD7ACB4A4C4D89E923DFED3E37EDDF5E5EBB78F6B8ECFEFD67A76FDF45A4FEBFD3C7FFEB0DE8EA7BFEE57E6B392C7E53CDD74F7EA5FBD5E7EFE58EB566A5382DBAE5A1D6B79BCEAA6DC94BCE4252F79C93D5A9B7C936FBE6CF24DBEC9B7E3F5BDF2C8B3CD1C56E49147EE76EDF25DBECB77F9EEE12EDFE52EABE52D6F799F13DFCFC92BB9CF3AE487FC901FF2437EC88FE331FD7553E7B9A9A85DB53A1EB49B9CBFF88BBFF88BBFF887ED47E5A6F88BBFF88BBFF86749F88BBFF88BBFF88BBFF867B9F88BBFF88BBFF88BBFF86729F98BBFF88BBFF88BBFF86799F98BBFF88BBFF88BBFF8CF2D28FEE22FFEE22FFEE22FFEC77EDF461DFED97BFEF0877FB6863FFCE10F7FF8C31FFED936FEF007364031E99858BC7CB6943FFCE10F7FF8C31FFED96E2F893F8A1FE7EC41FEF0877F5A813FFCE10F7FF8C31FFE6913FEF0873FFCE10F7FF8CF160A7FF8C31FFEF0873FFCD33EFC3D3BBE8DBAF97BCEE3D15AFCCDDFFCCDDFFCCDDFFCD376FCCDDFFCCDDFFCCDDFFCD392FCCDDFFCCDDFFCCDDFFCD3AEFCCDDFFCCDDFD00DD6263FADCCDFFCCDDFFCCDDFFCCD3F6D6E926D22ED65ED0FDBA097DFF7F5FD5CA77381D77D3EEB7E7F5CCEF37C747EFFE7635D63AE31D7986BCC35E61A738DB9C65C63FE83317F00BC10019D]
 Point(ImageWidth)
 Point(ImageHeight)
 Point(doRefresh)
}
Add(Label,14027367,777,189)
{
 Left=480
 Top=320
 Width=37
 Height=17
 Caption="shifting"
}
Add(Hub,2638583,588,343)
{
 InCount=2
 OutCount=3
 link(onEvent1,3262079:doResize,[])
}
Add(Hub,14005926,665,343)
{
 link(onEvent1,6521469:doLoad,[])
 link(onEvent2,8022023:doRotate,[(689,356)(689,454)])
}
Add(Img_Shift,5350244,700,595)
{
 Pixels=0
 Point(Result)
 link(onResult,4900490:doLoad,[])
 link(Bitmap,8022023:Result,[])
}
Add(Hub,14955564,742,448)
{
 OutCount=3
 link(onEvent1,16132329:doLoad,[])
 link(onEvent2,5350244:doLoad,[(766,461)(766,544)(695,544)(695,601)])
}


Редактировалось 1 раз(а), последний 2018-02-21 22:23:46
карма: 2

0
Ответов: 91
Рейтинг: 6
#3: 2018-02-23 03:19:18 ЛС | профиль | цитата
Спасибо. Да, почти так, но не совсем.
Картинка сдвигается в своем размере, то есть часть обрезается.
А как сделать что бы картинка не изменялась, а полностью двигалась вправо влево?

Вообще задача - совместить изначальную картинку с перевернутой. Но не путем наложения, а путем совмещения по одной стороне. То есть сверху оригинал, а снизу перевернутая картинка. При этом нужна возможность смещения перевернутой картинки влево вправо целиком...
карма: 0

0
Ответов: 8890
Рейтинг: 823
#4: 2018-02-23 07:49:58 ЛС | профиль | цитата
ibegen, а может так?
так?


Add(MainForm,7715963,392,70)
{
 Left=20
 Top=105
 Width=612
 Height=727
 BorderStyle=3
}
Add(Img_Loader,5258876,490,126)
{
 link(onLoad,3262079:doResize,[])
}
Add(Button,13908548,392,126)
{
 Left=10
 Top=5
 Width=80
 Caption="load image"
 link(onClick,6347196:doExecute,[])
}
Add(ODialog,6347196,441,126)
{
 link(onExecute,5258876:doLoad,[])
}
Add(Image,6521469,637,126)
{
 Left=15
 Top=30
 Width=290
 Height=290
 ViewStyle=0
 Picture=[ZIP5E0E000078DAEDD2318ED4401005D05E8900117086093726202E917305E4A3FCA338409CA362CE40E0236C4E303CD7ACB4A4C4D89E923DFED3E37EDDF5E5EBB78F6B8ECFEFD67A76FDF45A4FEBFD3C7FFEB0DE8EA7BFEE57E6B392C7E53CDD74F7EA5FBD5E7EFE58EB566A5382DBAE5A1D6B79BCEAA6DC94BCE4252F79C93D5A9B7C936FBE6CF24DBEC9B7E3F5BDF2C8B3CD1C56E49147EE76EDF25DBECB77F9EEE12EDFE52EABE52D6F799F13DFCFC92BB9CF3AE487FC901FF2437EC88FE331FD7553E7B9A9A85DB53A1EB49B9CBFF88BBFF88BBFF887ED47E5A6F88BBFF88BBFF86749F88BBFF88BBFF88BBFF867B9F88BBFF88BBFF88BBFF86729F98BBFF88BBFF88BBFF86799F98BBFF88BBFF88BBFF8CF2D28FEE22FFEE22FFEE22FFEC77EDF461DFED97BFEF0877FB6863FFCE10F7FF8C31FFED936FEF007364031E99858BC7CB6943FFCE10F7FF8C31FFED96E2F893F8A1FE7EC41FEF0877F5A813FFCE10F7FF8C31FFE6913FEF0873FFCE10F7FF8CF160A7FF8C31FFEF0873FFCD33EFC3D3BBE8DBAF97BCEE3D15AFCCDDFFCCDDFFCCDDFFCD376FCCDDFFCCDDFFCCDDFFCD392FCCDDFFCCDDFFCCDDFFCD3AEFCCDDFFCCDDFD00DD6263FADCCDFFCCDDFFCCDDFFCCD3F6D6E926D22ED65ED0FDBA097DFF7F5FD5CA77381D77D3EEB7E7F5CCEF37C747EFFE7635D63AE31D7986BCC35E61A738DB9C65C63FE83317F00BC10019D]
 Point(ImageWidth)
 Point(ImageHeight)
 Point(doRefresh)
}
Add(Img_Rotate,8022023,637,175)
{
 Point(Result)
 link(onResult,14955564:doEvent1,[])
 link(Bitmap,6521469:ImageBitmap,[])
}
Add(Resize,3262079,546,126)
{
 link(onResult,14005926:doEvent1,[])
 link(Bitmap,5258876:Bitmap,[(552,117)(538,117)(538,166)(496,166)])
 link(Width,7451014:Value,[(559,110)(538,110)])
 link(Height,11809473:Value,[(566,110)(580,110)])
}
Add(Image,16132329,721,126)
{
 Left=310
 Top=30
 Width=290
 Height=290
 ViewStyle=0
 Picture=[ZIP5E0E000078DAEDD2318ED4401005D05E8900117086093726202E917305E4A3FCA338409CA362CE40E0236C4E303CD7ACB4A4C4D89E923DFED3E37EDDF5E5EBB78F6B8ECFEFD67A76FDF45A4FEBFD3C7FFEB0DE8EA7BFEE57E6B392C7E53CDD74F7EA5FBD5E7EFE58EB566A5382DBAE5A1D6B79BCEAA6DC94BCE4252F79C93D5A9B7C936FBE6CF24DBEC9B7E3F5BDF2C8B3CD1C56E49147EE76EDF25DBECB77F9EEE12EDFE52EABE52D6F799F13DFCFC92BB9CF3AE487FC901FF2437EC88FE331FD7553E7B9A9A85DB53A1EB49B9CBFF88BBFF88BBFF887ED47E5A6F88BBFF88BBFF86749F88BBFF88BBFF88BBFF867B9F88BBFF88BBFF88BBFF86729F98BBFF88BBFF88BBFF86799F98BBFF88BBFF88BBFF8CF2D28FEE22FFEE22FFEE22FFEC77EDF461DFED97BFEF0877FB6863FFCE10F7FF8C31FFED936FEF007364031E99858BC7CB6943FFCE10F7FF8C31FFED96E2F893F8A1FE7EC41FEF0877F5A813FFCE10F7FF8C31FFE6913FEF0873FFCE10F7FF8CF160A7FF8C31FFEF0873FFCD33EFC3D3BBE8DBAF97BCEE3D15AFCCDDFFCCDDFFCCDDFFCD376FCCDDFFCCDDFFCCDDFFCD392FCCDDFFCCDDFFCCDDFFCD3AEFCCDDFFCCDDFD00DD6263FADCCDFFCCDDFFCCDDFFCCD3F6D6E926D22ED65ED0FDBA097DFF7F5FD5CA77381D77D3EEB7E7F5CCEF37C747EFFE7635D63AE31D7986BCC35E61A738DB9C65C63FE83317F00BC10019D]
}
Add(Image,4900490,721,182)
{
 Left=20
 Top=335
 Width=290
 Height=290
 ModeSp=2
 ViewStyle=0
 Picture=[ZIP5E0E000078DAEDD2318ED4401005D05E8900117086093726202E917305E4A3FCA338409CA362CE40E0236C4E303CD7ACB4A4C4D89E923DFED3E37EDDF5E5EBB78F6B8ECFEFD67A76FDF45A4FEBFD3C7FFEB0DE8EA7BFEE57E6B392C7E53CDD74F7EA5FBD5E7EFE58EB566A5382DBAE5A1D6B79BCEAA6DC94BCE4252F79C93D5A9B7C936FBE6CF24DBEC9B7E3F5BDF2C8B3CD1C56E49147EE76EDF25DBECB77F9EEE12EDFE52EABE52D6F799F13DFCFC92BB9CF3AE487FC901FF2437EC88FE331FD7553E7B9A9A85DB53A1EB49B9CBFF88BBFF88BBFF887ED47E5A6F88BBFF88BBFF86749F88BBFF88BBFF88BBFF867B9F88BBFF88BBFF88BBFF86729F98BBFF88BBFF88BBFF86799F98BBFF88BBFF88BBFF8CF2D28FEE22FFEE22FFEE22FFEC77EDF461DFED97BFEF0877FB6863FFCE10F7FF8C31FFED936FEF007364031E99858BC7CB6943FFCE10F7FF8C31FFED96E2F893F8A1FE7EC41FEF0877F5A813FFCE10F7FF8C31FFE6913FEF0873FFCE10F7FF8CF160A7FF8C31FFEF0873FFCD33EFC3D3BBE8DBAF97BCEE3D15AFCCDDFFCCDDFFCCDDFFCD376FCCDDFFCCDDFFCCDDFFCD392FCCDDFFCCDDFFCCDDFFCD3AEFCCDDFFCCDDFD00DD6263FADCCDFFCCDDFFCCDDFFCCD3F6D6E926D22ED65ED0FDBA097DFF7F5FD5CA77381D77D3EEB7E7F5CCEF37C747EFFE7635D63AE31D7986BCC35E61A738DB9C65C63FE83317F00BC10019D]
 Point(Handle)
 link(onClick,7810736:doMove,[(760,188)(760,223)(718,223)(718,244)])
}
Add(Hub,14005926,602,126)
{
 link(onEvent1,6521469:doLoad,[])
 link(onEvent2,8022023:doRotate,[(627,139)(627,181)])
}
Add(Hub,14955564,686,175)
{
 link(onEvent1,16132329:doLoad,[(714,181)(714,132)])
 link(onEvent2,4900490:doLoad,[])
}
Add(Memory,7451014,532,70)
{
 Default=Integer(290)
}
Add(Memory,11809473,574,70)
{
 Default=Integer(290)
}
Add(MoveWindow,7810736,728,238)
{
 link(Handle,4900490:Handle,[])
}
карма: 19

0
Ответов: 1926
Рейтинг: 172
#5: 2018-02-23 19:43:32 ЛС | профиль | цитата
Вот так?
Если да, то лучше пользоваться janfx. Там есть метод doTexturizeFlip и другие.

Редактировалось 1 раз(а), последний 2018-02-23 19:47:15
карма: 9
Учебник по HiAsm | Видеоуроки | Мои программы
0
Ответов: 91
Рейтинг: 6
#6: 2018-02-23 20:33:50 ЛС | профиль | цитата
Спасибо Леонид.
Почти... но как сохранить совмещенные картинки в один файл?

Про janfx не понял. У меня не работает схема. Надо наверное что то доустанавливать...
карма: 0

0
Ответов: 1926
Рейтинг: 172
#7: 2018-02-23 22:37:43 ЛС | профиль | цитата
Надо скачать и установить компонент janfx 2.2. А потом схема.
Там и сохранение есть.

Редактировалось 2 раз(а), последний 2018-02-23 22:39:14
карма: 9
Учебник по HiAsm | Видеоуроки | Мои программы
0
Ответов: 8890
Рейтинг: 823
#8: 2018-02-23 23:21:03 ЛС | профиль | цитата
ibegen, с сохранением:
save


Add(MainForm,7715963,168,63)
{
 Left=20
 Top=105
 Width=612
 Height=727
 BorderStyle=3
}
Add(Img_Loader,5258876,266,119)
{
 link(onLoad,3262079:doResize,[])
}
Add(Button,13908548,168,119)
{
 Left=10
 Top=5
 Width=80
 Caption="load image"
 link(onClick,6347196:doExecute,[])
}
Add(ODialog,6347196,217,119)
{
 link(onExecute,5258876:doLoad,[])
}
Add(Image,6521469,413,119)
{
 Left=15
 Top=30
 Width=290
 Height=290
 ViewStyle=0
 Picture=[ZIP5E0E000078DAEDD2318ED4401005D05E8900117086093726202E917305E4A3FCA338409CA362CE40E0236C4E303CD7ACB4A4C4D89E923DFED3E37EDDF5E5EBB78F6B8ECFEFD67A76FDF45A4FEBFD3C7FFEB0DE8EA7BFEE57E6B392C7E53CDD74F7EA5FBD5E7EFE58EB566A5382DBAE5A1D6B79BCEAA6DC94BCE4252F79C93D5A9B7C936FBE6CF24DBEC9B7E3F5BDF2C8B3CD1C56E49147EE76EDF25DBECB77F9EEE12EDFE52EABE52D6F799F13DFCFC92BB9CF3AE487FC901FF2437EC88FE331FD7553E7B9A9A85DB53A1EB49B9CBFF88BBFF88BBFF887ED47E5A6F88BBFF88BBFF86749F88BBFF88BBFF88BBFF867B9F88BBFF88BBFF88BBFF86729F98BBFF88BBFF88BBFF86799F98BBFF88BBFF88BBFF8CF2D28FEE22FFEE22FFEE22FFEC77EDF461DFED97BFEF0877FB6863FFCE10F7FF8C31FFED936FEF007364031E99858BC7CB6943FFCE10F7FF8C31FFED96E2F893F8A1FE7EC41FEF0877F5A813FFCE10F7FF8C31FFE6913FEF0873FFCE10F7FF8CF160A7FF8C31FFEF0873FFCD33EFC3D3BBE8DBAF97BCEE3D15AFCCDDFFCCDDFFCCDDFFCD376FCCDDFFCCDDFFCCDDFFCD392FCCDDFFCCDDFFCCDDFFCD3AEFCCDDFFCCDDFD00DD6263FADCCDFFCCDDFFCCDDFFCCD3F6D6E926D22ED65ED0FDBA097DFF7F5FD5CA77381D77D3EEB7E7F5CCEF37C747EFFE7635D63AE31D7986BCC35E61A738DB9C65C63FE83317F00BC10019D]
 Point(Left)
 Point(Top)
 Point(Width)
 Point(Height)
 Point(ImageWidth)
 Point(ImageHeight)
}
Add(Img_Rotate,8022023,427,70)
{
 Point(Result)
 link(onResult,14955564:doEvent1,[])
 link(Bitmap,15133037:Var3,[(433,61)(398,61)])
}
Add(Resize,3262079,322,119)
{
 link(onResult,14005926:doEvent1,[])
 link(Bitmap,5258876:Bitmap,[(328,110)(314,110)(314,159)(272,159)])
 link(Width,7451014:Value,[(335,103)(314,103)])
 link(Height,11809473:Value,[(342,103)(356,103)])
}
Add(Image,16132329,511,70)
{
 Left=310
 Top=30
 Width=290
 Height=290
 ViewStyle=0
 Picture=[ZIP5E0E000078DAEDD2318ED4401005D05E8900117086093726202E917305E4A3FCA338409CA362CE40E0236C4E303CD7ACB4A4C4D89E923DFED3E37EDDF5E5EBB78F6B8ECFEFD67A76FDF45A4FEBFD3C7FFEB0DE8EA7BFEE57E6B392C7E53CDD74F7EA5FBD5E7EFE58EB566A5382DBAE5A1D6B79BCEAA6DC94BCE4252F79C93D5A9B7C936FBE6CF24DBEC9B7E3F5BDF2C8B3CD1C56E49147EE76EDF25DBECB77F9EEE12EDFE52EABE52D6F799F13DFCFC92BB9CF3AE487FC901FF2437EC88FE331FD7553E7B9A9A85DB53A1EB49B9CBFF88BBFF88BBFF887ED47E5A6F88BBFF88BBFF86749F88BBFF88BBFF88BBFF867B9F88BBFF88BBFF88BBFF86729F98BBFF88BBFF88BBFF86799F98BBFF88BBFF88BBFF8CF2D28FEE22FFEE22FFEE22FFEC77EDF461DFED97BFEF0877FB6863FFCE10F7FF8C31FFED936FEF007364031E99858BC7CB6943FFCE10F7FF8C31FFED96E2F893F8A1FE7EC41FEF0877F5A813FFCE10F7FF8C31FFE6913FEF0873FFCE10F7FF8CF160A7FF8C31FFEF0873FFCD33EFC3D3BBE8DBAF97BCEE3D15AFCCDDFFCCDDFFCCDDFFCD376FCCDDFFCCDDFFCCDDFFCD392FCCDDFFCCDDFFCCDDFFCD3AEFCCDDFFCCDDFD00DD6263FADCCDFFCCDDFFCCDDFFCCD3F6D6E926D22ED65ED0FDBA097DFF7F5FD5CA77381D77D3EEB7E7F5CCEF37C747EFFE7635D63AE31D7986BCC35E61A738DB9C65C63FE83317F00BC10019D]
}
Add(Image,4900490,490,119)
{
 Left=20
 Top=335
 Width=290
 Height=290
 ModeSp=2
 ViewStyle=0
 Picture=[ZIP5E0E000078DAEDD2318ED4401005D05E8900117086093726202E917305E4A3FCA338409CA362CE40E0236C4E303CD7ACB4A4C4D89E923DFED3E37EDDF5E5EBB78F6B8ECFEFD67A76FDF45A4FEBFD3C7FFEB0DE8EA7BFEE57E6B392C7E53CDD74F7EA5FBD5E7EFE58EB566A5382DBAE5A1D6B79BCEAA6DC94BCE4252F79C93D5A9B7C936FBE6CF24DBEC9B7E3F5BDF2C8B3CD1C56E49147EE76EDF25DBECB77F9EEE12EDFE52EABE52D6F799F13DFCFC92BB9CF3AE487FC901FF2437EC88FE331FD7553E7B9A9A85DB53A1EB49B9CBFF88BBFF88BBFF887ED47E5A6F88BBFF88BBFF86749F88BBFF88BBFF88BBFF867B9F88BBFF88BBFF88BBFF86729F98BBFF88BBFF88BBFF86799F98BBFF88BBFF88BBFF8CF2D28FEE22FFEE22FFEE22FFEC77EDF461DFED97BFEF0877FB6863FFCE10F7FF8C31FFED936FEF007364031E99858BC7CB6943FFCE10F7FF8C31FFED96E2F893F8A1FE7EC41FEF0877F5A813FFCE10F7FF8C31FFE6913FEF0873FFCE10F7FF8CF160A7FF8C31FFEF0873FFCD33EFC3D3BBE8DBAF97BCEE3D15AFCCDDFFCCDDFFCCDDFFCD376FCCDDFFCCDDFFCCDDFFCD392FCCDDFFCCDDFFCCDDFFCD3AEFCCDDFFCCDDFD00DD6263FADCCDFFCCDDFFCCDDFFCCD3F6D6E926D22ED65ED0FDBA097DFF7F5FD5CA77381D77D3EEB7E7F5CCEF37C747EFFE7635D63AE31D7986BCC35E61A738DB9C65C63FE83317F00BC10019D]
 Point(Handle)
 Point(Left)
 Point(Top)
 Point(Width)
 Point(Height)
 Point(ImageWidth)
 Point(ImageHeight)
 link(onClick,7810736:doMove,[])
}
Add(Hub,14005926,378,119)
{
 link(onEvent1,6521469:doLoad,[])
 link(onEvent2,8022023:doRotate,[(403,132)(403,76)])
}
Add(Hub,14955564,476,70)
{
 link(onEvent1,16132329:doLoad,[])
 link(onEvent2,4900490:doLoad,[(501,83)(501,111)(480,111)(480,125)])
}
Add(Memory,7451014,308,63)
{
 Default=Integer(290)
}
Add(Memory,11809473,350,63)
{
 Default=Integer(290)
}
Add(MoveWindow,7810736,567,119)
{
 link(Handle,4900490:Handle,[(573,110)(559,110)(559,159)(503,159)])
}
Add(Bitmap,2907218,371,322)
{
 FillColor=-16777211
 Point(doCreate)
 Point(onCreate)
 Point(HWidth)
 Point(HHeight)
 link(onCreate,6503744:doCalc,[])
 link(HWidth,2369431:Result,[])
 link(HHeight,5306482:Result,[(384,285)(468,285)])
}
Add(MathParse,2369431,371,245)
{
 DataCount=4
 MathStr="(abs(%1 - %2) + %3)/%3*%4"
 ResultType=0
 link(onResult,3568560:doCalc,[])
 link(X1,9957685:Var2,[])
 link(X2,4199531:Var2,[])
 link(X3,7067263:Var2,[])
 link(X4,2099959:Var2,[])
}
Add(MathParse,5306482,462,245)
{
 DataCount=4
 MathStr="(abs(%1 - %2) + %3)/%3*%4"
 ResultType=0
 link(onResult,9325848:doEvent1,[(501,251)(501,293)(319,293)(319,335)])
 link(X1,11150592:Var2,[])
 link(X2,10125284:Var2,[])
 link(X3,777445:Var2,[])
 link(X4,5831491:Var2,[])
}
Add(Hub,9325848,329,329)
{
 link(onEvent1,2907218:doClear,[])
 link(onEvent2,2907218:doCreate,[])
}
Add(MathParse,14098433,322,245)
{
 DataCount=4
 MathStr="(%1 - %2)/%3*%4"
 link(onResult,2369431:doCalc,[])
 link(X1,9957685:Var1,[(328,187)])
 link(X2,4199531:Var1,[(335,194)])
 link(X3,7067263:Var1,[(342,201)])
 link(X4,2099959:Var1,[(349,208)])
}
Add(GetDataEx,9957685,371,182)
{
 Angle=1
 link(Data,6521469:Left,[(426,187)])
}
Add(GetDataEx,4199531,378,189)
{
 Angle=1
 link(Data,4900490:Left,[(510,194)])
}
Add(GetDataEx,7067263,385,196)
{
 Angle=1
 link(Data,4900490:Width,[(524,201)])
}
Add(GetDataEx,2099959,392,203)
{
 Angle=1
 link(Data,4900490:ImageWidth,[(538,208)])
}
Add(MathParse,3568560,420,245)
{
 DataCount=4
 MathStr="(%1 - %2)/%3*%4"
 link(onResult,5306482:doCalc,[])
 link(X1,11150592:Var1,[(426,215)])
 link(X2,10125284:Var1,[(433,222)])
 link(X3,777445:Var1,[(440,229)])
 link(X4,5831491:Var1,[(447,236)])
}
Add(GetDataEx,5831491,483,231)
{
 Angle=1
 link(Data,4900490:ImageHeight,[(545,236)])
}
Add(GetDataEx,777445,476,224)
{
 Angle=1
 link(Data,4900490:Height,[(531,229)])
}
Add(GetDataEx,10125284,469,217)
{
 Angle=1
 link(Data,4900490:Top,[(517,222)])
}
Add(GetDataEx,11150592,462,210)
{
 link(Data,6521469:Top,[(468,187)(433,187)])
}
Add(MathParse,6503744,413,322)
{
 DataCount=1
 MathStr="(%1>=0)*%1"
 ResultType=0
 link(onResult,9166853:doCalc,[])
 link(X1,4087577:Var2,[])
}
Add(MathParse,9166853,462,322)
{
 DataCount=1
 MathStr="(%1>=0)*%1"
 ResultType=0
 link(onResult,16113279:doCalc,[])
 link(X1,13785764:Var2,[])
}
Add(MathParse,16113279,504,322)
{
 DataCount=1
 MathStr="(%1<0)*(-%1)"
 ResultType=0
 link(onResult,6326574:doCalc,[])
 link(X1,4087577:Var3,[(510,308)])
}
Add(MathParse,6326574,546,322)
{
 DataCount=1
 MathStr="(%1<0)*(-%1)"
 ResultType=0
 link(onResult,7698907:doDraw,[(585,328)(585,370)(410,370)(410,398)])
 link(X1,13785764:Var3,[(552,299)])
}
Add(Img_Bmp,7698907,434,392)
{
 Point(X)
 Point(Y)
 link(onDraw,738707:doDraw,[])
 link(Bitmap,330187:Var2,[])
 link(SourceBitmap,15133037:Var1,[(447,383)(363,383)(363,159)])
 link(X,6503744:Result,[(454,362)(419,362)])
 link(Y,9166853:Result,[(461,362)(468,362)])
}
Add(Img_Bmp,738707,518,392)
{
 Point(X)
 Point(Y)
 link(onDraw,11961563:doExecute,[])
 link(Bitmap,15211598:Var2,[])
 link(SourceBitmap,4900490:ImageBitmap,[(531,285)(496,285)])
 link(X,16113279:Result,[(538,362)(510,362)])
 link(Y,6326574:Result,[(545,362)(552,362)])
}
Add(GetDataEx,330187,434,371)
{
 Angle=3
 link(Data,2907218:Bitmap,[(377,376)])
}
Add(GetDataEx,4087577,413,303)
{
 Angle=3
 link(Data,14098433:Result,[(328,308)])
}
Add(GetDataEx,13785764,462,294)
{
 Angle=3
 link(Data,3568560:Result,[(426,299)])
}
Add(GetDataEx,15133037,392,154)
{
 Angle=1
 link(Data,6521469:ImageBitmap,[(419,159)])
}
Add(PictureStream,16727231,616,385)
{
 link(Bitmap,15211598:Var3,[(629,376)])
}
Add(GetDataEx,15211598,518,371)
{
 Angle=3
 link(Data,330187:Var3,[])
}
Add(SDialog,11961563,567,392)
{
 Filter="JPG|*.jpg"
 link(onExecute,16727231:doSave,[])
}
Add(Button,11916655,266,245)
{
 Left=510
 Top=5
 Caption="Save"
 link(onClick,14098433:doCalc,[])
}
карма: 19

0
Ответов: 91
Рейтинг: 6
#9: 2018-02-23 23:30:16 ЛС | профиль | цитата
Леонид, вы как всегда на высоте!!!
Да, именно так как надо. Буду использовать ваше решение.
Для меня такой уровень недостижим в принципе....

Преогромнейшее спасибо!!!! С праздником!
карма: 0

0
Ответов: 91
Рейтинг: 6
#10: 2018-03-17 22:04:41 ЛС | профиль | цитата
Леонид, прошу прощения, а как сделать вывод картинки с максимальным качеством?
Например 300 dpi ?
Почему то у меня на выходе получается 96 dpi...
В какой части схемы это можно исправить что то не найду.
карма: 0

0
Ответов: 8890
Рейтинг: 823
#11: 2018-03-17 23:06:26 ЛС | профиль | цитата
ibegen, или так, или так
Качество.jpg
карма: 19

0
11
ФорумыПомощь по пакетуСдвигать картинку влево вправо ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2020
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика