Как получить информацию о форматировании элемента так и не понял, чтобы на панели подсвечивать примененные элементы и что бы не сбрасывались настройки при новых изменениях.
Make(delphi)
ver(4.05 build 186)
Add(Button,6088890,154,637)
{
Left=105
Top=335
Width=150
Height=35
link(onClick,6269115:doExecute,[(342,643)(342,727)])
}
Add(Edit,6007281,1337,546)
{
Left=420
Top=345
Width=355
}
Add(MainForm,2953706,21,105)
{
Width=827
Height=441
Color=16777215
Position=1
link(onCreate,11727691:In,[])
}
Add(ChildPanel,3318256,441,273)
{
@Hint=#7:Toolbar|
@Color=16755285
link(onEvent1,9425348:doUndo,[])
link(onEvent2,9425348:doRedo,[])
link(onEvent3,9425348:doFormatSel,[(576,293)(576,265)(673,266)])
link(onEvent4,9425348:doSetFocus,[(576,300)(576,293)])
link(Data1,9425348:RichEdit,[(447,261)(580,261)(580,330)(713,330)])
link(Data2,9425348:Handle,[(454,261)(587,261)(587,330)(720,330)])
AddHint(-120,22,51,13,@Hint)
}
BEGIN_SDK
Add(EditMulti,5708489,21,21)
{
EventCount=11
WorkCount=2
DataCount=2
VarCount=3
Width=1098
Height=711
link(Var1,7277792:CurrentColor,[(27,386)(195,386)])
}
Add(Panel,4415339,42,42)
{
Width=811
Height=30
Align=2
Color=16777215
WinStyle=1
Layout="parent.main"
WidthScale=100
HeightScale=11
BevelInner=0
BevelOuter=2
}
Add(FontBox,8317766,301,364)
{
Left=55
Top=2
Width=150
Height=21
Font=[Segoe UI,8,0,0,1]
SelFont="Segoe UI"
link(onResult,11288039:doWork2,[])
}
Add(ColorBox,7277792,189,63)
{
Left=259
Top=2
Width=60
Height=21
Font=[MS Sans Serif,2,0,0,1]
Layout="Loy2"
TypeListColors=1
ItemHeight=18
link(onClick,4049309:doData,[])
}
Add(DoData,4049309,238,63)
{
Data=String(0)
link(onEventData,16343502:doWork2,[])
}
Add(ComboBox,12950858,336,308)
{
Left=207
Top=2
Width=50
Height=21
Font=[MS Sans Serif,10,0,0,1]
Strings=#1:8|1:9|2:10|2:11|2:13|2:15|2:17|2:19|2:21|2:23|2:25|2:27|2:29|2:31|2:33|2:35|2:37|2:39|2:41|2:43|2:45|2:47|2:49|2:51|2:53|2:55|2:57|2:59|2:61|2:63|2:65|2:67|2:69|2:71|2:73|2:75|2:77|2:79|2:81|2:83|2:85|2:87|2:89|2:91|2:93|2:95|2:97|3:100|3:125|3:150|3:175|3:200|3:225|3:250|3:275|3:300|0:|
Text="10"
link(onClick,11288039:doWork1,[(380,321)])
}
Add(InlineCode,9130332,294,455)
{
WorkPoints=#11:doFormatSel|
DataPoints=#7:PHandle|8:FontName|8:FontSize|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|0:|12: PHandle,|10: Color,|10: Style,|13: FontName,|24: FontSize: THI_Event;|4: |58: procedure doFormatSel(var _Data: TData; Index: word); |5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.doFormatSel;|3:var|21: sControl: PControl;|10: p: byte;|12: s: string;|13: i: integer;|0:|5:begin|48: sControl := PControl(ToIntegerEvent(PHandle));|38: if not Assigned(sControl) then exit;|2: |64: if (sControl.SelLength <> 0) then {no valid selection -> quit}|7: begin|82: sControl.RE_CharFmtArea := raSelection; {apply attribute(s) only to selection}|58: sControl.RE_FmtFontColor := ReadInteger(_Data, Color);|0:|35: p := ReadInteger(_Data, Style);|39: sControl.RE_FmtBold := p and 1 > 0;|41: sControl.RE_FmtItalic := p and 2 > 0;|44: sControl.RE_FmtUnderline := p and 4 > 0;|37: s := ReadString(_Data, FontName);|20: if s <> '' then|35: sControl.RE_FmtFontName := s;|43: i := ReadInteger(_Data, FontSize) * 20;|20: if i <> 0 then |36: sControl.RE_FmtFontSize := i; |6: end;|4:end;|0:|4:end.|
link(PHandle,5708489:Data1,[(300,172)(27,172)])
link(FontName,8317766:CurrentFont,[])
link(FontSize,12950858:String,[(314,404)(349,404)])
}
Add(DoData,4926556,245,455)
{
link(onEventData,9130332:doFormatSel,[])
}
Add(HubEx,11288039,376,364)
{
Angle=1
link(onEvent,4926556:doData,[(380,395)(233,395)(233,461)])
}
Add(ButtonRush,9303883,91,21)
{
Left=2
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FF5148326CC1116E2071744C897E52DD40AC5E42FAF1B991907E5CE611E37F7C7691E2B751483C0400A89AD624],''=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FF5148326CC1116E2071744C897E52DD40AC5E42FAF1B991907E5CE611E37F7C7691E2B751483C0400A89AD624],'Bitmap'=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FF5148326CC1116E2071744C897E52DD40AC5E42FAF1B991907E5CE611E37F7C7691E2B751483C0400A89AD624]]
link(onClick,5708489:onEvent1,[])
}
Add(ButtonRush,16569831,133,28)
{
Left=26
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIP3604000078DA73F235636600033320D600620128666490804840E591C17F86FFC300B590E8114CF5401164448CE1A4AA47D642A4F9702DF8DD8FA606AB81B85C3B8A4634040030CB55A9],''=[ZIP3604000078DA73F235636600033320D600620128666490804840E591C17F86FFC300B590E8114CF5401164448CE1A4AA47D642A4F9702DF8DD8FA606AB81B85C3B8A4634040030CB55A9],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804840E591C17F86FFC300B590E8114CF5401164448CE1A4AA47D642A4F9702DF8DD8FA606AB81B85C3B8A4634040030CB55A9]]
link(onClick,5708489:onEvent2,[])
}
Add(ButtonRush,10197097,427,476)
{
Left=435
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F450440567F050720D53DD4F26F28110059BD16118016E18F4B3D31614E4CF8E38A0B52D3C3000206B200EDCC196C805ABE181EA1319A7EE80C005061D23F],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F450440567F050720D53DD4F26F28110059BD16118016E18F4B3D31614E4CF8E38A0B52D3032D93E6C88600EBF5B441],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F450440567F050720D53DD4F26F28110059BD16118016E18F4B3D31614E4CF8E38A0B52D3032D93E6C88600EBF5B441]]
link(onClick,16428166:doEvent1,[])
}
Add(ButtonRush,2004117,427,518)
{
Left=459
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F450440567F850840897B4805A1440064F55A4480D1F01F10C04016A09D39830D50CB17C3233446D30F9D0100E7F8B457],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F450440567F850840897B4805A1440064F55A4480D1F0A74DD21CD91000C6699659],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F450440567F850840897B4805A1440064F55A4480D1F0A74DD21CD91000C6699659]]
link(onClick,13546278:doEvent1,[])
}
Add(ButtonRush,9247618,427,560)
{
Left=483
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F4504C065D7151C8054B751E2DF502200B27A2D2200ADE302977A62C2FF0A118092F4308080812C403B73061BA0962F8647688CA61F3A03001E4ED23F],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F4504C065D7151C8054B751E2DF502200B27A2D2200ADE302977A62C2FF0A118092F440CBA439B22100B9E2B441],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F4504C065D7151C8054B751E2DF502200B27A2D2200ADE302977A62C2FF0A118092F440CBA439B22100B9E2B441]]
link(onClick,12609769:doEvent1,[])
}
Add(KeyEvent,5284092,504,483)
{
Code=76
Ctrl=1
link(Handle,8591610:Var2,[])
}
Add(Hub,16428166,476,476)
{
link(onEvent1,8713718:doWork2,[])
link(onEvent2,5284092:doPress,[])
}
Add(KeyEvent,8194314,504,525)
{
Code=69
Ctrl=1
link(Handle,3207450:Var1,[(510,475)(501,475)(501,425)])
}
Add(Hub,13546278,476,518)
{
link(onEvent1,8713718:doWork3,[(557,524)])
link(onEvent2,8194314:doPress,[])
}
Add(HubEx,8713718,553,476)
{
link(onEvent,6642673:doWork2,[])
}
Add(KeyEvent,11339097,504,567)
{
Code=82
Ctrl=1
link(Handle,8591610:Var1,[(510,507)(501,507)(501,446)])
}
Add(Hub,12609769,476,560)
{
link(onEvent1,6642673:doWork3,[(571,566)])
link(onEvent2,11339097:doPress,[])
}
Add(HubEx,6642673,567,476)
{
link(onEvent,14753437:doWork2,[])
}
Add(GetDataEx,3207450,504,420)
{
link(Data,7281740:Var2,[])
}
Add(GetDataEx,8591610,504,441)
{
link(Data,3207450:Var2,[])
}
Add(ButtonRush,8264596,308,98)
{
Left=325
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFC1F4660D5AA550C48808383232F2FEFE3C78FF8D5CBC8C8848686868484282929313333777474E0570F540CE13E79F204C8B5B5B5C5AFDED2D212C858B97265414101905B565646A4FB81405757F7E5CB97C4B8DFCFCF8F9B9B5B4747E7C58B1744BABFAAAA0AC85DBF7E3D31EE5FBC78B18989090B0BCB91234788743F3B3BBBAFAFEFA74F9F70A97FFCF8F12A24B063C78EB76FDF0EB644C54016A09D3943317CE869CE68FA19EA2146120000E8AB0C02],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFC1F4660D5AA550C48808383232F2FEFE3C78FF8D5CBC8C8848686868484282929313333777474E0570F540CE13E79F204C8B5B5B5C5AFDED2D212C858B97265414101905B565646A4FB81405757F7E5CB97C4B8DFCFCF8F9B9B5B4747E7C58B1744BABFAAAA0AC85DBF7E3D31EE5FBC78B18989090B0BCB91234788743F3B3BBBAFAFEFA74F9F70A97FFCF8F12A24B063C78EB76FDFD23BD1308C6C0800CBFDEDF5],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFC1F4660D5AA550C48808383232F2FEFE3C78FF8D5CBC8C8848686868484282929313333777474E0570F540CE13E79F204C8B5B5B5C5AFDED2D212C858B97265414101905B565646A4FB81405757F7E5CB97C4B8DFCFCF8F9B9B5B4747E7C58B1744BABFAAAA0AC85DBF7E3D31EE5FBC78B18989090B0BCB91234788743F3B3BBBAFAFEFA74F9F70A97FFCF8F12A24B063C78EB76FDFD23BD1308C6C0800CBFDEDF5]]
link(onClick,2444501:doData,[])
}
Add(ButtonRush,14797015,308,133)
{
Left=349
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFC1F468001155CB97285BAEA81E0EBD7AFC2C2C25C5C5C6FDEBC21D25515151540C3DBDBDB89547FFCF8717E7E7E7373F30F1F3E10A3FEDBB76F5656569C9C9C478F1E25D28AF5EBD7333232060404FCFBF78FA0E263C78E050606323333B3B0B0040505858686E257BF6AD52AB480C5AFFEF1E3C7AB50C1604E544402DA9933C8331DD9BE181EA1319A7EE80C005A913F0B],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFC1F468001155CB97285BAEA81E0EBD7AFC2C2C25C5C5C6FDEBC21D25515151540C3DBDBDB89547FFCF8717E7E7E7373F30F1F3E10A3FEDBB76F5656569C9C9C478F1E25D28AF5EBD7333232060404FCFBF78FA0E263C78E050606323333B3B0B0040505858686E257BF6AD52AB480C5AFFEF1E3C7AB50017D13CDC88600DCE0210D],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFC1F468001155CB97285BAEA81E0EBD7AFC2C2C25C5C5C6FDEBC21D25515151540C3DBDBDB89547FFCF8717E7E7E7373F30F1F3E10A3FEDBB76F5656569C9C9C478F1E25D28AF5EBD7333232060404FCFBF78FA0E263C78E050606323333B3B0B0040505858686E257BF6AD52AB480C5AFFEF1E3C7AB50017D13CDC88600DCE0210D]]
link(onClick,4549980:doData,[])
}
Add(ButtonRush,14869135,308,168)
{
Left=373
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFCA717D0D2D262C00142434331D5EFD8B163150E70ECD8315CB6FCFBF7EFF9F3E7D7AF5FBF71E3C6AB57AF805C3C4EFAF9F3675B5B9B9A9A1A2B2B2B070787B6B6F69C3973FEFCF9834BFDB265CBD8D8D8545555EBEBEB4B4A4AA4A5A57979794F9C38814BBD9999999898D89D3B7720DCCB972F0B0808B8B9B9E152CFC2C2929898882CE2EBEB0BB411977A60D0656565218B0043124F9C0E75F5030218C802B43367B0016AF9627884C668FAA1330000A4B913AC],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA717D0D2D262C00142434331D5EFD8B163150E70ECD8315CB6FCFBF7EFF9F3E7D7AF5FBF71E3C6AB57AF805C3C4EFAF9F3675B5B9B9A9A1A2B2B2B070787B6B6F69C3973FEFCF9834BFDB265CBD8D8D8545555EBEBEB4B4A4AA4A5A57979794F9C38814BBD9999999898D89D3B7720DCCB972F0B0808B8B9B9E152CFC2C2929898882CE2EBEB0BB411977A60D0656565218B0043124F9C0E75F534010C231B02007350F59F],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA717D0D2D262C00142434331D5EFD8B163150E70ECD8315CB6FCFBF7EFF9F3E7D7AF5FBF71E3C6AB57AF805C3C4EFAF9F3675B5B9B9A9A1A2B2B2B070787B6B6F69C3973FEFCF9834BFDB265CBD8D8D8545555EBEBEB4B4A4AA4A5A57979794F9C38814BBD9999999898D89D3B7720DCCB972F0B0808B8B9B9E152CFC2C2929898882CE2EBEB0BB411977A60D0656565218B0043124F9C0E75F534010C231B02007350F59F]]
link(onClick,15951044:doData,[])
}
Add(ButtonRush,11384071,308,203)
{
Left=397
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E585B9211806FE0F6E70E2C489CCCC4C5F5FDFA0A0A0FEFEFE77EFDEE157FFFDFBF70B172E282A2A8686863E7FFEFCEFDFBFB854FEFBF7EF2F0CD8DADA969797C3B958D53F7AF4681F0C18181844474743D8FBF7EFFFF4E913A6FA67CF9E9D86016363E3C4C44438F7CB972FF87DE1E0E0505555855FCD3F30C0548FCBFDAF5EBD020608440B5CFDCF9F3F2F5DBAF4E3C70F4CF5C78F1F9F3D7B36D0D72F5EBCB0B2B2CACFCF0732CE9C39535959F9FEFD7B4CF5172F5EACAFAF9F3F7FFEB265CB2A2A2ADADADA962E5D3A61C284969696CF9F3FFF1FB280812C403B738662F8D0D39CD1F433D4438C240000A5FA581F],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E585B9211806FE0F6E70E2C489CCCC4C5F5FDFA0A0A0FEFEFE77EFDEE157FFFDFBF70B172E282A2A8686863E7FFEFCEFDFBFB854FEFBF7EF2F0CD8DADA969797C3B958D53F7AF4681F0C18181844474743D8FBF7EFFFF4E913A6FA67CF9E9D86016363E3C4C44438F7CB972FF87DE1E0E0505555855FCD3F30C0548FCBFDAF5EBD020608440B5CFDCF9F3F2F5DBAF4E3C70F4CF5C78F1F9F3D7B36D0D72F5EBCB0B2B2CACFCF0732CE9C39535959F9FEFD7B4CF5172F5EACAFAF9F3F7FFEB265CB2A2A2ADADADA962E5D3A61C284969696CF9F3F0FDE14C630B221002D4D3A21],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E585B9211806FE0F6E70E2C489CCCC4C5F5FDFA0A0A0FEFEFE77EFDEE157FFFDFBF70B172E282A2A8686863E7FFEFCEFDFBFB854FEFBF7EF2F0CD8DADA969797C3B958D53F7AF4681F0C18181844474743D8FBF7EFFFF4E913A6FA67CF9E9D86016363E3C4C44438F7CB972FF87DE1E0E0505555855FCD3F30C0548FCBFDAF5EBD020608440B5CFDCF9F3F2F5DBAF4E3C70F4CF5C78F1F9F3D7B36D0D72F5EBCB0B2B2CACFCF0732CE9C39535959F9FEFD7B4CF5172F5EACAFAF9F3F7FFEB265CB2A2A2ADADADA962E5D3A61C284969696CF9F3F0FDE14C630B221002D4D3A21]]
link(onClick,9806155:doData,[])
}
Add(ChildPanel,11486214,112,616)
{
}
BEGIN_SDK
Add(EditMulti,4152236,21,21)
{
}
Add(Panel,5211733,35,105)
{
Left=427
Top=2
Width=4
Height=22
Color=16777215
BevelInner=1
}
END_SDK
Add(DoData,2444501,350,98)
{
Data=String(1)
link(onEventData,16343502:doWork3,[(403,104)])
}
Add(HubEx,16343502,399,63)
{
link(onEvent,9529608:doWork2,[])
}
Add(DoData,4549980,350,133)
{
Data=String(2)
link(onEventData,9529608:doWork3,[(410,139)])
}
Add(HubEx,9529608,406,63)
{
link(onEvent,7550564:doWork2,[])
}
Add(DoData,15951044,350,168)
{
Data=String(4)
link(onEventData,7550564:doWork3,[(417,174)])
}
Add(HubEx,7550564,413,63)
{
link(onEvent,4154785:doWork2,[])
}
Add(DoData,9806155,350,203)
{
Data=String(8)
link(onEventData,4154785:doWork3,[(431,209)])
}
Add(HubEx,4154785,427,63)
{
link(onEvent,5708489:onEvent3,[(597,69)(597,41)])
}
Add(ChildPanel,13588147,168,623)
{
}
BEGIN_SDK
Add(EditMulti,2423307,21,21)
{
}
Add(Panel,15084141,35,105)
{
Left=510
Top=2
Width=4
Height=22
Color=16777215
BevelInner=1
}
END_SDK
Add(ButtonRush,13048344,791,504)
{
Left=592
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F4504C063DD9D3B77AE60006405C78E1D43E66A6969E1778FB2B2329A0904FD0BD402B7A5B0B0301403A0A9171212DAB1630784EBE7E7A7850190D5CBC8C8ECDFBF9F78F7C04D26D2BF98DAF187FF15220025E961000103598076E60C36402D5F0C8FD0184D3F740600C6FFDD55],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F4504C063DD9D3B77AE60006405C78E1D43E66A6969E1778FB2B2329A0904FD0BD402B7A5B0B0301403A0A9171212DAB1630784EBE7E7A7850190D5CBC8C8ECDFBF9F78F7C04D26D2BF98DAF187FF15220025E981964973644300E451BF57],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F4504C063DD9D3B77AE60006405C78E1D43E66A6969E1778FB2B2329A0904FD0BD402B7A5B0B0301403A0A9171212DAB1630784EBE7E7A7850190D5CBC8C8ECDFBF9F78F7C04D26D2BF98DAF187FF15220025E981964973644300E451BF57]]
}
Add(ButtonRush,1755580,741,504)
{
Left=568
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F4504C063DD9D3B77AE60004C65C78E1D8330B4B4B4F0BBE7C78F1FF5F5F5A1A1A144FA17A8989D9D1DAEBEB0B030140320ABCFCACA626161810BFAF9F969610064F51F3F7E046A21DE3D10B063C70E22FD8BA9117FF85F210250921E06103090056867CE6003D4F2C5F0088DD1F4436700007146DC1A],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F4504C063DD9D3B77AE60004C65C78E1D8330B4B4B4F0BBE7C78F1FF5F5F5A1A1A144FA17A8989D9D1DAEBEB0B030140320ABCFCACA626161810BFAF9F969610064F51F3F7E046A21DE3D10B063C70E22FD8BA9117FF85F210250921E68993447360400F105BE1C],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F4504C063DD9D3B77AE60004C65C78E1D8330B4B4B4F0BBE7C78F1FF5F5F5A1A1A144FA17A8989D9D1DAEBEB0B030140320ABCFCACA626161810BFAF9F969610064F51F3F7E046A21DE3D10B063C70E22FD8BA9117FF85F210250921E68993447360400F105BE1C]]
}
Add(ButtonRush,6626284,580,630)
{
Left=520
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70BF8F4E9D3DFBF7F89547CF5EA551B1B9BAD5BB71E3B762C143780AB3F7DFAB49C9CDCD2A54B77ECD8A1851B205BF1ECD9B3DFBF7F8FBA7FA8B87F000103598076E60CC5F0A1A739A3E967A88718490000670106A1],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70BF8F4E9D3DFBF7F89547CF5EA551B1B9BAD5BB71E3B762C143780AB3F7DFAB49C9CDCD2A54B77ECD8A1851B205BF1ECD9B3DFBF7F8FBA7FA8B89F86806164430015F4E894],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70BF8F4E9D3DFBF7F89547CF5EA551B1B9BAD5BB71E3B762C143780AB3F7DFAB49C9CDCD2A54B77ECD8A1851B205BF1ECD9B3DFBF7F8FBA7FA8B89F86806164430015F4E894]]
link(onClick,10212524:doEvent1,[])
}
Add(ButtonRush,10407758,797,560)
{
Left=544
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFCA73DB873E7CE952B577EFCF841A4FA1D3B7658585800B51C3B762C14374036DFDDDD1DA81EA8510B3740367FD5AA551F3F7EA491FB8B8A8A52535381E613EFFEC8C8C8E7CF9FD3C8FD40F0F8F16392A20CE23CE2DD0FE112EF7EA0C9FF870860200BD0CE9CA1183EF4346734FD0CF51023090000231C06D1],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA73DB873E7CE952B577EFCF841A4FA1D3B7658585800B51C3B762C14374036DFDDDD1DA81EA8510B3740367FD5AA551F3F7EA491FB8B8A8A52535381E613EFFEC8C8C8E7CF9FD3C8FD40F0F8F16392A20CE23CE2DD0FE112EF7EA0C9FF07096018D910004E00E8C4],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA73DB873E7CE952B577EFCF841A4FA1D3B7658585800B51C3B762C14374036DFDDDD1DA81EA8510B3740367FD5AA551F3F7EA491FB8B8A8A52535381E613EFFEC8C8C8E7CF9FD3C8FD40F0F8F16392A20CE23CE2DD0FE112EF7EA0C9FF07096018D910004E00E8C4]]
}
Add(KeyEvent,13842298,658,637)
{
Code=76
Ctrl=1
Shift=1
link(Handle,7281740:Var3,[(664,411)])
}
Add(Hub,10212524,630,630)
{
link(onEvent1,14753437:doWork3,[(656,636)(656,560)(578,560)])
link(onEvent2,13842298:doPress,[])
}
Add(GetDataEx,7281740,504,406)
{
link(Data,5708489:Data2,[(510,186)(34,186)])
}
Add(HubEx,14753437,574,476)
{
link(onEvent,5708489:onEvent4,[(751,482)(751,48)])
}
END_SDK
Add(RichEdit,9425348,679,224)
{
Left=50
Top=15
Width=30
Height=30
Font=[Segoe UI,10,0,0,204]
Ctl3D=0
WinStyle=1
Name="rich"
Layout="loy2"
WidthScale=100
HeightScale=100
ScrollBars=2
HideFrames=0
CanDragOle=1
Point(doFormatSel)
Point(doAddBitmap)
Point(doUndo)
Point(doRedo)
Point(SelText)
Point(onKeyUp)
Point(RichEdit)
Point(doSetFocus)
Point(Handle)
Point(doInsertRTF)
Point(RTFText)
Point(doSetSelStart)
Point(doDelete)
Point(PHandle)
Point(FileName)
Point(HeightControls)
Point(Left)
link(onChange,13016380:doWork1,[(761,230)(761,363)])
link(Color,3318256:Var1,[(692,212)(570,212)(570,365)(447,365)])
}
Add(HBoxLayout,9140417,161,42)
{
Name="loy"
}
Add(LayoutSpacer,7353789,77,42)
{
Width=30
Height=0
Layout="loy"
}
Add(VBoxLayout,14497530,203,42)
{
Name="loy2"
WidthScale=100
HeightScale=100
Layout="loy"
}
Add(LayoutSpacer,13901521,119,42)
{
Left=10
Top=10
Width=0
Height=30
Layout="loy2"
}
Add(StatusBar,4783888,1057,357)
{
Panels=#14:Абзацев: 0=150|11:Слов: 0=150|15:Символов: 0=150|19:Без пробелов: 0=150|9:АЛ: 0=150|
link(Text,13016380:Var1,[(1063,347)(1046,347)(1046,401)(1014,401)])
}
Add(StyleXP,5667875,21,42)
{
}
Add(StrList,8073297,259,560)
{
Strings=#23:{\rtf1\ansi\ansicpg1251|30:{\*\generator RTF-table 1.05;}|46:{\fonttbl{\f0\fcharset1\fname MS Sans Serif;}}|38:{\colortbl ;\red192\green192\blue192;}|111:\trowd\f0\fs16\trgaph30\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10|107:\clcbpat1\clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrb\brdrw15\brdrs\clbrdrr\brdrw15\brdrs\cellx1200|5:\pard|19:\intbl\highlight1\b|29:\'d1\'f2\'f0\'ee\'ea\'e0\cell|18:\highlight0\b0\row|111:\trowd\f0\fs16\trgaph30\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10|98:\clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrb\brdrw15\brdrs\clbrdrr\brdrw15\brdrs\cellx1200|5:\pard|6:\intbl|9:Edit\cell|4:\row|111:\trowd\f0\fs16\trgaph30\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10|98:\clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrb\brdrw15\brdrs\clbrdrr\brdrw15\brdrs\cellx1200|5:\pard|6:\intbl|9:Edit\cell|4:\row|111:\trowd\f0\fs16\trgaph30\trbrdrt\brdrs\brdrw10\trbrdrl\brdrs\brdrw10\trbrdrb\brdrs\brdrw10\trbrdrr\brdrs\brdrw10|98:\clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrb\brdrw15\brdrs\clbrdrr\brdrw15\brdrs\cellx1200|5:\pard|6:\intbl|9:Edit\cell|4:\row|1:}|
}
Add(DoData,1962361,259,630)
{
link(Data,8073297:Text,[])
}
Add(MultiElement,13016380,1008,357)
{
link(onEvent1,4783888:doText,[])
link(Data1,9425348:Text,[(1014,352)(685,352)])
link(Data2,9425348:Count,[(1021,352)(692,352)])
}
BEGIN_SDK
Add(EditMulti,1737859,21,21)
{
EventCount=1
WorkCount=1
DataCount=2
VarCount=1
Width=1119
Height=662
link(doWork1,1365379:doEvent1,[(165,27)(165,181)])
link(Var1,1185323:Data,[(27,448)(699,448)])
}
Add(DoData,1309710,252,441)
{
link(onEventData,15188601:doReplace,[])
link(Data,52762:Var2,[(258,152)(195,152)])
}
Add(ChanelToIndex,1185323,693,175)
{
Count=5
Point(Data)
link(onIndex,1737859:onEvent1,[(933,181)(933,27)])
}
Add(StrCat,9627858,350,175)
{
Str1="Абзацев: "
link(onStrCat,1185323:doWork1,[])
link(Str2,1737859:Data2,[(363,98)(34,98)])
}
Add(Length,11855481,343,441)
{
link(onLength,13696885:doEvent1,[])
}
Add(StrCat,4705455,413,441)
{
Str1="Символов: "
link(onStrCat,1185323:doWork3,[(569,447)(569,195)])
}
Add(Hub,1365379,308,175)
{
OutCount=5
link(onEvent1,9627858:doStrCat,[])
link(onEvent2,4377452:doExec,[(334,188)(334,230)(275,230)(275,272)])
link(onEvent3,1309710:doData,[(334,195)(334,321)(240,321)(240,447)])
link(onEvent4,12580002:doEvent1,[(476,202)(476,503)])
link(onEvent5,6358188:doCalc,[(469,209)(469,328)])
}
Add(RE_Replace,15188601,301,441)
{
Expression="\13\10"
link(onReplace,11855481:doLength,[])
}
Add(StrCat,2914154,434,525)
{
Str1="АЛ: "
link(onStrCat,1185323:doWork5,[(580,531)(580,209)])
}
Add(Math,12907734,385,525)
{
OpType=3
Op2=40000
link(onResult,2914154:doStrCat,[])
}
Add(Hub,13696885,385,441)
{
link(onEvent1,4705455:doStrCat,[])
link(onEvent2,12907734:doOperation,[(411,454)(411,492)(373,492)(373,531)])
}
Add(MathParse,10828323,392,266)
{
MathStr="%0 + 1"
Point(doClear)
link(onResult,1851392:doOperation,[])
}
Add(RE_Search,4377452,287,266)
{
Expression="\S+"
ModifierM=0
link(onMatch,7490894:doEvent1,[])
link(onNotFound,15859709:doEvent1,[(326,279)(326,328)])
link(SourceStr,52762:Var3,[(293,103)])
}
Add(Hub,7490894,336,266)
{
link(onEvent1,10828323:doCalc,[])
link(onEvent2,4377452:doExecNext,[(361,279)(361,307)(277,307)(277,279)])
}
Add(Hub,15859709,343,322)
{
link(onEvent1,11688892:doStrCat,[])
link(onEvent2,10828323:doClear,[(368,335)(368,279)])
}
Add(StrCat,11688892,385,322)
{
Str1="Слов: "
link(onStrCat,1185323:doWork2,[(594,328)(594,188)])
link(Str2,13018922:Var2,[])
}
Add(GetDataEx,52762,189,98)
{
link(Data,1737859:Data1,[(195,60)(27,60)])
}
Add(StrCat,14213156,672,322)
{
Str1="Без пробеов: "
link(onStrCat,1185323:doWork4,[(716,328)(716,265)(681,265)(681,202)])
}
Add(Str_Enum,12518000,672,504)
{
Delimiter=" "
link(onEnum,3700560:doOperation,[])
}
Add(Math,3700560,721,504)
{
Op2=1
ResultType=0
Point(doClear)
link(Op1,3700560:Result,[(727,492)(715,492)(715,544)(727,544)])
}
Add(Hub,12580002,630,497)
{
link(onEvent1,3700560:doClear,[(658,503)(658,517)])
link(onEvent2,12518000:doEnum,[])
}
Add(Math,1851392,497,266)
{
OpType=1
Op2=1
}
Add(MathParse,6358188,616,322)
{
MathStr="%1 - %2"
Point(doClear)
link(onResult,14213156:doStrCat,[])
link(X1,11855481:Result,[(622,310)(486,310)(486,485)(349,485)])
link(X2,13018922:Var3,[(629,306)])
}
Add(GetDataEx,13018922,392,301)
{
link(Data,10828323:Result,[])
}
END_SDK
Add(Length,7132712,1141,602)
{
}
Add(InlineCode,14550839,826,539)
{
WorkPoints=#11:doFormatSel|13:doUnlimitText|
DataPoints=#7:PHandle|8:FontSize|5:Color|8:FontName|5:Style|0:|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|30:uses kol,Share,Debug,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|0:|12: PHandle,|10: Color,|10: Style,|13: FontName,|24: FontSize: THI_Event;|4: |57: procedure doFormatSel(var _Data: TData; Index: word);|59: procedure doUnlimitText(var _Data: TData; Index: word);|5: end;|1: |14:implementation|0:|34:procedure THiAsmClass.doFormatSel;|3:var|21: sControl: PControl;|10: p: byte;|12: s: string;|13: i: integer;|0:|5:begin|48: sControl := PControl(ToIntegerEvent(PHandle));|38: if not Assigned(sControl) then exit;|0:|26: sControl.SelStart := 0;|35: sControl.SelLength := $FFFFFFFF;|0:|64: if (sControl.SelLength <> 0) then {no valid selection -> quit}|7: begin|82: sControl.RE_CharFmtArea := raSelection; {apply attribute(s) only to selection}|58: sControl.RE_FmtFontColor := ReadInteger(_Data, Color);|0:|35: p := ReadInteger(_Data, Style);|39: sControl.RE_FmtBold := p and 1 > 0;|41: sControl.RE_FmtItalic := p and 2 > 0;|44: sControl.RE_FmtUnderline := p and 4 > 0;|37: s := ReadString(_Data, FontName);|20: if s <> '' then|35: sControl.RE_FmtFontName := s;|43: i := ReadInteger(_Data, FontSize) * 20;|20: if i <> 0 then |36: sControl.RE_FmtFontSize := i; |6: end;|26: sControl.SelStart := 0;|4:end;|0:|36:procedure THiAsmClass.doUnlimitText;|3:var|21: sControl: PControl;|5:begin|48: sControl := PControl(ToIntegerEvent(PHandle));|38: if not Assigned(sControl) then exit;|40: sControl.Perform(EM_LIMITTEXT, -1, 0);|4:end;|0:|4:end.|
link(PHandle,9425348:PHandle,[(832,429)(727,429)])
link(FontSize,13693362:FontSize,[])
link(Color,13693362:FontColor,[])
link(FontName,13693362:FontName,[])
link(Style,13693362:FontStyle,[])
}
Add(DoData,14434637,742,539)
{
link(onEventData,14550839:doFormatSel,[])
}
Add(DropFile,147384,336,448)
{
link(onDropFile,3571650:doCompare,[])
}
Add(Hub,13611108,553,455)
{
OutCount=5
link(onEvent1,9425348:doClear,[(623,461)(623,237)])
link(onEvent2,15640603:doBeginUpdate,[(592,468)(592,503)])
link(onEvent3,9425348:doLoad,[(623,475)(623,251)])
link(onEvent4,8914281:doPart,[(585,482)(585,545)])
link(onEvent5,15640603:doEndUpdate,[(578,489)(578,510)])
}
Add(FilePartElm,8914281,595,539)
{
Mode=4
link(onPart,7258017:doModify,[])
}
Add(Case,15311257,693,539)
{
Value=String(rtf)
link(onNextCase,14434637:doData,[])
}
Add(StrCase,7258017,644,539)
{
link(onModify,15311257:doCase,[])
}
Add(FontManager,13693362,833,469)
{
ControlManager="rich"
}
Add(RedrawManager,15640603,644,490)
{
ControlManager="rich"
Point(doBeginUpdate)
Point(doEndUpdate)
}
Add(LineBreak,13088588,784,546)
{
Caption="max"
link(Out,14550839:doUnlimitText,[])
Primary=[11727691,-721,-427]
}
Add(StrMask,3571650,385,448)
{
Mask="*.rtf"
link(onFalse,9774981:doExec,[(433,454)(433,545)])
link(onTrue,13611108:doEvent1,[])
}
Add(RE_Search,9774981,448,539)
{
Expression="([^.])+(\.)+(png|jpg|html|bat|sha|css)"
link(onMatch,9489248:doValue,[(516,545)(516,664)])
}
Add(Img_Copy,6684670,938,791)
{
X=6
Y=4
Width=200
Height=200
Point(Result)
}
Add(Img_Copy,14958064,1064,770)
{
Point(Result)
Point(Height)
Point(Width)
link(Height,9448432:ImageHeight,[(1091,758)(1063,758)(1063,814)(1035,814)])
link(Width,9448432:ImageWidth,[(1098,758)(1063,758)(1063,814)(1028,814)])
}
Add(Img_Loader,9448432,1015,770)
{
Point(ImageWidth)
Point(ImageHeight)
link(onLoad,14958064:doCopy,[])
}
Add(Img_Copy,524036,644,721)
{
Point(Result)
Point(Height)
Point(Width)
link(onCopy,9425348:doAddBitmap,[(694,727)(694,499)(667,499)(667,272)])
link(Height,7029288:ImageHeight,[(671,709)(625,709)(625,765)(580,765)])
link(Width,7029288:ImageWidth,[(678,709)(626,709)(626,765)(573,765)])
}
Add(ODialog,6269115,434,721)
{
Filter="Images|*.*"
Title="Open"
link(onExecute,7029288:doLoad,[])
}
Add(Img_Loader,7029288,560,721)
{
Point(ImageWidth)
Point(ImageHeight)
link(onLoad,524036:doCopy,[])
}
Add(Memory,9489248,553,658)
{
@Hint=#15:Состояние хоста|
}
--- Добавлено в 2018-03-05 21:44:54
С отступами хз что делать, вот это жуткий баян.
Make(delphi)
ver(4.05 build 186)
Add(MainForm,3979887,364,280)
{
Width=785
Height=404
Position=1
link(onCreate,16063724:doWork1,[])
}
Add(ChildScrollBox,16063724,420,294)
{
@Hint=#15:Спасибо olDjeka|
FirstUsage=0
}
BEGIN_SDK
Add(EditMulti,6395808,21,21)
{
WorkCount=1
Width=1000
Height=613
link(doWork1,5461008:doWork2,[(147,27)(147,244)])
}
Add(Math,16577956,154,168)
{
@Hint=#14:-1 крутит вниз|
OpType=1
ResultType=0
link(onResult,9102620:doVScroll,[(197,174)(197,155)(135,155)(135,118)])
link(Op1,9102620:VPos,[])
}
Add(Math,6335071,98,168)
{
@Hint=#14:-1 крутит вниз|
OpType=3
Op2=1.43
ResultType=0
link(onResult,16577956:doOperation,[])
}
Add(RichEdit,9425348,287,126)
{
Left=100
Top=50
Width=500
Height=1000
Font=[Segoe UI,10,0,0,204]
Ctl3D=0
WinStyle=1
Layout="loy"
WidthScale=80
FileName="000.rtf"
Strings=#26:Брюс Стерлинг. Схизматрица|1: |6:ПРОЛОГ|1: |106:Яркие самолетики миновали продольную ось мира. Линдсей, любуясь, следил за ними, утопая по колено в траве.|226:Хрупкие, словно воздушные змеи, педальные самолетики то ныряли, то взмывали высоко вверх в зоне невесомости. За ними, на другом конце мира, искривленный ландшафт сверкал желтизной пшеничных и пятнистой зеленью хлопковых полей.|480:Линдсей прикрыл ладонью глаза — сквозь стеклянные панели в мир хлестали потоки яркого солнечного света. Самолет с синими крыльями из материи, разрисованными под птичьи, пересек один из таких световых столбов и теперь парил, постепенно снижаясь. Линдсей различил вьющиеся по ветру русые волосы авиаторши, крутившей педали, чтобы набрать высоту, и понял, что она тоже его заметила. Захотелось крикнуть, помахать ей рукой, но при свидетелях этого ни в коем случае делать было нельзя.|192:Тюремщики уже были рядом — собственные его супруга и дядюшка. Пожилые аристократы с натугой переставляли ноги. Дядюшкино лицо побагровело так, что старику пришлось даже усилить сердечный ритм.|51:— Ты… бежал! — выдохнул наконец старик. — Ты бежал!|113:— Я просто решил размяться, — вызывающе вежливо отвечал Линдсей. — Мышцы здорово застоялись под домашним арестом.|217:Прикрыв глаза сложенной козырьком ладонью, испещренной старческими веснушками, дядюшка проследил направление его взгляда. Пестрый аппаратик парил над Хлябями — пораженным гниением участком сельскохозяйственной панели.|106:— Хляби разглядываешь? Где работает твой дружок Константин? Говорят, он как-то связывается с тобой оттуда.|57:— Он специализируется по насекомым, а не по криптографии.|85:Линдсей лгал. Тайные сообщения Константина были единственным его источником новостей.|204:После раскрытия заговора Линдсея заточили под домашний арест в стенах фамильной усадьбы, а Филипу Константину как инженеру по экологии не нашлось подходящей замены, и его решили оставить на рабочем месте.|420:Нервы домашнего арестанта, пока он томился в усадьбе, здорово сдали. Линдсей чувствовал себя человеком лишь там, где мог найти применение своим навыкам дипломата. Он сильно похудел; над резко выделившимися скулами мрачно блестели глаза. Темные, по моде завитые волосы растрепались от бега. Высокий рост, благородный лоб, волевой подбородок, само его безупречное сложение были характерными фамильными признаками Линдсеев.|276:Супруга его, Александрина Линдсей, взяла мужа под руку. Одета она была в модную плиссированную юбку и белоснежную медицинскую куртку. Здоровый вид ее не выказывал, однако же, настоящей жизненной силы — лицо словно из вощеной бумаги, уложенные с помощью лака завитки на висках.|124:— Джеймс, — обратилась она к старику, — вы же обещали! Зачем опять — о политике? Абеляр, ты такой бледный. Чем-то расстроен?|158:— Я? Расстроен? — Навыки дипломатии, усвоенные у шейперов, заработали: кожа порозовела, зрачки слегка расширились, губы сложились в открытую белозубую улыбку.|42:Дядюшка, недовольно насупившись, отступил.|35:Александрина оперлась на руку мужа.|39:— Не делай так больше. Ты меня пугаешь.|169:Она была старше Линдсея на пятьдесят лет и недавно прошла операцию, заменив коленные чашечки на тефлоновые механистские протезы, но колени явно беспокоили ее до сих пор.|221:Линдсей переложил книгу из руки в руку. Под домашним арестом он коротал время, переводя на современный солярноорбитальный английский пьесы Шекспира. Родственники одобряли — чем бы дитя ни тешилось, только бы не политикой.|125:Даже позволили лично передать рукопись в Музей. И такая поблажка на несколько часов вывела его из заточения в четырех стенах.|107:Музей был рассадником оппозиции. Там были друзья, презервационисты, как называли они свою небольшую группу.|0:|115:Реакционная молодежь, вдохновленная романтикой искусства и культуры прошлого. Они превратили Музей в свою цитадель.|231:Мир их назывался Корпоративной орбитальной республикой Моря Ясности. Заселенная почти двести лет назад, эта лунная орбитальная станция была одним из старейших космических поселений с устоявшимися традициями и собственной культурой.|420:Однако ж ветры перемен, дующие с молодых, энергичных миров Пояса астероидов и Колец Сатурна, проникли и сюда. Не миновали этого тихого города-государства и отзвуки Бессистемной великой войны между двумя сверхдержавами шейперов и механистов. В результате население Республики раскололось на презервационистов, к которым принадлежал Линдсей, и радикальных старцев. Плебеи поднялись на борьбу с процветающими аристократами.|377:Власти Республики держали сторону механистов. Радикальные старцы, каждому — далеко за сто, правили прямо из клиник, будучи неразрывно связаны с медицинской аппаратурой механистов. Лишь импортируемые технологии протезирования еще позволяли им жить. Республика погрязла в долгах, но расходы на медицину росли год от года. Мир все больше и больше зависел от механистских картелей.|330:Шейперы тоже не обходили Республику своим вниманием и своим арсеналом соблазнов. Несколько лет назад Линдсей с Константином прошли у них курс обучения, и именно это сделало друзей первыми в своем поколении. Молодежь, не в силах смириться с принесением в жертву механистским выгодам своих законных прав, встала на сторону шейперов.|94:Социальная напряженность достигла той стадии, когда взрыв может вызвать самая крохотная искра.|75:Предметом спора была сама жизнь. Аргументом же в этом споре служила смерть.|78:Запыхавшийся дядюшка тронул свой пульт-браслет, уменьшая частоту сердцебиения.|142:— Постарайся обойтись без этих выходок, — сказал он. — Нас ждут, и воздержись там, в Музее, от риторики. Ничего, кроме заранее согласованного.|77:Линдсей поднял взгляд. Птицеподобный самолет в стремительном пике несся вниз.|14:— Не-е-е-ет!!!|28:Отшвырнув книгу, он побежал.|135:Аппарат рухнул в траву близ открытого амфитеатра с каменными скамьями. Крылья его, конвульсивно дрожа, возвышались над грудой обломков.|13:— Ве-е-ера!!!|335:Когда он вытащил ее из путаницы стоек и растяжек, она еще дышала, но была без сознания. Изо рта и носа шла кровь. Ребра явно были сломаны. Рванув ворот ее костюма, Линдсей сильно поранил руку проволокой — костюм, по моде презервационистов, имитировал старинный космический скафандр. Его гофрированные рукава были смяты и залиты кровью.|116:Облачко белых крохотных мотыльков поднялось над травой. Они суетились в воздухе, словно притягиваемые запахом крови.|116:Смахнув с Вериного лица мотылька, Линдсей прижался губами к ее губам. Пульсирующая жилка на шее замерла. Все. Конец.|51:— Вера, любимая моя, — прошептал он. — Ты все-таки…|99:Обхватив голову руками, он рухнул в траву. Боль утраты смешалась в нем с восхищением силой ее духа.|176:Вера решилась на то, о чем они часто беседовали — в Музее, ночами, в постели, после воровской близости. Самоубийство как средство борьбы. Последнее средство выражения протеста.|136:Черная бездна распахнулась перед внутренним взором Линдсея. Путь к свободе… Но неожиданно в душе взметнулась бурная волна любви к жизни.|45:— Что ж, любовь моя… Сейчас, подожди немного…|65:Он поднялся на колени. К нему, побелев лицом, уже спешил дядюшка.|56:— Этот твой поступок… Отвратительно! — выкрикнул старик.|38:Линдсей одним прыжком вскочил на нога:|20:— Отойди! Не трогай!|67:— Старик застыл над телом покойной, не сводя с нее выпученных глаз.|62:— Проклятый дурак!.. Она умерла! Ей было всего двадцать шесть!|125:Линдсей выдернул из рукава, собранного в тугие складки на локте и у запястья, грубо выкованный нож и приставил к своей груди.|96:— Во имя вечных человеческих ценностей… Во имя гуманизма… Выбираю по собственной свободной воле…|148:Старик схватил его за запястье. После короткой схватки нож выпал из руки Линдсея. Дядюшка поднял нож и положил в карман лабораторной рабочей куртки.|100:— А это, — прохрипел он, — нарушение закона. И за незаконное хранение оружия тебе придется отвечать.|140:— Хоть я и в ваших руках, — ухмыльнулся Линдсей, — вы не сможете помешать мне умереть. А сейчас или чуть позже — какая, собственно, разница…|162:— Ф-фанатик, — с отвращением выплюнул дядюшка. — Выучили шейперы, нечего сказать… Республика оплатила твое обучение, а ты с его помощью сеешь разрушение и смерть!|98:— Она умерла человеком! Лучше вот так, в полете, чем — двести лет проволочной механистской куклой!|72:Линдсей-старший отрешенно рассматривал мотыльков, усеявших тело мертвой.|83:— Вы обязательно ответите за это. И ты, и этот твой плебейский выскочка Константин.|28:Линдсей не верил своим ушам.|109:— Вы… Тупой механистский… Вы что, не видите, что и так уже нас убили?! Она была лучшей… Она была нашей Музой…|48:— Что это за насекомые? — спросил вдруг дядюшка.|173:Он разогнал мотыльков взмахом руки. Только тут Линдсей заметил на шее Веры золотой медальон. Он рванулся к мертвой, чтобы схватить украшение, но дядюшка перехватил его руку.|39:— Это мое, не тронь! — крикнул Линдсей.|126:Старик, вывернув руку Линдсея, пнул его два раза в живот. Линдсей рухнул на колени. Задыхаясь, дядюшка нагнулся за медальоном.|75:— Ты напал на меня, — потрясение произнес он. — Это… насилие над личностью…|71:Он раскрыл медальон, и на пальцы его вытекла тягучая маслянистая капля.|54:— Нет записки? — удивился старик. — Что же это — духи?|97:Он понюхал пальцы. Линдсей, задохнувшись от тошнотворного запаха, упал наземь. Дядюшка вскрикнул.|91:Белые мотыльки тысячами накинулись на него, впиваясь в кожу, испачканную пахучей жидкостью.|58:Они облепили кричащего, размазывающего их по лицу старика.|171:Линдсей перекатился на живот и, поднявшись на четвереньки, отполз подальше. Дядюшка уже не кричал, он бился в траве, точно в припадке эпилепсии. Линдсей задрожал от ужаса.|175:Монитор на дядюшкином запястье засветился красным; старик замер. Мотыльки еще несколько минут продолжали терзать мертвое тело, затем поднялись в воздух и растворились в траве.|92:Линдсей, встав во весь рост, оглядел окрестности. По высокой траве к нему медленно шла жена.|1: |12:ЧАСТЬ ПЕРВАЯ|13:БРОДЯЖЬЯ ЗОНА|1: |7:Глава 1|1: |46:Народный Орбитальный Дзайбацу Моря Спокойствия|8:27.12.15|158:Линдсея отправили в ссылку. Самым дешевым способом. Двое суток провел он слепым и глухим, накачанный наркотиками и залитый густой противоперегрузочной массой.|411:Автоматический катер, запущенный с грузовой направляющей, кибернетически точно лег на полярную орбиту вокруг другой орбитальной станции. Таких миров, названных по кратерам и морям, из которых брали сырье, вращалось вокруг Луны ровно десять. То были первые миры, вчистую порвавшие с истощенной Землей. Целый век их лунный союз был основой цивилизации, и коммерческих рейсов внутри этой Цепи миров было множество.|262:Но миновали дни славы; прогресс глубокого космоса отодвинул Цепь на задворки. Цепь разорвалась, тихий застой обернулся настороженной замкнутостью и техническим регрессом. Орбитальные миры деградировали, и пуще всех — тот, что был определен местом ссылки Линдсея.|178:Прибытие его зафиксировали камеры. Выброшенный из стыковочного узла катера-автомата, Линдсей повис обнаженным в невесомости таможенной камеры Народного Дзайбацу Моря Спокойствия.|
HideFrames=0
Point(doFormatSel)
Point(doAddBitmap)
Point(doUndo)
Point(doRedo)
Point(SelText)
Point(onKeyUp)
Point(RichEdit)
Point(doSetFocus)
Point(Handle)
Point(doInsertRTF)
Point(RTFText)
Point(doHeight)
Point(onMouseWheel)
link(onChange,5461008:doWork1,[(344,132)(344,192)(275,192)])
link(onMouseWheel,4571729:doWork3,[(344,146)(344,160)])
}
Add(Math,7752313,287,245)
{
OpType=2
Op2=17.1
link(onResult,9425348:doHeight,[(376,251)(376,230)(275,230)(275,209)])
link(Op1,9425348:Count,[(293,229)(300,229)])
}
Add(HubEx,5461008,271,238)
{
Angle=1
link(onEvent,7752313:doOperation,[(275,251)])
}
Add(HubEx,4571729,82,154)
{
Angle=1
link(onEvent,6335071:doOperation,[(86,174)])
}
Add(ChildPanel,9421472,427,168)
{
}
BEGIN_SDK
Add(EditMulti,15549318,21,21)
{
}
Add(Panel,2197151,35,105)
{
Left=35
Top=105
Align=1
Color=16777215
WinStyle=1
BorderWidth=0
BevelWidth=0
}
END_SDK
Add(ChildPanel,14130489,518,175)
{
}
BEGIN_SDK
Add(EditMulti,660611,21,21)
{
}
Add(Panel,7225753,35,105)
{
Left=35
Top=105
Align=3
Color=16777215
WinStyle=1
BorderWidth=0
BevelWidth=0
}
END_SDK
Add(ScrollBox,9102620,147,105)
{
Top=30
Width=769
Height=335
Align=5
Color=16777215
WinStyle=1
Layout=""
Point(onMouseWheel)
Point(doSetFocus)
link(onMouseWheel,4571729:doWork1,[(191,111)(191,147)(86,147)])
}
END_SDK
Add(ChildPanel,3318256,504,140)
{
@Hint=#7:Toolbar|
@Color=16755285
AddHint(-120,22,51,13,@Hint)
}
BEGIN_SDK
Add(EditMulti,5708489,21,21)
{
EventCount=11
WorkCount=2
DataCount=2
VarCount=3
Width=1098
Height=711
link(Var1,7277792:CurrentColor,[(27,386)(195,386)])
}
Add(Panel,4415339,42,42)
{
Width=769
Height=30
Align=2
Color=16777215
WinStyle=1
Layout="parent.main"
WidthScale=100
HeightScale=11
BevelInner=0
BevelOuter=2
}
Add(FontBox,8317766,301,364)
{
Left=55
Top=2
Width=150
Height=21
Font=[Segoe UI,8,0,0,1]
SelFont="Segoe UI"
link(onResult,11288039:doWork2,[])
}
Add(ColorBox,7277792,189,63)
{
Left=259
Top=2
Width=60
Height=21
Font=[MS Sans Serif,2,0,0,1]
Layout="Loy2"
TypeListColors=1
ItemHeight=18
link(onClick,4049309:doData,[])
}
Add(DoData,4049309,238,63)
{
Data=String(0)
link(onEventData,16343502:doWork2,[])
}
Add(ComboBox,12950858,336,308)
{
Left=207
Top=2
Width=50
Height=21
Font=[MS Sans Serif,10,0,0,1]
Strings=#1:8|1:9|2:10|2:11|2:13|2:15|2:17|2:19|2:21|2:23|2:25|2:27|2:29|2:31|2:33|2:35|2:37|2:39|2:41|2:43|2:45|2:47|2:49|2:51|2:53|2:55|2:57|2:59|2:61|2:63|2:65|2:67|2:69|2:71|2:73|2:75|2:77|2:79|2:81|2:83|2:85|2:87|2:89|2:91|2:93|2:95|2:97|3:100|3:125|3:150|3:175|3:200|3:225|3:250|3:275|3:300|0:|
Text="10"
link(onClick,11288039:doWork1,[(380,321)])
}
Add(InlineCode,9130332,294,455)
{
WorkPoints=#11:doFormatSel|
DataPoints=#7:PHandle|8:FontName|8:FontSize|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|0:|12: PHandle,|10: Color,|10: Style,|13: FontName,|24: FontSize: THI_Event;|4: |58: procedure doFormatSel(var _Data: TData; Index: word); |5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.doFormatSel;|3:var|21: sControl: PControl;|10: p: byte;|12: s: string;|13: i: integer;|0:|5:begin|48: sControl := PControl(ToIntegerEvent(PHandle));|38: if not Assigned(sControl) then exit;|2: |64: if (sControl.SelLength <> 0) then {no valid selection -> quit}|7: begin|82: sControl.RE_CharFmtArea := raSelection; {apply attribute(s) only to selection}|58: sControl.RE_FmtFontColor := ReadInteger(_Data, Color);|0:|35: p := ReadInteger(_Data, Style);|39: sControl.RE_FmtBold := p and 1 > 0;|41: sControl.RE_FmtItalic := p and 2 > 0;|44: sControl.RE_FmtUnderline := p and 4 > 0;|37: s := ReadString(_Data, FontName);|20: if s <> '' then|35: sControl.RE_FmtFontName := s;|43: i := ReadInteger(_Data, FontSize) * 20;|20: if i <> 0 then |36: sControl.RE_FmtFontSize := i; |6: end;|4:end;|0:|4:end.|
link(PHandle,5708489:Data1,[(300,172)(27,172)])
link(FontName,8317766:CurrentFont,[])
link(FontSize,12950858:String,[(314,404)(349,404)])
}
Add(DoData,4926556,245,455)
{
link(onEventData,9130332:doFormatSel,[])
}
Add(HubEx,11288039,376,364)
{
Angle=1
link(onEvent,4926556:doData,[(380,395)(233,395)(233,461)])
}
Add(ButtonRush,9303883,91,21)
{
Left=2
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FF5148326CC1116E2071744C897E52DD40AC5E42FAF1B991907E5CE611E37F7C7691E2B751483C0400A89AD624],''=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FF5148326CC1116E2071744C897E52DD40AC5E42FAF1B991907E5CE611E37F7C7691E2B751483C0400A89AD624],'Bitmap'=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FF5148326CC1116E2071744C897E52DD40AC5E42FAF1B991907E5CE611E37F7C7691E2B751483C0400A89AD624]]
link(onClick,5708489:onEvent1,[])
}
Add(ButtonRush,16569831,133,28)
{
Left=26
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIP3604000078DA73F235636600033320D600620128666490804840E591C17F86FFC300B590E8114CF5401164448CE1A4AA47D642A4F9702DF8DD8FA606AB81B85C3B8A4634040030CB55A9],''=[ZIP3604000078DA73F235636600033320D600620128666490804840E591C17F86FFC300B590E8114CF5401164448CE1A4AA47D642A4F9702DF8DD8FA606AB81B85C3B8A4634040030CB55A9],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804840E591C17F86FFC300B590E8114CF5401164448CE1A4AA47D642A4F9702DF8DD8FA606AB81B85C3B8A4634040030CB55A9]]
link(onClick,5708489:onEvent2,[])
}
Add(ButtonRush,10197097,427,476)
{
Left=435
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F450440567F050720D53DD4F26F28110059BD16118016E18F4B3D31614E4CF8E38A0B52D3C3000206B200EDCC196C805ABE181EA1319A7EE80C005061D23F],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F450440567F050720D53DD4F26F28110059BD16118016E18F4B3D31614E4CF8E38A0B52D3032D93E6C88600EBF5B441],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F450440567F050720D53DD4F26F28110059BD16118016E18F4B3D31614E4CF8E38A0B52D3032D93E6C88600EBF5B441]]
link(onClick,16428166:doEvent1,[])
}
Add(ButtonRush,2004117,427,518)
{
Left=459
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F450440567F850840897B4805A1440064F55A4480D1F01F10C04016A09D39830D50CB17C3233446D30F9D0100E7F8B457],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F450440567F850840897B4805A1440064F55A4480D1F0A74DD21CD91000C6699659],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F450440567F850840897B4805A1440064F55A4480D1F0A74DD21CD91000C6699659]]
link(onClick,13546278:doEvent1,[])
}
Add(ButtonRush,9247618,427,560)
{
Left=483
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F4504C065D7151C8054B751E2DF502200B27A2D2200ADE302977A62C2FF0A118092F4308080812C403B73061BA0962F8647688CA61F3A03001E4ED23F],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F4504C065D7151C8054B751E2DF502200B27A2D2200ADE302977A62C2FF0A118092F440CBA439B22100B9E2B441],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFCA70B60200220AB5F4504C065D7151C8054B751E2DF502200B27A2D2200ADE302977A62C2FF0A118092F440CBA439B22100B9E2B441]]
link(onClick,12609769:doEvent1,[])
}
Add(KeyEvent,5284092,504,483)
{
Code=76
Ctrl=1
link(Handle,8591610:Var2,[])
}
Add(Hub,16428166,476,476)
{
link(onEvent1,8713718:doWork2,[])
link(onEvent2,5284092:doPress,[])
}
Add(KeyEvent,8194314,504,525)
{
Code=69
Ctrl=1
link(Handle,3207450:Var1,[(510,475)(501,475)(501,425)])
}
Add(Hub,13546278,476,518)
{
link(onEvent1,8713718:doWork3,[(557,524)])
link(onEvent2,8194314:doPress,[])
}
Add(HubEx,8713718,553,476)
{
link(onEvent,6642673:doWork2,[])
}
Add(KeyEvent,11339097,504,567)
{
Code=82
Ctrl=1
link(Handle,8591610:Var1,[(510,507)(501,507)(501,446)])
}
Add(Hub,12609769,476,560)
{
link(onEvent1,6642673:doWork3,[(571,566)])
link(onEvent2,11339097:doPress,[])
}
Add(HubEx,6642673,567,476)
{
link(onEvent,14753437:doWork2,[])
}
Add(GetDataEx,3207450,504,420)
{
link(Data,7281740:Var2,[])
}
Add(GetDataEx,8591610,504,441)
{
link(Data,3207450:Var2,[])
}
Add(ButtonRush,8264596,308,98)
{
Left=325
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFC1F4660D5AA550C48808383232F2FEFE3C78FF8D5CBC8C8848686868484282929313333777474E0570F540CE13E79F204C8B5B5B5C5AFDED2D212C858B97265414101905B565646A4FB81405757F7E5CB97C4B8DFCFCF8F9B9B5B4747E7C58B1744BABFAAAA0AC85DBF7E3D31EE5FBC78B18989090B0BCB91234788743F3B3BBBAFAFEFA74F9F70A97FFCF8F12A24B063C78EB76FDF0EB644C54016A09D3943317CE869CE68FA19EA2146120000E8AB0C02],''=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFC1F4660D5AA550C48808383232F2FEFE3C78FF8D5CBC8C8848686868484282929313333777474E0570F540CE13E79F204C8B5B5B5C5AFDED2D212C858B97265414101905B565646A4FB81405757F7E5CB97C4B8DFCFCF8F9B9B5B4747E7C58B1744BABFAAAA0AC85DBF7E3D31EE5FBC78B18989090B0BCB91234788743F3B3BBBAFAFEFA74F9F70A97FFCF8F12A24B063C78EB76FDFD23BD1308C6C0800CBFDEDF5],'Bitmap'=[ZIP3604000078DA73F235636600033320D600620128666490804800E58FF041300CFC1F4660D5AA550C48808383232F2FEFE3C78FF8D5CBC8C8848686868484282929313333777474E0570F540CE13E79F204C8B5B5B5C5AFDED2D212C858B97265414101905B565646A4FB81405757F7E5CB97C4B8DFCFCF8F9B9B5B4747E7C58B1744BABFAAAA0AC85DBF7E3D31EE5FBC78B18989090B0BCB91234788743F3B3BBBAFAFEFA74F9F70A97FFCF8F12A24B063C78EB76FDFD23BD1308C6C0800CBFDEDF5]]
link(onClick,2444501:doData,[])
}
Add(ButtonRush,14797015,308,133)
{
Left=349
Top=2
Width=24
Height=24
ColorTo=16777215
BorderColor=16777215
ColorFromOver=15780518
Caption=""
Glyphs=[''=[ZIPF606000078DA73F235636600033320D600620128666490804800E58FF041300CFC1F468001155CB97285BAEA81E0EBD7AFC2C2C25C5C5C6FDEBC21D25515151540C3DBDBDB89547FFCF8717E7E7E7373F30F1F3E10A3FEDBB76F5656569C9C9C478F1E25D28AF5EBD7333232060404FCFBF78FA0E263C78E050606323333B3B0B0040505858686E257BF6AD52AB480C5AFFEF1E3C7AB50C1604E544402DA9933C8331DD9BE181EA1319A7EE80C005A913F0B],''=[ZIP3604000078DA73F235636600033320D6006201286
[size=9]--- Добавлено в 2018-03-05 21:49:48[/size]
Помимо всех прочих минусов ChildScrollBox конфликтует с лаяутами.
[size=9]--- Добавлено в 2018-03-05 21:51:09[/size]
Помимо всех прочих минусов, ChildScrollBox конфликтует с лаяутами
Поиск
Друзья
Администрация