Sorry for my english
Until debugging source code we found next :
In unit SclRView in procedure TSRichViewEdit.DrawComponents
was written:
for ItemNo := StartItemNo to EndItemNo do
case RVData.GetItemStyle(ItemNo) of
rvsComponent :
begin
..........
This cause errors in such cases:
1. Paste text ...
Search found 2 matches
- Thu Jan 31, 2008 8:34 pm
- Forum: ScaleRichView
- Topic: Solving problem List Insex Out of bound
- Replies: 1
- Views: 14506
- Thu Jan 31, 2008 8:20 pm
- Forum: ScaleRichView
- Topic: На счет ошибки ListIndex Out Of Bounds
- Replies: 1
- Views: 16067
На счет ошибки ListIndex Out Of Bounds
Как показал глубокий анализ вашего кода, вы, по-моему мнению допустили ошибку в модуле SclRView в процедуре TSRichViewEdit.DrawComponents
Было :
for ItemNo := StartItemNo to EndItemNo do
case RVData.GetItemStyle(ItemNo) of
rvsComponent :
begin
..........
и это вызывало ошибку при :
1. Вставка ...
Было :
for ItemNo := StartItemNo to EndItemNo do
case RVData.GetItemStyle(ItemNo) of
rvsComponent :
begin
..........
и это вызывало ошибку при :
1. Вставка ...