Very Simple GUI

[Kernelpanic]

I've downloaded direntry.h and now it works with direntry.h and source file in the c:\qb64 folder but not in a separate folder.  I'll see how it progresses.

Did you set it up accordingly in the editor?

Run -> Output EXE to Source folder

[bplus]

It works also when "direntry." is in the same folder as the source file; Screenshot.
Good to know direntry.h works in source folder but I like to keep it with QB64.exe folder so I only need to keep one copy of it and use from any source folder.

That cute spider is from a program I was running by a Shell _DontWait option from the Get Filename GUI appl. I selected the file shown in the screenshot and ran it. The program is a gag graphics that takes a picture of your desktop and draws a spider spinning a web over it. I will post that in my Proggies Thread for you.

Update: Posted code for Arachnid Spirals in Screen Savers Thread (b+ Corner of this Forum) it was too long to be a proggie. See Prolific Programmers Bplus Screen Savers Reply #21. https://qb64phoenix.com/forum/showthread...51#pid3351

I've downloaded direntry.h and now it works with direntry.h and source file in the c:\qb64 folder but not in a separate folder.  I'll see how it progresses.

Good! thanks for reporting back.

update: Oh reread again, yes +1 KernelPanic's question.

[Kernelpanic]

It works also when "direntry." is in the same folder as the source file; Screenshot.

Ok, the program is running, but where is the "cute" spider? 

Good to know direntry.h works in source folder but I like to keep it with QB64.exe folder so I only need to keep one copy of it and use from any source folder.

That cute spider is from a program I was running by a Shell _DontWait option from the Get Filename GUI appl. I selected the file shown in the screenshot and ran it. The program is a gag graphics that takes a picture of your desktop and draws a spider spinning a web over it. I will post that in my Proggies Thread for you.

Update: Posted code for Arachnid Spirals in Screen Savers Thread (b+ Corner of this Forum) it was too long to be a proggie. See Prolific Programmers Bplus Screen Savers Reply #21. https://qb64phoenix.com/forum/showthread...51#pid3351

Thanks! Wonderful, it crawls across the screen.  But hard to stop.

[Coolman]

@bplus. thank you for your answer. i see what you mean with the full screen mode. yes it's more readable but it's not the solution i'm looking for. in fact, i was planning to develop a video encoder associated with ffmpeg or handbrake with a minimalist interface in a small window always visible in the screen. i think i'll rather use lazarus-freepascal for this development. good luck for your project.

[bplus]

@Kernelpanic is it possible that you already have a direntry.h file in your QB64.exe folder, that would explain why having it in source folder seems to work. I recall having problems with .h files (without paths) in source folder.

I will test myself but this requires I remove or rename my direntry.h file in qb64.exe folder for test.

[Kernelpanic]

@Kernelpanic is it possible that you already have a direntry.h file in your QB64.exe folder, that would explain why having it in source folder seems to work. I recall having problems with .h files (without paths) in source folder.

I will test myself but this requires I remove or rename my direntry.h file in qb64.exe folder for test.

No, the file is just in the same folder as the source file.

[bplus]

Confirmed, I renamed the direntry.h file in QB64.exe file, then put a copy of direntry.h in folder with GUI - Get Filename project and it ran just fine. I was surprised how far along that spider was with it's web, must be that Optimized Compile option I am running in v .0.8.2 ! It makes a difference!

BTW those file and folder lists are pretty fast as well, consider I run the lists to get arrays, join the arrays to get strings then resplit the strings to get arrays again, that's a fair amount of processing,

[Kernelpanic]

So can one stop the spider simply with "x":

Code: (Select All)

While InKey$ <> Chr$(120) 'ASCII Nummer fuer x, stoppt das Programm

[bplus]

So can one stop the spider simply with "x":

Code: (Select All)

While InKey$ <> Chr$(120) 'ASCII Nummer fuer x, stoppt das Programm

LOL still talking about the spider!

Escape should do it but you might switch "end" in the program with "system" which will automatically clear out the old screenshot with active spider. "Press any key to end" doesn't show up well.

Yes, confirmed on my system, I will update the file in Screen Savers Thread.

OK, End wasn't even used, now has System after escape drawing loop, you will be looking at real screen.

[bplus]

I have repacked the last GUI - Get Filename into a multi-file project.

Manifest of zip should be:
   

So now you have direntry.h, the font file used ARLRDBD.TTF, b+ Very Simple GUI.txt  Notes and Change Log
the .bas source and the .BI and .BM library files. I called the main module MainRouter in the BM file.

Interesting 71 LOC in source have to do with specific app Get Filename, the rest is reusable code.

I sure as heck am not going to develop out of 3 files though.