TScreen
FieldParam(s)Type
ActiveForm-TForm
Width-Integer
Height-Integer
DesktopWidth-Integer
DesktopHeight-Integer
Cursors-Ptr
Cursor-HCURSOR
MouseX-Integer
MouseY-Integer
Fonts-TStringList
Font-TFont
GetWidthSelf As TScreenFUNCTION
GetHeightSelf As TScreenFUNCTION
GetDesktopWidthSelf As TScreenFUNCTION
GetDesktopHeightSelf As TScreenFUNCTION
CreateSelf As TScreenSUB
GetFontsSelf As TScreenSUB
AddCursorSelf As TScreen , byval fCursor As HCURSORSUB
SetCursorSelf As TScreen , byval fCursor As HCURSORSUB