Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/ffc/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/ffc/_datetime.vct

+|VERSION =   3.00!Arial, 0, 9, 5, 15, 12, 21, 3, 0
_clockPixelsgraphics\clock.bmpgraphics\clock.bmpday, date, and time controlClass3
_container_clock�� ��8�%g|v�UT�����C��UTHISPARENTTXTDATEVALUETimer,��1a29)�DPROCEDURE Timer
This.Parent.txtDate.Value = DATETIME()

ENDPROC
NTop = 3
Left = 8
Height = 12
Width = 14
Interval = 1000
Name = "Timer1"
_clockTimer1timer	_base.vcx_timer�DateFormat = 13
Alignment = 2
BackStyle = 0
BorderStyle = 0
Enabled = .F.
Height = 21
Left = 3
Top = 5
Width = 256
BackColor = 255,255,0
DisabledBackColor = 255,255,255
DisabledForeColor = 0,0,0
Name = "txtDate"
_clocktxtDatetextbox	_base.vcx_textbox3timeformat Toggles between 12 and 24 hour format.
�� ���O%����UDT���C�����(T����C�����
��6��UTHIS
TIMEFORMATTXTDATE
DATEFORMATDblClick,��1��2x)��PROCEDURE DblClick
THIS.TimeFormat = ABS(THIS.TimeFormat - 1)
THIS.txtDate.DateFormat = IIF(THIS.TimeFormat=0,13,14)

