110 lines
3.4 KiB
ObjectPascal
110 lines
3.4 KiB
ObjectPascal
{ *************************************************************************** }
|
|
{ }
|
|
{ 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.
|