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

Текстурирование checkbox/radiobutton

Тема в разделе "Inno Setup", создана пользователем smithyr, 27 дек 2018.

  1. Старожил

    Регистрация:
    7 ноя 2016
    Сообщения:
    13
    Симпатии:
    0
    Пол:
    Мужской
    Подскажите как надеть текстуру на стандартый checkbox или radiobutton в формате .bmp
     
  2. Ветеран Проверенный

    Регистрация:
    18 июн 2011
    Сообщения:
    907
    Симпатии:
    663
    smithyr,
     

    Вложения:

    • xx.rar
      Размер файла:
      1,4 КБ
      Просмотров:
      11
    smithyr нравится это.
  3. Старожил

    Регистрация:
    7 ноя 2016
    Сообщения:
    13
    Симпатии:
    0
    Пол:
    Мужской
    Спасибо за помощь, а как переделать на этой же странице. Мне нужны 2 radiobutton'а и 2 checkbox'а.
     
  4. Ветеран Проверенный

    Регистрация:
    18 июн 2011
    Сообщения:
    907
    Симпатии:
    663
    smithyr,
    [Setup]
    AppName=My Application
    AppVersion=1.5
    DefaultDirName={pf}\My Application
    BitmapResource=BTN:BTNImage.bmp
    ComponentsListBtnImageFile=btnimage.bmp
    [Components]
    Name: text; Description: Язык субтитров; Types: full;
    Name: text\rus; Description: Русский; Flags: exclusive;
    Name: text\eng; Description: Английский; Flags: exclusive;
    Name: voice; Description: Язык озвучки; Types: full;
    Name: voice\rus; Description: Русский; Flags: exclusive;
    Name: voice\eng; Description: Английский; Flags: exclusive;
    [Files]
    Source: compiler:Examples\Readme.txt; DestDir: {app}\1; Check: IsChecked(1)
    Source: compiler:Examples\Readme.txt; DestDir: {app}\2; Check: IsChecked(2)
    Source: compiler:Examples\Readme.txt; DestDir: {app}\3; Check: IsChecked2(1)
    Source: compiler:Examples\Readme.txt; DestDir: {app}\4; Check: IsChecked2(2)
    Код (Text):

    var
     ChkListBox,ChkListBox2: TNewCheckListBox;
     BTN: TBitmapImage;
    function IsChecked(const Index: Integer): Boolean;
    begin
        Result:= ChkListBox.Checked[Index]
    end;
    function IsChecked2(const Index: Integer): Boolean;
    begin
        Result:= ChkListBox2.Checked[Index]
    end;
    procedure InitializeWizard;
    begin
      BTN := TBitmapImage.Create(WizardForm);
      BTN.Bitmap.LoadFromResourceName(HInstance, '_IS_BTN');
      ChkListBox := TNewCheckListBox.Create(WizardForm);
      with ChkListBox do begin
       Parent := WizardForm.SelectDirPage;
       SetBounds(ScaleX(0), ScaleY(110), ScaleX(250), ScaleY(90));
       AddCheckBoxEx('Язык справки', '', 0, True, True, True, True, nil, True);
       AddRadioButtonEx('Rus', '', 1, True, True, nil, False);
       AddRadioButtonEx('Eng', '', 1, True, True, nil, True);
       WantTabs := True;
       ShowLines := True;
       Font.Color := $2222b2;
       Color := WizardForm.Color;
       BorderStyle := bsNone;
       LoadBtnBmpFromBitmap(BTN.Bitmap);
      end;
      ChkListBox2 := TNewCheckListBox.Create(WizardForm);
      with ChkListBox2 do begin
       Parent := WizardForm.SelectDirPage;
       SetBounds(ScaleX(150), ScaleY(110), ScaleX(250), ScaleY(90));
       AddCheckBoxEx('Язык справки', '', 0, True, True, True, True, nil, True);
       AddRadioButtonEx('Rus', '', 1, True, True, nil, False);
       AddRadioButtonEx('Eng', '', 1, True, True, nil, True);
       WantTabs := True;
       ShowLines := True;
       Font.Color := $2222b2;
       Color := WizardForm.Color;
       BorderStyle := bsNone;
       LoadBtnBmpFromBitmap(BTN.Bitmap);
      end;
    end;
    [/SPOILER]
    [​IMG]
     
    smithyr нравится это.
  5. Старожил

    Регистрация:
    7 ноя 2016
    Сообщения:
    13
    Симпатии:
    0
    Пол:
    Мужской
    А возможно дописать в эту функцию какой-нибудь код
    Например удалить папку.

    function IsChecked(const Index: Integer): Boolean;
    begin
    Result:= ChkListBox.Checked[Index]
    end;
     
  6. Ветеран Проверенный

    Регистрация:
    18 июн 2011
    Сообщения:
    907
    Симпатии:
    663
    smithyr,
     

    Вложения:

    • xx.rar
      Размер файла:
      3,9 КБ
      Просмотров:
      5
  7. Старожил

    Регистрация:
    7 ноя 2016
    Сообщения:
    13
    Симпатии:
    0
    Пол:
    Мужской
    Спасибо, то что нужно.
    Вопрос при добавлении ChkListBox3 ошибка
    [​IMG][​IMG]
     
  8. Ветеран Проверенный

    Регистрация:
    18 июн 2011
    Сообщения:
    907
    Симпатии:
    663
    smithyr, ChkListBox2
    0 AddCheckBoxEx('Язык справки', '', 0, True, True, True, True, nil, True);
    1 AddRadioButtonEx('Rus', '', 1, True, True, nil, False);
    2 AddRadioButtonEx('Eng', '', 1, True, True, nil, True);

    ChkListBox3
    0 AddCheckBoxEx('Язык справки', '', 0, True, True, True, True, nil, True);
    1 AddRadioButtonEx('Rus', '', 1, True, True, nil, False);
    2 AddRadioButtonEx('Eng', '', 1, True, True, nil, True);
    3 нету так понятно потому ошибка
     
  9. Старожил

    Регистрация:
    7 ноя 2016
    Сообщения:
    13
    Симпатии:
    0
    Пол:
    Мужской
    Да понял, спасибо. С Наступающим!!!
     
  10. Старожил

    Регистрация:
    7 ноя 2016
    Сообщения:
    13
    Симпатии:
    0
    Пол:
    Мужской
    Архив могу скинуть, посмотрите что не так?
     

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