ENDPROC
[Width = 263
Height = 28
BackStyle = 0
BorderWidth = 0
timeformat = 0
Name = "_clock"
	containerlabel�nsec
nmin
nhour
elapsedseconds The time displayed in the stopwatch in elapsed seconds.
*start Starts stopwatch.
*stop Stops stopwatch.
*reset Resets stopwatch.
*updatedisplay Refresh display.
*increment Increment the stopwatch display.
	container	_base.vcxtimer	tmrSWatch
_stopwatchRTop = 2
Left = 52
Height = 25
Width = 25
Interval = 1000
Name = "tmrSWatch"
label�Height = 180
Width = 198
builder = 
builderx = (HOME()+"Wizards\BuilderD,BuilderDForm")
date_column = 
Name = "_olecalendar"
Pixelsgraphics\watch.bmpgraphics\watch.bmp_olecalendar
_olecalendar2�Width = 92
Height = 27
BackStyle = 0
BorderWidth = 0
nsec = 0
nmin = 0
nhour = 0
elapsedseconds = 0
Name = "_stopwatch"
Class1
olecontrol7	_base.vcx_timer
olecontrol
_stopwatchnsec
nmin
nhour
Pixels	_base.vcx
lblSeparator1.stop watch with start, stop, and reset methodsClass
_container
_stopwatch�AutoSize = .T.
FontBold = .T.
FontName = "Arial"
FontSize = 13
BackStyle = 0
Caption = "00"
Height = 22
Left = 68
Top = 5
Width = 20
Name = "lblSeconds"

_stopwatch
lblSecondslabellabel�AutoSize = .T.
FontBold = .T.
FontName = "Arial"
FontSize = 13
BackStyle = 0
Caption = "00"
Height = 22
Left = 37
Top = 5
Width = 20
Name = "lblMinutes"

_stopwatch
lblMinuteslabellabel�AutoSize = .T.
FontBold = .T.
FontName = "Arial"
FontSize = 13
BackStyle = 0
Caption = "00"
Height = 22
Left = 6
Top = 5
Width = 20
Name = "lblhours"

_stopwatchlblhourslabellabel�FontBold = .T.
FontName = "Arial"
FontSize = 13
Alignment = 0
BackStyle = 0
Caption = ":"
Height = 19
Left = 58
Top = 4
Width = 11
Name = "lblSeparator2"

_stopwatch
lblSeparator2labellabel�AutoSize = .T.
FontBold = .T.
FontName = "Arial"
FontSize = 13
BackStyle = 0
Caption = ":"
Height = 22
Left = 26
Top = 4
Width = 8
Name = "lblSeparator1"

_stopwatch�� ���e%Ynh�U
�����UTHISPARENT	INCREMENTTimer,��1�2()�3PROCEDURE Timer
THIS.Parent.Increment

ENDPROC
2builder
builderx
date_column
*refreshdisplay 
,OLEObject = C:\WINNT\System32\mscomct2.ocx
�PROCEDURE start
This.tmrSWatch.enabled = .T.
ENDPROC
PROCEDURE stop
This.tmrSWatch.enabled = .f.
ENDPROC
PROCEDURE reset
This.nSec = 0
This.nMin = 0
This.nHour = 0
This.UpdateDisplay
ENDPROC
PROCEDURE updatedisplay
LOCAL cSecDisplay , cMinDisplay, cHourDisplay  

cSecDisplay = ALLTRIM(STR(This.nSec))
cMinDisplay = ALLTRIM(STR(This.nMin))
cHourDisplay = ALLTRIM(STR(This.nHour))

This.lblSeconds.Caption = IIF(This.nSec < 10, "0" + m.cSecDisplay , m.cSecDisplay)
This.lblMinutes.Caption = IIF(This.nMin < 10, "0" + m.cMinDisplay , m.cMinDisplay)
This.lblHours.Caption = IIF(This.nHour < 10, "0" + m.cHourDisplay , m.cHourDisplay)

ENDPROC
PROCEDURE increment
THIS.nSec = THIS.nSec + 1

IF THIS.nSec = 60
	THIS.nSec = 0
	THIS.nMin = THIS.nMin + 1
ENDIF

IF THIS.nMin = 60
	THIS.nMin = 0
	THIS.nHour = THIS.nHour + 1
ENDIF
THIS.UpdateDisplay
THIS.ElapsedSeconds = (THIS.nHour * 3600) + ;
                               (THIS.nMin * 60) + ;
                                (This.nSec)

ENDPROC
PROCEDURE Init
#DEFINE SEPARATOR_LOC ':'

This.lblSeparator1.Caption = SEPARATOR_LOC
This.lblSeparator2.Caption = SEPARATOR_LOC

ENDPROC
	�� ���k%�W!�UT����a��UTHIS	TMRSWATCHENABLEDT����-��UTHIS	TMRSWATCHENABLED=T������T������T������
����UTHISNSECNMINNHOUR
UPDATEDISPLAY������T��CC��Z���T��CC��Z���T��CC��Z���1T����C���

�
�0�
���
�6��1T��	��C���

�
�0�
���
�6��1T��
��C���

�
�0�
���
�6��UCSECDISPLAYCMINDISPLAYCHOURDISPLAYTHISNSECNMINNHOUR
LBLSECONDSCAPTION
LBLMINUTESLBLHOURS�T��������%����<��R�T������T���������%����<����T������T���������
����-T���������<����UTHISNSECNMINNHOUR
UPDATEDISPLAYELAPSEDSECONDS+T�����:��T�����:��UTHIS
LBLSEPARATOR1CAPTION
LBLSEPARATOR2start,��stop^��reset���
updatedisplay���	incrementJ��InitU��122�2�BAA3qBqABqA��3CA2-Hd��
��
���+)�
��ࡱ�>��	������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry���������-vՓ��OleObjectData�����AccessObjSiteData&������������\ChangedProps��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������jE.#Ç����uM�!C4
f�_���
\$8651A8940-87C5-11d1-8BE3-0000F8754DA1�'��
-^�
-^�ͫH�W�̻������7527-16060_Classes\zapfile\CLSIDabledFileEditing\server1555}InProcSe�� ��T
%e9�U����T������%�C�
��
���� THIS.Month = MONTH(&cColumn)
THIS.Day = DAY(&cColumn)
THIS.Year = YEAR(&cColumn)
�UCCOLUMNTHISDATE_COLUMN������T��C�i��T��C�%��T��C�H��T��C�
��
��
�$��T����	��%�C�
��
����"REPLACE &cColumn WITH m.dValue
�%�C�THISFORMb�O����
��
���U	STARTDATEENDDATECANCELNYEARNDAYNMONTHDVALUECCOLUMNTHISDATE_COLUMNTHISFORMREFRESHrefreshdisplay,��	SelChange���1q"��A3�����"!A��A2�	�3)�>PROCEDURE refreshdisplay
LOCAL cColumn
cColumn = this.date_column

IF !EMPTY(m.cColumn) THEN
	THIS.Month = MONTH(&cColumn)
	THIS.Day = DAY(&cColumn)
	THIS.Year = YEAR(&cColumn)
ENDIF

ENDPROC
PROCEDURE SelChange
*** ActiveX Control Event ***
LPARAMETERS startdate, enddate, cancel

nYear = YEAR(startdate)
nDay = DAY(startdate)
nMonth = MONTH(startdate)

dValue = DATE(m.nYear, m.nMonth, m.nDay)

cColumn = THIS.date_column

IF !EMPTY(m.cColumn)
	REPLACE &cColumn WITH m.dValue
ENDIF

IF TYPE("THISFORM")="O"
	THISFORM.Refresh
ENDIF

ENDPROC