What good is cake if you can't eat it too?

[Pete]

Yeah, these is no way around not constantly updating the putimages if you want to keep the cursor active. I just wanted to make sure, before continuing my WIP buttons in SCREEN 0 project.

Here is all the demos I put together to test these various components...

Code: (Select All)

img& = _LoadImage("activate-static.png", 32)

h1& = _CopyImage(img&, 33)

_FreeImage img&

y = 5: x = 40: skip = 0

Cls

_AutoDisplay

Locate 1, 1: Print "Demo #1. AutoDisplay Text. No change on Key Press.";

Do

    _Limit 30

    b$ = InKey$

    If Len(b$) Then

        If b$ = Chr$(8) Then Run

        If b$ = Chr$(9) Then Exit Do

        If b$ = Chr$(27) Then System

        skip = Not skip

    End If

    Locate 5, 33, 1, 7, 1: Print "Skip ="; skip

    If skip = 0 Then Locate 10, 10, 0: Print "Activate";: Locate y, x, 1

    Locate 15, 10, 0: Print "Activate";: Locate y, x, 1

Loop

Cls

skip = 0

Locate 1, 1: Print "Demo #2. Display Text. No change on Key Press.";

Do

    _Limit 30

    b$ = InKey$

    If Len(b$) Then

        If b$ = Chr$(8) Then Run

        If b$ = Chr$(9) Then Exit Do

        If b$ = Chr$(27) Then System

        skip = Not skip

    End If

    Locate 5, 33, 1, 7, 1: Print "Skip ="; skip

    If skip = 0 Then Locate 10, 10: Print "Activate";:: Locate y, x, 1

    Locate 15, 10: Print "Activate";: Locate y, x, 1

    _Display

Loop

Cls

skip = 0

Locate 1, 1: Print "Demo #3. Loses 1st image on Key Press.";

Do

    _Limit 30

    b$ = InKey$

    If Len(b$) Then

        If b$ = Chr$(8) Then Run

        If b$ = Chr$(9) Then Exit Do

        If b$ = Chr$(27) Then System

        skip = Not skip

    End If

    Locate 5, 33, 1, 7, 1: Print "Skip ="; skip

    If skip = 0 Then _PutImage (10 * 8, 5 * 16), h1&: Locate y, x, 1

    _PutImage (10 * 8, 15 * 16), h1&: Locate y, x, 1

    _Display

Loop

skip = 0

_Display

Locate 1, 1: Print "Demo #4. Keeps Display but Kills Blinking Cursor on Key Press.";

Do

    _Limit 30

    b$ = InKey$

    If Len(b$) Then

        If b$ = Chr$(8) Then Run

        If b$ = Chr$(9) Then Exit Do

        If b$ = Chr$(27) Then System

        skip = Not skip

    End If

    Locate 5, 33, 1, 7, 1: Print "Skip ="; skip

    If skip = 0 Then _PutImage (10 * 8, 5 * 16), h1&: Locate y, x, 1 Else _Continue

    _PutImage (10 * 8, 15 * 16), h1&: Locate y, x, 1

    _Display

Loop

Well that was $1020 well... SPENT!

Pete

- If Clippy got $3 per word, he'd probably still abbreviate What the ****