Форум: "Начинающим";
Текущий архив: 2013.08.25;
Скачать: [xml.tar.bz2];

Вниз

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

← →
dummy_user   (2012-12-16 19:19) [0]

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


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



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

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

В чем дело?

---

← →
brother ©   (2012-12-16 19:31) [1]

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

а uses ?

---

← →
dummy_user   (2012-12-16 19:35) [2]

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

---

← →
brother ©   (2012-12-16 19:37) [3]

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

---

← →
dummy_user   (2012-12-16 19:43) [4]

Не помогает.

---

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

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


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

---

← →
KilkennyCat ©   (2012-12-17 00:54) [6]

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

---

← →
bems ©   (2012-12-17 01:52) [7]

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

---

← →
Dimka Maslov ©   (2012-12-17 09:39) [8]

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

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

---

← →
dummy_user   (2012-12-18 05:26) [9]

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


FPS проседает.

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

---

← →
KilkennyCat ©   (2012-12-18 14:07) [10]

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.08.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.003 c