Access_Violation писал(а): Конечно, таких результатов я не ожидал... Первое. Тебе не кажется, что для того, что бы назвать это схемой - она должна хотя бы выглядеть как схема?
Второе. Даже в детстве на Delphi мои первые программы выглядели как-то по солиднее что ли.
Третье. Найди три отличия:
Add(SimpleForm,2953706,42,105)
{
Left=320
Top=240
Width=608
Height=554
Caption="Intellegent 1.3 Web Randromer"
BorderStyle=1
Icon=[ZIP5E07000078DA636060044209090610C9E0C1CEC020C6C0C0A001C4402106030688380828B0338C824109B816091BACB0A28A39D29B4D44D6A8BBAD0BA2D01CC393892667D28124D040B24D039A0334C4FC7C96CD957CBB6B85D697B32437EAF8AE8DC4A5BEB1B131121B009A637BB5C0F1660932B2BC98A6B2C53262632AA639DEDEDE3797D79EEE7141434073801A9D6F97793DACF57BDA0844BE4F1A3C1FD6189D8A505E6D80694E7D34C3FFFF678046A121A0394043807A812604BE680622D73B450AEBF592371762F5171E73BC1FD5010D097FDFE9FFBC466FAF13D03B40C7E30A1F3CE6000D71BF5FA2B4CB0C6802C4EFE499A3B1DFD16343085C846C73D044089AC3D0D080690E2622C61C2002BA0A3F021A85DF9CC565C422FCE6AC9A0F721250D9DC952004E442184004148448414882E61089F09803B40568143108680830330EFE92F33F36701E880F03F10110B6FF7F80811F8AE581D89E280C030009CB9E3A]
link(onCreate,6407064:doSendToBack,[])
}
Add(ChildPanelRush,6407064,91,105)
{
link(onClick,11227189:doWork1,[])
}
BEGIN_SDK
Add(EditMultiEx,829930,21,21)
{
WorkCount=#12:doSendToBack|
EventCount=#7:onClick|
Width=370
Height=263
link(doSendToBack,15192938:In,[])
}
Add(PanelRush,8444798,35,63)
{
Width=602
Height=220
ColorFrom=-16777201
GradientStyle=0
BorderWidth=0
Glyphs=[]
Point(doSendToBack)
}
Add(Label,2552614,35,175)
{
Left=10
Top=105
Width=137
Height=19
Font=[Segoe UI,9,0,0,204]
Transparent=0
Caption="Необходимое значение:"
}
Add(Label,2009318,35,212)
{
Left=10
Top=125
Width=301
Height=19
Font=[Segoe UI,9,0,0,204]
Transparent=0
Caption="Открытие веб-страницы при необходимом значении:"
}
Add(Edit,14810711,238,140)
{
Left=160
Top=105
Width=440
Font=[Segoe UI,9,0,0,204]
Text="88"
MaxLenField=3
}
Add(Edit,15925963,315,140)
{
Left=10
Top=140
Width=590
Font=[Segoe UI,9,0,0,204]
Text="http://www.yandex.ru/"
}
Add(ButtonRush,8985006,140,91)
{
Left=120
Top=165
Width=185
Font=[Segoe UI,9,0,0,204]
BorderColor=12632256
GradientStyle=0
ColorFromOver=15780518
ShadowOffsetOver=0
GradientStyleOver=0
ColorFromDown=-16777203
BorderColorDown=12517376
ShadowOffsetDown=0
GradientStyleDown=0
ShadowOffsetDis=0
GradientStyleDis=0
UpdateSpeed=0
Caption="Начать рендромирование"
Glyphs=[]
link(onClick,11450072:doRandom,[])
}
Add(ButtonRush,15296111,314,21)
{
Left=310
Top=165
Width=185
Font=[Segoe UI,9,0,0,204]
BorderColor=12632256
GradientStyle=0
ColorFromOver=15780518
ShadowOffsetOver=0
GradientStyleOver=0
ColorFromDown=-16777203
BorderColorDown=12517376
ShadowOffsetDown=0
GradientStyleDown=0
ShadowOffsetDis=0
GradientStyleDis=0
UpdateSpeed=0
Caption="О программе..."
Glyphs=[]
link(onClick,829930:onClick,[])
}
Add(Random,11450072,231,91)
{
Point(Min)
Point(Max)
link(onRandom,14609250:doEvent1,[])
}
Add(If_else,11594778,231,196)
{
link(onTrue,13545189:doShellExec,[])
link(Op1,11450072:Random,[])
link(Op2,14810711:Text,[])
}
Add(WinExec,13545189,315,189)
{
link(FileName,15925963:Text,[])
}
Add(Hub,14609250,280,91)
{
link(onEvent1,15740367:doText,[])
link(onEvent2,11594778:doCompare,[(305,104)(305,182)(219,182)(219,202)])
}
Add(StyleXP,13828145,35,98)
{
}
Add(GLabel,15740367,315,91)
{
Left=1
Top=1
Width=600
Height=77
Align=2
Color=0
Font=[Times New Roman,48,0,255,204]
ColorShadow=0
Caption="0"
AutoSize=1
Alignment=2
VAlignment=0
FonGradient=0
InvFonGrad=0
HorizFonGrad=0
ContrastFon=0
TextGradient=0
Horizontal=0
HSymbolGrad=0
Contrast=100
Antialiased=0
}
Add(Label,2788089,35,138)
{
Left=10
Top=85
Width=252
Height=19
Font=[Segoe UI,9,6,0,204]
Transparent=0
Caption="Введите необходимое значение от 0 до 100. "
}
Add(LineBreak,1022319,182,98)
{
link(Out,11450072:doRandomize,[])
Primary=[15192938,-147,-77]
}
END_SDK
Add(Version,5033247,42,147)
{
Version="1.2"
Description="Intellegent 1.3 Web randromer"
E-mail="support@hiasm.com"
}
Add(StyleXP,2789844,42,189)
{
}
Add(ChildScrollBox,11227189,140,105)
{
}
BEGIN_SDK
Add(EditMulti,1084426,0,0)
{
WorkCount=1
Width=566
Height=312
link(doWork1,15781785:doWork1,[(21,6)])
}
Add(ScrollBox,14338934,35,105)
{
Top=220
Width=602
Height=306
Visible=1
Point(doVisible)
Point(doBringToFront)
}
Add(Label,14900754,98,28)
{
Top=-1
Width=242
Height=19
Font=[Segoe UI,9,6,0,204]
Transparent=0
Caption="О программе Intellegent 1.2 Web Randromer"
AutoSize=1
}
Add(Label,11597491,193,221)
{
Top=24
Width=242
Height=39
Font=[Segoe UI,9,0,0,204]
Transparent=0
Caption="(C) HiAsm Studio, 2017\r\nПрограмма пакета Intellgent (Интеллегент)."
AutoSize=1
}
Add(Label,3861438,116,249)
{
Top=59
Width=242
Height=19
Font=[Segoe UI,9,6,0,204]
Transparent=0
Caption="Мини-справочная"
AutoSize=1
}
Add(Label,8660584,103,201)
{
Top=79
Width=367
Height=120
Font=[Segoe UI,9,0,0,204]
Transparent=0
Caption="Первым делом введите необходимое вам значение от 0 до 100. \r\nЗатем, введите адрес URL, который откроется при введённом вами необходимом значении.\r\nСледом жмите на кнопку "Начать рендромирование". Каждый раз при нажатии на эту кнопку будет попадаться случайное число от 0 до 100. Если попадётся число, которое вы ввели в поле "Необходимое значение", то откроется сайт, который вы посчитали нужным.\r\n"
AutoSize=1
}
Add(Label,479996,96,138)
{
Top=204
Width=239
Height=19
Font=[Segoe UI,9,6,0,204]
Transparent=0
Caption="Важные правила"
AutoSize=1
}
Add(Label,14640694,96,89)
{
Top=224
Width=367
Height=80
Font=[Segoe UI,9,0,0,204]
Transparent=0
Caption="Старайтесь нажимать кнопку "Начать рендромирование" медленно, чтобы вы хорошо видели число, которое появляется.\r\nВводите существующий сайт.\r\nИ самое главное: не нервничайте! Число, которое вы ввели в поле "Необходимое значение", обязательно появится."
AutoSize=1
}
Add(ButtonRush,1842174,228,116)
{
Left=550
Top=5
Width=25
Font=[Segoe UI,9,0,0,204]
ColorFrom=255
BorderColor=128
GradientStyle=0
ColorFromOver=15780518
ShadowOffsetOver=0
GradientStyleOver=0
ColorFromDown=-16777203
BorderColorDown=12517376
ShadowOffsetDown=0
GradientStyleDown=0
ShadowOffsetDis=0
GradientStyleDis=0
UpdateSpeed=0
Caption="Х"
Glyphs=[]
link(onClick,15781785:doWork3,[(272,122)(272,41)])
}
Add(Switch,11134231,42,42)
{
DataOn=Integer(0)
DataOff=Integer(1)
Point(doOn)
link(onSwitch,7562549:doEvent1,[(86,48)(86,62)(-5,62)(-5,76)])
}
Add(HubEx,15781785,17,35)
{
Angle=1
link(onEvent,11134231:doSwitch,[(21,48)])
}
Add(Hub,7562549,7,70)
{
link(onEvent1,14338934:doVisible,[(28,76)(28,125)])
}
END_SDK
|
Поиск
Друзья
Администрация