Das Beispiel gibt es auch in Englisch:
Delphi-Quellcode:
procedure TfrmMain.listFX1Click(Sender: TObject);
var
i: integer;
Item: TListboxItem;
Shape: TSelectionPoint;
begin
if (TransitionAni <> nil) and (TransitionAni.Running) then
TransitionAni.Stop;
if listFX.ItemIndex < 0 then Exit;
// Delete setting controls
if TransitionAni <> nil then
FreeAndNil(TransitionAni);
Dest.DeleteChildren;
panelSettings.Clear;
// Create Filter
if Filter <> nil then
Filter.Free;
Filter := FilterByName(listFX.ListItems[listFX.ItemIndex].Text);
// Create settings
Rec := FilterClassByName(listFX.ListItems[listFX.ItemIndex].Text).FilterAttr;
// labelName.Text := Rec.Desc;
....
https://sourceforge.net/p/radstudiod...pas?format=raw
oder alles:
https://sourceforge.net/p/radstudiod...RadStudio_XE2/
Ist zwar für XE2, aber in BERLIN bzw. TOKYO sicher brauchbar.