Вверх ↑
Ответов: 866
Рейтинг: 186
#1: 2025-02-21 07:36:27 ЛС | профиль | цитата
strannik_nebes писал(а):
можно

Очень интересно. Как посмотреть на твой вариант?
У меня пока вышло так. Может кто-нибудь предложит другой способ.
Add(MainForm,12660147,455,294)
{
Width=818
Height=297
Caption="Table control"
link(onCreate,9983747:doEnum,[])
}
Add(DocumentTemplate,3449277,665,427)
{
Name="doc"
link(Bitmap,13572165:Bitmap,[(671,418)(657,418)(657,467)(622,467)])
}
BEGIN_SDK
Add(Print_Table,8755987,97,-3)
{
Name="table"
X=100
Width=200
Height=1000
Columns=#6:1|70|0|6:2|70|0|6:3|70|0|0:|
RowHeight=30
TableTrans=0
TBorderStyle=5
HeadFont=[Lucida Console,12,0,0,204]
Visible=1
CellFont=[Lucida Console,12,0,0,204]
CellTrans=0
Left=3
Top=3
Right=3
Bottom=3
MakeExt(Cells,,Cells)
}
Add(Print_Table,5727864,-3,-3)
{
Name="table1"
Width=100
Height=1000
Columns=#15:Заголовок|100|0|0:|
RowHeight=150
TableTrans=0
TBorderStyle=5
HeadFont=[Lucida Console,12,0,0,204]
Visible=1
CellFont=[Lucida Console,12,0,0,204]
CellTrans=0
Left=3
Top=3
Right=3
Bottom=3
MakeExt(Cells,,Cells)
}
END_SDK
Add(PC_TableSetCell,1103495,728,308)
{
ItemName="table"
Document="doc"
link(Col,1347018:Index,[(741,299)(720,299)(720,348)(678,348)])
link(Row,9983747:Index,[(748,292)(657,292)(657,348)(517,348)])
}
Add(PaintBox,13572165,616,427)
{
Top=20
Width=301
Height=151
Color=16777215
Layout="horz"
WidthScale=100
HeightScale=100
ClearBeforeDraw=0
link(onBeforeDraw,3449277:doDraw,[])
}
Add(PC_TableRow,13488397,616,266)
{
ItemName="table"
Document="doc"
}
Add(ArrayEnum,9983747,504,308)
{
link(onItem,5061120:doEvent1,[])
link(onEndEnum,1589760:doEvent1,[(543,321)(543,370)])
link(Array,3068266:Array,[])
}
Add(Hub,5061120,560,308)
{
link(onEvent1,13488397:doAddRow,[(585,314)(585,272)])
link(onEvent2,15383616:doMT,[])
}
Add(MT_Enum,1347018,665,308)
{
link(onItem,1103495:doText,[])
}
Add(MT_String,15383616,616,308)
{
link(onResult,1347018:doEnum,[])
}
Add(PC_MouseEnter,1181879,434,182)
{
NamedList=#6:table1|0:|
Document="doc"
Point(onMouseLeave)
link(onMouseEnter,3709936:doData,[])
link(MouseX,9667232:MouseX,[])
link(MouseY,9667232:MouseY,[])
}
Add(MouseEvent,9667232,434,133)
{
}
Add(Timer,4722024,224,175)
{
Interval=100
link(onTimer,5470852:doReadKey,[])
}
Add(Keyboard,5470852,273,175)
{
Key=1
link(onReadKey,11876973:doData,[])
}
Add(PC_TableRow,5764646,616,364)
{
ItemName="table1"
Document="doc"
link(onAddRow,10242768:doText,[])
}
Add(Hub,1589760,560,364)
{
link(onEvent1,5764646:doAddRow,[])
link(onEvent2,13572165:doRefresh,[(606,377)(606,433)])
}
Add(PC_TableSetCell,10242768,665,364)
{
ItemName="table1"
Document="doc"
Text="Заголовок"
}
Add(StrList,3068266,490,231)
{
Strings=#15:Петров;Москва;1|14:Иванов;Минск;2|14:Сидоров;Киев;3|15:Смирнов;Киров;4|16:Малевич;Сидней;5|
Point(doGetIndex)
Point(onGetIndex)
}
Add(DoData,3709936,490,182)
{
link(onEventData,11792066:doAdd,[])
link(Data,3068266:Text,[(496,173)(482,173)(482,278)(496,278)])
}
Add(Memo,11792066,553,182)
{
Left=395
Top=10
Width=383
Height=221
Font=[Lucida Console,12,0,0,204]
Antialiased=1
ScrollBars=3
}
Add(Case,7356099,371,175)
{
Value=Integer(1)
link(onTrue,1181879:doCheck,[])
}
Add(ChangeMon,11876973,322,175)
{
link(onData,7356099:doCase,[])
}

карма: 18

0
Редактировалось 2 раз(а), последний 2025-02-21 07:44:04