Вверх ↑
Этот топик читают: Гость
Ответов: 315
Рейтинг: 1
#1: 2018-09-19 21:22:19 ЛС | профиль | цитата
Как сохранить скрин в файл?

Add(MainForm,12907300,322,189)
{
Width=654
Height=435
Caption="Пример использования ScreenShort"
Point(Handle)
}
Add(ScreenShort,5581888,490,189)
{
link(onCapture,15406364:doLoad,[])
link(Handle,12907300:Handle,[(496,177)(387,177)(387,233)(328,233)])
}
Add(Timer,8425737,378,189)
{
Interval=5000
link(onTimer,5581888:doCapture,[])
}
Add(Image,15406364,553,189)
{
Left=225
Top=55
Width=405
Height=275
}

карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8778
Рейтинг: 813
#2: 2018-09-19 22:32:17 ЛС | профиль | цитата


Add(MainForm,12907300,399,175)
{
Width=654
Height=435
Caption="Пример использования ScreenShort"
Point(Handle)
}
Add(ScreenShort,5581888,455,133)
{
link(onCapture,7962079:doEvent1,[])
link(Handle,3756059:Value,[])
}
Add(Timer,8425737,399,133)
{
Interval=5000
link(onTimer,5581888:doCapture,[])
}
Add(Image,15406364,532,133)
{
Left=225
Top=55
Width=405
Height=275
}
Add(PictureStream,15364455,525,182)
{
FileName="MyScreen.jpg"
link(Bitmap,15406364:ImageBitmap,[])
}
Add(Hub,7962079,497,133)
{
link(onEvent1,15406364:doLoad,[])
link(onEvent2,15364455:doSave,[(522,146)(522,174)(515,174)(515,195)])
}
Add(Memory,3756059,455,91)
{
Default=Integer(0)
}

карма: 18

0
Ответов: 315
Рейтинг: 1
#3: 2018-09-20 20:50:59 ЛС | профиль | цитата
Леонид, спасибо!

--- Добавлено в 2018-09-20 21:36:34

А имеется такая возможность скринить ни экран, ни отдельное окно, а какой то элемент моего приложения, например, таблицу

Редактировалось 4 раз(а), последний 2018-09-20 21:39:23
карма: 0

0
Ответов: 2062
Рейтинг: 655
#4: 2018-09-21 13:04:05 ЛС | профиль | цитата
GS_Lab, если элементу ScreenShot подать регион, то будет снимок только области региона.
карма: 10

0
Ответов: 315
Рейтинг: 1
#5: 2018-09-25 16:11:38 ЛС | профиль | цитата
sla8a, а в каком формате подавать значения на точку позиции? я так понимаю там нужны 4 параметра, высота, ширина, отступ слева, отступ сверху?
карма: 0

0
Ответов: 2062
Рейтинг: 655
#6: 2018-09-26 00:57:26 ЛС | профиль | цитата
GS_Lab, у элемента Screenshot нужно выставить свойство UseRegion = True, и подать на точку Region (по умолчанию скрыта) созданный регион. Регион в вашем случае это прямоугольная область, можно создать с помощью RGN_Rect.
Как вариант:

Add(MainForm,2953706,420,161)
{
Width=971
Height=352
Position=1
Point(SizeHeader)
Point(Handle)
}
Add(ScreenShort,558996,427,301)
{
UseRegion=1
Color=16776960
Point(Region)
link(onCapture,3179763:doLoad,[])
link(Handle,2953706:Handle,[])
}
Add(RGN_Rect,15603908,301,301)
{
Point2AsOffset=0
link(onCreateRect,11866959:doOffset,[])
link(Point1,11092645:Point,[(307,282)(272,282)])
link(Point2,7833549:Point,[])
}
Add(PointXY,11092645,266,231)
{
link(X,12728905:Left,[])
link(Y,12728905:Top,[])
}
Add(PointXY,7833549,308,231)
{
link(X,12728905:Width,[(314,215)(286,215)])
link(Y,12728905:Height,[(321,207)(293,207)])
}
Add(StringTable,12728905,252,161)
{
Left=10
Top=30
Width=370
Height=255
Columns=#4:kino|4:vino|6:domino|
Grid=0
Point(Left)
Point(Top)
Point(Width)
Point(Height)
}
Add(Button,7184611,210,301)
{
Left=395
Top=130
Width=180
Caption="Скриншот таблицы >>>"
link(onClick,15603908:doCreateRect,[])
}
Add(Image,3179763,469,301)
{
Left=655
Top=35
Width=215
Height=245
Color=16777215
}
Add(RGN_Offset,11866959,357,301)
{
link(onOffset,558996:doCapture,[])
link(Y,2953706:SizeHeader,[(377,254)(426,254)])
}
В моем примере регион сдвигается вниз на длину заголовка элементом RGN_Offset.
карма: 10

