Buchstabensalat im Source (Delphis Beispiele)

[t.roller]

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.