Very Simple GUI
#41
Quote: @bplus. if you have the time. a code example would be cool!

@Coolman Have you tried replacing _ScreenMove ... with _FullScreen plus adding escape code because the X box top right won't be showing, still there is always Alt +F4 for esacping a full screen app.... I think it will solve small font size nicely! Even if ratio is off it's kind of cool to see tall or fat font.

Code: (Select All)
Sub OpenWindow (WinWidth As Long, WinHeight As Long, title$)
    Screen _NewImage(WinWidth, WinHeight, 32)
    _FullScreen '_ScreenMove 100, 20   ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< one simple change
    _PrintMode _KeepBackground
    _Title title$
    Color &HFFFFFFFF, screenBC
    Cls
End Sub

[Image: Full-Screen-GUI.png]

PS the $resize option I think is if you want to drag borders in or out to make more room or less on screen, it won't change font sizes.
b = b + ...
Reply
#42
(06-17-2022, 12:55 PM)bplus Wrote:
(06-17-2022, 12:35 PM)Kernelpanic Wrote: 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://staging.qb64phoenix.com/showthre...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.
Reply
#43
Quote: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
Reply
#44
(06-17-2022, 02:36 PM)RNBW Wrote:
(06-17-2022, 12:55 PM)bplus Wrote:
(06-17-2022, 12:35 PM)Kernelpanic Wrote: 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://staging.qb64phoenix.com/showthre...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.
b = b + ...
Reply
#45
(06-17-2022, 12:55 PM)bplus Wrote:
(06-17-2022, 12:35 PM)Kernelpanic Wrote: 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?  Huh
[Image: direntry-im-Sourcefolder2022-06-17.jpg]

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://staging.qb64phoenix.com/showthre...51#pid3351

Thanks! Wonderful, it crawls across the screen.  Big Grin But hard to stop.
Reply
#46
@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.
Reply
#47
@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.
b = b + ...
Reply
#48
(06-17-2022, 03:04 PM)bplus Wrote: @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.

[Image: direntry-folder.jpg]
Reply
#49
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,
b = b + ...
Reply
#50
So can one stop the spider simply with "x":

Code: (Select All)
While InKey$ <> Chr$(120) 'ASCII Nummer fuer x, stoppt das Programm
Reply




Users browsing this thread: 36 Guest(s)