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

smithyr

Пользователь
Подскажите как надеть текстуру на стандартый checkbox или radiobutton в формате .bmp
 

smithyr

Пользователь
Спасибо за помощь, а как переделать на этой же странице. Мне нужны 2 radiobutton'а и 2 checkbox'а.
 

vint56

Ветеран
Проверенный
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)
Код:
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]
http://fastpic.ru/
 

smithyr

Пользователь
А возможно дописать в эту функцию какой-нибудь код
Например удалить папку.

function IsChecked(const Index: Integer): Boolean;
begin
Result:= ChkListBox.Checked[Index]
end;
 

smithyr

Пользователь
Спасибо, то что нужно.
Вопрос при добавлении ChkListBox3 ошибка
 

vint56

Ветеран
Проверенный
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 нету так понятно потому ошибка
 
Сверху