WIN-INPUT-TEXT - расширение возможностей????

Обсуждение программ nnCron и nnCron LITE

WIN-INPUT-TEXT - расширение возможностей????

Postby FireWall » Mon, 17 Apr 2006, 21:35

и все-таки не удержался от вопроса здесь :D

WIN-INPUT-TEXT:
я пытался ввести большой текст в поле для ввода - все корректно работает - предела не нашел :)

но вот вчем беда если текст велик то сложно его вводить - не видно что написано ранее, - в связи с этим вопрос - можно это поправить "находу" без новой версии, если нет, то можно ли включить в следущую версию WIN-INPUT-TEXT: но не с edit - строкой ввода, а с полем для ввода - многострочным (хотя бы строк 5)

я "программно" смог изменить значение по default - 20 - высота поля для ввода в окне ввода, но это строка по прежнему осталась строка для ввода - даже если увеличть ее размер (программно обрабытывая окно и элемент edit) то всеравно текст можно вводить только в одну строку :(

отсюда вопрос, как удобно вводить многострочный текст?

и как допустим в текущем варианте окна ввода можно передать в строке символ перевода каретки?
User avatar
FireWall
 
Posts: 46
Joined: Tue, 11 Jan 2005, 23:59

Re: WIN-INPUT-TEXT - расширение возможностей????

Postby Ilya » Tue, 12 Sep 2006, 19:34

FireWall wrote:и все-таки не удержался от вопроса здесь :D

WIN-INPUT-TEXT:
можно это поправить "находу" без новой версии

Было давно, но может кому потребуется
Можно поробовать так:
1) Качаем http://www.forth.org.ru/~ilya/lib/wincon.dll и помещаем в директорию Крона
2) Качаем http://www.forth.org.ru/~ilya/lib/wincon.f (или берём из библиотек Николая) и помещаем в plugins/other/
3) В папке \plugins создаём файл например win-input-text1.spf с содержимым и подключаем как плагин !
Code: Select all
INCLUDE "plugins/other/wincon.f"

CLASS: MyWin1 <SUPER FrameWindow
      Edit OBJ edInput
      :init a v 10 20 pos 150 100 size vStyle @ ES_WANTRETURN OR ES_MULTILINE WS_VSCROLL OR OR vStyle ! tabstop ;
      Button OBJ btOK
      :init a v 10 125 pos 30 10 size S" Ok" text tabstop ;
      Button OBJ btCancel
      :init a v 45 125 pos 30 10 size S" Cancel" text tabstop ;
      Static OBJ stCap
      :init a v 10 10 pos 125 10 size ;
      
      var a
      var u

M: btOKClick
edInput GetText u ! a !
FALSE ModalResult!
;

M: btCancelClick
1 ModalResult!
;

VM: OnExit
1 ModalResult!
;

M: SetCap
stCap SetText
;

M: SetDef
edInput SetText
;

M: Create
Create
AutoCreate
['] btOKClick btOK OnClick !
['] btCancelClick btCancel OnClick !
;

;CLASS


: WIN-INPUT-TEXT-MULTI ( a2 u2 a1 u1 a u -- a u 0 | 1 )
\ Где a2 u2 - default_input_text
\ a1 u1 - prompt_text
\ a u - caption_text
\ Если жали на ОК, то a u 0
\ Иначе 1
{ \ w -- }
MyWin1 NEW TO w
   w ->CLASS MyWin1 vStyle @
   WS_MINIMIZEBOX XOR  WS_THICKFRAME XOR
   w ->CLASS MyWin1 vStyle !
   0 w ->CLASS MyWin1 Create
   200 154 w ->CLASS MyWin1 Center
   w ->CLASS MyWin1 SetText
   w ->CLASS MyWin1 SetCap
   w ->CLASS MyWin1 SetDef
   w ->CLASS MyWin1 ShowModal
   DUP 0=
   IF
   w ->CLASS MyWin1 a @ 
   w ->CLASS MyWin1 u @ 
   ROT
   THEN
   w DELETE

;


 

4) И соответственно в *.tab следующее
Code: Select all
#( win-inp
NoActive
Action:
S" def" S" Privet" S" Ввод" WIN-INPUT-TEXT-MULTI 0= IF MsgBox THEN

)#
Ilya
 
Posts: 445
Joined: Mon, 07 Aug 2006, 09:51
Location: Санкт-Петербург

Re: WIN-INPUT-TEXT - расширение возможностей????

Postby AlikasS » Tue, 25 May 2010, 16:14

Image
вот такое дальнейшее развитие получилось, код чуть позже, если надо?
User avatar
AlikasS
 
Posts: 1437
Joined: Wed, 28 Jun 2006, 05:39
Location: Khabarovsk


Return to nnCron forum (Russian)

Who is online

Users browsing this forum: No registered users and 1 guest

cron