Вопрос Как убрать фон у чекбоксов?

Ekspoint

Новичок
Какие есть варианты что бы убрать фон чекбоксов если на фоне используешь картинку и скин?
 

андрей81

Новичок
Сфармулируй вопрос по точнее, ты имеешь в веду как убрать задний фон у чекбоксов?
 

AtotIK

Новичок
Я "костыляю" вот таким образом:
Код:
var
  ClearModsDir: TCheckBox;

procedure ClearModsDirOnClick(Sender: TObject);
begin
  ClearModsDir.Checked:=Not(ClearModsDir.Checked);
end;

procedure CreateCustomCheckBox();
begin
  ClearModsDir:=TCheckBox.Create(WizardForm);
  with ClearModsDir do
  begin
    Parent:=WizardForm;
    SetBounds(165, 337, 13, 13);
    Checked:=False;
  end;

  ClearModsLabel:=CreateLabel(WizardForm, 185, 336, 0, 0, ExpandConstant('{cm:ClearModsLabel}'), True);
  LabelSetFont(ClearModsLabel, 8, 'Tahoma', $FFFFFF, [fsBold]);
  ClearModsLabel.Alignment:=taLeftJustify;
  ClearModsLabel.OnClick:=@ClearModsDirOnClick;
end;
Создание лейбла править уже не стал, по коду сам поймёшь как дальше.
 
Последнее редактирование:

Ekspoint

Новичок
Я "костыляю" вот таким образом:
Код:
var
  ClearModsDir: TCheckBox;

procedure ClearModsDirOnClick(Sender: TObject);
begin
  ClearModsDir.Checked:=Not(ClearModsDir.Checked);
end;

procedure CreateCustomCheckBox();
begin
  ClearModsDir:=TCheckBox.Create(WizardForm);
  with ClearModsDir do
  begin
    Parent:=WizardForm;
    SetBounds(165, 337, 13, 13);
    Checked:=False;
  end;

  ClearModsLabel:=CreateLabel(WizardForm, 185, 336, 0, 0, ExpandConstant('{cm:ClearModsLabel}'), True);
  LabelSetFont(ClearModsLabel, 8, 'Tahoma', $FFFFFF, [fsBold]);
  ClearModsLabel.Alignment:=taLeftJustify;
  ClearModsLabel.OnClick:=@ClearModsDirOnClick;
end;
Создание лейбла править уже не стал, по коду сам поймёшь как дальше.
спасиб
 
Сверху