TomBuzin/HDCApi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Dalsi zmeny

Browse Source
This commit is contained in:
TomBuz
2026-03-03 16:18:27 +01:00
parent 03ff9ebc84
commit a62b608cfd
97 changed files with 4635 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
uCtrlBase.pas
View File

@ -24,6 +24,7 @@ uses
{$IF DEFINED(CUSTOM_CTRL_Rootvin)}, uSvcCustom {$ENDIF}
{$IF DEFINED(CUSTOM_CTRL_INCOSystems)}, uSvcCustom {$ENDIF}
{$IF DEFINED(CUSTOM_CTRL_Gornicky)}, uSvcCustom {$ENDIF}
{$IF DEFINED(CUSTOM_CTRL_Westra)}, uSvcCustom {$ENDIF}
{$IF DEFINED(CUSTOM_CTRL_EMPolar)}, uSvcCustom {$ENDIF}
{$IF DEFINED(CUSTOM_CTRL_GatemaSD)}, uSvcCustomSDG {$ENDIF}
;
@ -87,8 +88,12 @@ type
{$IFDEF CUSTOM_CTRL_Gornicky}
FGornickyService: TGornickyService;
{$ENDIF}
{$IFDEF CUSTOM_CTRL_Westra}
FWestraService: TWestraService;
{$ENDIF}
{$IFDEF CUSTOM_CTRL_EMPolar}
FEMPNadobaService: TEMPNadobaService;
FEMPVytezeniDoklService: TEMPVytezeniDoklService;
{$ENDIF}
function GetDataModule: TdatMod;
strict protected
@ -148,8 +153,12 @@ type
{$IFDEF CUSTOM_CTRL_Gornicky}
function GetGornickyService: TGornickyService;
{$ENDIF}
{$IFDEF CUSTOM_CTRL_Westra}
function GetWestraService: TWestraService;
{$ENDIF}
{$IFDEF CUSTOM_CTRL_EMPolar}
function GetEMPNadobaService: TEMPNadobaService;
function GetEMPVytezeniDoklService: TEMPVytezeniDoklService;
{$ENDIF}
public
constructor Create; override;
@ -267,8 +276,13 @@ uses
FGornickyService.Free;
{$ENDIF}
{$IFDEF CUSTOM_CTRL_Westra}
FWestraService.Free;
{$ENDIF}
{$IFDEF CUSTOM_CTRL_EMPolar}
FEMPNadobaService.Free;
FEMPVytezeniDoklService.Free;
{$ENDIF}
if Assigned(FDM) then
@ -630,6 +644,16 @@ uses
{$ENDIF}
{$IFDEF CUSTOM_CTRL_Westra}
function TBaseController.GetWestraService: TWestraService;
begin
if not Assigned(FWestraService) then
FWestraService:= TWestraService.Create (GetDataModule);
result:= FWestraService;
end;
{$ENDIF}
{$IFDEF CUSTOM_CTRL_EMPolar}
function TBaseController.GetEMPNadobaService: TEMPNadobaService;
begin
@ -637,6 +661,13 @@ uses
FEMPNadobaService:= TEMPNadobaService.Create (GetDataModule);
result:= FEMPNadobaService;
end;
function TBaseController.GetEMPVytezeniDoklService: TEMPVytezeniDoklService;
begin
if not Assigned(FEMPVytezeniDoklService) then
FEMPVytezeniDoklService:= TEMPVytezeniDoklService.Create (GetDataModule);
result:= FEMPVytezeniDoklService;
end;
{$ENDIF}