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??
0
0
da się kupić pakiet lub użyć zwykłego radiobuttona i manifest z windows XP
0
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.
0
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.