Вверх ↑
Ответов: 207
Рейтинг: 14
#1: 2020-03-25 12:28:14 ЛС | профиль | цитата
Netspirit, Спасибо помогло
ArrayFilterRepeats не работает в FPC-32, FPC-64, FPC-32U, FPC-64U

Add(MainForm,11343095,70,203)
{
Width=716
Height=601
Caption=""
link(onCreate,12175623:doTimer,[])
}
Add(HBoxLayout,12018231,182,119)
{
Name="1"
HeightScale=100
Layout="2"
}
Add(ChildPanelRush,4428017,203,294)
{
link(onClick,15468205:doFilter,[])
}
BEGIN_SDK
Add(EditMultiEx,3297653,21,21)
{
EventCount=#7:onClick|
}
Add(PanelRush,15740849,35,105)
{
Width=700
Height=30
Align=2
Layout="parent.2"
ColorFrom=15780518
ColorShadow=15780518
Glyphs=[]
}
Add(ButtonRush,8854872,217,84)
{
Left=10
Top=5
Width=95
Height=20
ColorTo=16777215
ColorToOver=16777215
ShadowOffsetOver=0
BorderWidthOver=0
ColorFromDown=-16777194
ColorToDown=-16777194
BorderColorDown=0
ShadowOffsetDown=0
BorderWidthDown=0
Caption="Удалить дубли"
Glyphs=[]
link(onClick,3297653:onClick,[(285,90)(285,27)])
}
END_SDK
Add(VBoxLayout,791585,245,119)
{
Name="2"
}
Add(ArrayFilterRepeats,15468205,266,294)
{
link(onFilter,11054763:doAdd,[])
link(Array,8679338:Array,[])
}
Add(Memo,8679338,252,217)
{
Left=220
Top=220
Ctl3D=1
Layout="1"
WidthScale=50
ScrollBars=3
}
Add(Memo,11054763,336,294)
{
Left=300
Top=220
Ctl3D=1
Layout="1"
WidthScale=50
ScrollBars=3
}
Add(Random,5419902,182,217)
{
Max=10
link(onRandom,8679338:doAdd,[])
}
Add(Timer,12175623,126,217)
{
Interval=0
Enable=1
AutoStop=10
link(onTimer,5419902:doRandom,[])
}
карма: 2

0