139 lines
3.2 KiB
ObjectPascal
139 lines
3.2 KiB
ObjectPascal
unit pec_TPVKusovnik;
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
VCL.Dialogs,
|
|
plgController,
|
|
ddPlugin_TLB;
|
|
|
|
type
|
|
TplgHDCRTNTPVKusovnikController = class(TplgEditorController)
|
|
protected
|
|
FSKNizsi: IHeNveButtonEdit;
|
|
FRegCisNizsi: IHeNveButtonEdit;
|
|
{
|
|
procedure OnClickEventHandler (const Sender: IHeNveControl); override;
|
|
procedure OnEnterEventHandler (const Sender: IHeNveControl); override;
|
|
procedure OnExitEventHandler (const Sender: IHeNveControl); override;
|
|
procedure OnEditValueChangedEventHandler (const Sender: IHeNveCustomEdit); override;
|
|
procedure OnButtonClickEventHandler (const Sender: IHeNveButtonEdit; AButtonIndex: Integer); override;
|
|
procedure OnChangeEventHandler (const Sender: IHeNveCustomEdit); override;
|
|
}
|
|
public
|
|
procedure FormCreate; override;
|
|
procedure FormDestroy; override;
|
|
end;
|
|
|
|
{ =========================================================================== }
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.SysUtils, System.Variants, plgMain,
|
|
helUtils;
|
|
|
|
|
|
|
|
|
|
procedure TplgHDCRTNTPVKusovnikController.FormCreate;
|
|
begin
|
|
inherited;
|
|
|
|
FSKNizsi:= GetButtonEdit('lciNizsi_SZ');
|
|
FRegCisNizsi:= GetButtonEdit('lciNizsi_RegCis');
|
|
|
|
{
|
|
FOrganizace:= GetButtonEdit(strBtnOrganizace);
|
|
FMena:= GetButtonEdit('lci_gen_atr_Mena');
|
|
|
|
if (FOrganizace<>nil) then
|
|
begin
|
|
FOrganizace.NVE_Switch_OnExitEvent (self, True);
|
|
FOrganizace.NVE_Switch_OnChangeEvent (self, True);
|
|
FOrganizace.NVE_Switch_OnEditValueChangedEvent (self, True);
|
|
end;
|
|
}
|
|
end;
|
|
|
|
|
|
|
|
procedure TplgHDCRTNTPVKusovnikController.FormDestroy;
|
|
begin
|
|
// POZOR! vsechny ukazatele na interface je treba uvolnit!!!
|
|
// jinak muze HELIOS padnout na Access Violation Error!!!
|
|
|
|
FSKNizsi:= nil;
|
|
FRegCisNizsi:= nil;
|
|
|
|
inherited;
|
|
end;
|
|
|
|
|
|
|
|
{
|
|
procedure TplgHDCRTNTPVKusovnikController.OnChangeEventHandler (const Sender: IHeNveCustomEdit);
|
|
var s: string;
|
|
begin
|
|
if (Sender=FOrganizace) then
|
|
begin
|
|
s:= FOrganizace.NVE_FieldValue;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
procedure TplgHDCRTNTPVKusovnikController.OnClickEventHandler (const Sender: IHeNveControl);
|
|
begin
|
|
//
|
|
end;
|
|
|
|
|
|
procedure TplgHDCRTNTPVKusovnikController.OnEnterEventHandler (const Sender: IHeNveControl);
|
|
begin
|
|
// ShowMessage(Sender.NVE_VisualName);
|
|
end;
|
|
|
|
|
|
procedure TplgHDCRTNTPVKusovnikController.OnExitEventHandler (const Sender: IHeNveControl);
|
|
var cOrg: integer;
|
|
s, m: string;
|
|
begin
|
|
if (GetButtonEdit(Sender)=FOrganizace) then
|
|
begin
|
|
s:= FOrganizace.NVE_FieldValue;
|
|
if not(TryStrToInt(s, cOrg)) then
|
|
cOrg:= -1;
|
|
if (cOrg>-1) then
|
|
begin
|
|
m:= helUtils.getHeliosStrVal (Helios, '', 'SELECT ISNULL(Mena,N'''') FROM ' + tblCOrg + ' WHERE CisloOrg=' + cOrg.ToString);
|
|
if (m<>'') and (FMena<>nil) then
|
|
FMena.NVE_FieldValue:= m;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
procedure TplgHDCRTNTPVKusovnikController.OnEditValueChangedEventHandler (const Sender: IHeNveCustomEdit);
|
|
begin
|
|
if (Sender.NVE_VisualName=strBtnOrganizace) then
|
|
begin
|
|
OnExitEventHandler (FOrganizace);
|
|
// s:= (Sender as IHeNveButtonEdit).NVE_FieldValue;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
procedure TplgHDCRTNTPVKusovnikController.OnButtonClickEventHandler (const Sender: IHeNveButtonEdit; AButtonIndex: Integer);
|
|
begin
|
|
// if (Sender=FOrganizace) then
|
|
end;
|
|
|
|
}
|
|
|
|
end.
|