[Johny777]

Dark_Delphin,
http://176.9.1.113:52080/showthread.php?t=7&page=4
(в сообщении sergey3695)

__________________________________________________

скажите пожалуйста как можно короче записать обновление прогрессбара
извлекаются 92 файла и после каждой строки приписываю Позиция := число
может можно покороче и по проще
я не знаю

читать дальше »

Код:

  Form := CreateCustomForm();
  with Form do
  begin
    BorderIcons := [];
    ClientWidth := ScaleX(256);
    ClientHeight := ScaleY(338);
    BorderStyle := bsSingle;
    SetClassLong(Form.Handle, (-26), GetWindowLong(Form.Handle, (-26)) or $00020000); /// тень от окна
    Left := GetSystemMetrics(16) - ClientWidth - ScaleX(16);
    Top := GetSystemMetrics(17) - ClientHeight - ScaleY(16);
  end;

  with TBitmapImage.Create(Form) do
  begin
       .....
  end;

  LoadPrgsBar := TNewProgressBar.Create(Form);
  with LoadPrgsBar do
  begin
    Parent := Form;
    SetBounds(ScaleX(0), ScaleY(0), ScaleX(256), ScaleY(25))
    Position := 0;
  end;

  with TLabel.Create(Form) do
  begin
       .......
  end;
  

Form.Show();
Form.Repaint;
    /// конец

/////////////////////////////////////////
/// скроллбокс  /// 92 строки
with LoadPrgsBar do
begin
ExtractTemporaryFile('WizardForm.Intro_BitmapImage1.bmp');
Position := 1;

ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
Position := 2;

ExtractTemporaryFile('WizardForm.BitmapImage2.bmp');
Position := 3;

ExtractTemporaryFile('WizardForm.BitmapImage3.bmp');
Position := 4;

ExtractTemporaryFile('WizardForm.BitmapImage4.bmp');
Position := 5;

ExtractTemporaryFile('WizardForm.BitmapImage5.bmp');
Position := 6;

ExtractTemporaryFile('WizardForm.BitmapImage6.bmp');
Position := 7;

ExtractTemporaryFile('WizardForm.BitmapImage7.bmp');
Position := 8;

ExtractTemporaryFile('WizardForm.BitmapImage8.bmp');
Position := 9;

ExtractTemporaryFile('WizardForm.BitmapImage10.bmp');
Position := 10;

ExtractTemporaryFile('WizardForm.BitmapImage11.bmp');
Position := 11;

ExtractTemporaryFile('WizardForm.BitmapImage12.bmp');
Position := 12;

ExtractTemporaryFile('WizardForm.BitmapImage13.bmp');
Position := 13;

ExtractTemporaryFile('WizardForm.BitmapImage14.bmp');
Position := 14;

ExtractTemporaryFile('WizardForm.BitmapImage15.bmp');
Position := 15;

ExtractTemporaryFile('WizardForm.BitmapImage16.bmp');
Position := 16;

ExtractTemporaryFile('WizardForm.BitmapImage17.bmp');
Position := 17;

ExtractTemporaryFile('WizardForm.BitmapImage18.bmp');
Position := 18;

ExtractTemporaryFile('WizardForm.BitmapImage19.bmp');
Position := 19;

ExtractTemporaryFile('WizardForm.BitmapImage20.bmp');
Position := 20;

ExtractTemporaryFile('WizardForm.BitmapImage21.bmp');
Position := 21;

ExtractTemporaryFile('WizardForm.BitmapImage22.bmp');
Position := 22;

ExtractTemporaryFile('WizardForm.BitmapImage23.bmp');
Position := 23;

ExtractTemporaryFile('WizardForm.BitmapImage24.bmp');
Position := 24;

ExtractTemporaryFile('WizardForm.BitmapImage25.bmp');
Position := 25;

ExtractTemporaryFile('WizardForm.BitmapImage26.bmp');
Position := 26;

ExtractTemporaryFile('WizardForm.BitmapImage27.bmp');
Position := 27;

ExtractTemporaryFile('WizardForm.BitmapImage28.bmp');
Position := 28;

ExtractTemporaryFile('WizardForm.BitmapImage29.bmp');
Position := 29;

ExtractTemporaryFile('WizardForm.BitmapImage30.bmp');
Position := 30;

ExtractTemporaryFile('WizardForm.BitmapImage31.bmp');
Position := 31;

ExtractTemporaryFile('WizardForm.BitmapImage32.bmp');
Position := 32;

ExtractTemporaryFile('WizardForm.BitmapImage33.bmp');
Position := 33;

ExtractTemporaryFile('WizardForm.BitmapImage34.bmp');
Position := 34;

ExtractTemporaryFile('WizardForm.BitmapImage35.bmp');
Position := 35;

ExtractTemporaryFile('WizardForm.BitmapImage36.bmp');
Position := 36;

ExtractTemporaryFile('WizardForm.BitmapImage37.bmp');
Position := 37;

ExtractTemporaryFile('WizardForm.BitmapImage38.bmp');
Position := 38;

ExtractTemporaryFile('WizardForm.BitmapImage39.bmp');
Position := 39;

ExtractTemporaryFile('WizardForm.BitmapImage40.bmp');
Position := 40;

ExtractTemporaryFile('WizardForm.BitmapImage41.bmp');
Position := 42;

