Hi,
korzystam z darmowej wersji AlphaControls, ale w paczce nie ma RadioButtona. Mam pytanie, czy da się przystosować RadioButtona do współpracy ze skórkami, albo jakoś ustawić przezroczystość tła, żeby nie było widać szarości na skórce??
da się kupić pakiet lub użyć zwykłego radiobuttona i manifest z windows XP
Zawsze można zrobić np. tak (takie rozwiązanie pośrednie)
Wrzuć na formatkę panel z kolekcji AlphaControls sPanel1
Na niego połóż tyle checkBoxów ile potrzebujesz oczywiście też z tego pakietu kontrolek (typ TsCheckBox)
W onClick pierwszego wklej taki kod:
procedure TForm1.sCheckBox1Click(Sender: TObject);
var i : Integer;
begin
for i:=0 to sPanel1.ControlCount-1 do
if ((sPanel1.Controls[i] is TsCheckBox) and (TsCheckBox(sPanel1.Controls[i]).Name <> (Sender as TsCheckBox).Name)) then
begin
TsCheckBox(sPanel1.Controls[i]).OnClick := nil;
TsCheckBox(sPanel1.Controls[i]).Checked := False;
end;
if (not (Sender as TsCheckBox).Checked) then
(Sender as TsCheckBox).Checked := True;
for i:=0 to sPanel1.ControlCount-1 do
if ((sPanel1.Controls[i] is TsCheckBox) and (TsCheckBox(sPanel1.Controls[i]).Name <> (Sender as TsCheckBox).Name)) then
begin
TsCheckBox(sPanel1.Controls[i]).OnClick := sCheckBox1Click;
end;
end;
W Object Inspectorze onClick z pierwszego (czyli sCheckBox1Click), który ma tą procedurę, przekopiuj do onClick kolejnych checkBoxów.
Dzięki. Mam jeszcze pytanie, czy istnieje jakiś odpowiednik XPManifest, bo w programie korzystam z przezroczystych paneli, rysuje na formie i z tym komponentem wiele rzeczy się rozwaliło i nie działa poprawnie.
Myślałam nad tym. Mam jeszcze do zmieniania TrackBar.
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.