Вверх ↑
Главный модератор
Ответов: 2998
Рейтинг: 396
#1: 2015-05-20 07:45:08 ЛС | профиль | цитата
http://svn.hiasm.com/packs/CNET/Example/graphics/transform/CopyFromScreen.sha
------------ Дoбавленo в 07.45:

Если обновиться с SVN, то еще один вариант:
screenshot.sha

Add(EntryPoint,5988895,91,56)
{
Width=267
Height=268
link(onCreate,1400476:doEvent1,[])
link(onError,14168151:doShow,[])
}
Add(CopyFromScreen,12243693,252,252)
{
Point(doCopyFromScreen3)
Point(sourceX)
Point(sourceY)
Point(destinationX)
Point(destinationY)
Point(regionSize)
link(Graphics,16371774:Graphics,[])
link(regionSize,16673502:Size,[(293,182)(286,182)])
}
Add(Screen,95587,266,42)
{
Point(Bounds)
Point(onGetBounds)
Point(control)
}
Add(MessageBox,14168151,133,63)
{
}
Add(Graphics,16371774,252,196)
{
Point(doConstructor5)
link(Image,5142536:Var2,[])
}
Add(Bitmap,16673502,273,140)
{
Point(doConstructor5)
Point(width)
Point(height)
Point(Size)
Point(doSave)
link(width,1803321:.Width,[])
link(height,1803321:.Height,[])
}
Add(Rectangle,1803321,273,91)
{
Point(rect)
Point(.Width)
Point(.Height)
link(rect,95587:Bounds,[])
}
Add(Hub,1400476,182,56)
{
OutCount=6
link(onEvent1,1803321:doRectangle,[(255,62)(255,97)])
link(onEvent2,16673502:doConstructor5,[(243,69)(243,146)])
link(onEvent3,16371774:doConstructor5,[(235,76)(235,209)])
link(onEvent4,12243693:doCopyFromScreen3,[(224,83)(224,265)])
link(onEvent5,14097732:doData,[(217,90)(217,307)])
link(onEvent6,10979708:doCompare,[(207,97)(207,412)])
}
Add(PictureBox,4612968,280,294)
{
Left=10
Top=10
Width=240
Height=225
Dock=5
Point(doImage)
}
Add(DoData,14097732,238,301)
{
link(onEventData,4612968:doImage,[])
link(Data,5142536:Var1,[(244,180)])
}
Add(GetDataEx,5142536,273,175)
{
link(Data,16673502:.Bitmap,[])
}
Add(DoData,9924868,287,406)
{
link(onEventData,16673502:doSave,[(333,412)(333,131)(261,131)(261,153)])
link(Data,6772539:FileName,[(293,395)(251,395)])
}
Add(If_else,10979708,238,406)
{
link(onTrue,9924868:doData,[])
link(Op1,6772539:ShowDialog,[])
link(Op2,8191464:DialogResult,[(251,398)(286,398)])
}
Add(DialogResult,8191464,280,357)
{
}
Add(SaveFileDialog,6772539,238,357)
{
AutoUpgradeEnabled=1
CheckFileExists=1
DefaultExt="bmp"
FileName="screenshot.bmp"
Filter="Bitmap (*.bmp)|*.bmp|All formats(*.*)|*.*"
FilterIndex=1
InitialDirectory="."
}

карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0