Closed jonahzheng closed 2 years ago
`type TForm3 = class(TForm) AdTerminal1: TAdTerminal; AdVT100Emulator1: TAdVT100Emulator; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject); begin AdTerminal1.WriteStringUTF8(#$1B'[0mbbb'#$D#$A); end;
end.`
Set adc_TermBufBackColor to red, but it looks gray color. AdTerminal1.color is also clRed.
`type TForm3 = class(TForm) AdTerminal1: TAdTerminal; AdVT100Emulator1: TAdVT100Emulator; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject); begin AdTerminal1.WriteStringUTF8(#$1B'[0mbbb'#$D#$A); end;
end.`
Set adc_TermBufBackColor to red, but it looks gray color. AdTerminal1.color is also clRed.