====== Standard-Funktionen und -Methoden ====== ===== im Module (TinsightsModuleBase) ===== ==== Presets ==== * ActivatePresetsByID ++ Info | \\ //Aktiviert einen Preset für das aktuelle Modul über die PresetID// ++ * CurrentConfigToJson ++ Info | \\ //...// ++ * CurrentConfigFromJson ===== TCommon - insights.common ===== * AddButtonToButtonLayoutGroup ++ Info | \\ //AddButtonToButtonLayoutGroup(dxLayoutGroup, 'btn1', 'btn', 1, 1, GroupButtonClicked);// \\ Beschreibung ++ ===== Drag & Drop ===== * Um das Drag&Drop von Dateien auf ein Modul zu aktivieren, muss man im Modul TinsightsModuleMain.Create **FInfo.AcceptFiles** auf True setzen. * Die auf das Formular gedroppten Dateien können dann in der override-Methode **procedure FilesDropped(const mText: string); override;** ausgewertet werden. procedure TinsightsModuleMain.FilesDropped(const mText: string); begin // direkt im Module Code ausführen oder // den Event OnFilesDropped des formModuleBase (override im eigentlichen Formular) ausführen if assigned(FConfigForm.OnFilesDropped) then FConfigForm.OnFilesDropped(mText); end; Im ConfigForm kann man dann in InitVars dem OnFilesDropped eine eigene Methode zuweise: procedure TformConfigForm.InitVars; begin inherited; OnFilesDropped := FilesDropped; end; procedure TformConfigForm.FilesDropped(const mText: string); begin CodeSite.Send(csmGreen, 'mText', mText); hsSList(mText, #13#10).ForEachI(procedure(const mStr: string; mInt: Integer) begin CodeSite.Send(mInt.ToString, mStr); end); end;