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
Tree: 90744753b9
Branches Tags
freepascal.comp...
/
packages
/
extra
/
ptc
/
dos
/
textfx2
/
consoled.inc

consoled.inc 4.0 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101 
  1. Type
    2. 

  2.   TextFX2Console = Class(TPTCBaseConsole)
    3. 

  3.   Private
    4. 

  4.     { internal console management routines }
    5. 

  5.     Procedure internal_pre_open_setup(Const _title : String);
    6. 

  6.     Procedure internal_open_fullscreen_start;
    7. 

  7.     Procedure internal_open_fullscreen(_width, _height : Integer; Const _format : TPTCFormat);
    8. 

  8.     Procedure internal_open_fullscreen_finish(_pages : Integer);
    9. 

  9.     Procedure internal_post_open_setup;
    10. 

  10.     Procedure internal_reset;
    11. 

  11.     Procedure internal_close;
    12. 

  12. 

  13.     { console debug checks }
    14. 

  14.     Procedure check_open;
    15. 

  15.     Procedure check_unlocked;
    16. 

  16. 

  17.     { data }
    18. 

  18.     m_modes : Array[0..255] Of TPTCMode;
    19. 

  19.     m_title : Array[0..1023] Of Char;
    20. 

  20.     m_information : Array[0..1023] Of Char;
    21. 

  21. 

  22.     { flags }
    23. 

  23.     m_open : Boolean;
    24. 

  24.     m_locked : Boolean;
    25. 

  25. 

  26.     { option data }
    27. 

  27.     m_default_width : Integer;
    28. 

  28.     m_default_height : Integer;
    29. 

  29.     m_default_pages : Integer;
    30. 

  30.     m_default_format : TPTCFormat;
    31. 

  31. 

  32.     { objects }
    33. 

  33.     m_copy : TPTCCopy;
    34. 

  34. 

  35.     { Dos objects }
    36. 

  36.     m_keyboard : TDosKeyboard;
    37. 

  37.     m_primary : TPTCSurface;
    38. 

  38. {    DosKeyboard *m_keyboard;}
    39. 

  39.     m_160x100buffer : TPTCSurface;
    40. 

  40.   Protected
    41. 

  41.     Procedure internal_ReadKey(k : TPTCKey); Override;
    42. 

  42.     Function internal_PeekKey(k : TPTCKey) : Boolean; Override;
    43. 

  43.   Public
    44. 

  44.     Constructor Create;
    45. 

  45.     Destructor Destroy; Override;
    46. 

  46.     Procedure configure(Const _file : String); Override;
    47. 

  47.     Function option(Const _option : String) : Boolean; Override;
    48. 

  48.     Function modes : PPTCMode; Override;
    49. 

  49.     Procedure open(Const _title : String; _pages : Integer); Overload; Override;
    50. 

  50.     Procedure open(Const _title : String; Const _format : TPTCFormat;
    51. 

  51.                    _pages : Integer); Overload; Override;
    52. 

  52.     Procedure open(Const _title : String; _width, _height : Integer;
    53. 

  53.                    Const _format : TPTCFormat; _pages : Integer); Overload; Override;
    54. 

  54.     Procedure open(Const _title : String; Const _mode : TPTCMode;
    55. 

  55.                    _pages : Integer); Overload; Override;
    56. 

  56.     Procedure close; Override;
    57. 

  57.     Procedure flush; Override;
    58. 

  58.     Procedure finish; Override;
    59. 

  59.     Procedure update; Override;
    60. 

  60.     Procedure update(Const _area : TPTCArea); Override;
    61. 

  61.     Procedure copy(Var surface : TPTCBaseSurface); Override;
    62. 

  62.     Procedure copy(Var surface : TPTCBaseSurface;
    63. 

  63.                    Const source, destination : TPTCArea); Override;
    64. 

  64.     Function lock : Pointer; Override;
    65. 

  65.     Procedure unlock; Override;
    66. 

  66.     Procedure load(Const pixels : Pointer;
    67. 

  67.                    _width, _height, _pitch : Integer;
    68. 

  68.                    Const _format : TPTCFormat;
    69. 

  69.                    Const _palette : TPTCPalette); Override;
    70. 

  70.     Procedure load(Const pixels : Pointer;
    71. 

  71.                    _width, _height, _pitch : Integer;
    72. 

  72.                    Const _format : TPTCFormat;
    73. 

  73.                    Const _palette : TPTCPalette;
    74. 

  74.                    Const source, destination : TPTCArea); Override;
    75. 

  75.     Procedure save(pixels : Pointer;
    76. 

  76.                    _width, _height, _pitch : Integer;
    77. 

  77.                    Const _format : TPTCFormat;
    78. 

  78.                    Const _palette : TPTCPalette); Override;
    79. 

  79.     Procedure save(pixels : Pointer;
    80. 

  80.                    _width, _height, _pitch : Integer;
    81. 

  81.                    Const _format : TPTCFormat;
    82. 

  82.                    Const _palette : TPTCPalette;
    83. 

  83.                    Const source, destination : TPTCArea); Override;
    84. 

  84.     Procedure clear; Override;
    85. 

  85.     Procedure clear(Const color : TPTCColor); Override;
    86. 

  86.     Procedure clear(Const color : TPTCColor;
    87. 

  87.                     Const _area : TPTCArea); Override;
    88. 

  88.     Procedure palette(Const _palette : TPTCPalette); Override;
    89. 

  89.     Function palette : TPTCPalette; Override;
    90. 

  90.     Procedure clip(Const _area : TPTCArea); Override;
    91. 

  91.     Function width : Integer; Override;
    92. 

  92.     Function height : Integer; Override;
    93. 

  93.     Function pitch : Integer; Override;
    94. 

  94.     Function pages : Integer; Override;
    95. 

  95.     Function area : TPTCArea; Override;
    96. 

  96.     Function clip : TPTCArea; Override;
    97. 

  97.     Function format : TPTCFormat; Override;
    98. 

  98.     Function name : String; Override;
    99. 

  99.     Function title : String; Override;
    100. 

  100.     Function information : String; Override;
    101. 

  101.   End;
    102.