Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Edit Boxes
Message
From
14/02/2023 09:22:14
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
01686192
Message ID:
01686202
Views:
38
>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
ALLRIGHT!
Ok... getting positive results...just need to do some tweaking, but the concept is working.
Thank you so much Tamar and Borislav. I don't think I would have ever found this solution on my own.
You guys have made my day.
Have a great day, and thank you again.
Rich
Previous
Reply
Map
View

Click here to load this message in the networking platform