тормоза Tmemo

[russkiy]

Странная ситуация
Есть:

Дельфи 2007+обычная компонента Tmemo- никаких обработок!

Как только в нее вбиваешь больше 200-300 символов и появляется скроллинг начинаются страшенные тормоза загрузка процессора 100%

с TrichEdit тоже самое.

Извечный русский вопрос: Кто виноват и что делать?

[Domovoy]

Это бред какойто!!! Я в memo заливал в десятки раз больше инфы и всё нормально работало. Ты уверен что именно твоя прога сжирает все ресурсы ПК?

[russkiy]

сам в шоке!
именно она - 100%
причем ну ничего такого нет!
просто не знаю что делать

[mihali4]

Попробуйте новый, пустой проект. Киньте туда только Мемо и кнопку, и по кнопке загрузите в Мемо какой-нибудь текстовый файл.
Посмотрите, будут ли "тормоза"...

[russkiy]

сам так подумал - попробовал - действительно не тормозит.

теперь никак не могу понять в чем причина-то?

обработок нет никаких

вот что интересно
тормозит только в этой форме - в любом месте и с любым именем

нашел причину!

итак создаем форму,
в ней обычный Тмемо
object Form1: TForm1
Left = 0
Top = 0
AlphaBlend = True
Caption = 'Form1'
ClientHeight = 301
ClientWidth = 562
Color = clOlive
TransparentColor = True
TransparentColorValue = clOlive
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Memo1: TMemo
Left = 112
Top = 24
Width = 353
Height = 57
Lines.Strings = (
'Memo1')
TabOrder = 0
end
end

вуаля!! тмемо тормозит!

это связано с прозрачностью как-то!

что делать? прозрачность фона нужна!

[mihali4]

Сообщение от russkiy

вот что интересно
тормозит только в этой форме - в любом месте и с любым именем

Встречался с таким эффектом.
Дольше получится экспериментировать с поиском причины неадекватного поведения программы. Поэтому радикальный способ - создать новый проект и все наработки (обработчики) по очереди скопировать туда. Единственный способ, который мне помогал.
В какой-то из тем поднимался близкий по духу вопрос и совершенно справедливо было замечено о полезности сохранения копии проекта перед внесением изменений.
Ибо, когда он близок к завершению и имеет приличный объем, такая ситуация может здорово подпортить нервы...

прозрачность фона нужна

Избегаю использовать AlphaBlend. Гораздо более гибкая система - через создание нужных регионов.

[russkiy]

прочтите мой последний пост - я нашел причину.
причина в прозрачности фона. Причем без всяких вообще обработок!

но как это лечить?

Вы сами легко получите тот-же эффект.

[JTG]

Тоже попадался такой глюк с прозрачной формой, TRichEdit, всё идёт нормально если отключена полоса прокрутки или до тех пор, пока она не появится. Так и не понял откуда тормоза, пришлось вместо transparent=true делать через SetWindowRgn

[russkiy]

дальше - больше.

тормоза начинатся как только включается
TransparentColor = True

очевидно пытается найти этот колор в тексте, собака!

Сообщение от JTG

делать через SetWindowRgn

как? подскажите плиз..

у меня есть специфика - окно как бы "всплывает" проявляясь, боюсь такое только через альфу сделать можно

//Есть кнопка "править" Подряд сообщения не постить!

[mihali4]

как? подскажите плиз

Открываем хэлп на "CreateRegion".
Там есть примеры.
И я давал исходник с широким использованием регионов для создания нестандартных форм. Поищите на форуме.
А от "всплывания", боюсь, придется отказаться.
Да и вообще, поменьше дешевых эффектов...
Полезность программы не этим измеряется.