Форматировать текст больше чем 10479 символов.

Вверх ↑

Форумы Помощь по пакетуФорматировать текст больше чем 10479 символов. ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 2059

Рейтинг: 131

#16: 2017-01-09 20:49:01 ЛС | профиль | цитата

Кусками, чего тут думать.

карма: 6

Голосовали:

Vadimluk1

Ответов: 632

Рейтинг: 4

#17: 2017-01-09 20:56:47 ЛС | профиль | цитата

Как в самой программе засунуть весь текст?

карма: 0

Ответов: 2059

Рейтинг: 131

#18: 2017-01-09 21:15:30 ЛС | профиль | цитата

Подозреваю, что в exe никак.
Вернее в StrList не стоит пробовать, в стрим наверное тоже.
А из файла грузить нельзя?

карма: 6

Голосовали:

Vadimluk1

Ответов: 632

Рейтинг: 4

#19: 2017-01-09 21:21:01 ЛС | профиль | цитата

Уже пробую, но пока нет положительных результатов.

--- Добавлено в 2017-01-09 21:27:13

Нужно сделать переносы. Нет идей как сделать автоматически?

--- Добавлено в 2017-01-09 21:29:21

В интернете не чего не нашёл.

Редактировалось 2 раз(а), последний 2017-01-09 21:29:21

карма: 0

Ответов: 2059

Рейтинг: 131

#20: 2017-01-09 21:38:19 ЛС | профиль | цитата

Какие переносы? По слогам что-ли?

У тебя текст и так на строки разбит, в смысле 13,10.

карма: 6

Голосовали:

Vadimluk1

Ответов: 632

Рейтинг: 4

#21: 2017-01-09 21:40:06 ЛС | профиль | цитата

Когда по одной строчке подаёшь, в массивах он подаёт больше строчки, и они не проходят.

--- Добавлено в 2017-01-09 21:41:15

http://lunnyy1svet.hopto.org/Загрузки/Project1.sha

--- Добавлено в 2017-01-09 21:44:49

http://lunnyy1svet.hopto.org/Загрузки/Цвет-1.css

Редактировалось 2 раз(а), последний 2017-01-09 21:44:49

карма: 0

Ответов: 2059

Рейтинг: 131

#22: 2017-01-09 21:46:55 ЛС | профиль | цитата

Ты в порядок схемы приводи!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Не хрена кроме кнопки не видно!
Left = 9999999
Top = 9999999
Чего ты рисуешь?
Из пустого в порожнюю гонять собираешься?
Ведь понятно, что компоненты больше определённого количества в ресурсах хранить не будут.

Редактировалось 1 раз(а), последний 2017-01-09 21:51:26

карма: 6

Голосовали:

Vadimluk1

Ответов: 632

Рейтинг: 4

#23: 2017-01-09 21:50:29 ЛС | профиль | цитата

Уже перезалил.

карма: 0

Ответов: 2059

Рейтинг: 131

#24: 2017-01-09 22:01:47 ЛС | профиль | цитата

Скоро приду, мне надо немного отвлечься.
Пока опиши общую задачу что надо.
Почему уже два текстовых редактора?

Редактировалось 1 раз(а), последний 2017-01-09 22:03:32

карма: 6

Голосовали:

Vadimluk1

Ответов: 632

Рейтинг: 4

#25: 2017-01-09 22:12:03 ЛС | профиль | цитата

Огромное спасибо за то, что уделили мне время!!! Все работает как надо!

карма: 0

Ответов: 2059

Рейтинг: 131

#26: 2017-01-09 22:23:47 ЛС | профиль | цитата

Замени одну Scintilla на StrList, раз это работает как буфер!
И второе не надо дублировать выходящий поток соединением с нижней точки.

сам принцип (чего-то в параметрах менял, но не важно)

