code_20383.txtчастично поправил. добавляет, высота почему-то не влияет.
------------ Дoбавленo в 15.09:
Add(MainForm,11507326,511,350) { Left=20 Top=105 Width=790 Height=503 Point(MouseX) Point(MouseY) Point(onResize) Point(Handle) link(onCreate,16299401:doEvent1,[]) } Add(GL_Main,12986311,602,364) { Color=12639424 TwoSide=0 link(onInit,4593655:doInit,[(650,370)(650,342)]) link(onViewPort,2663059:doPerspective,[]) link(Handle,5517251:Handle,[]) } Add(Timer,9506849,511,441) { Interval=10 Enable=1 link(onTimer,1049454:doEvent1,[]) } Add(GL_GTools,771925,609,441) { Point(doClear) Point(doPushMatrix) Point(doPopMatrix) } Add(Hub,1049454,553,441) { OutCount=5 link(onEvent1,771925:doClear,[]) link(onEvent2,771925:doPushMatrix,[]) link(onEvent3,11649832:doPushMatrix,[]) link(onEvent4,771925:doPopMatrix,[(580,468)(580,461)]) link(onEvent5,12986311:doFlip,[(595,475)(595,384)]) } Add(Hub,16299401,560,364) { OutCount=4 link(onEvent1,12986311:doInit,[]) link(onEvent2,12986311:doViewPort,[]) link(onEvent3,8428433:In,[(592,384)(592,412)]) link(onEvent4,9506849:doTimer,[(586,391)(586,419)(499,419)(499,447)]) } Add(GL_GluTools,4593655,665,336) { Texture=0 } Add(PaintBox,5517251,595,308) { Left=95 Top=10 Width=675 Height=380 Color=16777215 Ctl3D=0 Point(Handle) Point(onMouseMove) Point(MouseX) Point(MouseY) } Add(GL_GTools,12486325,1176,462) { Point(doPopMatrix) link(onEvent,14205523:doPushAttrib,[]) } Add(Math,2154256,952,525) { OpType=2 Op2=-3 link(Op1,3352501:Count,[(958,515)(860,515)]) } Add(GL_GTools,15299083,931,462) { Point(doPushMatrix) link(onEvent,8079493:doRotate,[]) } Add(GL_GTools,11649832,721,455) { Point(doPushMatrix) link(onEvent,2564517:doEnum,[]) } Add(GL_Rotate,8079493,973,462) { Angle=30 Y=200 link(onRotate,858408:doTranslate,[]) link(Angle,3291853:Position,[]) } Add(TrackBar,3291853,973,399) { Left=85 Top=395 Width=685 Height=15 Max=30 Min=10 Position=30 ThumbLength=10 link(onPosition,3291853:doPosition2,[(1016,405)(1016,388)(961,388)(961,412)]) } Add(Gl_Translate,858408,1029,462) { Y=-1.2 link(onTranslate,683218:doScale,[]) link(X,2154256:Result,[(1035,450)(1021,450)(1021,573)(958,573)]) } Add(Gl_Scale,683218,1078,462) { X=0.001 Y=0.001 Z=0.001 link(onScale,15959241:doDraw,[]) } Add(GL_Cube2,15959241,1120,462) { link(onDraw,12486325:doPopMatrix,[]) link(Point1,10506615:Point3D,[(1126,436)(1098,436)]) link(Point2,5206949:Point3D,[(1133,436)(1154,436)]) } Add(GL_Point3D,10506615,1092,378) { link(X,3853395:Left,[(1098,366)(1028,366)]) link(Y,16046090:Left,[(1105,361)(1070,361)]) link(Z,13214874:Left,[]) } Add(GL_Point3D,5206949,1148,378) { link(X,1244542:Left,[]) link(Y,3850866:Left,[(1161,366)(1196,366)]) link(Z,10550480:Left,[(1168,369)(1238,369)]) } Add(StrList,2315546,756,371) { Strings=#19:16/2500/600/0/100/0|20:1400/116/600/0/100/0|24:1416/2500/600/1400/100/0|22:1400/2516/600/0/2500/0|20:1400/100/580/0/0/596|0:| Point(IdxToSelect) Point(doAppend) } Add(StrPart,16046090,1064,322) { Char="/" Point(Left) link(onSplit,13214874:doSplit,[]) } Add(StrPart,13214874,1106,322) { Char="/" Point(Left) link(onSplit,1244542:doSplit,[]) } Add(StrPart,1244542,1148,322) { Char="/" Point(Left) link(onSplit,3850866:doSplit,[]) } Add(StrPart,3853395,1022,322) { Char="/" Point(Left) link(onSplit,16046090:doSplit,[]) } Add(StrPart,3850866,1190,322) { Char="/" Point(Left) link(onSplit,10550480:doSplit,[]) } Add(StrPart,10550480,1232,322) { Char="/" Point(Left) } Add(GL_Perspective,2663059,665,371) { Aspect=2 Fovy=30 } Add(GL_Options,8534874,1407,462) { Flag=1 link(onEvent,3648421:doEnabled,[]) } Add(GL_Light,3648421,1477,462) { Ambient=8421504 Diffuse=12632256 Specular=15793151 link(onEnabled,3648421:doMove,[(1519,468)(1519,452)(1467,452)(1467,475)]) link(Point,557343:Point3D,[]) } Add(GL_Point3D,557343,1477,406) { Y=1 Z=-1 } Add(GL_Options,2814103,1337,462) { Flag=2 link(onEvent,8534874:doEnabled,[]) } Add(GL_GTools,14205523,1239,462) { Point(doPushAttrib) link(onEvent,2728179:doEnabled,[]) } Add(GL_Options,2728179,1288,462) { link(onEvent,2814103:doEnabled,[]) } Add(Hub,14458048,819,455) { link(onEvent1,3853395:doSplit,[(844,461)(844,328)]) link(onEvent2,3352501:doNext,[]) } Add(ArrayEnum,2564517,770,455) { link(onItem,14458048:doEvent1,[]) link(Array,2315546:Array,[]) } Add(Counter,3352501,854,462) { link(onNext,11170192:doEvent1,[]) } Add(Hub,11170192,896,462) { OutCount=3 link(onEvent1,15299083:doPushMatrix,[]) link(onEvent2,2154256:doOperation,[(928,475)(928,531)]) link(onEvent3,3352501:doReset,[(917,482)(917,503)(842,503)(842,482)]) } Add(Edit,3303364,616,497) { Left=10 Top=185 Width=70 Height=30 Font=[MS Sans Serif,10,0,0,1] Cursor=2 TabOrder=1 WinStyle=2 Hint="Длина" Text="" DataType=2 Point(doSetFocus) Point(doSelectAll) link(onEnter,8598128:doEvent1,[]) } Add(Edit,13038117,609,546) { Left=10 Top=240 Width=70 Height=30 Font=[MS Sans Serif,10,0,0,1] Cursor=2 TabOrder=2 WinStyle=2 Hint="Высота" Text="" DataType=2 Point(doSetFocus) Point(doSelectAll) link(onEnter,9520200:doEvent1,[]) } Add(Edit,509836,602,602) { Left=10 Top=295 Width=70 Height=30 Font=[MS Sans Serif,10,0,0,1] Cursor=2 TabOrder=3 WinStyle=2 Hint="Глубина" Text="" DataType=2 Point(doSetFocus) Point(doSelectAll) link(onEnter,1837202:doEvent1,[]) } Add(FormatStr,6609669,602,714) { DataCount=7 Mask="%3/60/%1/0/0/%6, %3/76/%1/0/60/0, %3/%2/%1/0/%5/0, 16/%5/%1/0/76/0, %3/%5/%1/%4/76/0
" link(onFString,2315546:doText,[(705,720)(705,398)]) link(Str1,643236:Var2,[]) link(Str2,4323492:Var2,[]) link(Str3,8095455:Var2,[]) link(Str4,9635531:Result,[(629,672)(755,672)]) link(Str5,15464659:Result,[(636,681)(769,681)]) link(Str6,15905324:Result,[(643,706)(783,706)]) } Add(Button,6835065,504,707) { Left=10 Top=340 Width=70 Height=25 TabOrder=4 Hint="Внести" Caption="ОК" Point(doSetFocus) Point(onKeyDown) link(onClick,8360535:doEvent1,[]) } Add(Hub,8360535,553,707) { OutCount=3 link(onEvent1,2315546:doClear,[(703,713)(703,384)]) link(onEvent2,6609669:doString,[]) link(onEvent3,1069519:doEvent2,[(580,727)(580,655)(548,655)(548,524)]) } Add(PointHint,1166248,490,490) { Info=#6:Ширина| Transparent=0 Width=50 Height=18 } Add(PointHint,11440788,490,546) { Info=#6:Высота| Transparent=0 Width=50 Height=18 } Add(Hub,8598128,658,504) { link(onEvent1,3303364:doText2,[(684,510)(684,481)(604,481)(604,510)]) link(onEvent2,16630525:doEvent1,[(684,517)(684,534)(562,534)(562,566)]) } Add(Hub,16630525,574,560) { link(onEvent1,13038117:doSetFocus,[]) link(onEvent2,13038117:doSelectAll,[]) } Add(Hub,9520200,658,553) { link(onEvent1,13038117:doText2,[(685,559)(685,540)(597,540)(597,559)]) link(onEvent2,10576681:doEvent1,[(682,566)(682,585)(555,585)(555,622)]) } Add(Hub,1837202,658,609) { link(onEvent1,509836:doText2,[(681,615)(681,595)(590,595)(590,615)]) link(onEvent2,9635531:doOperation,[(710,622)(710,573)]) } Add(Hub,10576681,567,616) { link(onEvent1,509836:doSetFocus,[]) link(onEvent2,509836:doSelectAll,[]) } Add(Hub,1069519,574,511) { InCount=2 link(onEvent1,3303364:doSetFocus,[]) link(onEvent2,3303364:doSelectAll,[]) } Add(LineBreak,9318275,511,511) { link(Out,1069519:doEvent1,[]) Primary=[8428433,91,-105] } Add(Label,13195878,490,245) { Left=15 Top=160 Width=66 Height=24 Font=[MS Sans Serif,12,2,0,1] Caption="Ширина " } Add(Label,16750562,502,247) { Left=15 Top=215 Width=61 Height=24 Font=[MS Sans Serif,12,2,0,1] Caption="Высота" } Add(Label,11121490,514,247) { Left=10 Top=270 Width=70 Height=24 Font=[MS Sans Serif,12,2,0,1] Caption="Глубина " } Add(Math,9635531,749,567) { OpType=1 Op2=16 ResultType=0 link(onResult,15464659:doOperation,[(793,573)(793,597)(751,597)(751,622)]) link(Op1,8095455:Var3,[(755,537)]) } Add(Math,15464659,763,616) { OpType=1 Op2=16 ResultType=0 link(onResult,15905324:doOperation,[(807,622)(807,646)(765,646)(765,671)]) link(Op1,4323492:Var3,[(769,593)]) } Add(GetDataEx,8095455,616,532) { link(Data,3303364:Text,[]) } Add(GetDataEx,13172875,609,581) { link(Data,13038117:Text,[]) } Add(Math,15905324,777,665) { OpType=1 Op2=100 link(onResult,6835065:doSetFocus,[(821,671)(821,689)(492,689)(492,713)]) link(Op1,643236:Var3,[(783,656)]) } Add(GetDataEx,643236,602,651) { link(Data,509836:Text,[]) } Add(GetDataEx,4323492,609,588) { link(Data,13172875:Var2,[]) }
вот так и высота работает. а чтобы добавить то что программа вначале выводит - надо не 1 бокс добавлять а 4.
------------ Дoбавленo в 15.11:
а вообще - то там и добавляется 4 бокса, только у одного координаты неправильные.
|