- // die folgende Sektion wird automatisch entfernt - Unit, interface und
- // Klassendefinition müssen nicht geparst werden, um uPS Code zu
- // erzeugen.
- // Tags innerhalb der ToBeRemoved Sektion allerdings schon, dies sollte
- // aber kein besonderer Aufwand sein
- //< ToBeRemoved
- Unit TestPanel;
- interface
- class
- //< NewClass
- TPanel = class(TGLPanel)
- //> NewClass
- //< Properties
- Button: TButton;
- //> Properties
- procedure ButtonClick(Sender: TObject);
- constructor Create;
- end;
- implementation
- //> ToBeRemoved
- procedure TPanel.ButtonClick(Sender: TObject);
- begin
- // hier passiert irgendwas
- end;
- constructor TPanel.Create;
- begin
- Self.Button := TButton.Create;
- Self.Button.OnClick := @Self.ButtonClick;
- end;
- //< ToBeRemoved
- end.
- //> ToBeRemoved