|
Post by metro on Apr 15, 2019 8:09:56 GMT -5
No luck for me, also old method does not work (for me) #main.edit,"!selectall"; copy() works ....if I select all with the mouse then click on the button I can paste the contents to another editor
lotoflines$="-Added support for the following new format commands for the texteditor. CLS() - empty the control LINES() - return the number of lines of text LINE$(index) - return the line of text at index MODIFIED() - return non zero if the contents have changedams SELECTION$() - return the selected text SELECTALL() - select the entire contents ORIGIN(col,row) - scroll the contents to col,row SETFOCUS() - give the focus to the widget INSERT(var$) - replace the selection/cursor with the contents of var$ LOCATE(x,y,w,h) - reposition the widget ENABLE() - enable the widget DISABLE() - disable the widget SHOW() = make the widget visible HIDE() - make the widget invisible" WindowWidth=900 WindowHeight=650 UpperLeftX=(DisplayWidth-WindowWidth)/2 UpperLeftY=(DisplayHeight-WindowHeight)/2
texteditor #main.edit, 254, 46, 400, 400 button #main.default, "Copy", [open], UL, 10, 350, 60, 30
open "First LB5 Freeform GUI" for dialog as #main print #main, "font ms_sans_serif 10" [main.inputLoop] 'wait here for input event print #main.edit, lotoflines$ wait
[open] #main.edit selectall() #main.edit COPY() wait'untitled.bas
|
|