unit Main;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Types, Forms, Controls, Graphics, StdCtrls, Math, XMLRead, DOM, XMLWrite;
type
{ TForm1 }
TForm1 = class(TForm)
TextArea: TCheckGroup;
Gutter: TCheckGroup;
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
implementation
{ TForm1 }
const
Foreground = 0;
Background = 1;
HexColor = ['A' .. 'F', 'a' .. 'f', '0' .. '9'];
var
Form1: TForm1;
TxtHolder: String[6];
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
TextArea.Checked[Foreground]:= True;
TextArea.Checked[Background]:= True;
Gutter.Checked[Foreground]:= True;
Gutter.Checked[Background]:= True;
end;