API tools faq
paste
Advertisement
pebriana

Interactive Search / Autocomplete in a Text Box

pebriana
May 11th, 2012
142
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualFoxPro 3.03 KB | None | 0 0
raw download clone embed print report
  1. ****** VFP9 with SP 1
  2. Public oform1
  3.  
  4. oform1=Newobject("form1")
  5. oform1.Show
  6. Return
  7.  
  9. **************************************************
  10. *-- Form:         form1 (\imaginecorp\form11.scx)
  11. *-- ParentClass:  form
  12. *-- BaseClass:    form
  13. *-- Time Stamp:   02/02/07 01:25:12 AM
  14. *
  15. Define Class form1 As Form
  16.  
  17.  
  18.     Top = 3
  19.     Left = 48
  20.     Height = 100
  21.     Width = 375
  22.     DoCreate = .T.
  23.     ShowTips = .T.
  24.     Caption = "Auto Complete"
  25.     Name = "Form1"
  26.  
  27.  
  28.     Add Object command1 As CommandButton With ;
  29.         Top = 67, ;
  30.         Left = 278, ;
  31.         Height = 27, ;
  32.         Width = 84, ;
  33.         Caption = "Close", ;
  34.         TabIndex = 2, ;
  35.         Name = "Command1"
  36.  
  37.  
  38.     Add Object label1 As Label With ;
  39.         AutoSize = .T., ;
  40.         Caption = "Company", ;
  41.         Height = 17, ;
  42.         Left = 60, ;
  43.         Top = 25, ;
  44.         Width = 55, ;
  45.         TabIndex = 3, ;
  46.         Name = "Label1"
  47.  
  48.  
  49.     Add Object text1 As TextBox With ;
  50.         Format = "K", ;
  51.         Height = 23, ;
  52.         Left = 120, ;
  53.         SelectOnEntry = .T., ;
  54.         TabIndex = 1, ;
  55.         Top = 20, ;
  56.         Width = 207, ;
  57.         Name = "Text1"
  58.  
  59.  
  60.     Procedure Load
  61.         If Used("customer")
  62.             Use In customer
  63.         Endif
  64.         **** Do not need to do this if there is an Index
  65.         Set Exclusive On
  66.         ************************************************
  67.         Select 0
  68.         Use Home()+"samples\data\customer.dbf"
  69.         ************************************************
  70.         Index On company Tag company
  71.         Set Order To Tag company
  72.         ************************************************
  73.     Endproc
  74.  
  75.  
  76.     Procedure command1.Click
  77.         Thisform.Release
  78.     Endproc
  79.  
  80.  
  81.     Procedure text1.InteractiveChange
  82.         With This
  83.             If (Lastkey() >= 32 And Lastkey() <= 127)
  84.                 .nIDSelStart = Icase(.nIDSelStart >= 0 And Lastkey() = 127,.nIDSelStart - 1,;
  85.                     .nIDSelStart < 0,0,;
  86.                     .nIDSelStart + 1)
  87.                 Select customer
  88.                 coldtag = Tag()
  89.                 Set Order To Tag company
  90.                 Locate For Substr(Alltrim(Upper(customer.company)),1,.nIDSelStart) = ;
  91.                     Upper(Substr(This.Value,1,.nIDSelStart))
  92.                 ***** Could use a SEEK() as well
  93.                 If  Found()
  94.                     This.Value = customer.company
  95.                 Else
  96.                     If !Empty(This.Value)
  97.                         .nIDSelStart = This.SelStart
  98.                     Else
  99.                         .nIDSelStart = 0
  100.                     Endif
  101.                 Endif
  102.                 This.SelStart = .nIDSelStart
  103.                 Set Order To Tag (coldtag)
  104.             Endif
  105.         Endwith
  106.         This.SelLength = Iif(!Empty(This.Value),(Len(Alltrim(This.Value))-(This.nIDSelStart)),1)
  107.     Endproc
  108.  
  109.  
  110.     Procedure text1.Init
  111.         If !Pemstatus(This,"nIDSelStart",5)
  112.             This.AddProperty("nIDSelStart",0)
  113.         Endif
  114.     Endproc
  115.  
  116.  
  117. Enddefine
  118. *
  119. *-- EndDefine: for
  120. **************************************************
  121. *-- Form:         form1 (\imaginecorp\form11.scx)
  122. *-- ParentClass:  form
  123. *-- BaseClass:    form
  124. *-- Time Stamp:   02/02/07 01:25:12 AM
  125. *
  126. Define Class form1 As Form
  127.  
  128.  
  129.     Top = 3
  130.     Left = 48
  131.     Height = 100
  132.     Width = 375
  133.     DoCreate = .T.
  134.     ShowTips = .T.
  135.     Caption = "Auto Complete"
  136.     Name = "Form1"
  137.  
  138.  
  139.     Add Object command1 As CommandButton With ;
  140.         Top = 67, ;
  141.         Left = 278, ;
  142.         Height = 27, ;
  143.         Width = 84, ;
  144.         Caption = "Close", ;
  145.         TabIndex = 2, ;
  146.         Name = "Command1"
  147.  
  148.  
  149.     Add Object label1 As Label With ;
  150.         AutoSize = .T., ;
  151.         Caption = "Company", ;
  152.         Height = 17, ;
  153.         Left = 60, ;
  154.         Top = 25, ;
  155.         Width = 55, ;
  156.         TabIndex = 3, ;
  157.         Name = "Label1"
  158.  
  159.  
  160.     Add Object text1 As TextBox With ;
  161.         Format = "K", ;
  162.         Height = 23, ;
  163.         Left = 120, ;
  164.         SelectOnEntry = .T., ;
  165.         TabIndex = 1, ;
  166.         Top = 20, ;
  167.         Width = 207, ;
  168.         Name = "Text1"
  169.  
  170.  
  171.     Procedure Load
  172.         If Used("customer")
  173.             Use In customer
  174.         Endif
  175.         **** Do not need to do this if there is an Index
  176.         Set Exclusive On
  177.         ************************************************
  178.         Select 0
  179.         Use Home()+"samples\data\customer.dbf"
  180.         ************************************************
  181.         Index On company Tag company
  182.         Set Order To Tag company
  183.         ************************************************
  184.     Endproc
  185.  
  186.  
  187.     Procedure command1.Click
  188.         Thisform.Release
  189.     Endproc
  190.  
  191.  
  192.     Procedure text1.InteractiveChange
  193.         With This
  194.             If (Lastkey() >= 32 And Lastkey() <= 127)
  195.                 .nIDSelStart = Icase(.nIDSelStart >= 0 And Lastkey() = 127,.nIDSelStart - 1,;
  196.                     .nIDSelStart < 0,0,;
  197.                     .nIDSelStart + 1)
  198.                 Select customer
  199.                 coldtag = Tag()
  200.                 Set Order To Tag company
  201.                 Locate For Substr(Alltrim(Upper(customer.company)),1,.nIDSelStart) = ;
  202.                     Upper(Substr(This.Value,1,.nIDSelStart))
  203.                 ***** Could use a SEEK() as well
  204.                 If  Found()
  205.                     This.Value = customer.company
  206.                 Else
  207.                     If !Empty(This.Value)
  208.                         .nIDSelStart = This.SelStart
  209.                     Else
  210.                         .nIDSelStart = 0
  211.                     Endif
  212.                 Endif
  213.                 This.SelStart = .nIDSelStart
  214.                 Set Order To Tag (coldtag)
  215.             Endif
  216.         Endwith
  217.         This.SelLength = Iif(!Empty(This.Value),(Len(Alltrim(This.Value))-(This.nIDSelStart)),1)
  218.     Endproc
  219.  
  220.  
  221.     Procedure text1.Init
  222.         If !Pemstatus(This,"nIDSelStart",5)
  223.             This.AddProperty("nIDSelStart",0)
  224.         Endif
  225.     Endproc
  226.  
  227.  
  228. Enddefine
  229. *
  230. *-- EndDefine: for
  231. *-- Form:         form1 (\imaginecorp\form11.scx)
  232. *-- ParentClass:  form
  233. *-- BaseClass:    form
  234. *-- Time Stamp:   02/02/07 01:25:12 AM
  235. *
  236. Define Class form1 As Form
  237.  
  238.  
  239.     Top = 3
  240.     Left = 48
  241.     Height = 100
  242.     Width = 375
  243.     DoCreate = .T.
  244.     ShowTips = .T.
  245.     Caption = "Auto Complete"
  246.     Name = "Form1"
  247.  
  248.  
  249.     Add Object command1 As CommandButton With ;
  250.         Top = 67, ;
  251.         Left = 278, ;
  252.         Height = 27, ;
  253.         Width = 84, ;
  254.         Caption = "Close", ;
  255.         TabIndex = 2, ;
  256.         Name = "Command1"
  257.  
  258.  
  259.     Add Object label1 As Label With ;
  260.         AutoSize = .T., ;
  261.         Caption = "Company", ;
  262.         Height = 17, ;
  263.         Left = 60, ;
  264.         Top = 25, ;
  265.         Width = 55, ;
  266.         TabIndex = 3, ;
  267.         Name = "Label1"
  268.  
  269.  
  270.     Add Object text1 As TextBox With ;
  271.         Format = "K", ;
  272.         Height = 23, ;
  273.         Left = 120, ;
  274.         SelectOnEntry = .T., ;
  275.         TabIndex = 1, ;
  276.         Top = 20, ;
  277.         Width = 207, ;
  278.         Name = "Text1"
  279.  
  280.  
  281.     Procedure Load
  282.         If Used("customer")
  283.             Use In customer
  284.         Endif
  285.         **** Do not need to do this if there is an Index
  286.         Set Exclusive On
  287.         ************************************************
  288.         Select 0
  289.         Use Home()+"samples\data\customer.dbf"
  290.         ************************************************
  291.         Index On company Tag company
  292.         Set Order To Tag company
  293.         ************************************************
  294.     Endproc
  295.  
  296.  
  297.     Procedure command1.Click
  298.         Thisform.Release
  299.     Endproc
  300.  
  301.  
  302.     Procedure text1.InteractiveChange
  303.         With This
  304.             If (Lastkey() >= 32 And Lastkey() <= 127)
  305.                 .nIDSelStart = Icase(.nIDSelStart >= 0 And Lastkey() = 127,.nIDSelStart - 1,;
  306.                     .nIDSelStart < 0,0,;
  307.                     .nIDSelStart + 1)
  308.                 Select customer
  309.                 coldtag = Tag()
  310.                 Set Order To Tag company
  311.                 Locate For Substr(Alltrim(Upper(customer.company)),1,.nIDSelStart) = ;
  312.                     Upper(Substr(This.Value,1,.nIDSelStart))
  313.                 ***** Could use a SEEK() as well
  314.                 If  Found()
  315.                     This.Value = customer.company
  316.                 Else
  317.                     If !Empty(This.Value)
  318.                         .nIDSelStart = This.SelStart
  319.                     Else
  320.                         .nIDSelStart = 0
  321.                     Endif
  322.                 Endif
  323.                 This.SelStart = .nIDSelStart
  324.                 Set Order To Tag (coldtag)
  325.             Endif
  326.         Endwith
  327.         This.SelLength = Iif(!Empty(This.Value),(Len(Alltrim(This.Value))-(This.nIDSelStart)),1)
  328.     Endproc
  329.  
  330.  
  331.     Procedure text1.Init
  332.         If !Pemstatus(This,"nIDSelStart",5)
  333.             This.AddProperty("nIDSelStart",0)
  334.         Endif
  335.     Endproc
  336.  
  337.  
  338. Enddefine
  339. *
  340. *-- EndDefine: for
  341. *-- ParentClass:  form
  342. *-- BaseClass:    form
  343. *-- Time Stamp:   02/02/07 01:25:12 AM
  344. *
  345. Define Class form1 As Form
  346.  
  347.  
  348.     Top = 3
  349.     Left = 48
  350.     Height = 100
  351.     Width = 375
  352.     DoCreate = .T.
  353.     ShowTips = .T.
  354.     Caption = "Auto Complete"
  355.     Name = "Form1"
  356.  
  357.  
  358.     Add Object command1 As CommandButton With ;
  359.         Top = 67, ;
  360.         Left = 278, ;
  361.         Height = 27, ;
  362.         Width = 84, ;
  363.         Caption = "Close", ;
  364.         TabIndex = 2, ;
  365.         Name = "Command1"
  366.  
  367.  
  368.     Add Object label1 As Label With ;
  369.         AutoSize = .T., ;
  370.         Caption = "Company", ;
  371.         Height = 17, ;
  372.         Left = 60, ;
  373.         Top = 25, ;
  374.         Width = 55, ;
  375.         TabIndex = 3, ;
  376.         Name = "Label1"
  377.  
  378.  
  379.     Add Object text1 As TextBox With ;
  380.         Format = "K", ;
  381.         Height = 23, ;
  382.         Left = 120, ;
  383.         SelectOnEntry = .T., ;
  384.         TabIndex = 1, ;
  385.         Top = 20, ;
  386.         Width = 207, ;
  387.         Name = "Text1"
  388.  
  389.  
  390.     Procedure Load
  391.         If Used("customer")
  392.             Use In customer
  393.         Endif
  394.         **** Do not need to do this if there is an Index
  395.         Set Exclusive On
  396.         ************************************************
  397.         Select 0
  398.         Use Home()+"samples\data\customer.dbf"
  399.         ************************************************
  400.         Index On company Tag company
  401.         Set Order To Tag company
  402.         ************************************************
  403.     Endproc
  404.  
  405.  
  406.     Procedure command1.Click
  407.         Thisform.Release
  408.     Endproc
  409.  
  410.  
  411.     Procedure text1.InteractiveChange
  412.         With This
  413.             If (Lastkey() >= 32 And Lastkey() <= 127)
  414.                 .nIDSelStart = Icase(.nIDSelStart >= 0 And Lastkey() = 127,.nIDSelStart - 1,;
  415.                     .nIDSelStart < 0,0,;
  416.                     .nIDSelStart + 1)
  417.                 Select customer
  418.                 coldtag = Tag()
  419.                 Set Order To Tag company
  420.                 Locate For Substr(Alltrim(Upper(customer.company)),1,.nIDSelStart) = ;
  421.                     Upper(Substr(This.Value,1,.nIDSelStart))
  422.                 ***** Could use a SEEK() as well
  423.                 If  Found()
  424.                     This.Value = customer.company
  425.                 Else
  426.                     If !Empty(This.Value)
  427.                         .nIDSelStart = This.SelStart
  428.                     Else
  429.                         .nIDSelStart = 0
  430.                     Endif
  431.                 Endif
  432.                 This.SelStart = .nIDSelStart
  433.                 Set Order To Tag (coldtag)
  434.             Endif
  435.         Endwith
  436.         This.SelLength = Iif(!Empty(This.Value),(Len(Alltrim(This.Value))-(This.nIDSelStart)),1)
  437.     Endproc
  438.  
  439.  
  440.     Procedure text1.Init
  441.         If !Pemstatus(This,"nIDSelStart",5)
  442.             This.AddProperty("nIDSelStart",0)
  443.         Endif
  444.     Endproc
  445.  
  446.  
  447. Enddefine
  448. *
  449. *-- EndDefine: for
  450. *-- BaseClass:    form
  451. *-- Time Stamp:   02/02/07 01:25:12 AM
  452. *
  453. Define Class form1 As Form
  454.  
  455.  
  456.     Top = 3
  457.     Left = 48
  458.     Height = 100
  459.     Width = 375
  460.     DoCreate = .T.
  461.     ShowTips = .T.
  462.     Caption = "Auto Complete"
  463.     Name = "Form1"
  464.  
  465.  
  466.     Add Object command1 As CommandButton With ;
  467.         Top = 67, ;
  468.         Left = 278, ;
  469.         Height = 27, ;
  470.         Width = 84, ;
  471.         Caption = "Close", ;
  472.         TabIndex = 2, ;
  473.         Name = "Command1"
  474.  
  475.  
  476.     Add Object label1 As Label With ;
  477.         AutoSize = .T., ;
  478.         Caption = "Company", ;
  479.         Height = 17, ;
  480.         Left = 60, ;
  481.         Top = 25, ;
  482.         Width = 55, ;
  483.         TabIndex = 3, ;
  484.         Name = "Label1"
  485.  
  486.  
  487.     Add Object text1 As TextBox With ;
  488.         Format = "K", ;
  489.         Height = 23, ;
  490.         Left = 120, ;
  491.         SelectOnEntry = .T., ;
  492.         TabIndex = 1, ;
  493.         Top = 20, ;
  494.         Width = 207, ;
  495.         Name = "Text1"
  496.  
  497.  
  498.     Procedure Load
  499.         If Used("customer")
  500.             Use In customer
  501.         Endif
  502.         **** Do not need to do this if there is an Index
  503.         Set Exclusive On
  504.         ************************************************
  505.         Select 0
  506.         Use Home()+"samples\data\customer.dbf"
  507.         ************************************************
  508.         Index On company Tag company
  509.         Set Order To Tag company
  510.         ************************************************
  511.     Endproc
  512.  
  513.  
  514.     Procedure command1.Click
  515.         Thisform.Release
  516.     Endproc
  517.  
  518.  
  519.     Procedure text1.InteractiveChange
  520.         With This
  521.             If (Lastkey() >= 32 And Lastkey() <= 127)
  522.                 .nIDSelStart = Icase(.nIDSelStart >= 0 And Lastkey() = 127,.nIDSelStart - 1,;
  523.                     .nIDSelStart < 0,0,;
  524.                     .nIDSelStart + 1)
  525.                 Select customer
  526.                 coldtag = Tag()
  527.                 Set Order To Tag company
  528.                 Locate For Substr(Alltrim(Upper(customer.company)),1,.nIDSelStart) = ;
  529.                     Upper(Substr(This.Value,1,.nIDSelStart))
  530.                 ***** Could use a SEEK() as well
  531.                 If  Found()
  532.                     This.Value = customer.company
  533.                 Else
  534.                     If !Empty(This.Value)
  535.                         .nIDSelStart = This.SelStart
  536.                     Else
  537.                         .nIDSelStart = 0
  538.                     Endif
  539.                 Endif
  540.                 This.SelStart = .nIDSelStart
  541.                 Set Order To Tag (coldtag)
  542.             Endif
  543.         Endwith
  544.         This.SelLength = Iif(!Empty(This.Value),(Len(Alltrim(This.Value))-(This.nIDSelStart)),1)
  545.     Endproc
  546.  
  547.  
  548.     Procedure text1.Init
  549.         If !Pemstatus(This,"nIDSelStart",5)
  550.             This.AddProperty("nIDSelStart",0)
  551.         Endif
  552.     Endproc
  553.  
  554.  
  555. Enddefine
  556. *
  557. *-- EndDefine: for
  558. *-- Time Stamp:   02/02/07 01:25:12 AM
  559. *
  560. Define Class form1 As Form
  561.  
  562.  
  563.     Top = 3
  564.     Left = 48
  565.     Height = 100
  566.     Width = 375
  567.     DoCreate = .T.
  568.     ShowTips = .T.
  569.     Caption = "Auto Complete"
  570.     Name = "Form1"
  571.  
  572.  
  573.     Add Object command1 As CommandButton With ;
  574.         Top = 67, ;
  575.         Left = 278, ;
  576.         Height = 27, ;
  577.         Width = 84, ;
  578.         Caption = "Close", ;
  579.         TabIndex = 2, ;
  580.         Name = "Command1"
  581.  
  582.  
  583.     Add Object label1 As Label With ;
  584.         AutoSize = .T., ;
  585.         Caption = "Company", ;
  586.         Height = 17, ;
  587.         Left = 60, ;
  588.         Top = 25, ;
  589.         Width = 55, ;
  590.         TabIndex = 3, ;
  591.         Name = "Label1"
  592.  
  593.  
  594.     Add Object text1 As TextBox With ;
  595.         Format = "K", ;
  596.         Height = 23, ;
  597.         Left = 120, ;
  598.         SelectOnEntry = .T., ;
  599.         TabIndex = 1, ;
  600.         Top = 20, ;
  601.         Width = 207, ;
  602.         Name = "Text1"
  603.  
  604.  
  605.     Procedure Load
  606.         If Used("customer")
  607.             Use In customer
  608.         Endif
  609.         **** Do not need to do this if there is an Index
  610.         Set Exclusive On
  611.         ************************************************
  612.         Select 0
  613.         Use Home()+"samples\data\customer.dbf"
  614.         ************************************************
  615.         Index On company Tag company
  616.         Set Order To Tag company
  617.         ************************************************
  618.     Endproc
  619.  
  620.  
  621.     Procedure command1.Click
  622.         Thisform.Release
  623.     Endproc
  624.  
  625.  
  626.     Procedure text1.InteractiveChange
  627.         With This
  628.             If (Lastkey() >= 32 And Lastkey() <= 127)
  629.                 .nIDSelStart = Icase(.nIDSelStart >= 0 And Lastkey() = 127,.nIDSelStart - 1,;
  630.                     .nIDSelStart < 0,0,;
  631.                     .nIDSelStart + 1)
  632.                 Select customer
  633.                 coldtag = Tag()
  634.                 Set Order To Tag company
  635.                 Locate For Substr(Alltrim(Upper(customer.company)),1,.nIDSelStart) = ;
  636.                     Upper(Substr(This.Value,1,.nIDSelStart))
  637.                 ***** Could use a SEEK() as well
  638.                 If  Found()
  639.                     This.Value = customer.company
  640.                 Else
  641.                     If !Empty(This.Value)
  642.                         .nIDSelStart = This.SelStart
  643.                     Else
  644.                         .nIDSelStart = 0
  645.                     Endif
  646.                 Endif
  647.                 This.SelStart = .nIDSelStart
  648.                 Set Order To Tag (coldtag)
  649.             Endif
  650.         Endwith
  651.         This.SelLength = Iif(!Empty(This.Value),(Len(Alltrim(This.Value))-(This.nIDSelStart)),1)
  652.     Endproc
  653.  
  654.  
  655.     Procedure text1.Init
  656.         If !Pemstatus(This,"nIDSelStart",5)
  657.             This.AddProperty("nIDSelStart",0)
  658.         Endif
  659.     Endproc
  660.  
  661.  
  662. Enddefine
  663. *
  664. *-- EndDefine: for
  665. *
  666. Define Class form1 As Form
  667.  
  668.  
  669.     Top = 3
  670.     Left = 48
  671.     Height = 100
  672.     Width = 375
  673.     DoCreate = .T.
  674.     ShowTips = .T.
  675.     Caption = "Auto Complete"
  676.     Name = "Form1"
  677.  
  678.  
  679.     Add Object command1 As CommandButton With ;
  680.         Top = 67, ;
  681.         Left = 278, ;
  682.         Height = 27, ;
  683.         Width = 84, ;
  684.         Caption = "Close", ;
  685.         TabIndex = 2, ;
  686.         Name = "Command1"
  687.  
  688.  
  689.     Add Object label1 As Label With ;
  690.         AutoSize = .T., ;
  691.         Caption = "Company", ;
  692.         Height = 17, ;
  693.         Left = 60, ;
  694.         Top = 25, ;
  695.         Width = 55, ;
  696.         TabIndex = 3, ;
  697.         Name = "Label1"
  698.  
  699.  
  700.     Add Object text1 As TextBox With ;
  701.         Format = "K", ;
  702.         Height = 23, ;
  703.         Left = 120, ;
  704.         SelectOnEntry = .T., ;
  705.         TabIndex = 1, ;
  706.         Top = 20, ;
  707.         Width = 207, ;
  708.         Name = "Text1"
  709.  
  710.  
  711.     Procedure Load
  712.         If Used("customer")
  713.             Use In customer
  714.         Endif
  715.         **** Do not need to do this if there is an Index
  716.         Set Exclusive On
  717.         ************************************************
  718.         Select 0
  719.         Use Home()+"samples\data\customer.dbf"
  720.         ************************************************
  721.         Index On company Tag company
  722.         Set Order To Tag company
  723.         ************************************************
  724.     Endproc
  725.  
  726.  
  727.     Procedure command1.Click
  728.         Thisform.Release
  729.     Endproc
  730.  
  731.  
  732.     Procedure text1.InteractiveChange
  733.         With This
  734.             If (Lastkey() >= 32 And Lastkey() <= 127)
  735.                 .nIDSelStart = Icase(.nIDSelStart >= 0 And Lastkey() = 127,.nIDSelStart - 1,;
  736.                     .nIDSelStart < 0,0,;
  737.                     .nIDSelStart + 1)
  738.                 Select customer
  739.                 coldtag = Tag()
  740.                 Set Order To Tag company
  741.                 Locate For Substr(Alltrim(Upper(customer.company)),1,.nIDSelStart) = ;
  742.                     Upper(Substr(This.Value,1,.nIDSelStart))
  743.                 ***** Could use a SEEK() as well
  744.                 If  Found()
  745.                     This.Value = customer.company
  746.                 Else
  747.                     If !Empty(This.Value)
  748.                         .nIDSelStart = This.SelStart
  749.                     Else
  750.                         .nIDSelStart = 0
  751.                     Endif
  752.                 Endif
  753.                 This.SelStart = .nIDSelStart
  754.                 Set Order To Tag (coldtag)
  755.             Endif
  756.         Endwith
  757.         This.SelLength = Iif(!Empty(This.Value),(Len(Alltrim(This.Value))-(This.nIDSelStart)),1)
  758.     Endproc
  759.  
  760.  
  761.     Procedure text1.Init
  762.         If !Pemstatus(This,"nIDSelStart",5)
  763.             This.AddProperty("nIDSelStart",0)
  764.         Endif
  765.     Endproc
  766.  
  767.  
  768. Enddefine
  769. *
  770. *-- EndDefine: for
  771. *
  772. *-- EndDefine: for
  773. *-- EndDefine: form1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!