0
Ответов: 315
Рейтинг: 1
#7: 2018-09-27 21:04:55 ЛС | профиль | цитата
sla8a, спасибо!
карма: 0

0
Ответов: 23
Рейтинг: 0
#8: 2022-02-07 13:47:06 ЛС | профиль | цитата
подскажите пожалуйста как мне сделать снимок формы которая имеет прозрачность
я пытался сделать по разному но в итоге чёрный квадрат

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,434,238)
{
Width=971
Height=352
Position=1
Point(SizeHeader)
Point(Handle)
}
Add(ScreenShort,558996,476,385)
{
Color=16776960
Point(Region)
link(onCapture,3179763:doLoad,[])
link(Handle,4051317:Var5,[(482,335)(370,335)])
}
Add(RGN_Rect,15603908,371,385)
{
Point2AsOffset=0
link(onCreateRect,11866959:doOffset,[])
link(Point1,11092645:Point,[(377,366)(342,366)])
link(Point2,7833549:Point,[])
}
Add(PointXY,11092645,336,315)
{
link(X,4051317:Var1,[])
link(Y,4051317:Var2,[])
}
Add(PointXY,7833549,378,315)
{
link(X,4051317:Var3,[(384,303)(356,303)])
link(Y,4051317:Var4,[(391,303)(363,303)])
}
Add(Button,7184611,280,385)
{
Left=395
Top=130
Width=180
Caption="—криншот формы >>>"
link(onClick,15603908:doCreateRect,[])
}
Add(Image,3179763,518,385)
{
Left=655
Top=35
Width=215
Height=245
Color=16777215
}
Add(RGN_Offset,11866959,427,385)
{
link(onOffset,558996:doCapture,[])
link(Y,4051317:Var6,[(447,335)(377,335)])
}
Add(ChildForm,4051317,336,238)
{
}
BEGIN_SDK
Add(EditMulti,9147222,21,21)
{
WorkCount=1
VarCount=7
link(doWork1,16560445:doVisible,[(84,27)(84,104)])
link(Var1,16560445:Left,[(27,171)(146,171)])
link(Var2,16560445:Top,[(34,171)(153,171)])
link(Var3,16560445:Width,[(41,171)(132,171)])
link(Var4,16560445:Height,[(48,171)(139,171)])
link(Var5,16560445:Handle,[(55,171)(160,171)])
link(Var6,16560445:SizeHeader,[(62,171)(167,171)])
link(Var7,16560445:SizeBorder,[(69,171)(174,171)])
}
Add(MainForm,16560445,126,70)
{
Left=35
Top=105
Color=16777215
Visible=1
BorderStyle=6
DragForm=0
Position=1
TransparentManager="634"
Point(doVisible)
Point(doShiftLeft)
Point(doShiftTop)
Point(Width)
Point(Height)
Point(Left)
Point(Top)
Point(Handle)
Point(SizeHeader)
Point(SizeBorder)
}
Add(TransparentManager,3026241,217,84)
{
Name="634"
Picture=[ZIP1AF5060078DAEDDC4B4F1B571880E12F9BFE814A49B81AE30B3609844B6E74D97D7F567F522EA4EAAA5DA48B2CDA45AA3641D026E21E0321254081E99CB101A704A9AB4A460FD2A38F8C6316B3F0AB9973C65F7FD3FFD717917EEEE71AB96FAF45D472D762A438FEF643FBF5EE9FEAC03B000000000080FFAC3EB416CDD1C598A8BD8CA9E68B98B9F51C802BE84EE3E76894DE5EE8C0E860E7F7C18D18AF2CC5ECED1FE28F852C36D7B2D8D9CAB53A73BB6D77ABAD387EFA1A003D65F96D1677C67EF96C13927ADE84DBB5DFE3E1F493585FC962EF6316C75916D9492ECDEC2477D4F9BD73FCEC35007A49EA42BA5ED004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D004013340140133401401334014013340140133401401334014013340140133401401334014013340140133401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D004013340140133401401334014013340140133401401334014013340140133401401334014013340140133401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D0040139C57004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D706E0134411300344113003441130034411300344113003441130034411300344113003441130034411300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D705E0134411300344113003441130034411300344113003441130034411300344113003441130034411300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D0040034C1B905D0044D00D0044D00D0044D00D0044D00D0044D00D0044D00D0044D00D0044D00D0044D00D0044D00401300D004003401004D00401300D004003401004D00401300D00400FEDF266C443535A1FA3A1ECC3C89D5BC09FB1F3FF7D97FE25C025CE126A4168C76346BAFE35E7713520B8EDBD235C371F7DFEC6EC50900BD64A7F5F926A47B46C5F5C2402BC6AB0B674D38EC6EC251BB077F7FD285134D00B8624D68F46D17EA7D3B3139BA140FA7E66373B9D384F4B97FDC7EFF6913DA5D700F09A097ED5E72EFA8D1DF6A3B6DC2F4D37613F6B3F69AF2C9BF9B7052F8E43ED259234CD334CD5E989735A13EBC12D5E1B5625D61BC96D6981FC5FA5A16FB87E9BD0767EF4F3D38ECBA5638BF8F74BA1FC9344DD3EC95B9B37DC9BEA3D2726EE57C8D79F651ACE64DD83B4C9FF9E74DE85E4FE876DE1D007AC5654D280F6D4479309F03DBD1AC2CC5BDE9A7B1BC92C58783F4997F7471FFE9E91AC55176B6D6E0DE1CC0D5584F280FB48A1E8CF6EFC478D184F97613F6DB6B0717FAD2B53FF5AC0900F494DD4BF61DD506B7626C78274A5FAEC4646521BE9A9D2FF6A2BEDFEB5E4F3EEADC473A38BF27D5F57CC2E93D24D3344DB337E6A5CF315F5F8F7A3E2746DEC7546D311E4C7E176F16B3D8DA6E5F2B140EDAEB0B69DD39ED474AFB5493FD8E3DD3344DB3A7E6E65A1653CD17179A3036D88AF1D24E94AFAF46737829A6EBCF63F1D72CDE2E65C5F5C2EA7256DC4B4AEBCE693F52DAA79A14AFE5D63BD231D3344DB337E69B852C266A2F2F34A132B01EA3FD6B51CBDBD02CADC474ED55CC8CFD147353DFC783A9C7717FE659DC9D9D8FFB771FC7C3D9C73137331F73D3CFE2FEECD3C2DC4CAE386E9AA669F6CABC3BF1633447172F7EDF516933AAC3EF6274A8152303AB3159DD8C5B237FC65465A1585F48EF69E49AD5578589F262A159791D8DFCDFB72AF9B1EA6F31619AA669F6CCBC957F8ED787D62E3461E8E65AB11775F0C66A5486B7A27C73BDB88F3459DE8DEACDCD623F52B12FA9F3DDA9E979E7F43D18E9FB914E8FD501E83917AE11D27A42692F866FBE2B7A502BB5A2DCB71A8DA1ADA8F66D147B92520F5233D2736DE979E7F6F7606C9F7DA76AF592BF0B40EF29DFD88DCAC0FB1819D88C52FF4A3446B6DAFDC8AF11AAC5B30BADE2B9B6F4BC733D77DA84E2FF0CAD3B870057C83F3414E435]
}
END_SDK
Add(Button,10200492,273,238)
{
Left=510
Top=245
Caption="показать форму"
link(onClick,4051317:doWork1,[])
}