ExtractTemporaryFile('WizardForm.BitmapImage42.bmp');
Position := 44;

ExtractTemporaryFile('WizardForm.BitmapImage43.bmp');
Position := 45;

ExtractTemporaryFile('WizardForm.BitmapImage44.bmp');
Position := 46;

ExtractTemporaryFile('WizardForm.BitmapImage45.bmp');
Position := 47;

ExtractTemporaryFile('WizardForm.BitmapImage46.bmp');
Position := 48;

ExtractTemporaryFile('WizardForm.BitmapImage47.bmp');
Position := 49;

ExtractTemporaryFile('WizardForm.BitmapImage48.bmp');
Position := 50;

ExtractTemporaryFile('WizardForm.BitmapImage49.bmp');
Position := 51;

ExtractTemporaryFile('WizardForm.BitmapImage50.bmp');
Position := 52;

ExtractTemporaryFile('WizardForm.BitmapImage51.bmp');
Position := 53;

ExtractTemporaryFile('WizardForm.BitmapImage52.bmp');
Position := 54;

ExtractTemporaryFile('WizardForm.BitmapImage53.bmp');
Position := 55;

ExtractTemporaryFile('WizardForm.BitmapImage55.bmp');
Position := 56;

ExtractTemporaryFile('WizardForm.BitmapImage54.bmp');
Position := 57;

ExtractTemporaryFile('WizardForm.BitmapImage56.bmp');
Position := 58;

ExtractTemporaryFile('WizardForm.BitmapImage57.bmp');
Position := 59;

ExtractTemporaryFile('WizardForm.BitmapImage58.bmp');
Position := 60;

ExtractTemporaryFile('WizardForm.BitmapImage59.bmp');
Position := 61;

ExtractTemporaryFile('WizardForm.BitmapImage60.bmp');
Position := 62;

ExtractTemporaryFile('WizardForm.BitmapImage61.bmp');
Position := 63;

ExtractTemporaryFile('WizardForm.BitmapImage62.bmp');
Position := 64;

ExtractTemporaryFile('WizardForm.BitmapImage63.bmp');
Position := 65;

ExtractTemporaryFile('WizardForm.BitmapImage64.bmp');
Position := 66;

ExtractTemporaryFile('WizardForm.BitmapImage65.bmp');
Position := 67;

ExtractTemporaryFile('WizardForm.BitmapImage66.bmp');
Position := 68;

ExtractTemporaryFile('WizardForm.BitmapImage67.bmp');
Position := 69;

ExtractTemporaryFile('WizardForm.BitmapImage68.bmp');
Position := 70;

ExtractTemporaryFile('WizardForm.BitmapImage69.bmp');
Position := 71;

ExtractTemporaryFile('WizardForm.BitmapImage70.bmp');
Position := 72;

ExtractTemporaryFile('WizardForm.BitmapImage71.bmp');
Position := 73;

ExtractTemporaryFile('WizardForm.BitmapImage72.bmp');
Position := 74;

ExtractTemporaryFile('WizardForm.BitmapImage73.bmp');
Position := 75;

ExtractTemporaryFile('WizardForm.BitmapImage74.bmp');
Position := 76;

ExtractTemporaryFile('WizardForm.BitmapImage75.bmp');
Position := 77;

ExtractTemporaryFile('WizardForm.BitmapImage76.bmp');
Position := 79;

ExtractTemporaryFile('WizardForm.BitmapImage77.bmp');
Position := 80;

ExtractTemporaryFile('WizardForm.BitmapImage78.bmp');
Position := 81;

ExtractTemporaryFile('WizModernImage.bmp'); /// интеграция воды
Position := 82;

ExtractTemporaryFile('Trinagle_Info_bmp.bmp');
Position := 83;

ExtractTemporaryFile('Select_pic.bmp');
Position := 84;

ExtractTemporaryFile('WizardForm.PortalC_Image.bmp');
Position := 85;

ExtractTemporaryFile('WizardForm.SpeedBtn.bmp');
Position := 86;

ExtractTemporaryFile('TFormA.bmp'); /// распаковка картинки формы задач
Position := 87;

ExtractTemporaryFile('A_pic.bmp');
Position := 88;

ExtractTemporaryFile('C_pic.bmp');
Position := 89;

ExtractTemporaryFile('T1.bmp');
Position := 90;

ExtractTemporaryFile('T3.bmp');
Position := 93;

ExtractTemporaryFile('WizardForm.Scanner_pic.bmp');
Position := 95;

ExtractTemporaryFile('Ws_markings1.bmp'); /// распаковка картинки формы отмены
    /// распаковка скрина при отсутствии шрифиов /// начало
    if ActiveLanguage='Russian' then
    begin
      ExtractTemporaryFile('RU.jpg');
      RenameFile(ExpandConstant('{tmp}\RU.jpg'), ExpandConstant('{tmp}\NoFont.jpg'));
      Position := 97;
    end;
    if ActiveLanguage='English' then
    begin
      ExtractTemporaryFile('EN.jpg');
      RenameFile(ExpandConstant('{tmp}\EN.jpg'), ExpandConstant('{tmp}\NoFont.jpg'));
      Position := 97;
    end;
    /// конец
ExtractTemporaryFile('LIcon.ico');  /// извлекаем маленькую иконку
Position := 100;
end;

.........................