Проблема с TImage в Turbo Delphi
От: Ghost_64RUS  
Дата: 07.11.07 10:52
Оценка:
Проблема следующего характера:
на форме лежит TImage, в нем какой-то рисунок(любой, если размер больше, то проблема лучше видна), когда на обработчик события(не важно какого) изменяю Image.Left или Image.Top картинка ничинает мигать, т.е. во время перемещения мерцает. Этот же проект откомпилил под Delphi 5, мерцания нет.

В чем проблема ..хз. Искал в инете, нигде решения не нашел.
Кто знает подскажите. Заранее спасибо!
Re: Проблема с TImage в Turbo Delphi
От: Danchik Украина  
Дата: 07.11.07 16:17
Оценка:
Здравствуйте, Ghost_64RUS, Вы писали:

G_R>Проблема следующего характера:

G_R>на форме лежит TImage, в нем какой-то рисунок(любой, если размер больше, то проблема лучше видна), когда на обработчик события(не важно какого) изменяю Image.Left или Image.Top картинка ничинает мигать, т.е. во время перемещения мерцает. Этот же проект откомпилил под Delphi 5, мерцания нет.

G_R>В чем проблема ..хз. Искал в инете, нигде решения не нашел.

G_R>Кто знает подскажите. Заранее спасибо!

В run-time, где то на создании формы допишите:
Image1.ControlStyle := Image1.ControlStyle + [csOpaque];
Re[2]: Проблема с TImage в Turbo Delphi
От: Ghost_64RUS  
Дата: 09.11.07 05:34
Оценка:
Здравствуйте, Danchik, Вы писали:

D>В run-time, где то на создании формы допишите:

D>
D>Image1.ControlStyle := Image1.ControlStyle + [csOpaque];
D>


Добавил, проблема не решилась. Может еще какие варианты есть?
Re: Проблема с TImage в Turbo Delphi
От: Brutal_Force Россия  
Дата: 09.11.07 13:07
Оценка:
Здравствуйте, Ghost_64RUS, Вы писали:

G_R>Проблема следующего характера:

G_R>на форме лежит TImage, в нем какой-то рисунок(любой, если размер больше, то проблема лучше видна), когда на обработчик события(не важно какого) изменяю Image.Left или Image.Top картинка ничинает мигать, т.е. во время перемещения мерцает. Этот же проект откомпилил под Delphi 5, мерцания нет.

G_R>В чем проблема ..хз. Искал в инете, нигде решения не нашел.

G_R>Кто знает подскажите. Заранее спасибо!


У владельца имеджа (в данном случае — форма) — попробуй установить свойство DoubleBuffered:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  DoubleBuffered=true;
}
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.