Delphi/Delphi-OpenCV
1
0
Fork 0
mirror of https://github.com/Laex/Delphi-OpenCV.git synced 2024-11-15 07:45:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/Laex/Delphi-OpenCV

Browse Source
This commit is contained in:
Laex 2013-05-21 03:37:17 +04:00
commit 0a825b3317
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
samples/MultiDemo/FaceDetectAndLockWorkstation/uMainForm.dfm
View File

@ -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

16
samples/MultiDemo/FaceDetectAndLockWorkstation/uMainForm.pas
View File

@ -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