1. Уважаемые гости и пользователи форума.
    Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
    Аккаунты, зарегистрированные на временную почту будут также заблокированы.

DLL ISSprite 0.0.7.47

ISSprite - аналог botva2, но с большим функционалом

  1. Безумный Лорд Администратор

    Регистрация:
    15 июн 2011
    Сообщения:
    756
    Симпатии:
    1.108
    Пол:
    Мужской
    Пользователь Shegorat разместил новый ресурс:

    ISSprite - аналог botva2, но с большим функционалом

    Узнать больше об этом ресурсе...
     
    Последнее редактирование: 25 дек 2019
    ffmla, Хамик, YURSHAT и 2 другим нравится это.
  2. Безумный Лорд Администратор

    Регистрация:
    15 июн 2011
    Сообщения:
    756
    Симпатии:
    1.108
    Пол:
    Мужской
    ffmla и Nemko нравится это.
  3. Старожил Супер модератор

    Регистрация:
    5 мар 2016
    Сообщения:
    429
    Симпатии:
    453
    Пол:
    Мужской
    Нашел у себя на HDD чуть примеров(самопальных модулей) с ProgressBar'ами(разные с растяжением и без него, Pie'Bar'ом), TrackBar'ом (как у botva2), Splash(ток через библиотеку IS Sprite, но может криво сделано), CheckBox'ы(не доработано). Плюс информация по функциям и процедурам на "русском"(не судите строго за ошибки орфографии и в терминологии, я не программист и необразованный :pardon:). Может кому пригодится...
     

    Вложения:

    • Example.7z
      Размер файла:
      65,3 КБ
      Просмотров:
      18
    • INFO.txt
      Размер файла:
      52,2 КБ
      Просмотров:
      10
    ffmla нравится это.
  4. Пользователь

    Регистрация:
    24 сен 2015
    Сообщения:
    15
    Симпатии:
    1
    Пол:
    Мужской
    Thank you for the Sprite library and its examples,@Shegorat.:drinks:.

    If you like to update or add some features to this sprite for the extraboost..!.
    I'll request you to add feature called WizardTranslucent{Like recent update of Steam UI}.:happy:
     
  5. Безумный Лорд Администратор

    Регистрация:
    15 июн 2011
    Сообщения:
    756
    Симпатии:
    1.108
    Пол:
    Мужской
    Not in near future...
    Can you provide any example - screenshot or video
     
  6. Пользователь

    Регистрация:
    24 сен 2015
    Сообщения:
    15
    Симпатии:
    1
    Пол:
    Мужской
    Ofcourse,Here the translucent screenshot.
     

    Вложения:

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

    Регистрация:
    24 сен 2015
    Сообщения:
    15
    Симпатии:
    1
    Пол:
    Мужской
    Guys,Help needed for some functions:help:.
    I can't understand what's the use of it?:scratchhead:.
    Код (Text):
    1. 1.procedure spShdSetCharacterExtra(hText: Longword; lpCharExtra: Integer);
    2.   external 'spShdSetCharacterExtra@{tmp}\ISSprite.dll stdcall delayload';
    3.  
    4. 2.procedure spShdSetTag(hText: Longword; lpText: PAnsiChar);
    5.   external 'spShdSetTag@{tmp}\ISSprite.dll stdcall delayload';
    Any example script for the above functions?.

    Thanks in advance...!:greeting:
     
  8. Тех. админ Администратор

    Регистрация:
    26 дек 2011
    Сообщения:
    537
    Симпатии:
    643
    Пол:
    Мужской
    Sets the letter spacing for text (twips)
     
    ffmla нравится это.
  9. Старожил Супер модератор

    Регистрация:
    5 мар 2016
    Сообщения:
    429
    Симпатии:
    453
    Пол:
    Мужской
    ffmla, the Tag property is provided for the convenience of developers. It can be used for storing text(PAnsiChar) and get text(PAnsiChar):
     
    sanekbest1 и ffmla нравится это.
  10. Пользователь

    Регистрация:
    24 сен 2015
    Сообщения:
    15
    Симпатии:
    1
    Пол:
    Мужской
    If you guys have a time,Please take a look....!
    struct at image form creation function.

    In Botva function,{LibCreateFormFromImage & _CreateFormFromImage} used to create Image wizards.By the same way,is there any function avail in ISsprite..?
    If there,Please post some examples.

    Thanks in advance...!

    Purpose: want to show a image when I click the info button.
     
    Последнее редактирование: 7 фев 2020
  11. Тех. админ Администратор

    Регистрация:
    26 дек 2011
    Сообщения:
    537
    Симпатии:
    643
    Пол:
    Мужской
    ffmla, something, like this
    Код (Inno):
    1. #include "issprite.iss"
    2.  
    3. [Setup]
    4. AppName=MyApp
    5. AppVername=MyApp
    6. DefaultDirName={pf}\MyApp
    7. OutputDir=.
    8.  
    9. [Files]
    10. Source: KrinkelsTeam.png; DestDir: {tmp}; Flags: dontcopy
    11. Source: ISSprite.dll; DestDir: {tmp}; Flags: dontcopy;
    12.  
    13. [Code]
    14. var
    15.   InfoButton: TNewButton;
    16.   InfoForm: TSetupForm;
    17.  
    18. procedure CloseInfo(Sender: TObject);
    19. begin
    20.   InfoForm.Close;
    21. end;
    22.  
    23. procedure ShowInfo(Sender: TObject);
    24. begin
    25.   InfoForm := CreateCustomForm;
    26.   try
    27.     with InfoForm do
    28.     begin
    29.       BorderStyle := bsNone;
    30.       ClientWidth := ScaleX(500);
    31.       ClientHeight := ScaleY(258);
    32.       Position := poScreenCenter;
    33.       OnClick := @CloseInfo;
    34.     end;
    35.  
    36.     spImgLoadImage(InfoForm.Handle, PAnsiChar(ExpandConstant('{tmp}\Krinkelsteam.png')), 0, 0, 500, 258, True, True);
    37.     spImgCreateImageForm(InfoForm.Handle, True);
    38.  
    39.     spApplyChanges(InfoForm.Handle);
    40.     InfoForm.ShowModal;
    41.   finally
    42.     InfoForm.Free;
    43.   end;
    44. end;
    45.  
    46. procedure InitializeWizard();
    47. begin
    48.   ExtractTemporaryFile('ISSprite.dll');
    49.   ExtractTemporaryFile('KrinkelsTeam.png');
    50.  
    51.   spInitialize(true, false);
    52.  
    53.   InfoButton := TNewButton.Create(WizardForm);
    54.   with InfoButton do
    55.   begin
    56.     Parent := WizardForm;
    57.     SetBounds(ScaleX(8), ScaleY(325), ScaleX(129), ScaleY(25));
    58.     Caption := 'INFO';
    59.     OnClick := @ShowInfo;
    60.   end;
    61. end;
    62.  
    63. procedure DeinitializeSetup();
    64. begin
    65.   spShutdown;
    66. end;
    67.  
     
    ffmla нравится это.
  12. Пользователь

    Регистрация:
    24 сен 2015
    Сообщения:
    15
    Симпатии:
    1
    Пол:
    Мужской
    Nice example. Thankyou very much...

    I'll try to make a timer to close the info form without clicking the image to close the form.but still the image shown.it doesn't close with timer....any help.
     
  13. Old Men Проверенный

    Регистрация:
    17 июн 2011
    Сообщения:
    469
    Симпатии:
    448
    Пол:
    Мужской
    ffmla,
    Код (Inno):
    1. #include "issprite.iss"
    2.  
    3. [Setup]
    4. AppName=MyApp
    5. AppVername=MyApp
    6. DefaultDirName={pf}\MyApp
    7. OutputDir=.
    8.  
    9. [Files]
    10. Source: 5.png; DestDir: {tmp}; Flags: dontcopy;
    11. Source: ISSprite.dll; DestDir: {tmp}; Flags: dontcopy;
    12.  
    13. [Code]
    14. var
    15.   InfoButton: TNewButton;
    16.   InfoForm: TSetupForm;
    17.   Timer: TTimer;
    18.  
    19. procedure CloseInfo(Sender: TObject);
    20. begin
    21.   Timer.Enabled:= false;
    22.   InfoForm.Close;
    23. end;
    24.  
    25. procedure ShowInfo(Sender: TObject);
    26. begin
    27.   InfoForm:= CreateCustomForm;
    28.   try
    29.     with InfoForm do begin
    30.       BorderStyle:= bsNone;
    31.       ClientWidth:= ScaleX(500);
    32.       ClientHeight:= ScaleY(258);
    33.       Position:= poScreenCenter;
    34.       OnClick:= @CloseInfo;
    35.     end;
    36.  
    37.     spImgLoadImage(InfoForm.Handle, PAnsiChar(ExpandConstant('{tmp}\5.png')), 0, 0, 500, 258, True, True);
    38.     spImgCreateImageForm(InfoForm.Handle, True);
    39.  
    40.     spApplyChanges(InfoForm.Handle);
    41.  
    42.     Timer.Enabled:= true;
    43.  
    44.     InfoForm.ShowModal;
    45.   finally
    46.     InfoForm.Free;
    47.   end;
    48. end;
    49.  
    50. procedure InitializeWizard();
    51. begin
    52.   ExtractTemporaryFile('ISSprite.dll');
    53.   ExtractTemporaryFile('5.png');
    54.  
    55.   spInitialize(true, false);
    56.  
    57.   InfoButton:= TNewButton.Create(WizardForm);
    58.   with InfoButton do begin
    59.     Parent:= WizardForm;
    60.     SetBounds(ScaleX(8), ScaleY(325), ScaleX(129), ScaleY(25));
    61.     Caption:= 'INFO';
    62.     OnClick:= @ShowInfo;
    63.   end;
    64.  
    65.   Timer:= TTimer.Create(WizardForm);
    66.   with Timer do begin
    67.     Interval:= 2000;
    68.     OnTimer:= @CloseInfo;
    69.     Enabled:= false;
    70.   end;
    71. end;
    72.  
    73. procedure DeinitializeSetup();
    74. begin
    75.   spShutdown;
    76. end;
     
    ffmla нравится это.

Поделиться этой страницей