Вверх ↑
Ответов: 175
Рейтинг: 4
#1: 2025-03-31 08:09:41 ЛС | профиль | цитата
Netspirit, MST_ColAction, Pagecon
1.

Add(MainForm,3085066,392,196)
{
Width=1231
Height=840
}
Add(MTStrTbl,15480570,840,217)
{
@Color=43775
Left=-5
Width=945
Height=595
Color=-16777192
Font=[GOST type A,14,0,0,204]
Cursor=2
Name="kartoteka_krt"
Hint="Открыть выбранную запись двойным нажатием основной клавишей "мыши" "
HintManager=""
Layout="kart_tbl_vert"
WidthScale=100
HeightScale=100
DoubleBuffered=0
ColorItems=0
HeaderDragDrop=0
Grid=0
Point(onDblClick)
Point(onMouseDown)
}
Add(InfoTip,16016660,665,343)
{
Info=#47:Загрузка столбцов и данных в таблицу от сервера|
Width=379
Height=207
}
Add(GlobalVar,9909800,693,112)
{
@Color=11206570
Name="columns"
Data=String(dsfdsfsdfsdfsdf$fdgdghbvcbvnvbnb$dfgcvgbcvbvbmnjhgfdzxcvbn$jkhm,kjhgjkh$fdgjuytrewrtyuikjhgfd$ghh,hxbcnm,mn$hghjkghjghg)
}
Add(GlobalVar,12373208,756,112)
{
@Color=11206570
Name="string"
Data=String(<dt>12323132123131321321321$22222222222222222$55555555555555555555555555555$588888888888888$858884</dt>)
}
Add(MT_String,11176294,840,385)
{
Delimeter="$"
link(onResult,237645:doEvent1,[(908,391)(908,440)])
link(Str1,9409056:Var,[])
}
Add(MT_String,4375090,868,420)
{
Delimeter="$"
link(onResult,6470376:doAddRow,[])
}
Add(Hub,12459444,679,392)
{
link(onEvent1,11176294:doMT,[])
link(onEvent2,8341114:doSearch,[(711,405)(711,468)])
}
Add(MST_ColAction,8113783,1015,511)
{
@Color=43775
Action=9
AutoWidthByHeader=0
MinColWidth=30
MSTControl="kartoteka_krt"
}
Add(DoData,5099556,966,511)
{
Data=Integer(-1)
link(onEventData,8113783:doColAction,[])
}
Add(BlockFind,8341114,728,462)
{
IncludeBlock=1
StartBlock="<dt>"
EndBlock="</dt>"
link(onSearch,4375090:doMTString,[(796,468)(796,440)])
link(onEndSearch,671344:doEvent1,[(846,475)(846,510)])
link(Text,16155854:Var,[])
}
Add(MST_DB,6470376,987,420)
{
@Color=43775
MSTControl="kartoteka_krt"
Point(doClearAll)
}
Add(Application,10241980,966,462)
{
}
Add(Hub,671344,931,504)
{
link(onEvent1,10241980:doProcessMessages,[(950,510)(950,468)])
link(onEvent2,5099556:doData,[])
}
Add(Hub,237645,931,434)
{
link(onEvent1,6470376:doClearAll,[])
link(onEvent2,6470376:doAddCols,[(966,447)(966,433)])
}
Add(Hub,3411724,630,140)
{
OutCount=3
link(onEvent1,14562161:doValue,[])
link(onEvent2,14401794:doValue,[])
link(onEvent3,12459444:doEvent1,[(662,160)(662,398)])
}
Add(Memory,14562161,756,140)
{
Default=String(<dt></dt>)
Point(Data)
link(Data,12373208:Var,[])
}
Add(Memory,14401794,693,147)
{
Point(Data)
link(Data,9909800:Var,[])
}
Add(LineBreak,5497902,693,196)
{
Caption="clm"
Type=1
link(Data,14401794:Value,[])
Primary=[9409056,147,168]
}
Add(LineBreak,10211608,756,189)
{
Caption="dt"
Type=1
link(Data,14562161:Value,[])
Primary=[16155854,-28,238]
}
Add(Timer,9198435,504,140)
{
AutoStop=1
link(onTimer,3411724:doEvent1,[])
}


