Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26066
Рейтинг: 2120
#121: 2010-06-01 02:58:07 ЛС | профиль | цитата
CriDos писал(а):
выходить за пределы края главного окна (скрин) ну например чтобы при достижении края главного окна кнопка вопрос останавливалась...

Запрети форме сжиматься дальше
------------ Дoбавленo в 02.58:
Предположим, как-то так


Add(MainForm,8405173,238,133)
{
Name="mainform"
Point(doSetFocus)
Point(onResize)
Point(onShow)
Point(doVisible)
Point(onHide)
Point(Handle)
Point(WidthControls)
Point(Width)
link(onCreate,13367125:doCreate,[])
link(onResize,13367125:doResize,[])
link(onShow,13367125:doShow,[])
link(onHide,13367125:doHide,[])
link(WidthControls,1690064:reCalc,[])
}
Add(Message,1973642,343,147)
{
Message="Click"
Caption="Additional Form Button"
Icon=4
}
Add(ChildFormEx,13367125,294,147)
{
link(onClick,1973642:doMessage,[])
link(MainFormHandle,8405173:Handle,[(300,135)(275,135)(275,190)(244,190)])
}
BEGIN_SDK
Add(EditMultiEx,2072555,21,21)
{
WorkCount=#8:doCreate|8:doResize|6:doShow|6:doHide|
EventCount=#7:onClick|
DataCount=#14:MainFormHandle|
Width=489
Height=256
VOffset=21
HOffset=35
link(doCreate,3142573:doEvent1,[])
link(doResize,11524956:doCalc,[(42,55)(42,195)])
link(doShow,3541102:doEvent1,[(53,62)(53,76)])
link(doHide,2297791:doClose,[(32,69)(32,181)])
}
Add(MainForm,2297791,245,154)
{
Left=35
Top=105
Visible=1
TabOrder=-1
Ctl3D=0
WinStyle=1
Name="button_form1"
BorderStyle=0
ShiftTop=6
TransparentManager="transp"
FormFastening="parent.mainform"
Point(doVisible)
Point(onMouseLeave)
Point(onMouseEnter)
Point(onMouseDown)
Point(onMouseUp)
Point(Width)
Point(doShiftLeft)
Point(onResize)
link(onMouseLeave,6137847:doReset,[(321,181)(321,146)])
link(onMouseEnter,6137847:doOn,[(331,188)(331,153)])
link(onMouseDown,11374782:doEvent1,[])
link(onMouseUp,15664525:doEvent1,[(285,202)(285,216)])
}
Add(BitmapArray,7356144,175,91)
{
Bitmaps=['Normal'=[ZIPA60E000078DACD565B735355142EE79C24E50515159D426DA90808856AB1F786A6A129BD25945ED2B4246DD34BD2A4CDADB94CD234BD84925E71C051FC01FE0DC737C6710019F4C5675F182DF0E2F0A2533ED7DAE1844A556064D4CE7CB3CF5E7BADEFFBD63EFBECC668FE2A3F4FFC55128E120A086F1276E5158BF8CAE3F53FFB2B2939B8D2D0A0FFB5B9C9889701E63A76E4F0178AA2BCAA6A5494977F5F567AF85149D16E941ED5A0B25C81B14181B94D41BF55C6A853C694574222262195CC8EFE2909E3A332EC0332CE5B14B49814E86B15949FD4E0FD431A9414EEC6B123C5A8A9AAB82BEDDA955FB87F7FA8BCECF85661811647DED5E083131AD4D728686A5470AEE38F3AD1B08458243B6ED7E9EA54D0DAACA051AFA0A642C189631ABC57A245C15B5A1C3D7C10DC575555E58F070FEC4511E9B00FF6C33A670C0A2CED0AFA7A64388764782724A1A582E7AC3F60A37ECE65FB5175CA4A35C2337316ECDB83FAFABA5F1A0DA7B7DE7E5D8783079EE8D45567F7ADA355416F970CC705EE49DA8121870C1BF57BCEACE06C930203E9543FA5B36FAF36F7CEF859D5F990F6ADB62A5BC37BD16996494B82B597D02341A7CB1350E7DDE765B4D37B34191534D493CE47CFD639CAEF8772AA2BE99D524D935146DB59096D2D59683579B8FDED75017EE6587BAB84B3261946DA677D9D82AA17D0E15C7E478DA76581D37A8938248A4950943C019E739CD78D0699FA97A1A79AAA530A4E1E7FB64ED9639D5A7A477535329D4B0915A724947F90D5B879F3BA003F73BCAE9A3DB01759787B5E1DB51F3E0B3595B2E02A3B21A1F4980459CEC38D1BD77350B56AABA897DA67F753565A8CDA8A6218EA8BD07CE61D74B41DA0B3568096E6B7D1D8B08FFA7A833877E570F3E6D702B76E7D038D461279E6F6023A330760692B44B3B188CE44119D8962C1ADEAF4749A60EF37C139D844DFDE19785C06B8C7F4181DAEA5EFA3025AAD827B9B77B149D06864019EDFBBF7139D3D45E479DD7AFAAE1AE9BB32C23DCE5C265CE833096E55C76EB3606CD802AFCB4CDF79070253ED34B6C2EB316174C420B8EEDFFF59F0AAE0F903824EA71179017F2B82BE76047C1DF079CD9820AE91218BE05675C69C364C796C08FAFB1099EEA37BC54A630FA6835DF04D5AC85F9BE07B707F93F837C5F8E0C126F2755AB1CE79D1700FDD49564423C411EA233D1B26276C825BD5F1799D08079D88479D48269C981518A6E7418A5D40386483DFD78BFC7CED36E8449CD7392F951C466AC629908C3B4933CBC9DCAA4E74DA4BB95ECC25BD5898F3223DEFC1E29C070BA909CCCFBAA8760C33B111C423C3888587C5C8738EF33AE7713ED7319883B99893B959C374C6F0DB4C3C84F442044BE908324B112C5FCA829F334B615CBA388D8B8B94B318A4BCA01879CE715EDF5EA3D631D7E27C84F42242A7AEAEE68770D087954C0AABCB29ACAFA6B0B10DEB2BB339AC2D2773D81EDF78BA6635CBC59C895888EE0BFDBDD75E7BD560696FDBBABC9EC195CB195CFD38834FAEFC333007733167BFB5E7D13B85FBA7F8FFE9A143EF663ADA5BB652C93836D697F1F9B5ABFF08CCC15C5D9DE6ADCA53A7BEDCFEFBE0953D7BAAEBABABEFD05E3E7C09BF0F1E32D7EB7BF7B6A8FCA7076C50E83B50B45ADCF9EEB61879CEF1A69121B47A5CE8F04FE25CC88FCE7010E723A11CBAA683E80AFAD1E59F42F79407DD94DBED1A41B773103D8303E81DE843AFB53BA73F38E4C0E0E8301CEE3138BC137010AF3D14809D78EDB13021027B3CFA0434BF100DA33F1C829574BA273DB08C8FA29578343A5D0E3CE738AF731EE773DD0EBEC79CF6C8745693CEA5C3E7252F6E385CA3C2DBE0903DE7D74DFDB8A92F77600A2EEAD5451E5DC4E19A89C3353B9345EA29CC26304EEF723411C570741A0EDAB77ED2B07ADCB04EB8C4C8738EF33AE7713ED7EDE04A3DD6E0F5448CF423709177F6C29E8437F2A8FA0DD25E06E9BD04E21104C863806A03734904E667E15F98FB6BCCA7E09B9BC5642A094F320137F5384EFB374E5A3CF29CE3BCCE799CFF777CAC2740F901AA0B90F700790FD29E07A96FF5FE8991CF19EA31B140DFF1E23C12171791584A2371E9E23311A73C468C6A2254CB0893B6FACC7135E779F80438973D2CCE094FEC6D86F65EBDC742013FD29493CE2C21BD7C09E9950CD2ABCBCF8D45CA57B140F52AB6C75F844F806BD80B7BE2FDA033AADE8766BA0FD7D657B1B6B186B5CBEB58FB78036B57FE63B007F6C29EC89B6DC7BDDABA95A433C36B9F5DFBF47F01F6C29EFE85FBF96561C73DFF3BDB5550A7],'Over'=[ZIPA60E000078DACD565B535B55186D4E0EA5F6A1573B8EB4B4406B5BC58E0A16B0101AEE97408000210112C22D21E1920B09931B819090041218A8B5D6AA4F8E4E479FFAEEF81F1C5F7C63A6338E2FBE397DD1A1CBEF3B690294DA8BEDA86766CD39FBBBACB5F63EFBECA4B6FD874307A4AB8C709990473845901D2890E28947F9275DE78B0A13D7AF2BFE68ACAFC5AB0073BD73F9E257A2281ECB685C2D29F9A9E4BD4B0FDFBD7C18551507A16ACA81B15FC4944D8EF98080B5A480CFEFC8F0DDB732DCBB97BE7FF9850C9BEB0296C2025C7639C646446835221A6B73505E7A10C5170FE34A7121AE955FFD5590C90EE59F39ED2CFDA078FB52512E3E7CFF20EAAEE7A0BB5384C920C23EB557E79BAF65B87B377DDFADE376C961191331A013A16E15515D9983922B0771A12017C5978AC0F32A2F2FBB7FB1E875BC7D2157F2C17E58676850C4CCA41C019F80E48A80DB9FCA70E7B31DF0783D25607141C0AC530EF3E88E4E8D2247F2CC9C05A78F425155F97B8DB27AFB5CDE6B34CFB44E434D0E341D220C03222627E498730B588E08482565FB90880908D27C1D33B46EC322FAFB44B4B7ECD5C97F3337FBCEF89975CA48A75E9983CEF6B437F3989C3804F8E688CF2F4873A3D72981C77E1ABB67054C5AE5181912A1EB7D4E9D92B48E5A25A2AF47C4B05180C52C60C222C06A496B6C6D6D49E0678EDB26048C8F0A30D2FCB5DD22DA9A4528AB9EADC3FBA08DD6B8A74B8E01BD80817E013AAD809E6E01DD5D3BF3E131C7396F1C10D0AF93A397F69BAAE9057468EE9A0E396909E8540B50B508686AD83F1F8E6B3A05F4F608D06BE5E4E31FE874CAA16E97A3B559405D8D008562AF4E468BF35D6AF2A4615F4FD7292B29426D7521BDC302E87BCFC2643C43C883A1FF0DEA3F45BE4F66D7EB495A5C376ACAC3F808F50DE6D3F77A0EAAE602DA0F8512774647AF6DC298A91153D67AFA16EAE0F328090A381DD73061BE2A7165AE8CD6EE31D7F9BD0AFAA66BE09FAB83DBD940DF4403EDC146893BA3336CECA07807E5D508FADA100AA8082DB49F1B685F2BF7F03E7E718EEB16E65BB038AFC242B08DC6ED7416A961337748DC191D9B598F59878E3CE9B018EA4364518BA5C51E7AD6D037A3A639B63E518B639CE7BAE8520F81FA16FA485347EBA1232D9DC49DD171D94711F08E201C1A462C92463C6AA2BB91F406686ED437D7BBE71D3138CE79AE4B2C9B08DC378C687898E635227132774627E09D248D492C2F4D52AD0DAB091B56E2363A57AC882F5BC8E738C20BA3E473182102DF79CC71CE731DD7731F8339988B39999B351AEA947F86022EAAF76035EEC6DAAA1BEBC934F8796D7516A91517E59C588939B2E031C739BFBB27D3C75CB18887D6D123E954567EF4B3C7354D3D216CA44274D687706363079BEBF3596CAC05B3D81DDF5D9FEE09D16F4948E20CFA9DA8532A7E3B7EFC9852DDD6BABDB91EC7CDCD383EB911C7AD9B2F07E6602EE6D46B7B1E9ECD3F3DC5BFA76F5D381F6B57B56C87825EF21AC79DDB9B2F05E6602E4D57FB765969E9F7BBFF1F1C3D72A4A2AAA2E2475ACB07AFE0FFC103E63A79E2447386BFDA3C96DDA7BFDCDFCA3E73BC7E661A2D736EB4CD07D0115E4067248C2E4674498226B208CD6208DDF37E74FB3CE8F6B8D0639F42AFD50CED98097D4383D0E97B77CE83D1219826C630346D83D16587C1EB86817A0D0B410C12D760348CC1E5C80E486380F4F4A4AD250FDD5E0FD40E3B5A6C137BBE2F1E739CF35CC7F5DCC7FD7BF8244E8A539E350D411F8C732E0C3967C89355F2363C62DC3957A6ACB03AA661F53831E19F8325148065691166E235C7A38FB0BC17B128C6496794F44DB43686800F7A5A43ADCB01ADD32EDD79CC71CE731DD773DF3E2E09148F4560A13A4B38040BAD177B614FECCD3669D9399FDC4E38E93D38437E3888DB413D0EE2B62796615F89FF3D1231CC90D61479B051CF04F59A43418CCF07A53B8F39CE79AEE3FAA7F3510DF976D05A3BE8BD3A68AD9DB4D64E9F1BAE5947F6FCF1D13C0234A700D5F989DBBF12833F9920AC3C13BED584042FE979C89387FADD04BEF398E3999AE7E14B23217908D07AB327F616A4F5CE9C632E7A7F519A5794B823541F595B45643DF9DC58A2FA0CC2A9952C76C75F844F02F79017F6C4DEBCF40DEC3E0F53944F6DA490BAB14ED840F2E3CDFF14EC41F2C29EC8DBE3E76A1B9DABC1A01FC9D42A6EDDBEF5BF007B614FFFC2F9FCAAB0EF9CFF0B52989839],'Down'=[ZIPA60E000078DACD565B73535514262747E9C8252D2D14DA01DA0AD8D252DA344D4E927392939CDC93937B7A2FE9FD0A2DD719471F7DE117F451C751644471747CF00DF541182E6F8E7FC017677CE50DC1CFB5764829D0910A389A996FF6D96BAFF57DDFDE277B2541F346CD36F17112DA094D84BD04CBB61611BFFC787DB34F5B5BEB65BF5F7B100905F13AC05CC7DF39F6892CCBB5558D7EBBFDE7139D47FF6C3958838E6332FA7A64E89A15C99815834509531312961725BC7B49C2FBEF55C633CB12A6A7248C0C4948A7AC081B5678151927BB641C6D9371A8B906EDC75AE076F5FF26592C35079B9BCFF5741F7FD4D428E3ED5619273A655A9311F05B914A3CAD73E1BC844B172AE3469D6CDA8A68C80A9F6A85B34F4667BB8CB6C332F637C83876A405BC2F97CBF9EBA1A63A341FA8F8603FACA3FB683F712B4A050913A7242CCE57B4AAE0F924E90F0D48C89856448C273A5D1D15CFCCD9D8B013AAEABD1FD07D8F1A6AB7E360D3131DC529C34FE7168F5A51C84A181B25CEF2F3181F933040FB3593746E412B34AF15FDCFE8D4DBDE587F67FC5CD5E9261D57BF0C8DBC45E82CD24909855C858FF7B66FAF45A03ACF652424E83D1A3AE97848C7FE629D23A47382749C0E192AD5047509B130215A41FD1E0BBEFE6A4DA0BEDE2262714238242140E7ACBAAD706C5587BE079CEB5624F834097E9F447B93E0F548F0B825D86C16019E739CD775828F9E3D0AE9F4924EFBD6751427D5B9243A43097D76093D2725ECDC69C1D5AB6B02BBE899E30AE578495FF372FECBE93859A357A27726A1B343C28EB72CB8F2E99AC06757D6B0738745AC0B4FCA8B753CAE2E18812E3AEB2EBA0BC7512A76A0983F4ACF6D88450E43F737D3596D876DF79BD84DB8F6F987F8E2DA47B8FEE5C7F4CE6A44DE40E12886073AE8FBD189AC495C912EBA835D82BBAA531E2F627EB688D34B059C5DC9E1FCD90CCEAE26B1B418A13BA2A3719F0DB76E7D8F9B3FDDA0F7BF0B0D049EDFBDF3239A0ED489BCF36793B87821437798EA570B585E2A626EA628B8AB3AA343194C4F66E8EE65B072DA24A4B072262EEAA7A702D8DF68C39DDB3F08EE5B376F8891E7F7EE924E53456775254E1E53583D6352AF4893EF0CDDB18CE0AEEA94F2099C1A8D537F8963612E467A511A23989B352816C0F8A826F6749BB86F93068FBC97FDFB6BC53AE72D2D440851AA8D617E2686A9721C632371C15DD5C99A210C960C8C8F18D463983B28EAA7CA3ACA633E8C0D6BD45F3C743F6DEB605D8EF33AE7CD4C06E84C82A2B63C6ED03E0CC1C9DC559D44D447EF52236DE22B69D41B2B181E647E95DEAD97BE171EE4736EE4B38A1879CE715EE7BC6A0D8339988B39999B35027EFF0343F7D05C819950485F412EFD0459D325904E39A9076D00CDAB6B1BF32B3515AE5858A17EE4163A4ABFE317BFA650DFB02314B053CC8E68F879703C12EADD80CDF3AAB9866E179C3ECD497DC3FB7B5D5DADEE53BD0FDDCE6EEA4FDDD40BBBA987BC1A9883B99853F3288F0E36372DF3EF696B6BCB0724F687DBD98B7EC709BAE3C75F09CCC15C9A5779D8D3DDF9DDC6FF07B6DDBB1587A3E79E4F55EFBFEA7F03E660AEFA3D7B62557EFFC8306C7BF7C2D6D080EBDF7E23469E733C3C3581C4E23CCC95D3C89E5B45EEC239E42F9E7F029E533C4FEB85E5451428B7303B8DC2641985F151144706511A28ACEBA77369A44B79A48707911E1B8139710AE6CC14CCF919A4A85680783622B9B480C4C21CA2C41B9A28431F1D86562A92C786C75E1BC49CE3BCCE799CCF75CF7209B0C6FCACD034A72791260F69AA4D0F9584B74C36BDEE379E8A239E492156C8223650446C740851DA5774621CD1A9F2634C3C8708ED3F5C1E8731360A9DF6EAA35AAD90839ACF8A91E71CE775CEE3FCCD782A2857F44E8D214A6716A33AE1853CB1B77832B6EED7881830125104CD048274D641D20A960A080E96101C1AF85B042847275E7F310F8D7DE632D0E82CC448738EF37A600B5C428F72835413A4DA60D684419E8C5804A17070BDFFF8740D9AA1438B1AD0C8B746E7AD519E964E6D0D6652404D25A026E3F01278E479756DCB5C822F51F1100B573C9137F658ED639AE6815B25F835B8033E28B4AE8402FF182EAA7B162FC32340B5EC4578226FAAAA3CD50FFB9D7D70B8FAE1F0B8E0F02A70A8EEFF16EC81BD9027F6A67A9FEEAB7EEAAB4E8ADB1DBDE8B677FF2FC05ED8139DEDBFDA9F5F1736EBF37F014778288C]]
UseName=1
}
Add(ArrayRW,4270862,175,140)
{
link(onRead,1050254:doPicture,[(219,146)(219,237)])
link(Array,7356144:Array,[])
}
Add(DoData,9324122,119,140)
{
Data=Integer(0)
link(onEventData,9703091:doWork2,[])
}
Add(Hub,3142573,77,42)
{
link(onEvent1,9324122:doData,[(105,48)(105,146)])
link(onEvent2,4413388:doWork1,[(226,55)])
}
Add(ChanelToIndex,5480696,364,175)
{
Count=4
link(onIndex,16361809:doWork2,[])
}
Add(HubEx,9703091,161,140)
{
link(onEvent,4270862:doRead,[])
}
Add(Switch,6137847,364,133)
{
DataOn=Integer(1)
DataOff=Integer(0)
Point(doOn)
link(onSwitch,16361809:doWork1,[(415,139)])
}
Add(ChanelToIndex,4688505,364,224)
{
Count=4
link(onIndex,16169464:doWork3,[(429,230)])
}
Add(HubEx,4413388,222,70)
{
Angle=1
link(onEvent,2297791:doVisible,[(226,188)])
}
Add(Hub,15664525,294,210)
{
link(onEvent1,5480696:doWork2,[(339,216)(339,188)])
link(onEvent2,2072555:onClick,[(487,223)(487,48)])
}
Add(HubEx,16361809,411,175)
{
Angle=1
link(onEvent,9703091:doWork3,[(415,261)(165,261)])
}
Add(TransparentManager,1050254,245,231)
{
Name="transp"
TransparentMode=1
TransparentType=1
Point(doPicture)
}
Add(Hub,11374782,294,189)
{
link(onEvent1,5480696:doWork3,[])
link(onEvent2,4688505:doWork1,[(347,202)(347,230)])
}
Add(MathParse,11524956,56,189)
{
MathStr="%1 - %2 - 80"
link(onResult,2297791:doShiftLeft,[])
link(X1,10642289:CurrentWidth,[])
link(X2,2297791:Width,[(69,177)(137,177)(137,225)(251,225)])
}
Add(Hub,3541102,77,70)
{
link(onEvent1,4413388:doWork2,[])
link(onEvent2,16169464:doWork2,[])
}
Add(HubEx,16169464,425,77)
{
link(onEvent,1821037:doActive,[])
}
Add(WinTools,1821037,448,63)
{
link(Handle,3426821:Var3,[(454,35)])
}
Add(SizeWindow,10642289,56,126)
{
link(Handle,3426821:Var2,[])
}
Add(GetDataEx,3426821,56,30)
{
link(Data,2072555:MainFormHandle,[])
}
END_SDK
Add(MathParse,1690064,231,84)
{
MathStr="((%1 + %2) > 250) * %2"
ResultType=0
Point(reCalc)
link(X1,8405173:Width,[(237,70)(207,70)(207,197)(251,197)])
}

