====== 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;