First, I was editing a rather long post, and then something happened and everything reset to the blank editor - I don't know what I did, hit the wrong key on the keyboard or clicked the wrong thing on the browser. Anyway, everything I typed was gone - POOF! 

So my question is, is my draft saved somewhere, and if so, how do I get it back to continue editing? 

And if not, my suggestion is, can we configure the site to auto-save drafts, and if a user exits without posting it, they can go to some page that lists their unfinished posts, where they can continue editing or delete them? 

I have seen that kind of feature on other Web sites so I know it can be done, not sure if it can be done here, but I figure it's worth asking, after losing all that content!

Wouldn't it be nice to have this feature for Data Restore?

On x Restore data1, data2, data3

instead of needing to code...

Select Case x
Case 1: Restore data1
Case 2: Restore data2
Case 3: Restore data3
End Select

data1:
data eof
data2:
data eof
data3:
data eof

Be sure to post your hate comments in a respectful, non-micro-aggressive and culturally appropriate manner. Oh who am I kidding? Comment however the hell you want!

Pete

Steve's $Embed thread (https://qb64phoenix.com/forum/showthread.php?tid=3142) got my curiosity going.


But first, an FYI:
For several years now I've been using the 7Zip self-extractor to compress software packages, such as editors or compiler suites, into single-file EXEs for easy transport on a thumbdrive.

7Zip's cleverly designed self-extractor stub (which I will call the .SFX) can extract these files into a temporary folder, and then execute a file of my choice.  Normally the executed file would be a script to copy files into a more permanent installation folder, but I instead run that now unpacked editor or a batch file to perform compilation steps.  The .SFX waits patiently and when all programs in the temp folder have ended, the .SFX conscientiously deletes that temp folder.  No muss, no fuss.

This saves a lot of space on a thumbdrive, compressing a 512 megabyte (after the deletion of some non-essential MinGW files) QB64PE suite down to just 53.48 megs.
It also saves a LOT! of time.  I don't know how long it would take to copy all 6350 (again, fat-trimmed) files of QB64PE to a thumbdrive, but copying MinGW alone can take several HOURS.  (At least, it took that long on the thumbdrives I was using.  I will never buy another SanDisk flash drive.  I own several and those turkeys are all SLOW.)

(If anyone is thinking of trying the .SFX stunt described above I have to warn you that it's not for the faint-of-heart.  It's a manual process that cannot be done from the 7Zip GUI.  It took much time, trial, and error to get it all working the way I envisioned.)

I've been trying to clean up IF statements in the game I'm working on. Would it be hard to have SELECT CASE work not just with variables but also with arrays and UDTs?

Imagine:
            SELECT CASE flag '        (booleans)
                CASE .drawShip: .........
                CASE .explode: .........
                CASE .endRound: .........
             END SELECT
Or:
            SELECT CASE fatArray()
                CASE 0 TO 50: ..............
                CASE 51 TO UBOUND(fatArray): ..........
            END SELECT

Would this be cool / useful?

$Resize:On



'_Resize Off

MenuScreen& = _NewImage(1000, 500, 32)

MainScreen& = _NewImage(1400, 965, 32)



start:

Screen MenuScreen&

_ScreenMove 200, 50

_ScreenMove 175, 10

Cls

Print "smaller screen"

wfk



'_Resize On , _Stretch '    causes screen to be shrunken down in size

'_Resize On , _Smooth '    causes screen to be shrunken down in size

'_Resize On '              works correctly

Screen MainScreen&

w# = _Width

h# = _Height

Cls

Print "larger screen as "; w#; " x "; h#

wfk

GoTo start









Sub wfk '  wfk=wait for key

    i$ = ""

    While i$ = ""

        i$ = InKey$

    Wend

    If i$ = Chr$(27) Then System

End Sub

On Discord, we were talking about various things (as usual -- all you guys are invited to join us there!), and the topic came up about how to retrieve the source code from the EXE.  With the new embedding commands, it's simple as heck to embed the BAS source into your program and then retrieve it and restore it later.   

For example, something as simple as this works for us:

'Step One: Embed the source code into your EXE

$Embed:'MyProgramName.Bas','sourcehandle'



'Step Two: Assign a variable to represent the source code

source_code$ = _Embedded$("sourcehandle")



'Step Three: Write a simple routine to retrieve the source

c$ = UCase$(Command$)

If c$ = "-SOURCE" Then

    Open "MyProgramName.tmp" For Output As #1 'so you don't overwrite the original source while testing

    Print #1, source_code$

    Close #1

    System

End If

LOG came in handy for me recently when I was reducing LOC (Lines Of Code) for Classic 2048 Game from Dav's version.

He had all these lines to create a shaded Backcolor for a tile, to get darker as value gets higher:

I found them lying around. If anyone's interested, here's for archival purposes: https://drive.google.com/drive/folders/1...sp=sharing

Hi friends
here a simple demo to get a picturebutton with rollover effect

Rem demo of a pictureButton with rollover effect

Rem here we use one image to load and we create the rollover image on fly



DefLng L



Lscreen = _NewImage(800, 600, 32)

Screen Lscreen

_Title "Rollover PictureButton example"

Cls , _RGBA(127, 28, 211, 255)

If _FileExists("QB64bee.jpeg") Then LBee1 = _LoadImage("QB64bee.jpeg") Else _PrintString (10, 200), "Not found QB64bee"

' here we create the second image used for rollover effect

Lbee2 = _NewImage(50, 50, 32)

_Dest Lbee2

Line (0, 0)-(50, 50), _RGBA(227, 72, 17, 255), BF

_PutImage (3, 3)-(45, 45), LBee1, Lbee2

_Dest 0

_PrintString (10, 140), " move mouse over and out of button, press leftclick on the button, press rightclick to quit"

_PutImage (30, 50)-(80, 100), LBee1, Lscreen ' show picturebutton



Do

    If _MouseInput Then

        If InTheMiddle(30, 80, _MouseX) Then

            If InTheMiddle(50, 100, _MouseY) Then

                lbee = Lbee2

            Else

                lbee = LBee1

            End If

        Else

            lbee = LBee1

        End If

        _PutImage (30, 50)-(80, 100), lbee, Lscreen

    End If

    If _MouseButton(1) And lbee = Lbee2 Then Msg$ = " You have clicked on the button" Else Msg$ = Space$(40)



    _PrintString (10, 200), Msg$

Loop Until _MouseButton(2) = -1

End



Function InTheMiddle (min As Integer, max As Integer, value As Integer)

    If min > max Then Swap min, max

    If min < value And value < max Then

        InTheMiddle = -1

    Else

        InTheMiddle = 0

    End If

End Function

Can't recall if this is a known thing, but I came across this today trying to compile my 2048.bas game in the qb64pe directory.  I had previously made a /2048 directory in that same place of Fellippe's game version.  With the 2048 folder there, my original 2048.bas wouldn't compile anymore.  I renamed Fell's folder to 2048fell and then my 2048.bas would compile.  So to prove it was a name conflict issue, I made a folder named /compile, and tried to compile a file named compile.bas, and it would not compile either until I removed the directory.  So, looks like a filename can't be the same as a directory name (Using Linux here).  

I did the same test using the Windows QB64-PE version (under wine in Linux) and it would compile.  So maybe this is just a Linux issue?

- Dav