Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
Да, про фонСфармулируй вопрос по точнее, ты имеешь в веду как убрать задний фон у чекбоксов?
Как вариант обрабатывать сообщение WM_CTLCOLOR и создавать текстурную кисть. Где-то был пример.Да, про фон
А можно примерчик?Как вариант обрабатывать сообщение WM_CTLCOLOR и создавать текстурную кисть. Где-то был пример.
Может остальные подскажут больше, а я пока занят.
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;
спасибЯ "костыляю" вот таким образом:
Код: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;
Создание лейбла править уже не стал, по коду сам поймёшь как дальше.