GetResolutions()
Author: Jare
Added: 28. heinäkuuta 2014 kello 19.55
Edited: 28. heinäkuuta 2014 kello 19.55
Category: Grafiikka
Description
Palauttaa listan tuetuista resoluutioista. Lista palautetaan merkkijonona, jossa jokainen resoluutio on erotettu välilyönnillä, ja resoluution sisällä leveys on erotettu korkeudesta pienellä x-kirjaimella. Järjestys on oletuksena laskeva, eli suuritarkkuuksisin resoluutio on ensimmäisenä. Syöttämällä valinnaisena parametrina False, resoluutiot palautetaan nousevassa järjestyksessä.
Code
Select all1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Function GetResolutions(descending=1)
//Resolutions are copied 2014-07-28 from http://en.wikipedia.org/wiki/List_of_common_resolutions
all$ = "320x200 256x256 320x208 320x224 320x240 320x256 400x240 320x320 432x240 560x192 400x270 480x234 480x250 400x300 376x240 640x200 480x272 512x256 416x352 640x240 480x320 640x256 512x342 800x240 512x384 640x320 640x350 640x360 480x500 720x348 720x350 640x400 720x364 800x352 600x480 640x480 640x512 768x480 800x480 848x480 854x480 800x600 960x540 832x624 960x544 1024x576 1024x600 960x640 1024x640 960x720 1136x640 1024x768 1024x800 1152x720 1152x768 1280x720 1120x832 1280x768 1152x864 1280x800 1152x900 1024x1024 1366x768 1280x854 1600x768 1280x960 1440x900 1280x1024 1440x960 1600x900 1400x1050 1440x1024 1440x1080 1600x1024 1680x1050 1600x1200 1920x1080 1920x1200 2048x1152 1792x1344 1856x1392 2880x900 1800x1440 2048x1280 1920x1400 2538x1080 2560x1080 1920x1440 2160x1440 2048x1536 2304x1440 2560x1440 2304x1728 2560x1600 2560x1700 2560x1920 2880x1800 2560x2048 2800x2100 3200x1800 3200x2048 3200x2400 3840x2160 3840x2400 4096x2304 4096x3072 5120x3200 5120x4096 6400x4096 6400x4800 7680x4320 7680x4800 8192x4608"
available$ = ""
For i = 1 To CountWords(all)
resolution$ = GetWord(all,i)
w = GetWord(resolution, 1, "x")
h = GetWord(resolution, 2, "x")
If GFXModeExists(w,h,32) Then
If descending Then
If available Then available = " " + available
available = resolution + available
Else
If available Then available + " "
available + resolution
EndIf
EndIf
Next i
Return available
EndFunction
|
Comments
No comments. You can be first!
Leave a comment
You must be logged in to comment.