Add(Label,13354859,273,357)
{
 Left=110
 Top=40
 Width=283
 Height=32
 Color=16777215
 Font=[Segoe UI,15,0,0,1]
 Caption="Ссылка с WinExec (файл)"
 ColorHover=16711680
 link(onClick,5843827:doShellExec,[])
 AddHint(-60,-62,15,13,@Hint)
}
Add(MainForm,9254999,256,567)
{
 Width=612
 Height=459
 Color=16777215
 Caption="Как сделать ссылку в программе?"
 BorderStyle=3
 Position=1
 link(onCreate,6471294:doData,[])
}
Add(PointHint,7810383,252,119)
{
 Info=#38:Рассмотрим несколько вариантов ссылок:|
 Font=[Segoe UI,10,0,0,1]
 Frame=1
 Width=239
 Height=25
}
Add(PictureTip,8116983,7,34)
{
 Picture=[ZIP4627000078DAED97BF4A0341108727492DE6CF19EC8C8DB1B6D0C2CE567C005F40B4D7CA07B0B4D24AD3888D1616117C04C14E7C00EDC44611EC72BBE3CCDE906C48BCC8A510E477F071BBB9DB2FBFD94D31D9D8EACC50B8568565A129B48512B5C2E7BBF63CBE7ACCC43E42E6EEF58DFCD131B9F54DE2EA02A5950631D5884B760FE3FAE03E0EC7E405A77EEE115F5E896B913C89A334BACE193ECFA958C6C0FEA1649813B2752ECA14E654FD5D56853D7976C437B721A3926A564A0243D9A83ED887783FC6A0F52B7E69CDDE95BCE5D9CC15ADD579BF8668FEB3D7133F3E59FDF6AE6695676929AB5BEB4FE3FA6D9CE678532FDEEBAE39125B63B9C3BE8CFAC6CE47F657CEEBF47C282747B5E69E4DEEB9C10B2FBCF0C20B2FBCFFD9EB4F3AD6E325E232B78EB55729E80DFDE9D98578AC570CEE5ABFAF9A26AFEBDE0DEAD6BCE5DAA0A72CEC95FEECFD43C6F3518FA6EE86F5D6539C9BF4D67E7BC7FABD24EB83C377D4A7CBAB3DFBCB33A5493BB85D79721F3AF9DC7C7676EABE7F206EADD8EFA1915134AFFDBFF0DA07CBBDF7F5496EEF80B8D20CE757D80B000000000000000000000000000000FE846F638D1429]
 Frame=1
}
Add(PointHint,4498046,28,35)
{
 Info=#31:Как сделать ссылки в программе?|
 Font=[Segoe UI,10,0,0,1]
 Width=295
 Height=39
}
Add(Label,10541408,273,224)
{
 @Hint=#67:Обычная надпись с изменением цвета при подведении мыши (ColorHover)|
 Left=110
 Top=85
 Width=226
 Height=32
 Color=16777215
 Font=[Segoe UI,15,0,0,1]
 Caption="Ссылка с WinExec (программа)"
 ColorHover=16711680
 link(onClick,3695649:doExec,[])
 AddHint(-232,58,184,39,@Hint)
}
Add(WinExec,3695649,336,224)
{
 @Hint=#67:Запускаем программу с кпомощью компонента WinExec (вкладка система)|182:Если программа не запускается, а вы все сделали верно, то попробуйте использовать вместо одинарного слэша (C:untimesomeprogramm.exe) двойные слэши (C:\runtime\someprogramm.exe).|
 FileName="notepad.exe"
 AddHint(78,-44,200,117,@Hint)
}
Add(WinExec,5843827,336,350)
{
 @Hint=#150:Здесь тоже самое что и вверху, но мы запускаем не программу, а файл, связанный с определенным приложением. Обычные приложения тоже должны запускаться.|
 FileName="fixes.txt"
 AddHint(75,-12,195,65,@Hint)
}
Add(WebBrowser,11710843,371,553)
{
 @Hint=#123:Это сложный способ с помощью веб-браузера. Плюсы в том, что можно очень легко менять исходный html код для создания ссылок.|
 Left=105
 Top=140
 Width=390
 Height=240
 URL=""
 Point(doFromText)
 Point(Navigate)
 link(Navigate,7814194:GetData,[])
 AddHint(62,59,200,52,@Hint)
}
Add(StrList,12368155,315,518)
{
 Strings=#160:Этот текст находится в браузере, но обрабатывать ссылки вы можете и в самой программе.<br> Например: <a href="http://mmmm/notepad.exe">ссылка на блокнот</a><br>|43:<a href="http://mmmm/opencd">Открыть CD</a>|
}
Add(DoData,6471294,315,581)
{
 link(onEventData,11710843:doFromText,[])
 link(Data,12368155:Text,[])
}
Add(Hub,15554467,546,497)
{
 link(onEvent1,9227384:doWork2,[])
 link(onEvent2,13108917:doCase,[(574,510)(574,545)])
}
Add(Case,13108917,588,539)
{
 Value=String(opencd)
 link(onNextCase,4398536:doExec,[(646,545)(646,510)])
 link(onTrue,13887410:doOpen,[])
}
Add(CDROM,13887410,658,546)
{
}
Add(WinExec,4398536,658,504)
{
}
Add(EventFromData,7814194,378,490)
{
 link(onEvent,1471947:doCompare,[])
}
Add(ChanelToIndex,9227384,588,490)
{
 link(onIndex,7814194:doData,[(635,496)(635,474)(366,474)(366,496)])
}
Add(Delete,9353381,497,497)
{
 Count=12
 link(onDelete,15554467:doEvent1,[])
}
Add(StrMask,1471947,434,490)
{
 Mask="http://mmmm/*"
 link(onFalse,9227384:doWork1,[])
 link(onTrue,9353381:doDelete,[])
}
Add(PointHint,14277347,322,35)
{
 Info=#
 Width=442
 Height=39
}
Add(LinkTip,16176273,329,39)
{
 Link="Не работает под FPC"
 Font=[MS Sans Serif,8,0,16711680,1]
}
Add(LinkTip,12486140,329,55)
{
 Link="WinExec"
 Font=[MS Sans Serif,8,0,16711680,1]
}
Add(LinkTip,10297893,455,39)
{
 Link=""" и другие подобные сочетания"
 Font=[MS Sans Serif,8,0,16711680,1]
}