Вверх ↑
Этот топик читают: Гость
Ответов: 1173
Рейтинг: 49
#16: 2012-06-02 00:03:06 ЛС | профиль | цитата
mmmmm писал(а):
Всегда, если нужен редактор текста, беру Richedit
Забиваешь гвозди микроскопом?
карма: 0

0
Ответов: 305
Рейтинг: 4
#17: 2012-06-02 03:51:00 ЛС | профиль | цитата
Просто когда ставишь в свойствах скролбакс=Both, то в мемо полоса прокрутки заранее видна. Ну то есть когда даже текста нету. А это не есть красиво
------------ Дoбавленo в 00.44:
Поможете сделать?
Как тут:

Add(ListBox,16239104,378,182)
{
Left=5
Top=10
Width=75
Height=195
Strings=#6:Вася=2|6:Ваня=1|6:Саня=1|
Point(onSelect)
Point(doSelectString)
Point(Index)
}
Add(StrCat,4402660,273,224)
{
Str2="*"
link(onStrCat,15161910:doEvent1,[])
link(Str1,7739115:Var2,[])
}
Add(Button,3525009,196,224)
{
Left=90
Top=10
Caption="add"
link(onClick,4402660:doStrCat,[])
}
Add(Edit,12158002,273,56)
{
Left=155
Top=10
Text="Петя"
}
Add(Edit,16657581,315,56)
{
Left=155
Top=40
Text="3"
DataType=1
}
Add(Label,3014191,175,56)
{
Left=210
Top=45
Width=278
Height=17
Caption="Число, после достижения которого строка удаляется"
}
Add(Label,10173721,224,56)
{
Left=210
Top=15
Width=113
Height=17
Caption="Добавляемая строка"
}
Add(If_else,6596956,378,273)
{
Op2=Integer(-1)
link(onTrue,13975902:doStrCatDlm,[(425,279)(425,167)(290,167)(290,188)])
link(onFalse,13364099:doRead,[(432,286)(432,279)])
link(Op1,2010783:Var1,[(384,252)])
}
Add(Hub,15161910,350,224)
{
link(onEvent1,16239104:doSelectString,[])
link(onEvent2,6596956:doCompare,[(371,237)(371,279)])
}
Add(StrCatDelim,13975902,301,182)
{
Delimiter="="
Str2="1"
link(onStrCatDlm,16239104:doAdd,[])
link(Str1,7739115:Var3,[(307,138)])
}
Add(GetDataEx,7739115,273,133)
{
link(Data,12158002:Text,[])
}
Add(ArrayRW,13364099,455,273)
{
link(onRead,10164957:doSplit,[])
link(Array,16239104:Array,[(461,242)(398,242)])
link(Index,6001754:Var2,[])
}
Add(GetDataEx,2010783,399,247)
{
link(Data,16239104:Index,[])
}
Add(MultiStrData,10164957,504,273)
{
Char="="
link(onPart1,13571989:doValue,[])
link(onPart2,11188889:doConvert,[(546,286)(546,321)])
}
Add(Memory,13571989,763,273)
{
}
Add(If_else,1078469,609,315)
{
Type=1
link(onTrue,3205933:doOperation,[])
link(onFalse,12782198:doData,[])
link(Op2,16657581:Text,[(622,123)(321,123)])
}
Add(ConvertorEx,11188889,560,315)
{
Mode=1
link(onResult,1078469:doCompare,[])
}
Add(Math,3205933,714,315)
{
Op2=1
ResultType=0
link(onResult,380758:doStrCatDlm,[])
}
Add(StrCatDelim,380758,763,315)
{
Delimiter="="
link(onStrCatDlm,13364099:doWrite,[(809,321)(809,374)(443,374)(443,286)])
link(Str1,13571989:Value,[])
}
Add(DoData,12782198,658,322)
{
link(onEventData,16239104:doDelete,[(699,328)(699,385)(340,385)(340,202)])
link(Data,6001754:Var3,[(664,252)])
}
Add(GetDataEx,6001754,462,247)
{
Angle=3
link(Data,2010783:Var3,[])
}



Только вместо ListBox - Memo
------------ Дoбавленo в 03.51:
Уже не нужно. Сделал по грязному
карма: 0

0
Ответов: 1376
Рейтинг: 197
#18: 2012-06-02 06:34:38 ЛС | профиль | цитата
mmmmm писал(а):
вместо ListBox - Memo
Нате в Memo
code_28061.txt
карма: 1

1
файлы: 1code_28061.txt [2.4KB] [116]
Голосовали:mmmmm
18
Сообщение
...
Прикрепленные файлы
(файлы не залиты)