Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Branch: svn/resources
Branches Tags
freepascal.comp...
/
packages
/
extra
/
ptc
/
x11
/
x11modesd.inc

x11modesd.inc 2.5 KB
Permalink History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869 
  1. Type
    2. 

  2.   TX11Modes = Class(TObject)
    3. 

  3.   Private
    4. 

  4.     FDisplay : PDisplay;
    5. 

  5.     FScreen : cint;
    6. 

  6.   Protected
    7. 

  7.     Function GetWidth : Integer; Virtual; Abstract;
    8. 

  8.     Function GetHeight : Integer; Virtual; Abstract;
    9. 

  9.   Public
    10. 

  10.     Constructor Create(ADisplay : PDisplay; AScreen : cint); Virtual;
    11. 

  11.     Procedure GetModes(Var AModes : TPTCModeDynArray; ACurrentDesktopFormat : TPTCFormat); Virtual; Abstract;
    12. 

  12.     Procedure SetBestMode(AWidth, AHeight : Integer); Virtual; Abstract;
    13. 

  13.     Procedure RestorePreviousMode; Virtual; Abstract;
    14. 

  14.     Property Width : Integer Read GetWidth;
    15. 

  15.     Property Height : Integer Read GetHeight;
    16. 

  16.   End;
    17. 

  17. 

  18.   TX11ModesNoModeSwitching = Class(TX11Modes)
    19. 

  19.   Private
    20. 

  20.     FWidth, FHeight : Integer;
    21. 

  21.   Protected
    22. 

  22.     Function GetWidth : Integer; Override;
    23. 

  23.     Function GetHeight : Integer; Override;
    24. 

  24.   Public
    25. 

  25.     Constructor Create(ADisplay : PDisplay; AScreen : cint); Override;
    26. 

  26.     Procedure GetModes(Var AModes : TPTCModeDynArray; ACurrentDesktopFormat : TPTCFormat); Override;
    27. 

  27.     Procedure SetBestMode(AWidth, AHeight : Integer); Override;
    28. 

  28.     Procedure RestorePreviousMode; Override;
    29. 

  29.   End;
    30. 

  30. 

  31. {$IFDEF ENABLE_X11_EXTENSION_XRANDR}
    32. 

  32.   TX11ModesXrandr = Class(TX11Modes)
    33. 

  33.   Private
    34. 

  34.     FRoot : TWindow;
    35. 

  35.     FXRRConfig : PXRRScreenConfiguration;
    36. 

  36.   Protected
    37. 

  37.     Function GetWidth : Integer; Override;
    38. 

  38.     Function GetHeight : Integer; Override;
    39. 

  39.   Public
    40. 

  40.     Constructor Create(ADisplay : PDisplay; AScreen : cint); Override;
    41. 

  41.     Destructor Destroy; Override;
    42. 

  42.     Procedure GetModes(Var AModes : TPTCModeDynArray; ACurrentDesktopFormat : TPTCFormat); Override;
    43. 

  43.     Procedure SetBestMode(AWidth, AHeight : Integer); Override;
    44. 

  44.     Procedure RestorePreviousMode; Override;
    45. 

  45.   End;
    46. 

  46. {$ENDIF ENABLE_X11_EXTENSION_XRANDR}
    47. 

  47. 

  48. {$IFDEF ENABLE_X11_EXTENSION_XF86VIDMODE}
    49. 

  49.   TX11ModesXF86VidMode = Class(TX11Modes)
    50. 

  50.   Private
    51. 

  51.     FModeList : PPXF86VidModeModeInfo;
    52. 

  52.     FModeListCount : cint;
    53. 

  53.     FSavedMode : PXF86VidModeModeLine;
    54. 

  54.     FSavedDotClock : cint;
    55. 

  55.     FWidth, FHeight : Integer;
    56. 

  56. 

  57.     Procedure RetrieveModeList;
    58. 

  58.     Function FindNumberOfBestMode(AWidth, AHeight : Integer) : Integer;
    59. 

  59.   Protected
    60. 

  60.     Function GetWidth : Integer; Override;
    61. 

  61.     Function GetHeight : Integer; Override;
    62. 

  62.   Public
    63. 

  63.     Constructor Create(ADisplay : PDisplay; AScreen : cint); Override;
    64. 

  64.     Destructor Destroy; Override;
    65. 

  65.     Procedure GetModes(Var AModes : TPTCModeDynArray; ACurrentDesktopFormat : TPTCFormat); Override;
    66. 

  66.     Procedure SetBestMode(AWidth, AHeight : Integer); Override;
    67. 

  67.     Procedure RestorePreviousMode; Override;
    68. 

  68.   End;
    69. 

  69. {$ENDIF ENABLE_X11_EXTENSION_XF86VIDMODE}
    70.