|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
Bartl
Joined: 16 Oct 2009 Posts: 58 Location: M�nchen
|
Posted: Wed Jan 26, 2011 8:40 am Post subject: Edit Box line mark |
|
|
Hello,
two questions:
1. The call EDIT_OPEN_LINE_MARK@ doesn't work, error: Illegal argument to edit_open_line_mark.
What's wrong?
2. Is there a possibility that the cursor right stopps at position 4 after the char "4" , so that only the first 4 characters can be changed?
The problem is, that I need a editor, where only the left half part can be changed.
Thanks for help.
Code: |
winapp 0,0
program eb
implicit none
include<windows.ins>
character*10 buffer
integer*4 e(24),i
buffer = '1234567890'
buffer(10:10) = char(0)
call EDIT_OPEN_LINE_MARK@(e)
i=winio@('%fn[COURIER]&')
i=winio@('%mn[&Ausschneiden,Einf�gen]&','CUT','PASTE')
i=winio@('%14.10`eb[vscrollbar,no_hscroll,alt_edit,read_only,no_cursor_snap]',buffer,14,e)
end
|
|
|
Back to top |
|
|
Wilfried Linder
Joined: 14 Nov 2007 Posts: 314 Location: D�sseldorf, Germany
|
Posted: Wed Jan 26, 2011 1:58 pm Post subject: |
|
|
I think you have to call EDIT_OPEN_LINE_MARK@ after the editor has started. Try and modify this, there's no error message:
Code: | winapp
program eb
implicit none
include<windows.ins>
character*10 buffer
integer*4 e(24),i,zeile
external zeile
common /e_info/ e
e = 0
buffer = '1234567890'
buffer(10:10) = char(0)
i=winio@('%ca[Editor]&')
i=winio@('%fn[COURIER]&')
i=winio@('%mn[&Ausschneiden,&Einf�gen,&Zeile]&','CUT','PASTE',zeile)
i=winio@('%14.10`eb[vscrollbar,no_hscroll,alt_edit,read_only,no_cursor_snap]',buffer,14,e)
end
integer function zeile()
include<windows.ins>
integer*4 e(24)
common /e_info/ e
call EDIT_OPEN_LINE_MARK@(e)
zeile = 1
end |
Regards - Wilfried |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|