--- sbbs/sbbs3/ctrl/emulvt.hpp 2018/04/24 16:39:34 1.1 +++ sbbs/sbbs3/ctrl/emulvt.hpp 2018/04/24 16:41:10 1.1.1.2 @@ -1,11 +1,11 @@ // Borland C++ Builder -// Copyright (c) 1995, 1999 by Borland International +// Copyright (c) 1995, 2002 by Borland Software Corporation // All rights reserved -// (DO NOT EDIT: machine generated header) 'Emulvt.pas' rev: 5.00 +// (DO NOT EDIT: machine generated header) 'EmulVT.pas' rev: 6.00 -#ifndef EmulvtHPP -#define EmulvtHPP +#ifndef EmulVTHPP +#define EmulVTHPP #pragma delphiheader begin #pragma option push -w- @@ -60,11 +60,9 @@ typedef TFuncKey TFuncKeysTable[64]; typedef TFuncKey *PFuncKeysTable; -typedef void __fastcall (__closure *TKeyBufferEvent)(System::TObject* Sender, char * Buffer, int Len - ); +typedef void __fastcall (__closure *TKeyBufferEvent)(System::TObject* Sender, char * Buffer, int Len); -typedef void __fastcall (__closure *TKeyDownEvent)(System::TObject* Sender, int &VirtKey, Classes::TShiftState - &Shift, bool &ShiftLock, char &ScanCode, bool &Ext); +typedef void __fastcall (__closure *TKeyDownEvent)(System::TObject* Sender, int &VirtKey, Classes::TShiftState &Shift, bool &ShiftLock, char &ScanCode, bool &Ext); class DELPHICLASS TLine; class PASCALIMPLEMENTATION TLine : public System::TObject @@ -72,8 +70,8 @@ class PASCALIMPLEMENTATION TLine : publi typedef System::TObject inherited; public: - char Txt[133]; - Byte Att[133]; + char Txt[161]; + Byte Att[161]; __fastcall TLine(void); void __fastcall Clear(Byte Attr); public: @@ -130,7 +128,10 @@ public: char FCharSetG2; char FCharSetG3; bool FAllInvalid; - Windows::TRect FInvRect; + #pragma pack(push, 1) + Types::TRect FInvRect; + #pragma pack(pop) + Classes::TNotifyEvent FOnCursorVisible; __fastcall TScreen(void); __fastcall virtual ~TScreen(void); @@ -195,7 +196,6 @@ public: void __fastcall InvalidEscape(char EscCmd); int __fastcall GetEscapeParam(int From, int &Value); __property Classes::TNotifyEvent OnCursorVisible = {read=FOnCursorVisible, write=FOnCursorVisible}; - __property TLine* Lines[int I] = {read=GetLines, write=SetLines}; }; @@ -206,7 +206,8 @@ class PASCALIMPLEMENTATION TCustomEmulVT typedef Controls::TCustomControl inherited; private: - TScreen* FScreen; + int FCharPos[162]; + int FLinePos[52]; TextFile FFileHandle; bool FCursorVisible; bool FCaretShown; @@ -232,16 +233,23 @@ private: Forms::TMessageEvent FAppOnMessage; bool FFlagCirconflexe; bool FFlagTrema; - Windows::TRect FSelectRect; + #pragma pack(push, 1) + Types::TRect FSelectRect; + #pragma pack(pop) + + int FTopMargin; + int FLeftMargin; + int FRightMargin; + int FBottomMargin; HPALETTE FPal; tagPALETTEENTRY FPaletteEntries[16]; + int FMarginColor; HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message); HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message); HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TWMKillFocus &Message); HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message); HIDESBASE MESSAGE void __fastcall WMPaletteChanged(Messages::TMessage &Message); - void __fastcall VScrollBarScroll(System::TObject* Sender, Stdctrls::TScrollCode ScrollCode, int &ScrollPos - ); + void __fastcall VScrollBarScroll(System::TObject* Sender, Stdctrls::TScrollCode ScrollCode, int &ScrollPos); void __fastcall SetCaret(void); void __fastcall AdjustScrollBar(void); bool __fastcall ProcessFKeys(char ScanCode, Classes::TShiftState Shift, bool Ext); @@ -250,6 +258,7 @@ private: HIDESBASE void __fastcall SetFont(Graphics::TFont* Value); void __fastcall SetAutoLF(bool Value); void __fastcall SetAutoCR(bool Value); + void __fastcall SetAutoWrap(bool Value); void __fastcall SetXlat(bool Value); void __fastcall SetLog(bool Value); void __fastcall SetRows(int Value); @@ -261,17 +270,24 @@ private: void __fastcall SetLineHeight(int Value); bool __fastcall GetAutoLF(void); bool __fastcall GetAutoCR(void); + bool __fastcall GetAutoWrap(void); bool __fastcall GetXlat(void); int __fastcall GetRows(void); int __fastcall GetCols(void); int __fastcall GetBackRows(void); TBackColors __fastcall GetBackColor(void); TScreenOptions __fastcall GetOptions(void); + void __fastcall SetMarginColor(const int Value); + void __fastcall SetLeftMargin(const int Value); + void __fastcall SetBottomMargin(const int Value); + void __fastcall SetRightMargin(const int Value); + void __fastcall SetTopMargin(const int Value); protected: + TScreen* FScreen; void __fastcall AppMessageHandler(tagMSG &Msg, bool &Handled); virtual void __fastcall DoKeyBuffer(char * Buffer, int Len); - void __fastcall PaintGraphicChar(HDC DC, int X, int Y, Windows::PRect rc, char ch); + void __fastcall PaintGraphicChar(HDC DC, int X, int Y, Types::PRect rc, char ch); public: __fastcall virtual TCustomEmulVT(Classes::TComponent* AOwner); @@ -300,9 +316,14 @@ public: __property bool GraphicDraw = {read=FGraphicDraw, write=FGraphicDraw, nodefault}; __property int TopLine = {read=FTopLine, write=SetTopLine, nodefault}; __property Stdctrls::TScrollBar* VScrollBar = {read=FVScrollBar}; + __property int TopMargin = {read=FTopMargin, write=SetTopMargin, nodefault}; + __property int LeftMargin = {read=FLeftMargin, write=SetLeftMargin, nodefault}; + __property int RightMargin = {read=FRightMargin, write=SetRightMargin, nodefault}; + __property int BottomMargin = {read=FBottomMargin, write=SetBottomMargin, nodefault}; + __property int MarginColor = {read=FMarginColor, write=SetMarginColor, nodefault}; private: - void __fastcall PaintOneLine(HDC DC, int Y, int Y1, const TLine* Line, int nColFrom, int nColTo); + void __fastcall PaintOneLine(HDC DC, int Y, int Y1, const TLine* Line, int nColFrom, int nColTo, bool Blank); void __fastcall SetupFont(void); __property AnsiString Text = {read=ReadStr, write=WriteStr}; __property OnMouseMove ; @@ -313,15 +334,16 @@ private: __property TKeyBufferEvent OnKeyBuffer = {read=FOnKeyBuffer, write=FOnKeyBuffer}; __property TKeyDownEvent OnKeyDown = {read=FOnKeyDown, write=FOnKeyDown}; __property Ctl3D ; - __property Align ; - __property TabStop ; - __property TabOrder ; + __property Align = {default=0}; + __property TabStop = {default=0}; + __property TabOrder = {default=-1}; __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=FBorderStyle, nodefault}; __property bool AutoRepaint = {read=FAutoRepaint, write=FAutoRepaint, nodefault}; __property Graphics::TFont* Font = {read=FFont, write=SetFont}; __property bool LocalEcho = {read=FLocalEcho, write=FLocalEcho, nodefault}; __property bool AutoLF = {read=GetAutoLF, write=SetAutoLF, nodefault}; __property bool AutoCR = {read=GetAutoCR, write=SetAutoCR, nodefault}; + __property bool AutoWrap = {read=GetAutoWrap, write=SetAutoWrap, nodefault}; __property bool Xlat = {read=GetXlat, write=SetXlat, nodefault}; __property bool MonoChrome = {read=FMonoChrome, write=FMonoChrome, nodefault}; __property bool Log = {read=FLog, write=SetLog, nodefault}; @@ -329,14 +351,13 @@ private: __property int Cols = {read=GetCols, write=SetCols, nodefault}; __property int LineHeight = {read=FLineHeight, write=SetLineHeight, nodefault}; __property int FKeys = {read=FFKeys, write=FFKeys, nodefault}; - __property Windows::TRect SelectRect = {read=FSelectRect, write=FSelectRect}; + __property Types::TRect SelectRect = {read=FSelectRect, write=FSelectRect}; __property int BackRows = {read=GetBackRows, write=SetBackRows, nodefault}; __property TBackColors BackColor = {read=GetBackColor, write=SetBackColor, nodefault}; __property TScreenOptions Options = {read=GetOptions, write=SetOptions, nodefault}; public: #pragma option push -w-inl - /* TWinControl.CreateParented */ inline __fastcall TCustomEmulVT(HWND ParentWindow) : Controls::TCustomControl( - ParentWindow) { } + /* TWinControl.CreateParented */ inline __fastcall TCustomEmulVT(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { } #pragma option pop }; @@ -361,13 +382,14 @@ __published: __property OnKeyDown ; __property OnKeyBuffer ; __property Ctl3D ; - __property Align ; + __property Align = {default=0}; __property BorderStyle ; __property AutoRepaint ; __property Font ; __property LocalEcho ; __property AutoLF ; __property AutoCR ; + __property AutoWrap ; __property Xlat ; __property MonoChrome ; __property Log ; @@ -378,13 +400,17 @@ __published: __property Options ; __property LineHeight ; __property CharWidth ; - __property TabStop ; - __property TabOrder ; + __property TabStop = {default=0}; + __property TabOrder = {default=-1}; __property FKeys ; + __property TopMargin ; + __property LeftMargin ; + __property RightMargin ; + __property BottomMargin ; + __property MarginColor ; public: #pragma option push -w-inl - /* TCustomEmulVT.Create */ inline __fastcall virtual TEmulVT(Classes::TComponent* AOwner) : TCustomEmulVT( - AOwner) { } + /* TCustomEmulVT.Create */ inline __fastcall virtual TEmulVT(Classes::TComponent* AOwner) : TCustomEmulVT(AOwner) { } #pragma option pop #pragma option push -w-inl /* TCustomEmulVT.Destroy */ inline __fastcall virtual ~TEmulVT(void) { } @@ -392,22 +418,17 @@ public: public: #pragma option push -w-inl - /* TWinControl.CreateParented */ inline __fastcall TEmulVT(HWND ParentWindow) : TCustomEmulVT(ParentWindow - ) { } + /* TWinControl.CreateParented */ inline __fastcall TEmulVT(HWND ParentWindow) : TCustomEmulVT(ParentWindow) { } #pragma option pop }; //-- var, const, procedure --------------------------------------------------- -static const Byte EmulVTVersion = 0xd8; +static const Byte EmulVTVersion = 0xdb; extern PACKAGE AnsiString CopyRight; static const Shortint MAX_ROW = 0x32; -static const Byte MAX_COL = 0x84; -static const Shortint TopMargin = 0x4; -static const Shortint LeftMargin = 0x6; -static const Shortint RightMargin = 0x6; -static const Shortint BottomMargin = 0x4; +static const Byte MAX_COL = 0xa0; static const Shortint NumPaletteEntries = 0x10; static const Shortint F_BLACK = 0x0; static const Shortint F_BLUE = 0x1; @@ -434,18 +455,15 @@ extern PACKAGE char ibm_iso8859_1_G0[256 extern PACKAGE char ibm_iso8859_1_G1[256]; extern PACKAGE char Output[256]; extern PACKAGE void __fastcall Register(void); -extern PACKAGE bool __fastcall AddFKey(TFuncKey * FKeys, char ScanCode, Classes::TShiftState Shift, - bool Ext, TFuncKeyValue &Value); +extern PACKAGE bool __fastcall AddFKey(TFuncKey * FKeys, char ScanCode, Classes::TShiftState Shift, bool Ext, TFuncKeyValue &Value); extern PACKAGE void __fastcall FKeysToFile(TFuncKey * FKeys, AnsiString FName); extern PACKAGE void __fastcall FileToFKeys(TFuncKey * FKeys, AnsiString FName); } /* namespace Emulvt */ -#if !defined(NO_IMPLICIT_NAMESPACE_USE) using namespace Emulvt; -#endif #pragma option pop // -w- #pragma option pop // -Vx #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- -#endif // Emulvt +#endif // EmulVT