Prvni verze na Git

plgKonfig.pas

@@ -0,0 +1,109 @@
+{ *************************************************************************** }
+{                                                                             }
+{   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('<27> 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<72> <20>e<EFBFBD>en<65> pro LOVATO P<>sek');
+end;
+
+
+{ --------------------------------------------------------------------------- }
+
+function TPluginKonfig.GetPluginTechnickyPopis: String;
+begin
+  Result := 'Plugin pro extern<72> <20>e<EFBFBD>en<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 := '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.