Skip to content
Snippets Groups Projects
Commit 369e0581 authored by rswindell's avatar rswindell
Browse files

Exposed the Terminal Screen's AutoWrap attribute as a property.

parent 963cd5c7
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/sbbs3/ctrl/emulvt.hpp
+ 36
− 14
View file @ 369e0581
......@@ -2,10 +2,10 @@
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved
// (DO NOT EDIT: machine generated header) 'Emulvt.pas' rev: 6.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-
......@@ -70,8 +70,8 @@ class PASCALIMPLEMENTATION TLine : public System::TObject
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:
......@@ -206,7 +206,8 @@ class PASCALIMPLEMENTATION TCustomEmulVT : public Controls::TCustomControl
typedef Controls::TCustomControl inherited;
private:
TScreen* FScreen;
int FCharPos[162];
int FLinePos[52];
TextFile FFileHandle;
bool FCursorVisible;
bool FCaretShown;
......@@ -236,8 +237,13 @@ private:
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);
......@@ -252,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);
......@@ -263,14 +270,21 @@ 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, Types::PRect rc, char ch);
......@@ -302,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 ;
......@@ -324,6 +343,7 @@ private:
__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};
......@@ -369,6 +389,7 @@ __published:
__property LocalEcho ;
__property AutoLF ;
__property AutoCR ;
__property AutoWrap ;
__property Xlat ;
__property MonoChrome ;
__property Log ;
......@@ -382,6 +403,11 @@ __published:
__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) { }
......@@ -399,14 +425,10 @@ public:
//-- 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;
......@@ -444,4 +466,4 @@ using namespace Emulvt;
#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif // Emulvt
#endif // EmulVT
src/sbbs3/ctrl/emulvt.pas
+ 14
− 0
View file @ 369e0581
......@@ -311,6 +311,7 @@ type
procedure SetFont(Value : TFont);
procedure SetAutoLF(Value : Boolean);
procedure SetAutoCR(Value : Boolean);
procedure SetAutoWrap(Value : Boolean);
procedure SetXlat(Value : Boolean);
procedure SetLog(Value : Boolean);
procedure SetRows(Value : Integer);
......@@ -322,6 +323,7 @@ type
procedure SetLineHeight(Value : Integer);
function GetAutoLF : Boolean;
function GetAutoCR : Boolean;
function GetAutoWrap : Boolean;
function GetXlat : Boolean;
function GetRows : Integer;
function GetCols : Integer;
......@@ -395,6 +397,7 @@ type
property LocalEcho : Boolean read FLocalEcho write FLocalEcho;
property AutoLF : Boolean read GetAutoLF write SetAutoLF;
property AutoCR : Boolean read GetAutoCR write SetAutoCR;
property AutoWrap : Boolean read GetAutoWrap write SetAutoWrap;
property Xlat : Boolean read GetXlat write SetXlat;
property MonoChrome : Boolean read FMonoChrome write FMonoChrome;
property Log : Boolean read FLog write SetLog;
......@@ -430,6 +433,7 @@ type
property LocalEcho;
property AutoLF;
property AutoCR;
property AutoWrap;
property Xlat;
property MonoChrome;
property Log;
......@@ -2613,6 +2617,11 @@ begin
FScreen.FAutoCR := Value;
end;
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
procedure TCustomEmulVT.SetAutoWrap(Value : Boolean);
begin
FScreen.FAutoWrap := Value;
end;
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
procedure TCustomEmulVT.SetLog(Value : Boolean);
......@@ -2666,6 +2675,11 @@ begin
Result := FScreen.FAutoCR;
end;
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
function TCustomEmulVT.GetAutoWrap : Boolean;
begin
Result := FScreen.FAutoWrap;
end;
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
destructor TCustomEmulVT.Destroy;
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment