From 220a7627156cea2211f4a7684c95239927ad56c2 Mon Sep 17 00:00:00 2001
From: Michael Grigorev <sleuthhound@gmail.com>
Date: Fri, 17 May 2013 13:22:43 +0600
Subject: [PATCH] Fixed sample FaceDetectAndLockWorkstation

---
 .../FaceDetectAndLockWorkstation/uMainForm.dfm   | 12 ++++++------
 .../FaceDetectAndLockWorkstation/uMainForm.pas   | 16 ++++++++--------
 2 files changed, 14 insertions(+), 14 deletions(-)

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