карма: 0

0
Ответов: 412
Рейтинг: 67
#9: 2022-02-07 15:57:53 ЛС | профиль | цитата
prostov писал(а):
пытался сделать по разному но в итоге чёрный квадрат

У тебя в настройках вместо белого цвета показывать чёрный.

Add(MainForm,2008888,518,147)
{
Width=606
Height=352
Position=1
Point(SizeHeader)
Point(Handle)
}
Add(ScreenShort,558996,420,217)
{
Color=16776960
link(onCapture,3179763:doLoad,[])
link(Handle,4051317:Var1,[])
}
Add(Button,7184611,371,217)
{
Left=25
Top=20
Width=180
Caption="—криншот формы >>>"
link(onClick,558996:doCapture,[])
}
Add(Image,3179763,462,217)
{
Left=255
Top=20
Width=305
Height=245
Color=16777215
}
Add(ChildForm,4051317,420,147)
{
}
BEGIN_SDK
Add(EditMulti,9147222,21,21)
{
WorkCount=1
VarCount=1
link(doWork1,16560445:doVisible,[(84,27)(84,104)])
link(Var1,16560445:Handle,[(27,131)(132,131)])
}
Add(MainForm,16560445,126,70)
{
Left=35
Top=105
Color=16777215
Visible=1
AlphaBlendValue=150
BorderStyle=6
DragForm=0
Position=1
TransparentManager="634"
Point(doVisible)
Point(doShiftLeft)
Point(doShiftTop)
Point(Handle)
}
Add(Button,5945522,203,42)
{
Left=50
Top=40
}
Add(Button,908026,203,91)
{
Left=50
Top=75
}
Add(Edit,6458582,210,147)
{
Left=55
Top=115
}
END_SDK
Add(Button,10200492,357,147)
{
Left=35
Top=65
Width=170
Caption="показать форму"
link(onClick,4051317:doWork1,[])
}

