[Ivan_009]

Помогите растянуть панель при задвижении и выкате на всю форму вот код

Код:

var
SettingPanel : TPanel;
Flag : boolean;
Timer : LongWord;
DirBevel,GroupBevel,DriveBevel: TBevel;

function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';

procedure MyTimer;
begin
case Flag of
True :
begin
if SettingPanel.Top = 0 then
KillTimer(WizardForm.Handle, Timer);
if SettingPanel.Top < 0 then SettingPanel.Top := SettingPanel.Top + ScaleY(3);
end;
False :
begin
if SettingPanel.Top = ScaleY(-315) then
KillTimer(WizardForm.Handle, Timer);
if SettingPanel.Top > ScaleY(-315) then SettingPanel.Top := SettingPanel.Top - ScaleY(3);
end;
end;
end;

procedure HideShow(Sender: TObject);
begin
KillTimer(WizardForm.Handle, Timer);
Timer := SetTimer(WizardForm.Handle, 1, 5 , CallbackAddr('MyTimer'));
case Flag of
True : TButton(Sender).Caption:='Íàñòðîéêè';
False : TButton(Sender).Caption:='Íàçàä';
end;
Flag:= not Flag;
end;

procedure InitializeWizard();
begin
Flag:= False;

WizardForm.Width:=ScaleX(700);
WizardForm.Height:=ScaleY(400);
WizardForm.Position:=poScreenCenter;
WizardForm.InnerNotebook.Hide;
WizardForm.OuterNotebook.Hide;
WizardForm.Color:=$000000;

SettingPanel := TPanel.Create(WizardForm);
with SettingPanel do
begin
Parent := WizardForm;
SetBounds(ScaleX(0),ScaleY(-315),ScaleX(497),ScaleY(313));
ParentBackground := False;
SettingPanel.Color:=$000000;
end;

with WizardForm.DirBrowseButton do
begin
Parent:=SettingPanel;
Left := ScaleX(395);
Top := ScaleY(37);
Width := ScaleX(110);
Height := ScaleY(30);
end;

with WizardForm.DirEdit do
begin
Parent:=SettingPanel;
Left := ScaleX(43);
Top := ScaleY(42);
Width := ScaleX(330);
Height := ScaleY(25);
end;

with WizardForm.GroupBrowseButton do
begin
Parent:=SettingPanel;
Left := ScaleX(395);
Top := ScaleY(115);
Width := ScaleX(110);
Height := ScaleY(30);
end;

with WizardForm.GroupEdit do
begin
Parent:=SettingPanel;
Left := ScaleX(43);
Top := ScaleY(120);
Width := ScaleX(330);
Height := ScaleY(25);
end;

DirBevel := TBevel.Create(WizardForm);
with DirBevel do
begin
Parent := SettingPanel;
Left := ScaleX(22);
Top := ScaleY(25);
Width := ScaleX(496);
Height := ScaleY(62);
Style := bsRaised;
end;

GroupBevel := TBevel.Create(WizardForm);
with GroupBevel do
begin
Parent := SettingPanel;
Left := ScaleX(22);
Top := ScaleY(100);
Width := ScaleX(496);
Height := ScaleY(62);
Style := bsRaised;
end;

DriveBevel := TBevel.Create(WizardForm);
with DriveBevel do
begin
Parent := SettingPanel;
Left := ScaleX(22);
Top := ScaleY(177);
Width := ScaleX(496);
Height := ScaleY(62);
Style := bsRaised;
end;

(*with WizardForm.ProgressGauge do
begin
Left := ScaleX(75);
Top := ScaleY(160);
Width := ScaleX(430);
Height := ScaleY(25);
Parent:= WizardForm;
end;*)

with TButton.Create(WizardForm) do
begin
OnClick:= @HideShow;
SetBounds(ScaleX(40),ScaleY(327),ScaleX(75),ScaleY (25))
Caption:='Íàñòðîéêè';
Parent:= WizardForm;
end;
end;