блииин 2 часа сидел красоту наводил, сделал что хотел, и ничего не получилось, не принимает он код и все, будт нет его и вовсе...
вот скрипт может кто-то что-нибудь придумает...
[code][ISFormDesigner]
8656967687402F309466F6E742E4E616D65060747656F726769610A466F6E742E5374796C650B066673426F6C64086673497 4616C6963000C4578706C696369744C65667402460D4578706C69636974576964746803850100000000F110544E65774E6F7 465626F6F6B506167650C46696E69736865645061676505436F6C6F720707636C426C61636B0D4578706C696369745769647 4680359020E4578706C6963697448656967687403400100F10C544269746D6170496D6167651257697A6172644269746D617 0496D6167653205576964746803CC00064865696768740342010D4578706C69636974576964746803CC000E4578706C69636 9744865696768740342010000F10F544E6577526164696F427574746F6E074E6F526164696F044C65667403100103546F700 319010C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C57686974650 A466F6E742E5374796C650B066673426F6C64000A506172656E74466F6E74080C4578706C696369744C6566740310010B457 8706C69636974546F700319010000F10F544E6577526164696F427574746F6E08596573526164696F044C656674031001035 46F700301010A466F6E742E436F6C6F720707636C57686974650A506172656E74466F6E74080C4578706C696369744C65667 40310010B4578706C69636974546F700301010000F110544E6577436865636B4C697374426F780752756E4C697374044C656 67403D80003546F70039100055769647468037D010648656967687402600C4578706C696369744C65667403D8000B4578706 C69636974546F700391000D4578706C696369745769647468037D010E4578706C6963697448656967687402600000F10E544 E6577537461746963546578740D46696E69736865644C6162656C044C65667403D80003546F70026F055769647468036D010 648656967687403820005436F6C6F720707636C426C61636B0C466F6E742E43686172736574070F5255535349414E5F43484 1525345540A466F6E742E436F6C6F720707636C57686974650B466F6E742E48656967687402F409466F6E742E4E616D65060 B5365676F65205072696E740A466F6E742E5374796C650B066673426F6C64000B506172656E74436F6C6F72080A506172656 E74466F6E74080C4578706C696369744C65667403D8000B4578706C69636974546F70026F0D4578706C69636974576964746 8036D010E4578706C696369744865696768740382000000F10E544E6577537461746963546578741446696E6973686564486 56164696E674C6162656C044C65667403D00003546F70020805576964746803850106486569676874024F05436F6C6F72070 7636C426C61636B0C466F6E742E43686172736574070C414E53495F434841525345540A466F6E742E436F6C6F720707636C5 7686974650B466F6E742E48656967687402E809466F6E742E4E616D65061041646F6265204361736C6F6E2050726F0A466F6 E742E5374796C650B0866734974616C6963000B506172656E74436F6C6F72080C4578706C696369744C65667403D0000B457 8706C69636974546F7002080D4578706C6963697457696474680385010E4578706C69636974486569676874024F000000000 0
Код:
{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
var
NewMemo1: TNewMemo;
procedure RedesignWizardForm;
begin
with WizardForm do
begin
ClientHeight := ScaleY(354);
ClientWidth := ScaleX(603);
Color := clBlack;
end;
with WizardForm.CancelButton do
begin
Left := ScaleX(484);
Font.Name := 'Segoe UI';
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.NextButton do
begin
Left := ScaleX(383);
Font.Name := 'Segoe UI';
Font.Style := [fsBold, fsItalic];
ParentFont := False;
end;
with WizardForm.BackButton do
begin
Left := ScaleX(284);
Font.Name := 'Segoe UI';
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.OuterNotebook do
begin
Width := ScaleX(601);
Height := ScaleY(320);
end;
with WizardForm.WelcomePage do
begin
Color := clBlack;
end;
with WizardForm.WizardBitmapImage do
begin
Top := ScaleY(-4);
Width := ScaleX(204);
Height := ScaleY(322);
end;
with WizardForm.WelcomeLabel2 do
begin
Left := ScaleX(216);
Top := ScaleY(119);
Width := ScaleX(389);
Height := ScaleY(199);
Color := clBlack;
Font.Color := clWhite;
Font.Height := -13;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentColor := False;
ParentFont := False;
end;
with WizardForm.WelcomeLabel1 do
begin
Left := ScaleX(208);
Width := ScaleX(389);
Color := clBlack;
Font.Color := clWhite;
Font.Height := -24;
Font.Name := 'Adobe Caslon Pro';
Font.Style := [fsItalic];
ParentColor := False;
end;
with WizardForm.InnerPage do
begin
Color := clBlack;
end;
with WizardForm.Bevel1 do
begin
Left := ScaleX(-10);
Width := ScaleX(611);
Height := ScaleY(0);
end;
with WizardForm.InnerNotebook do
begin
Left := ScaleX(144);
end;
with WizardForm.LicensePage do
begin
ShowHint := True;
end;
with WizardForm.LicenseNotAcceptedRadio do
begin
Left := ScaleX(32);
Top := ScaleY(212);
Width := ScaleX(321);
Font.Height := -12;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.LicenseAcceptedRadio do
begin
Left := ScaleX(32);
Top := ScaleY(192);
Width := ScaleX(273);
Font.Color := clRed;
Font.Height := -12;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.LicenseMemo do
begin
Left := ScaleX(10);
Top := ScaleY(29);
Width := ScaleX(391);
Height := ScaleY(164);
end;
with WizardForm.LicenseLabel1 do
begin
Left := ScaleX(2);
Width := ScaleX(399);
Font.Color := clWhite;
Font.Height := -12;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.PasswordEdit do
begin
Top := ScaleY(117);
end;
with WizardForm.PasswordEditLabel do
begin
Top := ScaleY(101);
end;
with WizardForm.InfoBeforeMemo do
begin
Top := ScaleY(0);
end;
with WizardForm.InfoBeforeClickLabel do
begin
Top := ScaleY(208);
Width := ScaleX(409);
Height := ScaleY(30);
Font.Color := clWhite;
Font.Height := -12;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.UserInfoSerialEdit do
begin
Left := ScaleX(88);
Width := ScaleX(289);
end;
with WizardForm.UserInfoSerialLabel do
begin
Left := ScaleX(-16);
end;
with WizardForm.UserInfoOrgEdit do
begin
Left := ScaleX(88);
Width := ScaleX(289);
end;
with WizardForm.UserInfoOrgLabel do
begin
Left := ScaleX(-16);
end;
with WizardForm.UserInfoNameEdit do
begin
Left := ScaleX(8);
Top := ScaleY(24);
end;
with WizardForm.UserInfoNameLabel do
begin
Left := ScaleX(-16);
end;
{ NewMemo1 }
NewMemo1 := TNewMemo.Create(WizardForm);
with NewMemo1 do
begin
Parent := WizardForm.UserInfoPage;
Left := ScaleX(-184);
Top := ScaleY(24);
Width := ScaleX(209);
Height := ScaleY(89);
Color := clBlack;
Lines.Text := 'NewMemo1';
end;
NewMemo1.TabOrder := 6;
with WizardForm.SelectDirPage do
begin
Tag := 9;
end;
with WizardForm.SelectDirBitmapImage do
begin
Left := ScaleX(8);
Top := ScaleY(17);
end;
with WizardForm.DiskSpaceLabel do
begin
Left := ScaleX(16);
Top := ScaleY(208);
Width := ScaleX(353);
Font.Color := clWhite;
ParentFont := False;
end;
with WizardForm.DirBrowseButton do
begin
Left := ScaleX(8);
Top := ScaleY(116);
Font.Height := -15;
Font.Name := 'Segoe UI';
Font.Style := [fsBold, fsItalic];
ParentFont := False;
end;
with WizardForm.DirEdit do
begin
Left := ScaleX(85);
Top := ScaleY(118);
Width := ScaleX(324);
end;
with WizardForm.SelectDirBrowseLabel do
begin
Left := ScaleX(8);
Top := ScaleY(60);
Width := ScaleX(393);
Height := ScaleY(46);
Font.Color := clWhite;
Font.Height := -12;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.SelectDirLabel do
begin
Left := ScaleX(49);
Top := ScaleY(17);
Width := ScaleX(360);
Height := ScaleY(45);
Font.Color := clWhite;
Font.Height := -13;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.ComponentsDiskSpaceLabel do
begin
Left := ScaleX(8);
Height := ScaleY(22);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
ParentFont := False;
end;
with WizardForm.ComponentsList do
begin
Top := ScaleY(69);
Color := clBtnShadow;
end;
with WizardForm.TypesCombo do
begin
Top := ScaleY(45);
Color := cl3DDkShadow;
end;
with WizardForm.SelectComponentsLabel do
begin
Width := ScaleX(433);
Height := ScaleY(35);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
ParentFont := False;
end;
WizardForm.ComponentsList.TabOrder := 1;
WizardForm.TypesCombo.TabOrder := 2;
WizardForm.ComponentsDiskSpaceLabel.TabOrder := 3;
with WizardForm.SelectGroupBitmapImage do
begin
Left := ScaleX(9);
Top := ScaleY(8);
end;
with WizardForm.NoIconsCheck do
begin
Left := ScaleX(9);
Top := ScaleY(143);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.GroupBrowseButton do
begin
Left := ScaleX(0);
Top := ScaleY(100);
Font.Name := 'Segoe UI';
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.GroupEdit do
begin
Left := ScaleX(85);
Top := ScaleY(100);
end;
with WizardForm.SelectStartMenuFolderBrowseLabel do
begin
Left := ScaleX(9);
Top := ScaleY(76);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.SelectStartMenuFolderLabel do
begin
Left := ScaleX(56);
Top := ScaleY(25);
Height := ScaleY(38);
Font.Height := -12;
Font.Name := 'Segoe Print';
ParentFont := False;
end;
with WizardForm.TasksList do
begin
Top := ScaleY(45);
end;
with WizardForm.SelectTasksLabel do
begin
Height := ScaleY(43);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
ParentFont := False;
end;
with WizardForm.ReadyMemo do
begin
Top := ScaleY(14);
Height := ScaleY(223);
end;
with WizardForm.ReadyLabel do
begin
Height := ScaleY(20);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
ParentFont := False;
end;
with WizardForm.PreparingErrorBitmapImage do
begin
Left := ScaleX(417);
Width := ScaleX(0);
Height := ScaleY(0);
end;
with WizardForm.PreparingLabel do
begin
Left := ScaleX(8);
Top := ScaleY(64);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
ParentFont := False;
end;
with WizardForm.StatusLabel do
begin
Left := ScaleX(8);
Top := ScaleY(40);
Height := ScaleY(40);
Font.Color := clWhite;
Font.Height := -15;
Font.Name := 'Monotype Corsiva';
Font.Style := [fsBold, fsItalic];
ParentFont := False;
end;
with WizardForm.ProgressGauge do
begin
Top := ScaleY(90);
end;
with WizardForm.InfoAfterClickLabel do
begin
Left := ScaleX(16);
Height := ScaleY(22);
Font.Color := clWhite;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.MainPanel do
begin
Left := ScaleX(-2);
Width := ScaleX(603);
BevelOuter := bvSpace;
Color := clBlack;
ParentBackground := False;
end;
with WizardForm.WizardSmallBitmapImage do
begin
Left := ScaleX(532);
Top := ScaleY(0);
end;
with WizardForm.PageDescriptionLabel do
begin
Left := ScaleX(70);
Width := ScaleX(341);
Font.Color := clWhite;
Font.Height := -13;
Font.Name := 'Georgia';
Font.Style := [fsItalic];
ParentFont := False;
end;
with WizardForm.PageNameLabel do
begin
Left := ScaleX(70);
Width := ScaleX(389);
Font.Color := clWhite;
Font.Height := -13;
Font.Name := 'Georgia';
Font.Style := [fsBold, fsItalic];
end;
with WizardForm.FinishedPage do
begin
Color := clBlack;
end;
with WizardForm.WizardBitmapImage2 do
begin
Width := ScaleX(204);
Height := ScaleY(322);
end;
with WizardForm.NoRadio do
begin
Left := ScaleX(272);
Top := ScaleY(281);
Font.Color := clWhite;
Font.Style := [fsBold];
ParentFont := False;
end;
with WizardForm.YesRadio do
begin
Left := ScaleX(272);
Top := ScaleY(257);
Font.Color := clWhite;
ParentFont := False;
end;
with WizardForm.RunList do
begin
Left := ScaleX(216);
Top := ScaleY(145);
Width := ScaleX(381);
Height := ScaleY(96);
end;
with WizardForm.FinishedLabel do
begin
Left := ScaleX(216);
Top := ScaleY(111);
Width := ScaleX(365);
Height := ScaleY(130);
Color := clBlack;
Font.Color := clWhite;
Font.Height := -12;
Font.Name := 'Segoe Print';
Font.Style := [fsBold];
ParentColor := False;
ParentFont := False;
end;
with WizardForm.FinishedHeadingLabel do
begin
Left := ScaleX(208);
Top := ScaleY(8);
Width := ScaleX(389);
Height := ScaleY(79);
Color := clBlack;
Font.Color := clWhite;
Font.Height := -24;
Font.Name := 'Adobe Caslon Pro';
Font.Style := [fsItalic];
ParentColor := False;
end;
{ ReservationBegin }
// This part is for you. Add your specialized code here.
{ ReservationEnd }
end;
// Don't modify this section. It is generated automatically.
{ RedesignWizardFormEnd } // Don't remove this line!