карма: 9

0
Ответов: 23
Рейтинг: 0
#10: 2022-02-07 17:09:03 ЛС | профиль | цитата
Gunta писал(а):
тебя в настройках вместо белого цвета показывать чёрный.

вы не так поняли я хочу чтобы задний фон тот что за фомой скриншотился, а не сама только форма,
например как в приложении (ножницы) правда там мышкой выделяешь или выбираешь форму для скриншота, но мне нужно чтобы программа могла сделать скриншот того что находиться за формой, и эту форму можно было бы перемещать, как показано в том коде.
карма: 0

0
Разработчик
Ответов: 26048
Рейтинг: 2110
#11: 2022-02-07 19:43:51 ЛС | профиль | цитата
prostov писал(а):
вы не так поняли я хочу чтобы задний фон тот что за фомой скриншотился, а не сама только форма,

Как-то так:

Схема

Add(MainForm,11788041,462,245)
{
Width=971
Height=352
Position=1
Point(SizeHeader)
Point(Handle)
}
Add(ScreenShort,558996,553,315)
{
UseRegion=1
Color=16776960
Point(Region)
link(onCapture,3179763:doLoad,[])
link(Region,2683450:Result,[])
}
Add(Button,7184611,462,308)
{
Left=395
Top=130
Width=180
Caption="—криншот формы >>>"
link(onClick,7181385:doEvent1,[])
}
Add(Image,3179763,609,315)
{
Left=655
Top=35
Width=215
Height=245
Color=16777215
}
Add(Button,10200492,462,182)
{
Left=510
Top=245
Caption="показать форму"
link(onClick,7408161:doShow,[])
}
Add(RGN_Rect,2683450,560,245)
{
Point2AsOffset=0
link(Point1,7408161:Point1,[])
link(Point2,7408161:Point2,[])
}
Add(ChildFormEx,7408161,560,182)
{
}
BEGIN_SDK
Add(EditMultiEx,9068904,21,21)
{
WorkCount=#6:doShow|
VarCount=#6:Point1|6:Point2|
Width=258
Height=256
link(doShow,1628283:doEvent1,[(32,27)(32,111)])
link(Point1,9033610:Point,[(27,243)(181,243)])
link(Point2,8542371:Point,[(34,250)(223,250)])
}
Add(MainForm,5983969,84,77)
{
Left=35
Top=105
Width=503
Height=404
Visible=1
Ctl3D=0
WinStyle=1
BorderStyle=0
DragForm=0
TransparentColor=0
Position=3
TransparentManager="634"
Point(doVisible)
Point(Handle)
Point(onMove)
link(onMove,13316501:doWork2,[])
}
Add(TransparentManager,1016163,84,161)
{
Name="634"
Picture=[ZIP1AF5060078DAEDDC4B4F1B571880E12F9BFE814A49B81AE30B3609844B6E74D97D7F567F522EA4EAAA5DA48B2CDA45AA3641D026E21E0321254081E99CB101A704A9AB4A460FD2A38F8C6316B3F0AB9973C65F7FD3FFD717917EEEE71AB96FAF45D472D762A438FEF643FBF5EE9FEAC03B000000000080FFAC3EB416CDD1C598A8BD8CA9E68B98B9F51C802BE84EE3E76894DE5EE8C0E860E7F7C18D18AF2CC5ECED1FE28F852C36D7B2D8D9CAB53A73BB6D77ABAD387EFA1A003D65F96D1677C67EF96C13927ADE84DBB5DFE3E1F493585FC962EF6316C75916D9492ECDEC2477D4F9BD73FCEC35007A49EA42BA5ED004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D004013340140133401401334014013340140133401401334014013340140133401401334014013340140133401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D004013340140133401401334014013340140133401401334014013340140133401401334014013340140133401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D0040139C57004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D706E0134411300344113003441130034411300344113003441130034411300344113003441130034411300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004004DD004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D705E0134411300344113003441130034411300344113003441130034411300344113003441130034411300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D004003401004D00401300D0040034C1B905D0044D00D0044D00D0044D00D0044D00D0044D00D0044D00D0044D00D0044D00D0044D00D0044D00401300D004003401004D00401300D004003401004D00401300D00400FEDF266C443535A1FA3A1ECC3C89D5BC09FB1F3FF7D97FE25C025CE126A4168C76346BAFE35E7713520B8EDBD235C371F7DFEC6EC50900BD64A7F5F926A47B46C5F5C2402BC6AB0B674D38EC6EC251BB077F7FD285134D00B8624D68F46D17EA7D3B3139BA140FA7E66373B9D384F4B97FDC7EFF6913DA5D700F09A097ED5E72EFA8D1DF6A3B6DC2F4D37613F6B3F69AF2C9BF9B7052F8E43ED259234CD334CD5E989735A13EBC12D5E1B5625D61BC96D6981FC5FA5A16FB87E9BD0767EF4F3D38ECBA5638BF8F74BA1FC9344DD3EC95B9B37DC9BEA3D2726EE57C8D79F651ACE64DD83B4C9FF9E74DE85E4FE876DE1D007AC5654D280F6D4479309F03DBD1AC2CC5BDE9A7B1BC92C58783F4997F7471FFE9E91AC55176B6D6E0DE1CC0D5584F280FB48A1E8CF6EFC478D184F97613F6DB6B0717FAD2B53FF5AC0900F494DD4BF61DD506B7626C78274A5FAEC4646521BE9A9D2FF6A2BEDFEB5E4F3EEADC473A38BF27D5F57CC2E93D24D3344DB337E6A5CF315F5F8F7A3E2746DEC7546D311E4C7E176F16B3D8DA6E5F2B140EDAEB0B69DD39ED474AFB5493FD8E3DD3344DB3A7E6E65A1653CD17179A3036D88AF1D24E94AFAF46737829A6EBCF63F1D72CDE2E65C5F5C2EA7256DC4B4AEBCE693F52DAA79A14AFE5D63BD231D3344DB337E69B852C266A2F2F34A132B01EA3FD6B51CBDBD02CADC474ED55CC8CFD147353DFC783A9C7717FE659DC9D9D8FFB771FC7C3D9C73137331F73D3CFE2FEECD3C2DC4CAE386E9AA669F6CABC3BF1633447172F7EDF516933AAC3EF6274A8152303AB3159DD8C5B237FC65465A1585F48EF69E49AD5578589F262A159791D8DFCDFB72AF9B1EA6F31619AA669F6CCBC957F8ED787D62E3461E8E65AB11775F0C66A5486B7A27C73BDB88F3459DE8DEACDCD623F52B12FA9F3DDA9E979E7F43D18E9FB914E8FD501E83917AE11D27A42692F866FBE2B7A502BB5A2DCB71A8DA1ADA8F66D147B92520F5233D2736DE979E7F6F7606C9F7DA76AF592BF0B40EF29DFD88DCAC0FB1819D88C52FF4A3446B6DAFDC8AF11AAC5B30BADE2B9B6F4BC733D77DA84E2FF0CAD3B870057C83F3414E435]
}
Add(WinInfo,6575050,161,98)
{
Point(Left)
Point(Top)
Point(Width)
Point(Height)
link(Handle,5983969:Handle,[(167,89)(216,89)(216,138)(90,138)])
}
Add(PointXY,9033610,175,161)
{
link(X,6575050:Left,[])
link(Y,6575050:Top,[])
}
Add(PointXY,8542371,217,161)
{
link(X,6575050:Width,[(223,152)(195,152)])
link(Y,6575050:Height,[(230,145)(202,145)])
}
Add(Hub,1628283,42,105)
{
link(onEvent1,5983969:doVisible,[])
link(onEvent2,13316501:doWork3,[(74,118)(74,125)(137,125)])
}
Add(HubEx,13316501,133,98)
{
link(onEvent,6575050:doWinInfo,[])
}
END_SDK
Add(Hub,7181385,511,308)
{
link(onEvent1,2683450:doCreateRect,[(536,314)(536,251)])
link(onEvent2,558996:doCapture,[])
}


