| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Странное поведение функции.

dummy_user ©   (2012-12-16 19:19:00) 

Чтобы контролы не мигали во время рисования на них,
применяю данную процедуру:


procedure DisabledBlink(Ctrl: TControl);
begin
 Ctrl.ControlStyle:= Ctrl.ControlStyle + [csOpaque];
end;



Если функция объявлена в Unit1, то DisabledBlink(Form1) - работает.
Если функция объявлена в другом модуле, то пишет:

"[Error] Unit1.pas(209): Incompatible types: 'TControl' and 'TForm1'".

В чем дело?

---

KilkennyCat   (2012-12-18 14:07:00) [1]

> FPS проседает.

оригинально-с...

---

dummy_user   (2012-12-18 05:26:00) [2]

> Dimka Maslov ©   (17.12.12 09:39) [8]
> В вообще надо пользоваться DoubleBuffered


FPS проседает.

Разобрался, подключил QControls вместо Controls.

---

Dimka Maslov   (2012-12-17 09:39:00) [3]

DisableBlink(TControl(Form1))
DisableBlink(Form1 as TControl)

В вообще надо пользоваться DoubleBuffered

---

bems   (2012-12-17 01:52:00) [4]

cсделай Controls последним в списке Uses в "другом" юните

---

KilkennyCat   (2012-12-17 00:54:00) [5]

а DoubleBuffered чему равно?

---

Игорь Шевченко   (2012-12-17 00:28:00) [6]

> Не помогает.


Код приводи, телепаты в отпуске

---

dummy_user   (2012-12-16 19:43:00) [7]

Не помогает.

---

brother   (2012-12-16 19:37:00) [8]

подключи первым...

---

dummy_user   (2012-12-16 19:35:00) [9]

Все подключено.

---

brother   (2012-12-16 19:31:00) [10]

> Если функция объявлена в другом модуле,

а uses ?

---

Наверх