Skip to content

SelectScreen

Samuel Gomes edited this page Nov 8, 2022 · 1 revision

This screen mode selector shows a list of common video modes found on desktop and laptops graphics cards, and some square modes. It has full mouse support. It also has the ability to filter video modes for a specific aspect ratio.

Some of you might have seen this in my previous graphics program. I'm now releasing it as a library.

It's a two-part library that can be plugged into any program (using $INCLUDE). It's two-part because it contains definitions at the start of the program, and subroutines. Originally, $INCLUDE was made for compiled libraries, so there's no default support to include QuickBASIC code inside them, which is just what I've done. Therefore you need two text files included at different locations in a graphics program.

Example(s)

Example BAS Code: SelectResolution.BAS Demo example should be compiled by QB64 only.

DEFINT A-Z

'$INCLUDE: 'selectResolution.bi'

PRINT "This is screen mode 0. Select another screen mode after pressing a key."
PRINT "Press any key..."
i$ = INPUT$(1)

selectResolution 4, width, height
IF width = 0 THEN
    PRINT
    PRINT "ESC pressed. Exiting."
    END
END IF

SCREEN _NEWIMAGE(width, height, 32) ' '
PRINT "This is your selected screen"
PRINT "mode. Press any key to select"
PRINT "another mode. To demonstrate"
PRINT "that it keeps your screen mode"
PRINT "in case you cancel, press ESC"
PRINT "when selecting a mode."
i$ = INPUT$(1)

selectResolution 4, width, height
IF width = 0 THEN
    PRINT
    PRINT "ESC pressed. Exiting."
    END
END IF

SCREEN _NEWIMAGE(width, height, 32)
PRINT "This is your selected screen mode."
PRINT "Press any key to end."
i$ = INPUT$(1)


'$INCLUDE: 'selectResolution.bm'

$INCLUDE the .bi file on top of your program and the .bm file at the bottom, after your own SUBs.

To create the BI and BM files, copy them to Notepad and Save as ALL FILES with appropriate filename extensions!

SelectResolution.bi Code:


'#########################################################################################
'# Resolution selector v1.2 (include at top of program code)
'# By Zom-B
'#########################################################################################

videoaspect:
DATA "all aspect",15
DATA "4:3",11
DATA "16:10",10
DATA "16:9",14
DATA "5:4",13
DATA "3:2",12
DATA "5:3",9
DATA "1:1",7
DATA "other",8
DATA ,

videomodes:
DATA 256,256,7
DATA 320,240,1
DATA 400,300,1
DATA 512,384,1
DATA 512,512,7
DATA 640,480,1
DATA 720,540,1
DATA 768,576,1
DATA 800,480,2
DATA 800,600,1
DATA 854,480,3
DATA 1024,600,8
DATA 1024,640,2
DATA 1024,768,1
DATA 1024,1024,7
DATA 1152,768,5
DATA 1152,864,1
DATA 1280,720,3
DATA 1280,768,6
DATA 1280,800,2
DATA 1280,854,5
DATA 1280,960,1
DATA 1280,1024,4
DATA 1366,768,3
DATA 1400,1050,1
DATA 1440,900,2
DATA 1440,960,5
DATA 1600,900,3
DATA 1600,1200,1
DATA 1680,1050,2
DATA 1920,1080,3
DATA 1920,1200,2
DATA 2048,1152,3
DATA 2048,1536,1
DATA 2048,2048,7
DATA ,,


The $INCLUDE of the function should be after your main program!

Otherwise you would get the error "Statement cannot be placed between SUB/FUNCTIONs"

SelectResolution.bm Code:


'####################################################################################################################
'# Resolution selector v1.3 (routines)
'# By Zom-B
'# 'Start in any mode' feature by codeguy.
'####################################################################################################################

