Class TfrmColorSchemes

Unit

frmColorSchemesUnit

Declaration

type TfrmColorSchemes = class(TfrmCustomGoPhast)

Description

TfrmCustomGoPhast is the ancestor of all TForms in GoPhast.

TfrmCustomGoPhast handles setting the color and font. TfrmCustomGoPhast also tries to keep from appearing at a location where it can't be seen. )

Hierarchy

• TForm
• TfrmCustomGoPhast
• TfrmColorSchemes

Overview

Fields

	pnlBottom: TPanel;
	btnHelp: TBitBtn;
	btnOK: TBitBtn;
	btnCancel: TBitBtn;
	pnlSelect: TPanel;
	grdpnl1: TGridPanel;
	btnAdd: TSpeedButton;
	btnInsertUnit: TSpeedButton;
	btnDeleteUnit: TSpeedButton;
	tvColorSchemes: TTreeView;
	spl1: TSplitter;
	pnlColorScheme: TPanel;
	edName: TLabeledEdit;
	frameColorScheme: TframeGrid;
	dlgColor: TColorDialog;
	FColorSchemes: TUserDefinedColorSchemeCollection;
	FSelectedColorScheme: TUserDefinedColorSchemeItem;

Methods

	procedure frameColorSchemeGridButtonClick(Sender: TObject; ACol, ARow: Integer);
	procedure frameColorSchemeGridBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
	procedure FormCreate(Sender: TObject); override;
	procedure btnOKClick(Sender: TObject);
	procedure FormDestroy(Sender: TObject); override;
	procedure tvColorSchemesChange(Sender: TObject; Node: TTreeNode);
	procedure btnAddClick(Sender: TObject);
	procedure btnDeleteUnitClick(Sender: TObject);
	procedure btnInsertUnitClick(Sender: TObject);
	procedure edNameChange(Sender: TObject);
	procedure SetSelectedColorScheme(const Value: TUserDefinedColorSchemeItem);
	procedure GetData;
	procedure SetData;

Properties

property SelectedColorScheme: TUserDefinedColorSchemeItem read FSelectedColorScheme write SetSelectedColorScheme;

Description

Fields

	pnlBottom: TPanel;

	btnHelp: TBitBtn;

	btnOK: TBitBtn;

	btnCancel: TBitBtn;

	pnlSelect: TPanel;

	grdpnl1: TGridPanel;

	btnAdd: TSpeedButton;

	btnInsertUnit: TSpeedButton;

	btnDeleteUnit: TSpeedButton;

	tvColorSchemes: TTreeView;

	spl1: TSplitter;

	pnlColorScheme: TPanel;

	edName: TLabeledEdit;

	frameColorScheme: TframeGrid;

	dlgColor: TColorDialog;

	FColorSchemes: TUserDefinedColorSchemeCollection;

	FSelectedColorScheme: TUserDefinedColorSchemeItem;

Methods

	procedure frameColorSchemeGridButtonClick(Sender: TObject; ACol, ARow: Integer);

	procedure frameColorSchemeGridBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);

	procedure FormCreate(Sender: TObject); override;

	procedure btnOKClick(Sender: TObject);

	procedure FormDestroy(Sender: TObject); override;

	procedure tvColorSchemesChange(Sender: TObject; Node: TTreeNode);

	procedure btnAddClick(Sender: TObject);

	procedure btnDeleteUnitClick(Sender: TObject);

	procedure btnInsertUnitClick(Sender: TObject);

	procedure edNameChange(Sender: TObject);

	procedure SetSelectedColorScheme(const Value: TUserDefinedColorSchemeItem);

	procedure GetData;

	procedure SetData;

Properties

	property SelectedColorScheme: TUserDefinedColorSchemeItem read FSelectedColorScheme write SetSelectedColorScheme;