--- Добавлено в 2022-02-07 20:02:52

А вот так с обрезом рамки, но я немного сменил саму рамку:

Схема2


Add(MainForm,11788041,308,217)
{
Width=971
Height=352
Position=1
Point(SizeHeader)
Point(Handle)
}
Add(ScreenShort,558996,399,287)
{
UseRegion=1
Color=16776960
Point(Region)
link(onCapture,3179763:doLoad,[])
link(Region,2683450:Result,[])
}
Add(Button,7184611,308,280)
{
Left=395
Top=130
Width=180
Caption="—криншот формы >>>"
link(onClick,7181385:doEvent1,[])
}
Add(Image,3179763,455,287)
{
Left=655
Top=35
Width=215
Height=245
Color=16777215
}
Add(Button,10200492,308,154)
{
Left=510
Top=245
Caption="показать форму"
link(onClick,7408161:doShow,[])
}
Add(RGN_Rect,2683450,406,217)
{
Point2AsOffset=0
link(Point1,7408161:Point1,[])
link(Point2,7408161:Point2,[])
}
Add(ChildFormEx,7408161,406,154)
{
}
BEGIN_SDK
Add(EditMultiEx,9068904,21,21)
{
WorkCount=#6:doShow|
VarCount=#6:Point1|6:Point2|
Width=307
Height=298
link(doShow,1628283:doEvent1,[(32,27)(32,111)])
link(Point1,9033610:Point,[(27,271)(188,271)])
link(Point2,8542371:Point,[(34,285)(230,285)])
}
Add(MainForm,5983969,84,77)
{
Left=35
Top=105
Width=503
Height=404
Visible=1
Ctl3D=0
WinStyle=1
BorderStyle=0
DragForm=0
TransparentColor=0
Position=3
TransparentManager="656"
Point(doVisible)
Point(Handle)
Point(onMove)
link(onMove,13316501:doWork2,[])
}
Add(WinInfo,6575050,161,98)
{
Point(Left)
Point(Top)
Point(Width)
Point(Height)
link(Handle,5983969:Handle,[(167,89)(216,89)(216,138)(90,138)])
}
Add(PointXY,9033610,182,231)
{
link(X,9152709:reCalc,[(188,222)(153,222)])
link(Y,12115130:reCalc,[])
}
Add(PointXY,8542371,224,231)
{
X=489
Y=339
}
Add(Hub,1628283,42,105)
{
link(onEvent1,5983969:doVisible,[])
link(onEvent2,13316501:doWork3,[(74,118)(74,125)(137,125)])
}
Add(HubEx,13316501,133,98)
{
link(onEvent,6575050:doWinInfo,[])
}
Add(TransparentManager,7029870,140,231)
{
Name="656"
TransparentColor=12829635
Picture=[ZIP66670C0078DAEDD5B10D82401886E1A367084B4A2A06B0770D58C8C64918E01CC4C4C4152CE1309A509940E37979BEE469EEBABF798FA77EA8C3B22E69926715C239A9C2E1F5DEBEFFD7BB8CD70900288B99999995316D373333D376333333D376333333D376333333D3763333336DD7763333336D373333336D373333336D373333336D373333D3766D373333D376333333D376333333D376333333D3763333336DD7763333336D373333336D373333336D373333336D373333D376333333D376333333D376333333D376333333D3763333336D373333336D3733CB6F8FFBCD114CDBB5DDCCB4DD4CDBCDCCCC4CDBCDCCCCECA76DFFFC010079DAD3F618230090216D07006DD77600D0760040DB01006D07006DD77600D0766D07006D0700B41D00D07600D0766D07006D773B00D0760040DB01006D07006DD77600D076B703006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D07006DD77600D0766D07006D0700B41D00D07600D0766D07006D773B00D0760040DB01006D07006DD77600D076B703006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D07006DD77600D0766D07006D0700B41D00D07600D0766D07006D773B00D0760040DB01006D07006DD77600D076B703006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0766D07006D0700B41D00D0760040DB0140DBB51D00B41D00D0760040DB01006D07006DD77600D0760040DB01006D0700B41D00B45DDB0140DB01006D0700B41D00D07600D0F66F7F00409EB6B6DDCCCCCCFE6FDA6E6666A6ED666666A6ED666666A6ED666666A6ED666666DAAEED666666DA6E666666DA6E666666DA6E666666DA6E6666A6EDDA6E6666A6ED666666A6ED666666A6ED666666A6ED666666DAAEED666666DA6E666666DA6E666666DA6E666666DA6E6666A6ED666666A6ED666666A6ED666666A6ED666666A6ED666666DA6E666666DA6E666666DA6E666666DA6E6666665BDB0E009463061CE4C62F]
}
Add(MathParse,9152709,140,168)
{
DataCount=1
MathStr="%1 + 7"
Point(reCalc)
link(X1,6575050:Left,[(146,145)(181,145)])
}
Add(MathParse,12115130,182,168)
{
DataCount=1
MathStr="%1 + 32"
Point(reCalc)
link(X1,6575050:Top,[])
}
END_SDK
Add(Hub,7181385,357,280)
{
link(onEvent1,2683450:doCreateRect,[(382,286)(382,223)])
link(onEvent2,558996:doCapture,[])
}