карма: 22

0
Ответов: 1841
Рейтинг: 369
#122: 2010-06-01 12:48:00 ЛС | профиль | цитата
nesco, хорошее решение
карма: 1
0
Разработчик
Ответов: 26066
Рейтинг: 2120
#123: 2010-06-01 12:53:43 ЛС | профиль | цитата
CriDos писал(а):
хорошее решение

По-моему -- единственно правильное при доступных ресурсах
карма: 22

0
Разработчик
Ответов: 4697
Рейтинг: 426
#124: 2010-06-01 13:01:05 ЛС | профиль | цитата
nesco писал(а):
По-моему -- единственно правильное при доступных ресурсах

...И плохо работающее Не знаю, каким образом, но я водил мышкой так:
Переместил окно в правую сторону, дернул... блин, проще видео
карма: 10
0
файлы: 1formsizer.rar [159.3KB] [380]
Разработчик
Ответов: 26066
Рейтинг: 2120
#125: 2010-06-01 13:20:18 ЛС | профиль | цитата
Assasin писал(а):
И плохо работающее

А ты Win.pas обновил, там бажог маленький был и именно в месте фиксации размера по-ширине, возможно, в нем проблема
карма: 22

0
Разработчик
Ответов: 4697
Рейтинг: 426
#126: 2010-06-01 13:24:05 ЛС | профиль | цитата
Хм... да и правда , снимаю вопрос
карма: 10
0
126
Сообщение
...
Прикрепленные файлы
(файлы не залиты)