blob: 10ba61bcb59494cf1cd1ae62738b3332d14c4c1e (
plain) (
tree)
|
|
� U
�u6/�6A � <pClasses\ULight.pas7�}5 dSysInit�C�� cdSystem�C�� fTObject���_fBooleanW~8fRealS��<fInteger���
g.TObject�BgTObject.SafeCallException�G��gTObject.AfterConstruction�G��gTObject.BeforeDestruction�G��gTObject.Dispatch�G��gTObject.DefaultHandler�G��gTObject.NewInstance�G��gTObject.FreeInstance�G��gTObject.Destroy�G��gFalse����g@ClassCreate���g@AfterConstructionڿ%UgTrue����g@HandleFinallyE�a�ceUTime/�6A cezlportio/�6A g
portwriteb?3%ceSysUtils�C�� gGetTime_T��c4ULight�iif@c&.TLight�ʠ�A
*TLight��u_ Light��x�_.%Data���� �
%Status���� �
%Control���� �
.2f 4SysUtils 2c4zlportio .c4UTime ,c(
TLight.Create���b� H!Self !.c(
TLight.Enable���b� $!Selfc(TLight.SetState���b� "!Self !Statec(TLight.AutoSetState���b� <!Self Statec(
TLight.TurnOn���b� "!Self c(TLight.TurnOff���b� !Self c(TLight.LightOne���b� �!Self!Number!Time&c(TLight.Refresh���b� �!Self Timef TimeSkipf Lc(Finalization�E�a� \! c�(ULight� !c��G �F>: a8 � ,Enabled ,Light
, LightTime ,LastTime A.Create�L-Enable�R-SetState�V-AutoSetState�\-TurnOn�b-TurnOff�f-LightOne�j-Refresh�rcD ���D ����P@ A �L L D �D �l�L L X TLight TLightL ULight ��t���� �@ ��t� d� ���S���C� �[P�[Àx t
�x � Àx t3Ҁx t���x tB� Àx t
� � Àx t3�� �U��SV��{ t(�|3 u�D3��� � �E�5@ ���\��^[]� zDS����{ t=� �$�3Ҁ|u�D��$���w�D B��u�$�CP�D$�CT��� ��[�U��3�Uh% d�0d� � 3�ZYYd�h, �� ��]Ã- �mX 8 8@8 : :8L$&R4V0
\2V
bV
fV
j<\
4j0r4p\||D|*D�VH�.
*
�
f �� � �Tt :
: : : : L F:
R P: V \: \ h: b " �: f $"�: "j &$�: $r (&�: &<
|