diff --git a/samples/MultiDemo/FaceDetectAndLockWorkstation/uMainForm.dfm b/samples/MultiDemo/FaceDetectAndLockWorkstation/uMainForm.dfm index 861794c..2012ec7 100644 --- a/samples/MultiDemo/FaceDetectAndLockWorkstation/uMainForm.dfm +++ b/samples/MultiDemo/FaceDetectAndLockWorkstation/uMainForm.dfm @@ -163,8 +163,8 @@ object MainForm: TMainForm end end object LWImageList: TImageList - Left = 160 - Top = 136 + Left = 184 + Top = 112 Bitmap = { 494C010102000500040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000001000000001002000000000000010 @@ -308,15 +308,15 @@ object MainForm: TMainForm object LWThreadTimer: TJvThreadTimer Interval = 5000 OnTimer = LWThreadTimerTimer - Left = 80 - Top = 136 + Left = 48 + Top = 112 end - object jvtrycn1: TJvTrayIcon + object LWJVTrayIcon: TJvTrayIcon Active = True IconIndex = 0 Icons = LWImageList PopupMenu = LWPopupMenu Left = 116 - Top = 136 + Top = 112 end end diff --git a/samples/MultiDemo/FaceDetectAndLockWorkstation/uMainForm.pas b/samples/MultiDemo/FaceDetectAndLockWorkstation/uMainForm.pas index a5dc0e1..60c8742 100644 --- a/samples/MultiDemo/FaceDetectAndLockWorkstation/uMainForm.pas +++ b/samples/MultiDemo/FaceDetectAndLockWorkstation/uMainForm.pas @@ -43,7 +43,7 @@ type LWLTotalPCLock: TLabel; LWButtonStartStop: TButton; LWButtonAbout: TButton; - jvtrycn1: TJvTrayIcon; + LWJVTrayIcon: TJvTrayIcon; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure LWTimerRadioGroupClick(Sender: TObject); @@ -143,7 +143,7 @@ begin CanClose := ((LWMainFormHidden) or SessionEnding); if not CanClose then begin - jvtrycn1.HideApplication; + LWJVTrayIcon.HideApplication; LWMainFormHidden := True; LWPopupMenu.Items[0].Caption := 'Show'; end; @@ -154,7 +154,7 @@ procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word; begin if Key = VK_ESCAPE then begin - jvtrycn1.HideApplication; + LWJVTrayIcon.HideApplication; LWMainFormHidden := True; LWPopupMenu.Items[0].Caption := 'Show'; end; @@ -167,8 +167,8 @@ begin WTSRegisterSessionNotification(Handle, NOTIFY_FOR_ALL_SESSIONS); FintLockedCount := 0; // End - jvtrycn1.Hint := ProgramsName; - jvtrycn1.IconIndex := 1; + LWJVTrayIcon.Hint := ProgramsName; + LWJVTrayIcon.IconIndex := 1; LWThreadTimer.Interval := LWSpinEditWaitTime.Value*1000; // Запуск захвата StartCapture; @@ -289,14 +289,14 @@ procedure TMainForm.LWCoolTrayIconDblClick(Sender: TObject); begin if LWMainFormHidden then begin - jvtrycn1.ShowApplication; + LWJVTrayIcon.ShowApplication; LWMainFormHidden := False; LWPopupMenu.Items[0].Caption := 'Hide'; end else begin Application.Minimize; - jvtrycn1.HideApplication; + LWJVTrayIcon.HideApplication; LWMainFormHidden := True; LWPopupMenu.Items[0].Caption := 'Show'; end; @@ -330,7 +330,7 @@ begin end else LWThreadTimer.Enabled := True; - jvtrycn1.Hint := Format('%s (Total face: %s)', [ProgramsName, IntToStr(MyCtx.TotalFaceDetect)]); + LWJVTrayIcon.Hint := Format('%s (Total face: %s)', [ProgramsName, IntToStr(MyCtx.TotalFaceDetect)]); LTotalFace.Caption := IntToStr(MyCtx.TotalFaceDetect); if not LWMainFormHidden then begin