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

← →
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 в "другом" юните

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.

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

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

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