Редактировалось 2 раз(а), последний 2022-02-07 20:02:52
карма: 22

1
Голосовали:prostov
Ответов: 23
Рейтинг: 0
#12: 2022-02-08 12:45:13 ЛС | профиль | цитата
nesco писал(а):

Как-то так:
Схема
А вот так с обрезом рамки, но я немного сменил саму рамку:
Схема2


Спасибо
карма: 0

0
Ответов: 412
Рейтинг: 67
#13: 2022-02-08 19:49:54 ЛС | профиль | цитата
prostov, Я тоже что-то намудрил. Работает как ножницы. После нажатия кнопки ЛКМ выделяем копируемую область.
Add(MainForm,11788041,336,329)
{
Width=479
Height=417
Position=1
Point(SizeHeader)
Point(Handle)
Point(doSendToBack)
Point(doBringToFront)
}
Add(Button,7184611,147,378)
{
Width=463
Align=2
Caption="Вырезать"
link(onClick,1712484:doEvent1,[])
}
Add(Image,3179763,336,385)
{
Top=20
Width=463
Height=358
Align=5
Color=16777215
}
Add(Hub,1712484,203,378)
{
link(onEvent1,11788041:doSendToBack,[(228,384)(228,363)])
link(onEvent2,5508976:doWork1,[])
}
Add(ChildForm,5508976,238,385)
{
link(onEvent1,2186279:doEvent1,[])
}
BEGIN_SDK
Add(EditMulti,987769,21,21)
{
EventCount=1
WorkCount=1
Width=1077
Height=564
link(doWork1,6757584:doEvent1,[(74,27)(74,76)])
}
Add(MainForm,5179513,273,210)
{
Align=5
Visible=1
BorderStyle=0
Point(doWidth)
Point(doHeight)
Point(doVisible)
}
Add(ScreenShort,4529928,175,70)
{
link(onCapture,7956552:doEvent1,[])
link(Handle,7983328:Value,[])
}
Add(Hub,6757584,77,70)
{
OutCount=5
link(onEvent1,4529928:doCapture,[])
link(onEvent2,13915281:doData,[(137,83)(137,202)])
link(onEvent3,3287052:doData,[(130,90)(130,230)])
link(onEvent4,10332740:doWork1,[(109,97)])
link(onEvent5,10063086:doTimer,[(102,104)(102,398)])
}
Add(Memory,7983328,175,28)
{
Default=Integer(0)
}
Add(Image,9543904,364,133)
{
Top=20
Width=463
Height=358
Align=5
Color=16777215
link(Bitmap,8478335:Var2,[])
}
Add(Timer,10063086,126,392)
{
Interval=100
Enable=1
link(onTimer,1211224:doEvent1,[])
}
Add(Keyboard,5470852,217,399)
{
Key=1
link(onReadKey,8341088:doEvent1,[])
}
Add(IndexToChanel,5304455,336,406)
{
link(onEvent1,3534223:doEvent1,[])
link(onEvent2,9610324:doValue,[(375,419)(375,265)])
}
Add(ChangeMon,9840715,294,406)
{
Data=Integer(0)
link(onData,5304455:doEvent,[])
}
Add(MouseEvent,11503216,567,175)
{
Point(Handle)
}
Add(Screen,10393990,147,147)
{
}
Add(DoData,13915281,147,196)
{
link(onEventData,5179513:doWidth,[(249,202)(249,244)])
link(Data,10393990:Width,[])
}
Add(DoData,3287052,189,224)
{
link(onEventData,5179513:doHeight,[(242,230)(242,251)])
link(Data,10393990:Height,[(195,187)(160,187)])
}
Add(Hub,3534223,399,406)
{
OutCount=4
link(onEvent1,4812601:doCalc,[(424,412)(424,342)])
link(onEvent2,5569383:doCopy,[])
link(onEvent3,5219379:doData,[(438,426)(438,447)])
link(onEvent4,10063086:doStop,[(424,433)(424,447)(123,447)(123,405)])
}
Add(DoData,5219379,448,441)
{
Data=Integer(0)
link(onEventData,10332740:doWork3,[(488,447)(488,492)(109,492)])
}
Add(HubEx,10332740,105,252)
{
link(onEvent,5179513:doVisible,[(111,258)])
}
Add(Memory,9610324,511,259)
{
Point(Data)
link(onData,3475940:doValue,[])
link(Data,8283538:Var1,[(517,222)])
}
Add(Memory,3475940,553,259)
{
Point(Data)
link(Data,14248791:Var1,[(559,229)])
}
Add(MathParse,4812601,602,336)
{
MathStr="abs(%1 - %2)"
link(onResult,13522895:doCalc,[])
link(X1,9215055:Var2,[])
link(X2,6458963:Var2,[])
}
Add(GetDataEx,6093459,511,301)
{
link(Data,9610324:Value,[])
}
Add(GetDataEx,8283538,567,217)
{
link(Data,11503216:MouseX,[])
}
Add(MathParse,13522895,665,336)
{
MathStr="abs(%1 - %2)"
link(X1,10230451:Var2,[])
link(X2,8979506:Var2,[])
}
Add(GetDataEx,14248791,574,224)
{
link(Data,11503216:MouseY,[])
}
Add(GetDataEx,10802847,518,308)
{
link(Data,3475940:Value,[(524,299)(559,299)])
}
Add(Img_Rectangle,10137405,784,329)
{
LineStyle=3
Point(Point1)
Point(Point2)
link(Bitmap,9543904:ImageBitmap,[(790,250)(370,250)])
link(Point1,11092645:Point,[])
link(Point2,7833549:Point,[(811,292)(846,292)])
}
Add(Hub,1211224,175,392)
{
link(onEvent1,14129593:doEvent2,[(207,398)(207,326)(323,326)(323,146)])
link(onEvent2,5470852:doReadKey,[])
}
Add(PointXY,11092645,798,245)
{
link(X,6458963:Var1,[(804,138)(615,138)])
link(Y,8979506:Var1,[(811,131)(678,131)])
}
Add(PointXY,7833549,840,245)
{
link(X,9215055:Var1,[(846,124)(608,124)])
link(Y,10230451:Var1,[(853,117)(671,117)])
}
Add(GetDataEx,6458963,609,301)
{
Angle=3
link(Data,6093459:Var3,[])
}
Add(GetDataEx,8979506,672,308)
{
Angle=3
link(Data,10802847:Var3,[])
}
Add(GetDataEx,9215055,602,217)
{
Angle=3
link(Data,8283538:Var3,[])
}
Add(GetDataEx,10230451,665,224)
{
Angle=3
link(Data,14248791:Var3,[])
}
Add(Bitmap,3779324,364,70)
{
}
Add(Hub,7956552,301,70)
{
link(onEvent1,3779324:doLoad,[])
link(onEvent2,14129593:doEvent1,[(326,83)(326,139)])
}
Add(Hub,14129593,336,133)
{
InCount=2
OutCount=1
link(onEvent1,9543904:doLoad,[])
}
Add(Img_Copy,5569383,504,413)
{
Point(Width)
Point(Height)
link(onCopy,987769:onEvent1,[(1014,419)(1014,27)])
link(Source,8478335:Var3,[(510,117)])
link(X,6093459:Var2,[])
link(Y,10802847:Var2,[])
link(Width,4812601:Result,[(531,376)(608,376)])
link(Height,13522895:Result,[(538,383)(671,383)])
}
Add(GetDataEx,8478335,364,112)
{
link(Data,3779324:Bitmap,[])
}
Add(Hub,8341088,266,399)
{
link(onEvent1,3681755:doEvent,[(382,405)(382,328)])
link(onEvent2,9840715:doData,[])
}
Add(IndexToChanel,3681755,735,322)
{
link(onEvent2,10137405:doDraw,[])
}
END_SDK
Add(Hub,2186279,294,385)
{
link(onEvent1,3179763:doLoad,[])
link(onEvent2,11788041:doBringToFront,[(319,398)(319,370)])
}


Редактировалось 1 раз(а), последний 2022-02-08 20:31:50
карма: 9

2
Голосовали:andrestudio, prostov
Ответов: 5126
Рейтинг: 578
#14: 2022-02-08 20:27:53 ЛС | профиль | цитата
Gunta, есть правда недостаток, только начиная с левого верхнего угла можно захватить, с других не работает...
карма: 5
0
Ответов: 412
Рейтинг: 67
#15: 2022-02-08 20:30:51 ЛС | профиль | цитата
andrestudio, Всё работает. Нужно зажать левую кнопку и тянуть.
Ошибся в первом сообщении.

Редактировалось 3 раз(а), последний 2022-02-08 20:33:03
карма: 9

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)