Просто когда ставишь в свойствах скролбакс=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:
Уже не нужно. Сделал по грязному
|