aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Add tasks for all the new languages

Browse source
This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/GUI-Maximum-window-dimensions/FreeBASIC/gui-maximum-window-dimensions-1.freebasic Normal file
View file

@ -0,0 +1,19 @@
' FB 1.05.0 Win64
' Using SystemParametersInfo function in Win32 API
Dim As Any Ptr library = DyLibLoad("user32")
Dim Shared SystemParametersInfo As Function (ByVal As ULong, ByVal As ULong, ByVal As Any Ptr, ByVal As ULong) As Long
SystemParametersInfo = DyLibSymbol(library, "SystemParametersInfoA")
Type Rect
As Long left, top, right, bottom
End Type
#Define SPI_GETWORKAREA &H30
Dim r As Rect
SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0)
DyLibFree(library)
Print "Maximum usable desktop area : W" ; r.right - r.left; " x H"; r.bottom - r.top; " pixels"
Print
Print "Press any key to quit"
Sleep

2
Task/GUI-Maximum-window-dimensions/FreeBASIC/gui-maximum-window-dimensions-2.freebasic Normal file
View file

@ -0,0 +1,2 @@
FMain.Maximized = True
FMain.Visible = False ' The form can be invisible

7
Task/GUI-Maximum-window-dimensions/FreeBASIC/gui-maximum-window-dimensions-3.freebasic Normal file
View file

@ -0,0 +1,7 @@
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END

3
Task/GUI-Maximum-window-dimensions/FreeBASIC/gui-maximum-window-dimensions-4.freebasic Normal file
View file

@ -0,0 +1,3 @@
PUBLIC SUB Form_Resize()
PRINT "The maximum window size that can be used without scrolling is "; FMain.Width; " x "; FMain.Height
END