nachdem ich gestern gelernt habe das man mit XbpCRT Fenster noch
ganz andere Sachen machen kann hab ich nun das Problem das ich
meinen Source trotzdem noch Cl*pper kompatible halten möchte.
Nun kann man bei XbpCRT jede beliebige Grösse einstellen
sodas ich 30x100 bei einer 800x600 Auflösung fahren möchte.
(Alaska CRT 16/8 30x100 -> 800x505)
Nun kann man ja bei Cl*pper mit SETMODE(25,80), (43/80) & (50/80)
einstellen. Mit LLIB auch sowas wie SETMODE(43/132) ...
Nun hab ich eine FT_xxx Funktion (Nanfor LIB) gefunden die wohl
auch die verschiednen Modi kennt, aber was darf/kann ich da benutzen.
... einfach so testen geht nicht den "irgendwann" erwischt man einen
Modus wo man "nichts mehr sieht" ...
ich hätt gerne 30x100 ...
gruss by OHR
Jimmy
Code: Alles auswählen
*** snip ***
FUNCTION SwitchMode(cVidMode)
LOCAL aRegs := {},n,nOldRows := MAXROW() + 1,nOldCols := MAXCOL() + 1
IF VALTYPE(cVidMode) <> "C"
cVidMode := ""
ENDIF
IF !EMPTY(cVidMode)
FOR n = 1 TO 10
AADD(aRegs,NIL)
NEXT
cVidMode := ALLTRIM(cVidMode)
aRegs[1] := FT_Hex2Dec(cVidMode)
FT_Int86(FT_Hex2Dec("10"),aRegs)
INKEY(0.5) // seems like the system needs some time to resolve itself
SETMODE() // recalc internal values
ENDIF
RETURN ({nOldRows,nOldCols})
*** eof ***
