Лександер,
использую твою выкатывающуюся панель с предыдущей ветки
читать дальше »
Код:
var
Panel3: TPanel;
procedure ConsoleButtonClick(Sender: TObject);
var
i:integer;
begin
i:=Panel3.Left;
If i= -Panel3.Width then
begin
MnuItem.Caption := ExpandConstant('{cm:Console0}');
while True do
begin
Panel3.Left:= ScaleX(i);
//ComponentsPage.Surface.Repaint;
if i=0 then Break;
i:=i+1;
end;
end else
begin
while True do
begin
Panel3.Left:= ScaleX(i);
//ComponentsPage.Surface.Repaint;
if i=-Panel3.Width then Break;
i:=i-1;
end;
MnuItem.Caption := ExpandConstant('{cm:Console1}');
end;
end;
если эта строка задействована, то очень некрасиво мелькает страница
//ComponentsPage.Surface.Repaint;
вроде есть решение в виде WizardForm.DoubleBuffered := True, которая доступна только в Unicode. Но у меня ANSI
может есть другое решение?
