forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Edit Box line mark

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+
View previous topic :: View next topic  
Author Message
Bartl



Joined: 16 Oct 2009
Posts: 52
Location: München

PostPosted: Wed Jan 26, 2011 8:40 am    Post subject: Edit Box line mark Reply with quote

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
View user's profile Send private message
Wilfried Linder



Joined: 14 Nov 2007
Posts: 303
Location: Düsseldorf, Germany

PostPosted: Wed Jan 26, 2011 1:58 pm    Post subject: Reply with quote

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
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+ All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
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