Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Edit Boxes
Message
 
To
14/02/2023 08:47:41
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
01686192
Message ID:
01686201
Views:
45
>Yes, Tamar. I did try your suggestion...also added the carriage return too.
>It just doesn't seem to do the trick. After I add a new line, the editbox does not scroll to the bottom so that it shows the last lines of the editbox. I'm likely doing something incorrectly.
>Thanks very much for your help. I guess I'll just try to find some way around the issue.
>Rich
m1 = CREATEOBJECT("Form1")
m1.Show(1)

DEFINE CLASS form1 AS form


    Top = 0
    Left = 0
    Height = 64
    Width = 262
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"


    ADD OBJECT edit1 AS editbox WITH ;
        Height = 52, ;
        Left = 31, ;
        Top = 3, ;
        Width = 185, ;
        Name = "Edit1"


    PROCEDURE Init
        TEXT TO thisform.Edit1.Value NOSHOW TEXTMERGE PRETEXT 1
        Line 1
        Line 2
        Line 3
        Line 4
        Line 5
        Line 6
        Line 7
        Line 8   
        ENDTEXT
        thisform.Edit1.SelStart = LEN(thisform.Edit1.Value)
    ENDPROC
ENDDEFINE
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform