10-17-2022, 07:16 PM
Well I am not buying your reason not to use _FreeImage:
Memory seems to be holding steady.
This seems pretty complicated way to get flashing cursor, can't it be done in screen 0 and if not in Screen 0 use a line?
OTOH I don't follow all that you do but you put together some nice looking screens.
Code: (Select All)
Sub PSL (y!, x, t$)
_PrintString ((x - 1) * _FontWidth, (y! - 1) * _FontHeight), t$
Overlay_Hardware = _CopyImage(Overlay, 33)
_PutImage (0, 0), Overlay_Hardware
_FreeImage Overlay_Hardware
End Sub
Sub underline (y, x, uflag)
Static ucnt
ucnt = -ucnt - 1
If ucnt Or uflag Then
Line ((x - 1) * _FontWidth, y * _FontHeight)-((x - 1) * _FontWidth + 12, y * _FontHeight), _RGB(24, 24, 24), BF
Else
Line ((x - 1) * _FontWidth, y * _FontHeight)-((x - 1) * _FontWidth + 12, y * _FontHeight), Yellow, BF
End If
Overlay_Hardware = _CopyImage(Overlay, 33)
_PutImage (0, 0), Overlay_Hardware
_FreeImage Overlay_Hardware
End Sub
Memory seems to be holding steady.
This seems pretty complicated way to get flashing cursor, can't it be done in screen 0 and if not in Screen 0 use a line?
OTOH I don't follow all that you do but you put together some nice looking screens.
b = b + ...