From: Sammy Mitchell
dBit AS[SMTP:dbit@sn.no] wrote:
> For a specific macro purpose, I would like to modify TSE normal editing
> screen so that for example:
>
> - The menu bar/statusline shows up at screen line 1 as before
> - Line 2-3 could be used for "own purposes" - (database column headers)
> - Normal editing data starts at screen line 4
>
> It would like to solve it for both TSE 2.5 and 2.8...
>
> Sorry for my english, it's easier to write error-free SAL-code!
Your English sounds pretty good to me!
Here is something I came up with - I hope it helps!
/**************************************************************************
Demonstrates creating a 'reserved' area on the screen.
This macro reserves lines 2..4 of the screen, for whatever you want to
display there.
The area will be reserved until:
OneWindow, HWindow, or VWindows is called
As written, this macro assumes:
Statusline is at top
menu is off
displayboxed is off
You must adjust the macro in order to change any of these settings
The undocumented MakeEditWindow call is used. Format is:
MakeEditWindow(window_id, x1, y1, number_of_columns, number_of_rows)
ClearEditorWindows() *must* be called first, then MakeEditorWindow for
each window to be created, and finally, FinishEditWindows().
See the state macro (state.s) for more details on using these functions.
These are undocumented functions - no warranty - use with caution.
**************************************************************************/
proc main()
integer y
ClearEditWindows()
MakeEditWindow(1, 1, 5, Query(ScreenCols), Query(ScreenRows) - 4)
FinishEditWindows()
UpdateDisplay()
Set(Attr, 7)
for y = 2 to 4
vGotoXY(1, y)
ClrEol()
endfor
end
--
Sammy Mitchell, SemWare Corp., www.semware.com
---
---------------
* Origin: apana>>>>>fidonet [sawasdi.apana.org.au] (3:800/846.13)
|