{ *************************************************************************** } { } { PluginExample Asseco Solutions } { } { *************************************************************************** } unit plgKonfig; interface uses plgKonfigBase, ddPlugin_TLB; // ============================================================================ // !!! Konfigurace zavisla na danem pluginu, je treba ji nastavit !!! // ============================================================================ type TPluginKonfig = class(TPluginKonfigBase) protected procedure NastaveniKonfigu; override; function GetPluginVerejneJmeno: String; override; function GetPluginTechnickyPopis: String; override; function GetPluginHistorieVerzi: String; override; public function PartnerIdentification: string; override; function PluginJazykoveDLL (AJazyk: Integer): string; override; procedure VlastniInicializacePluginu (Helios: IHelios); override; end; { =========================================================================== } implementation uses SysUtils, ComObj, plgType, plgMain; { ########################################################################### } procedure TPluginKonfig.NastaveniKonfigu; begin // !! POZOR !! Tento GUID je pouze pro PlgBonum_ExtReseniGornicky3D !! FPluginClass_ID := StringToGUID('{EA0150F1-EA07-45D2-9109-E7349B03AC1B}'); FPluginSystemoveJmeno := 'plgLOVATO'; FPluginClassName := 'runMe'; FPluginMinimalniPozadovanaVerzeHeliosu := Cplg_PrvniUnicodeVerzeHeliosu; FPluginCopyrightVyrobce := Format('© 2012-%d NTS/HD Consulting s.r.o. Strakonice', [Cplg_AktualniRok]); FPluginIdentifikator := 'Lovato'; FPluginMinimalniPozadovanaVerzeSQLServeru:= Cplg_SQLVersion_2022_CU22; end; { --------------------------------------------------------------------------- } function TPluginKonfig.PartnerIdentification: string; begin // zde zadejte partnerskou identifikaci Result := ''; end; { --------------------------------------------------------------------------- } function TPluginKonfig.GetPluginVerejneJmeno: String; begin Result := plgCtiOznam('Plugin Externí řešení pro LOVATO Písek'); end; { --------------------------------------------------------------------------- } function TPluginKonfig.GetPluginTechnickyPopis: String; begin Result := 'Plugin pro externí řešení'; end; { --------------------------------------------------------------------------- } function TPluginKonfig.GetPluginHistorieVerzi: String; begin Result := 'Historie verzí'; end; { --------------------------------------------------------------------------- } function TPluginKonfig.PluginJazykoveDLL (AJazyk: Integer): string; begin case AJazyk of Cplg_jAnglictina, Cplg_jExtAnglictina: Result := 'plgLovatoLng1033.DLL'; else Result := ''; end; end; { --------------------------------------------------------------------------- } procedure TPluginKonfig.VlastniInicializacePluginu (Helios: IHelios); begin // - tato procedura se vola vzdy pri spusteni externi akce !! // - pokud je treba udelat nejakou inicializaci pouze jednou, je treba // pouzit promennou, ktera bude signalizovat prvni a dalsi volani end; { ########################################################################### } end.