Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Tukash

Пользователь


Сообщения: 109
Благодарности: 5

Профиль | Отправить PM | Цитировать


блииин 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!

Последний раз редактировалось Tukash, 25-01-2010 в 21:30.


Отправлено: 20:55, 25-01-2010 | #998