SUB selectResolution (row%, width%, height%)
    backupScreen& = _COPYIMAGE
    SCREEN 0

    ' Start neatly.
    COLOR 7

    yOffset% = row% - 1

    'READ the DATA from the include file, while storing it in local arrays.
    DIM aspectName$(0 to 9), aspectCol%(0 to 9)
    RESTORE videoaspect
    FOR y% = 0 TO 10
        READ aspectName$(y%), aspectCol%(y%)
        IF aspectCol%(y%) = 0 THEN numAspect% = y% - 1: EXIT FOR
    NEXT

    DIM vidX%(1 to 100), vidY%(1 to 100), vidA%(1 to 100)
    RESTORE videomodes
    FOR y% = 1 TO 100
        READ vidX%(y%), vidY%(y%), vidA%(y%)
        IF vidX%(y%) <= 0 THEN numModes% = y% - 1: EXIT FOR
    NEXT

    ' If not called from SCREEN 0, set the number of screen rows to maximum.
    ' Otherwise, the height of the old screen is re-used.
    IF _PIXELSIZE(backupScreen&) THEN WIDTH , numModes% + row%: _FONT 16

    ' Clip the number of modes to the height of the screen.
    IF numModes% > _HEIGHT - yOffset% - 1 THEN numModes% = _HEIGHT - yOffset% - 1

    ' Select the text mode's segment for later SCREEN 0 POKEing.
    DEF SEG = &HB800

    LOCATE yOffset% + 1, 1
    PRINT "Select video mode:"; TAB(61); "Click"

    ' Print the down-pointing triangle (which isn't a PRINTable character! (try it))
    POKE (yOffset% * 80 + 66) * 2, 31

    'Initialize some things before entering the loop.
    selectedAspect% = 0 ' The selected aspect ratio item
    lastY% = 0 ' The screen Y coordinate of the previously highlighted item
    reprint% = -1 ' Used to signal that a reprint of the screen is needed
    lastButton% = 0 ' memory variable to detect a 'depress' of the mouse button
    DO
        ' Cancel on ESC.
        IF INKEY$ = CHR$(27) THEN
            width% = 0
            height% = 0
            EXIT DO
        END IF

        ' Don't reprint every iteration, only when something changed.
        IF reprint% THEN
            reprint% = 0

            FOR x% = 1 TO numModes%
                LOCATE yOffset% + x% + 1, 1

                ' Print the video mode number in gray.
                COLOR 7, 0
                PRINT USING "##:"; x%;

                ' Print the video mode data in it's assigned aspect ratio color (if no aspect ratio is selected),
                ' otherwise, make matching video modes white and others dark gray.
                IF selectedAspect% = 0 THEN
                    COLOR aspectCol%(vidA%(x%))
                ELSEIF selectedAspect% = vidA%(x%) THEN
                    COLOR 15
                ELSE
                    COLOR 8
                END IF
                PRINT STR$(vidX%(x%)); ","; vidY%(x%);
            NEXT

            FOR x% = 0 TO numAspect%
                ' Print the aspect ratios. The selected one (if any) with dark cyan background.
                IF x% > 0 AND selectedAspect% = x% THEN
                    COLOR aspectCol%(x%), 3
                ELSE
                    COLOR aspectCol%(x%), 0
                END IF
                LOCATE yOffset% + x% + 2, 64
                PRINT "<"; aspectName$(x%); ">"
            NEXT
        END IF

        IF _MOUSEINPUT THEN
            IF lastY% > 0 THEN
                ' Un-highlight any selected item by reverting the color of the entire screen row (while leaving text intact).
                FOR x% = 0 TO 159 STEP 2
                    POKE lastY% + x%, PEEK(lastY% + x%) AND &HEF
                NEXT
            END IF

            x% = _MOUSEX
            y% = _MOUSEY - yOffset% - 1

            ' Check if we should highlight a video mode or aspect ratio.
            IF x% <= 60 THEN
                IF y% > 0 AND y% <= numModes% THEN
                    ' Exit if the highlighted video mode has been 'clicked' (ie. when the mouse button is depressed).
                    IF _MOUSEBUTTON(1) = 0 AND lastButton% THEN
                        width% = vidX%(y%)
                        height% = vidY%(y%)
                        EXIT DO
                    END IF

                    ' Highlight selected video mode by changing the color of the entire item (while leaving text intact).
                    y% = (yOffset% + y%) * 160 + 1
                    FOR x% = 0 TO 119 STEP 2
                        POKE y% + x%, PEEK(y% + x%) OR &H10
                    NEXT
                ELSE
                    y% = 0
                END IF
            ELSE
                IF y% > 0 AND y% - 1 <= numAspect% THEN
                    IF _MOUSEBUTTON(1) THEN
                        selectedAspect% = y% - 1
                        reprint% = -1
                    END IF

                    ' Highlight selected aspect ratio by changing the color of the entire item (while leaving text intact).
                    y% = (yOffset% + y%) * 160 + 1
                    FOR x% = 120 TO 159 STEP 2
                        POKE y% + x%, PEEK(y% + x%) OR &H10
                    NEXT
                ELSE
                    y% = 0
                END IF
            END IF
            lastY% = y%
            lastButton% = _MOUSEBUTTON(1)
        END IF
    LOOP

    ' Exit neatly.
    SCREEN backupScreen&
END SUB

See Also

Clone this wiki locally