Add(MainForm,6209034,105,98)
{
 Width=693
 Height=154
 Position=1
}
Add(Button,6201741,99,202)
{
 Left=10
 Width=725
 Caption="Сохранить "Цветовые изменения""
 link(onClick,15211278:doEvent1,[(178,208)(178,216)])
}
Add(Timer,5235466,239,160)
{
 Interval=200
 Enable=1
 AutoStop=7
 link(onTimer,6018325:doNext,[(283,166)(283,202)(241,202)(241,237)])
}
Add(FormatStr,12318447,239,97)
{
 DataCount=1
 Mask="%1Цвет-1.css"
 Point(FString)
 link(onFString,5827447:doLoad,[(321,103)(321,125)])
 link(Str1,2579013:Var2,[(245,79)])
}
Add(Hub,15211278,197,210)
{
 link(onEvent1,7320634:doData,[(223,216)(223,234)(164,234)(164,251)])
 link(onEvent2,5235466:doTimer,[(225,223)(225,166)])
}
Add(DoData,7320634,176,245)
{
 Data=String(-1)
 link(onEventData,6018325:doPrev,[(230,251)(230,244)])
}
Add(CounterEx,6018325,253,231)
{
 Max=6
 Default=-1
 Point(doPrev)
 link(onNext,8158321:doEvent,[(290,237)(290,202)])
}
Add(Hub,16372936,260,371)
{
 link(onEvent1,9258116:doClear,[(333,377)(333,398)])
 link(onEvent2,9258116:doOperation,[(333,384)(333,391)])
}
Add(IndexToChanel,8158321,295,196)
{
 Count=7
 Point(Index)
 link(onEvent1,5479158:In,[])
 link(onEvent2,12318447:doString,[(339,209)(339,156)(227,156)(227,103)])
 link(onEvent3,4084792:doData,[(335,216)(335,237)])
 link(onEvent4,4532554:doData,[(336,223)(336,279)])
 link(onEvent5,16372936:doEvent1,[(339,230)(339,268)(255,268)(255,377)])
 link(onEvent6,10383004:doTimer,[(363,237)(363,405)])
 link(onEvent7,15804342:doEvent1,[(339,244)(339,304)(248,304)(248,433)])
}
Add(DoData,4084792,344,231)
{
 link(onEventData,13346175:doMax,[])
}
Add(DoData,4532554,337,273)
{
 Data=String(-1)
 link(onEventData,13346175:doValue,[(377,279)(377,244)])
 link(Data,10141186:Var3,[(343,187)])
}
Add(Math,9258116,344,385)
{
 Op2=1
 Point(doClear)
 link(onResult,12066470:doEvent,[])
 link(Op1,10141186:Var2,[(350,228)(336,228)])
}
Add(Math,10549534,337,434)
{
 OpType=2
 Op2=200
 Point(doClear)
 link(onResult,6491666:doEvent1,[(373,440)(373,447)])
 link(Op1,9258116:Result,[(343,426)(350,426)])
}
Add(Hub,15804342,253,427)
{
 link(onEvent1,10549534:doClear,[(326,433)(326,447)])
 link(onEvent2,10549534:doOperation,[])
}
Add(Timer,11617900,449,441)
{
 Enable=1
 AutoStop=1
 Point(doInterval)
 link(onTimer,4072811:doString,[(510,447)(510,132)])
}
Add(Hub,6491666,378,441)
{
 link(onEvent1,11617900:doInterval,[(420,447)(420,461)])
 link(onEvent2,11617900:doTimer,[(420,454)(420,447)])
}
Add(Timer,10383004,441,399)
{
 Interval=200
 Enable=1
 Point(doAutoStop)
 link(onTimer,13346175:doNext,[(478,405)(478,279)(373,279)(373,230)])
}
Add(CounterEx,13346175,385,224)
{
 Max=0
 Default=-1
 Point(doMax)
 Point(doValue)
 link(onNext,7165985:doRead,[(425,230)(425,223)])
}
Add(LineBreak,323827,476,126)
{
 link(Out,13048213:doClear,[(519,132)(519,160)])
 Primary=[5479158,-133,70]
}
Add(ArrayRW,7165985,434,217)
{
 link(onRead,6426213:doEvent1,[(471,223)(471,216)])
 link(Array,5827447:Array,[(440,177)(391,177)])
}
Add(FormatStr,14082540,434,168)
{
 DataCount=5
 Mask=""
 Point(doMask)
 Point(FString)
 link(onFString,13048213:doAdd,[(498,174)(498,153)])
 link(Str1,15407881:Var2,[])
 link(Str2,1724052:Var2,[])
 link(Str3,1644127:Var2,[])
 link(Str4,3353527:Var2,[])
 link(Str5,3353527:Var3,[(468,138)])
}
Add(Hub,14925862,406,168)
{
 link(onEvent1,14082540:doMask,[(427,174)(427,181)])
 link(onEvent2,14082540:doString,[(427,181)(427,174)])
}
Add(FormatStr,4072811,581,126)
{
 DataCount=1
 Mask="%1template\Default\css\bootstrap.min.css"
 Point(FString)
 link(onFString,13048213:doSave,[(625,132)(625,160)(513,160)(513,188)])
 link(Str1,2579013:Var3,[(587,75)])
}
Add(Scintilla,13048213,525,147)
{
 Left=9999999
 Top=9999999
 Width=400
 Height=440
 Font=[Courier New,10,0,0,1]
 Visible=1
}
Add(Dir,250218,280,28)
{
}
Add(GetDataEx,2579013,280,70)
{
 link(Data,250218:CurrentDir,[])
}
Add(Memory,5374856,434,98)
{
 Default=String(#00FF40)
}
Add(GetDataEx,15407881,434,133)
{
 link(Data,5374856:Value,[])
}
Add(GetDataEx,1724052,441,133)
{
 Angle=3
 link(Data,15407881:Var3,[])
}
Add(GetDataEx,1644127,448,133)
{
 Angle=3
 link(Data,1724052:Var3,[])
}
Add(GetDataEx,3353527,455,133)
{
 Angle=3
 link(Data,1644127:Var3,[])
}
Add(Hub,6426213,476,210)
{
 link(onEvent1,14925862:doEvent1,[(495,216)(495,191)(394,191)(394,174)])
 link(onEvent2,2401166:doText,[(501,223)(501,237)])
}
Add(Memo,2401166,518,210)
{
 Left=5
 Top=25
 Width=670
}
Add(Debug,12066470,385,385)
{
 link(onEvent,10383004:doAutoStop,[(419,391)(419,419)])
}
Add(GetDataEx,10141186,330,182)
{
 link(Data,5827447:Count,[(336,159)(384,159)])
}
Add(StrList,5827447,371,91)
{
}

От таймеров тоже надо стараться избавляться.

Редактировалось 1 раз(а), последний 2017-01-09 22:36:48

карма: 6

Ответов: 4621

Рейтинг: 746

#27: 2017-01-10 13:44:03 ЛС | профиль | цитата

Снятие ограничения на длину текста в Memo (по-умолчанию Memo не даёт ввести больше примерно 32000 символов):

Add(MainForm,2953706,21,105)
{
 Width=738
 Height=443
 Position=1
}
Add(Memo,2657654,217,98)
{
 Left=5
 Top=10
 Width=705
 Height=370
 ScrollBars=2
 Point(Handle)
}
Add(InlineCode,11970995,238,252)
{
 @Hint=#44:Изменение ограничения на длину текста в Memo|
 WorkPoints=#10:doGetLimit|10:doSetLimit|
 EventPoints=#8:onResult|
 DataPoints=#6:Handle|5:Count|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug, Windows, Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|30:     Handle, Count: THI_Event;|28:     onResult: THI_Event;   |57:     procedure doGetLimit(var _Data: TData; Index: Word);|57:     procedure doSetLimit(var _Data: TData; Index: Word);|5: end;|0:|14:implementation|0:|0:|0:|65:procedure THiAsmClass.doGetLimit(var _Data: TData; Index: Word); |3:var|13:  H: Integer;|5:begin|37:  H := ReadInteger(_Data, Handle, 0);|75:  _hi_CreateEvent(_Data, @onResult, SendMessage(H, EM_GETLIMITTEXT, 0, 0));|4:end;|0:|64:procedure THiAsmClass.doSetLimit(var _Data: TData; Index: Word);|3:var|16:  H, C: Integer;|5:begin|37:  H := ReadInteger(_Data, Handle, 0);|36:  C := ReadInteger(_Data, Count, 0);|40:  SendMessage(H, EM_SETLIMITTEXT, C, 0);|4:end;|0:|0:|4:end.|
 link(onResult,7414586:doMessage,[])
 link(Handle,2657654:Handle,[])
 link(Count,10365575:Text,[])
}
Add(Button,4958311,140,252)
{
 Left=10
 Top=385
 Caption="GetLimit"
 link(onClick,11970995:doGetLimit,[])
}
Add(Message,7414586,287,252)
{
 Caption="Current limit"
}
Add(Button,12506795,175,259)
{
 Left=85
 Top=385
 Caption="SetLimit"
 link(onClick,11970995:doSetLimit,[])
}
Add(Edit,10365575,245,175)
{
 Left=145
 Top=385
 Width=75
 Text="60000"
}

Редактировалось 1 раз(а), последний 2020-07-09 11:59:42

карма: 26

Разработчик

Ответов: 26061

Рейтинг: 2120

#28: 2017-01-10 13:56:11 ЛС | профиль | цитата

Netspirit писал(а):

Снятие ограничения на длину текста в Memo

А на кой пес там IC, когда сообщения окну можно послать и штатным элементом SendMessage?

карма: 22

Ответов: 4621

Рейтинг: 746

#29: 2017-01-10 14:09:30 ЛС | профиль | цитата

Можно.

карма: 26

Ответов: 2059

Рейтинг: 131

#30: 2017-01-10 14:29:20 ЛС | профиль | цитата

А на кой пес там IC, когда сообщения окну можно послать и штатным элементом SendMessage?

Если почитать сначала, то с этого и начинался разговор!
P.S.
Что там говорить - одни недоразумения с этим компонентом.
Без костылей не ходит.

Редактировалось 1 раз(а), последний 2017-01-10 14:31:59

карма: 6

Форумы Помощь по пакетуФорматировать текст больше чем 10479 символов. ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)