9 M 6eäD#ä InputMaskþÙ? <r InputMask.dfme}=p InputMask.pasMz= dSystem fTObject»<úÎfWordNùgTObject.Equalsô\ggTObject.GetHashCodeõ\ggTObject.ToStringö\ggTObject.Dispatchú\ggTObject.NewInstanceü\ggTObject.FreeInstanceý\ggLength g@UStrLeno>G¤D fstringOª]ÏfInteger fÂfBooleanú efPLongintËÉg@UStrClr\ª«>g@HandleFinallyé`pÅf UnicodeStringOª]ÏgExit g @UStrCat3²î cdSysInit cdWindows cdMessages cdSysUtils gTrimY±LcdVariants cdClasses f TShiftState£cìgTComponent.UpdateRegistryÙ§TgTComponent.WriteStateݧTg TComponent.SafeCallExceptionö§TgTPersistent.Assignòg°ÇcdGraphics cdControls gTWinControl.AssignToÄgTWinControl.CanAutoSizeÉgTWinControl.CanResizeÊg TWinControl.ConstrainedResizeÌgTWinControl.CreateHandleÏg#TWinControl.CustomAlignInsertBeforeÓg TWinControl.CustomAlignPositionÔgTWinControl.DestroyWndØg!TWinControl.DockReplaceDockClientÛgTWinControl.GetClientOriginèg TWinControl.GetControlExtentsêg TWinControl.GetDeviceContextëg TWinControl.SetParentBackground g#TWinControl.SetParentDoubleBuffered gTWinControl.ShowControlg+TWinControl.UpdateControlOriginalParentSizegTWinControl.InvalidateGgTWinControl.RepaintMgTWinControl.SetBoundsPgTWinControl.UpdateSgTControl.GetActionv @ùgTControl.GetEnabled| @ùg!TControl.GetFloatingDockSiteClass~ @ùgTControl.SetAutoSize @ùgTControl.SetDragMode @ùgTControl.SetEnabled @ùgTControl.SetName @ùgTControl.SetBiDiMode @ùgTControl.GetDragImages @ùgTControl.InitiateActionÚ @ùf TWinControlõ`ùægmrOk¯}ç1gmrCancel²}ç1cdForms fTFormåègTCustomForm.AlignControls6HÉgTCustomForm.CreateParams:HÉg TCustomForm.CreateWindowHandle;HÉgTCustomForm.CreateWnd<HÉg TCustomForm.DefineProperties>HÉgTCustomForm.DestroyHandle?HÉg TCustomForm.DestroyWindowHandle@HÉgTCustomForm.DoCreateBHÉgTCustomForm.DoDestroyCHÉgTCustomForm.GetClientRectHHÉgTCustomForm.GetFloatingIHÉgTCustomForm.LoadedMHÉgTCustomForm.NotificationNHÉgTCustomForm.PaintWindowPHÉgTCustomForm.ReadStateRHÉgTCustomForm.RequestAlignSHÉg TCustomForm.SetParentBiDiModeUHÉgTCustomForm.SetParentWHÉgTCustomForm.UpdateActionsXHÉgTCustomForm.ValidateRenameZHÉgTCustomForm.WndProc\HÉgTCustomForm.Resizing]HÉgTCustomForm.QueryInterfaceaHÉgTCustomForm.CreateHÉgTCustomForm.CreateNewHÉgTCustomForm.DestroyHÉgTCustomForm.CloseQueryHÉgTCustomForm.DefaultHandlerHÉgTCustomForm.SetFocusHÉg TCustomForm.SetFocusedControl®HÉgTCustomForm.ShowModal°HÉgTCustomForm.WantChildKey±HÉg TCustomForm.AfterConstruction³HÉg TCustomForm.BeforeDestruction´HÉg%TScrollingWinControl.AdjustClientRect|ag&TScrollingWinControl.AutoScrollEnabled~ag%TScrollingWinControl.AutoScrollInViewag.TFormȼßëcdDialogs g ShowMessage
JücdMask f TMaskEdit ¦¹¾g
|
.TMaskEditðygTCustomMaskEdit.GetTextA¨³}gTCustomMaskEdit.SetTextG¨³}cdStdCtrls fTButtonÇCëfTLabel½¿ Äg.TButtonª^=g.TLabel ~cdIISUnit g_MsgÍV&c5 InputMask _¸Ïc5System c5SysInit ,c5Windows .c5Messages 0c5SysUtils 2c5Variants 6c5Classes 8c5Graphics Dc5Controls Fc5Forms c5Dialogs Úc5Mask Þc5StdCtrls èc5IISUnit òc&.TInputMaskForm pÕ¡f *TInputMaskForm Ä InputMaskFormæ gÝ D7.2F ( TInputMaskForm.MaskEdit1KeyUp ¼!Ù¬ ê" !Self !Sender "Key !Shift& . $ . c9 ÿ( TInputMaskForm.MaskEdit2KeyUp ½!Ù¬ ê" !Self !Sender "Key !Shift& . $ . cU ÿ( TInputMaskForm.MaskEdit3KeyUp ¾!Ù¬ æ" !Self !Sender "Key !Shift& . $ . cq ÿ(TInputMaskForm.OkBtClick º!Ù¬ Q" !Self !Sender . $ . . $ . . $ . c ÿ( TInputMaskForm.CancelBtClick »!Ù¬ " !Self !Sender c± ÿ( Finalization é`pÅ \!" c( InputMask !" cþG u FT- a) þØ& , MaskEdit1
|
á Á ÿ,OkBt
|
ñ Å ÿ,CancelBt
|
É ÿ,
|
PolicyNoLb
|
Í ÿ, MaskEdit2
|
!Ñ ÿ, MaskEdit3
|
1Õ ÿ,Label1
|
AÙ ÿ,Label2
|
QÝ ÿ. OkBtClick
|
èá ÿ. CancelBtClick
|
è±å ÿ.MaskEdit1KeyUp
|
è9é ÿ.MaskEdit2KeyUp
|
èUí ÿ.MaskEdit3KeyUp
|
èqñ ÿcD ÿÿÿ @ E " låX ` Û @ O x MaskEdit1| OkBt CancelBt
|
PolicyNoLb MaskEdit2 MaskEdit3 Label1 Label2 OkBtClick CancelBtClick MaskEdit1KeyUp MaskEdit2KeyUp MaskEdit3KeyUpTInputMaskForm TInputMaskFormX l InputMask UìÄøSV3Û]üð3ÀUhf dÿ0d Uüx è EüEøEø
Àtè ø
|
u ÿØ 3ÀZYYdhm Eüè Ãé ëð^[YY] UìÄøSV3Û]üð3ÀUhf dÿ0d Uü è EüEøEø
Àtè øu ÿØ 3ÀZYYdhm Eüè Ãé ëð^[YY] UìÄøSV3Û]üð3ÀUhd dÿ0d Uü è EüEøEø
Àtè Hu| ÿØ 3ÀZYYdhk Eüè Ãé ëð^[YY]Â Uì¹ j j IuùSVØ3ÀUhY dÿ0d Uø è EøUüè EüEôEô
Àtè Hu*Uì³ Æè MìEðºt è UðÆè Uäx è EäUèè EèEôEô
Àtè ø
|
t°ë1UÜ è EÜUàè EàEôEô
Àtè øÀÀtUظ è EØè ë
|
Ǥ 3ÀZYYdh` EØè EÜè Eàè Eäè Eèè Eìè Eðè Eøè Eüè Ãé ë°^[å]à ° ÿÿÿÿ 0 ° ÿÿÿÿ 8eQ<h_/¤ Ǥ ÃUì3ÀUh% dÿ0d ÿ 3ÀZYYdh, Ãé ëø]Ã- ÃmY ) ) -)))Ø
|
@ÎÐÄÀHB¤¦ª|<´>º¼LJNpZ ^r¢t¬vxz°®~¶hjlnÒPRTVX\¨`bdfÆÔÖ¸²¾ÂÈÊÌ )ú ±(9*U*qHâîð - -()$ 9&9(äd9" $ U&U(ädU" $ q&q(ä`q" $ .(ä4Jä
|
*æ ä4Rä4H
|
ôÜ2""""""""" $t ± ½½5½ $ 5 .T
|
:J J:J J:F JB\TÒ*E^ (Pr - - - - - -
|
- - "- $ (&z- &± *(- (9 .*R- *U 2.`- .q 62n- 21 D= A PE PI RàN ýVdr~åýXftY ] ^a ^e `u y l} l n zµ ¹ ½ 49@0=:= þU@0Y:Y þq@0u:uþ`P 0Bþå þ±@ µ µþ½ a
|