.2.
Попробую поискать. http://www.freepascal.ru/forum/viewtopic.php?f=5&t=43721 Скопировать ссылку. напрямую не открывает.

3.
Add(MainForm,2953706,98,154)
{
}
Add(ChildForm,5458812,98,231)
{
@Color=43775
}
BEGIN_SDK
Add(EditMulti,2985969,21,21)
{
Width=820
Height=501
HOffset=250
}
Add(MainForm,344104,224,147)
{
@Color=43775
Left=35
Top=105
Width=418
Height=309
Color=16761414
ParentFont=0
Caption="Вход в систему"
BorderStyle=0
Position=1
Point(doVisible)
link(onCreate,15739067:doEvent1,[])
}
Add(Label,15955043,231,56)
{
@Color=65450
Left=330
Top=10
Width=80
Color=16761414
Antialiased=4
ParentFont=0
Transparent=0
Caption=""
}
Add(Hub,15739067,273,161)
{
link(onEvent1,15955043:doText,[(299,167)(299,115)(219,115)(219,62)])
link(onEvent2,6045239:doEvent1,[(336,174)(336,412)])
}
Add(AlphaImage,4061747,469,399)
{
Width=96
Height=83
Antialiased=4
Transparent=0
}
Add(PNG,995542,420,392)
{
PNG=[ZIPBC07000078DA01BC0743F889504E470D0A1A0A0000000D4948445200000020000000200806000000737A7AF400000783494441545885C597598C645519C77F67B9B796AEEEA66B865E671AC19E060CE2C4044599216866504CE4C144B1470D6F06C3A20F26F3E083319AA84F46670C243E99202D417D712191454120102319652066A6D97A96EE995EAABBBAA6AAEE3DCBE743550DC3740302269ECA774FA5EE3DF5FF9DEFFB9F9373E1FFDCD4BB79F8EED9C9EB81CF03FB802A30D5BD3507AC028F02BF3F3433FFECFF14E0EED99D07801F8E0E5E3639B1ED328607873146E82B968931506F9F237791A5F565166B2759DE38310F7CE7D0CC89FBDF17C0DDB33BA78087A6C776EF9E1E9BA6DA5F40D800D544A90CA51C510562041F0C792810421FB5BA30BF34CFEB4B2F1C01BE7868E6C4DCBB06B86B76C7A781873E39BDBF7AD5C44E825AC1EA063669614D86D1395A79A2F284187111F2A068E7055AED3EF27C98F9C51A2F9E787A15B8EDF0CCC947FF6B80AEF8C3FBAFBD351DDF5646EB1592E41C853423B5395683D2AE93013C410251224E1C2DAF696409CD563FEDE630CB2B86E75F7E3C02FB0FCF9C7CFC1D01EE9A9D98029EDBF7E15BAB63DB129459A1586C504AA1603D46471401A53C8242F044323C8E20815C22AD20347243E35C85F6C604B5959423AF3CBE0A7CFCF0CCA93795436F9EBFFCEAFA5DFBAA970E15C85944A57592422449729416500AA5346001E98EB12812A232A0C1DA485A7024957554F914FD4381AB77DC500579F06235FBE6D98F7D696AE4231FBB7C749C56780D93D4D1292813882A41A98EE00F0E1EE3A5237504E9420857ED2EF3ED1F8F13310425603C2A0950AEE3F345B66FDFC564EB9A8FDE352B070ECF2C3CB009E0CED9312DF0FD2B4676B1912F10F42A25EBC008515BA272400208D62A6EBC791B20084224525BCD895822100944A55026A2524748D7F0AD4546AA97F1FACA0BDFBD7376ECD73F9F59881795406E9A18FAE0745F39A5E5D7C868E05513A71D0E4F0E041C9EC0403521A2CE87A019ACA604A0E3104BC0109402E3119B91CB3A6951333278F934C84D5B78406E1919DCC9B9BC46DB6D9087160E8F938027E0F13822A13BE3DEF58D0F440C118D7423621014C13BBC6FE3429DED031380DCB2850764CF40DF106DB74C3B3631DED3CE028512DC77709E97FFD944A150C0DE9BB775BF8174FB88F0F5CF1CED820857EC2E71FB8F2EC5B722E486181C9E1603E56140F66C0210642AB529EB798B2CB631A64D926B5A59C707D7ED1FC02883411100755E9AAEA8E2133757091D07505BC9896D4DCC2D210F283C0A47392D22C8D42600908108B8E0C883C7684F3B37D8B6A734088E0802A21406CE67A307D09BB9002250194CF019486E503E6044A19560AD01646033804010C1C7880F811023C683CD72BC8F1D31ABB002A2040DE8F365E8FD85220AC400124072051EB418D01AAB0D46EB37065C948155E7FD68148D8F808F5817C873702E760502688DD15D31144AA94E66508808124182220681002A825116AD13129376C5A5DE533DBF0A0439D66AB710B184A07141C85C207381B11DC3F810093EE042C0078F8F9120B1DB0B210662146210240A93936310154A345625A4BA40C116C9F22682BCB455061E5B6F2EDD582A971149091E9C11B210B8E173BB182CEE21490C89D1FCE2A7BFC5E8404477BCD0CDC237BEF565240A3140CB2D71B6F92F0CB693354A146D8593B555409ED90AE07767D6E7BE7765FF8D18CA643E41B443E59EF9FADF29E586629A90A6961023221AAD22BAE704519CCDFE4A0C8A1802DE838A82C6A02852B0154AF612166ACF03F2F0A612DC7B60EDE87AF3F4B12C6B93EA2A8432CE1BB22CD2CE3CED3CD0CE1D59E6F13E764A1222210442EC98D63921784FE899306A140512D547D10EB1D66870AA76ECD8BD07D69EDC04D0CDC2C1A5F5E3549211525D45F2122ED7B4F348ABE569B503ADCC313A314CF011EF051704EF85F11D2338E7705E084E08412026688A146D95BE6498E38B47013978A1E2A6F3C01D0F0CFC6DD7C84D7BD24299D5D6AB64B2842E3449D248A1A029A496C9CA750C142E45ABCEB23268F25063353F8A8EA0A20649D19428E92A7DE924AF2C2CF2CCF13F3E75DF81FADE0BF5ECC500205F397EE62FFFB87AFCB3DB070A3BA86790672B3869428C880FBC9A3F479A18526DB0C66095412B83C56294C588C5A812053D443919E76CADCE33C7FFB00C7CED62B52D8F64773C50D9033C76F5F82DA9B6968DFC34595C01D3C45A8FB6426214A93524DD0DC6AA94545BAC2A51D0FD9492212AC91867D73678E4E88339B0FFBE038D272FD67ACB436917E2A15D239F1A1DAC8CD17067C8C22A5135811CAB056BC01A43DADD648AB64C29E9A79C54A9A4231C5F98E3D9B93F2D02B76D25FEB600005FFD59F98AF290FAE544F5437B8607A729152BE4719D401370182558A3494D4AC196BAE297B0D6A833B7F802738B479E6AD6E4F6FBEF69BEF2561A6F07A08122B07DDF3D852FECBCD67C737B75F403A3975C49B53286D242A5D08FD18ACC35D14AB3D258E4F5A5A39C595E78EDD48BE1D09F7F92FD065806DA407CCF00C038509DBAC14E5DB9D7EC1DDAA1AFD18672A14F0D0364E7E46C0C34D74EC797FEFD447862EE69DF7B553BFD7E000052A00C0C00952E5091CEEAB1BCB18F44C077A3DD8D0650073AA6798BF64E00BA1BB60B73A1702F7A00BDE881E4DDBEF7FB7B02D80A06B67C9F380F7221D03BB6FF00D789D3A2CA57EAEE0000000049454E44AE4260823E439AD3]
Point(doLoadFromStream)
Point(doAlphaBitmap)
Point(onAlphaBitmap)
link(onAlphaBitmap,4061747:doLoad,[])
}
Add(Hub,6045239,385,406)
{
link(onEvent1,995542:doLoadFromStream,[])
link(onEvent2,995542:doAlphaBitmap,[])
}
END_SDK
карма: 1

0
Редактировалось 17 раз(а), последний 2025-03-31 14:03:42