[Igorivinet]

'Support' wrote:

Можно демку глянуть?

Возьмите Вашу демку ASkinDemo, в ней:

1. Выберитt SFrameBar1 0-TsTitleItem

2. Установите ShowCloseBtn в True и запустите программу

3. Нажмите появившуюся кнопку закрыть и после закрытия фрейма посмотрите отрисовку.

Когда фреймов много, глюки еще больше. Наезды фреймов друг на друга и прорисовка остатков от предыдущих фреймов. Версия Альфы 14.19

Спасибо, что откликнулись!

[Igorivinet]

Решил свою проблему следующим образом:

в MainForm:

implementation

var

CurrentFrame: TCustomInfoFrame;

procedure TMainForm.CreateNewFrame(FrameType: TFrameClass; Sender: TObject = nil);

begin

if Assigned(CurrentFrame) then

OldFrame := CurrentFrame;

if OldFrame nil then

begin

if Animated and sSkinManager1.Active and not AppLoading then

PrepareForAnimation(OldFrame, atcRunup); // Prepare Image for animation (from old frame)

if OldFrame is FrameType then // Release if exists already

FreeAndNil(OldFrame);

end;

CurrentFrame := FrameType.Create(MainForm);

sSkinManager1.UpdateScale(CurrentFrame);

MainForm.UpdateFrame(Sender);

end;

procedure TMainForm.sSpeedButton1Click(Sender:TObject);

begin

TFrame_Izmerenye(CurrentFrame).sImage1.Align:=alNone;

TFrame_Izmerenye(CurrentFrame).sPanel1.Caption='qwerty';

…..

и т.д.

end;

Всем спасибо за потраченное на меня время!

[Author]

Posts