Prvni verze

extCtrls/plgKonfig.pas

@@ -0,0 +1,110 @@
+{ *************************************************************************** }
+{                                                                             }
+{   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 plgHDCRTN !!
+  FPluginClass_ID := StringToGUID('{66874F1A-0165-4366-89F7-247948CFE933}');
+
+
+  FPluginSystemoveJmeno := 'PluginHDCRTN';
+  FPluginClassName := 'run';
+  FPluginMinimalniPozadovanaVerzeHeliosu := Cplg_PrvniUnicodeVerzeHeliosu;
+  FPluginCopyrightVyrobce := Format('<27> 2024-%d HD Consulting s.r.o. Strakonice', [Cplg_AktualniRok]);
+  FPluginIdentifikator := 'RTN';
+
+  FPluginMinimalniPozadovanaVerzeSQLServeru:= Cplg_SQLVersion_2019_CU24;
+end;
+
+{ --------------------------------------------------------------------------- }
+
+function TPluginKonfig.PartnerIdentification: string;
+begin
+  // zde zadejte partnerskou identifikaci
+  Result := '';
+end;
+
+{ --------------------------------------------------------------------------- }
+
+function TPluginKonfig.GetPluginVerejneJmeno: String;
+begin
+  Result := plgCtiOznam('Plugin Extern<72> <20>e<EFBFBD>en<65> Rootvin');
+end;
+
+
+{ --------------------------------------------------------------------------- }
+
+function TPluginKonfig.GetPluginTechnickyPopis: String;
+begin
+  Result := 'Plugin pro <20>e<EFBFBD>en<65> pl<70>nov<6F>n<EFBFBD> a provozu pek<65>rny (m<>ch<63>n<EFBFBD>/pe<70>en<65>/m<><6D>en<65>/balen<65>)';
+end;
+
+
+{ --------------------------------------------------------------------------- }
+
+function TPluginKonfig.GetPluginHistorieVerzi: String;
+begin
+  Result:= 'Historie verz<72>';
+end;
+
+
+{ --------------------------------------------------------------------------- }
+
+function TPluginKonfig.PluginJazykoveDLL (AJazyk: Integer): string;
+begin
+  case AJazyk of
+    Cplg_jAnglictina,
+    Cplg_jExtAnglictina: Result := 'PluginHDCRTNLng1033.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.