Class TQRShapeSetupFrm (unit Editshap)

Inherits from

TForm

Quick Report Editor Copyright (c) 1997 Demidov Andre (andre@lion.tu-chel.ac.ru)

Constructors



Functions

procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure GroupBox1Exit(Sender: TObject);


procedure GroupBox2Exit(Sender: TObject);


procedure PenWidthExit(Sender: TObject);


procedure ShapeLeftExit(Sender: TObject);


Properties

Events

Variables

BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BrushBdiag : TRadioButton;


BrushColor : TColorComboBox;


BrushDiagCross : TRadioButton;


BrushFdiag : TRadioButton;


BrushSolid : TRadioButton;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


PenColor : TColorComboBox;


PenDash : TRadioButton;


PenDashDot : TRadioButton;


PenDot : TRadioButton;


PenSolid : TRadioButton;


PenWidth : TEdit;


Shape1 : TShape;


Shape2 : TShape;


Shape3 : TShape;


Shape4 : TShape;


Shape5 : TShape;


Shape6 : TShape;


Shape7 : TShape;


Shape8 : TShape;


ShapeHeight : TEdit;


ShapeLeft : TEdit;


ShapeStyle : TRadioGroup;


ShapeTop : TEdit;


ShapeWidth : TEdit;


BrushStyle : TBrushStyle;

Public declarations

PenStyle : TPenStyle;



Constructors


Functions


procedure FormCreate(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure GroupBox1Exit(Sender: TObject);


procedure GroupBox2Exit(Sender: TObject);


procedure PenWidthExit(Sender: TObject);


procedure ShapeLeftExit(Sender: TObject);


Properties


Events


Variables


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


BrushBdiag : TRadioButton;


BrushColor : TColorComboBox;


BrushDiagCross : TRadioButton;


BrushFdiag : TRadioButton;


BrushSolid : TRadioButton;


GroupBox1 : TGroupBox;


GroupBox2 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


PenColor : TColorComboBox;


PenDash : TRadioButton;


PenDashDot : TRadioButton;


PenDot : TRadioButton;


PenSolid : TRadioButton;


PenWidth : TEdit;


Shape1 : TShape;


Shape2 : TShape;


Shape3 : TShape;


Shape4 : TShape;


Shape5 : TShape;


Shape6 : TShape;


Shape7 : TShape;


Shape8 : TShape;


ShapeHeight : TEdit;


ShapeLeft : TEdit;


ShapeStyle : TRadioGroup;


ShapeTop : TEdit;


ShapeWidth : TEdit;


BrushStyle : TBrushStyle;

Public declarations


PenStyle : TPenStyle;