Как спраится с альфаскин, что бы он не перерисовывал форму

[Swarog]

Суть проблемы в следующем, есть форма, на ней PaintBox отрисовка на него производится по OnPaint. все нормально если не учитывать мерцания, но в некоторых случаях (обычно при пропадании фокуса) альфаскин перерисовывает форму в то время как обработчик OnPaint не срабатывает в итоге стирается все изображение. Как застаить либо альфаскин не перерисовываться, либо OnPaint срабатывать сразу после него во всех случаях.
Во вложениях окно должно выводить одинаковую картинку

[Человек_Борща]

SkinProvider.SkinData.SkinManager.BeginUpdate;

SkinProvider.SkinData.SkinManager.EndUpdate(Animate:bool,Repaint:bool);

также эти методы есть у всех компонент альфа скинов.

Они то и нужны для того чтобы не пересовывать каждый раз.

по этому:

TsComponent.BeginUpdate;
//Действия требующей многократной перерисовки
TsComponent.EndUpdate(True,false);

[Swarog]

не совсем понял как использовать
вот так не помогает

procedure TConsole.FormPaint(Sender: TObject);
var
 rect: trect;
begin
 mainForm.sSkinManager1.BeginUpdate;
 rect := GetClientRect;
 canvas.CopyRect(rect,fBackBufer.Canvas,rect);
 PaintBox1.Canvas.CopyRect(rect,fBackBufer.Canvas,rect);
 mainForm.sSkinManager1.EndUpdate(false);
end;

[Человек_Борща]

mainForm.sSkinManager1.EndUpdate(false);

у него 2 параметра.
1 это AllowRepaint
2 это AllowAnimation

[Swarog]

второй параметр я так понял отвечает за анимацию, даже если выставить оба параметра в false, это ни чего не меняет, похоже я что то делаю не так, там ли я вообще использую?

[Человек_Борща]

 mainForm.sSkinManager1.EndUpdate(false);

Нельзя так делать!

На основной форме должен быть SkinManager & SkinProvider, а на всех остольных формах обязан лежать SkinProvider.
С дочерних форм нельзя обращать к основному Managery вот так как у вас.

НЕобходимо писать так:

SkinProvider.SkinData.SkinManager.BeginUpdate;
{paste your code here}
SkinProvider.SkinData.SkinManager.EndUpdate(False,True);

[Swarog]

Ага, это я понял, сделал, теперь такой вопрос куда это вставлять если в паинт то ни чего не выходит

procedure TConsole.FormPaint(Sender: TObject);
var
 rect: trect;
begin
 sSkinProvider1.SkinData.SkinManager.BeginUpdate;
 rect := GetClientRect;
 canvas.CopyRect(rect,fBackBufer.Canvas,rect);
 PaintBox1.Canvas.CopyRect(rect,fBackBufer.Canvas,rect);
 sSkinProvider1.SkinData.SkinManager.EndUpdate(false,false);
end;

[Человек_Борща]

Дело скорее в самом боксе, канва не успевает...
зависит от того что выводить.. вам обязательно paintbox?

[Swarog]

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

[Человек_Борща]

Канва не успевает перерисовывать(что в paintbox что в image)...