У меня давно были сделаны привязки к краям и в компонентах я ничего тогда не переделывал только в Win и Windows.pas. и всё работало. Проблема в Win.pas. У меня сохранились старые. Завтра посмотрю чем отличаются, я имею в виду не старые с SVN, а свои.
А то что я предложил это конечно костыль...
P.S.
попробуй с твоим решением и пустым Caption вписать извне слово, длиннее слова Label (при включенном AutoSize и Anchors akBottom и akRight = True), а потом изменить размер формы -- размер элемента Label улетит к размеру слова Label
Всё работает, но это не комильфо:
Add(MainForm,2953706,21,105)
{
}
Add(Label,3087497,294,126)
{
Left=15
Top=110
Width=4
Height=4
akLeft=1
akTop=1
akRight=0
akBottom=0
Caption=""
}
Add(Counter,15780423,140,147)
{
Max=3
link(onNext,12830795:doGetString,[])
}
Add(Timer,8178503,77,147)
{
link(onTimer,15780423:doNext,[])
}
Add(StrList,12830795,189,119)
{
Strings=#11:Это я знаю.|35:Не очень удобно AutoSize отключать.|59:Достаточно вот здесь: Control := NewLabel(Parent, 'Label');|49:точку, или пробел поставить вместо пустой строки.|0:|
Point(doGetString)
Point(onGetString)
link(onGetString,3087497:doText,[])
}
Поиск
Друзья
Администрация