Class TPieControlEditor (unit xPieReg)

Inherits from

TForm

Constructors



Functions

procedure btnApplyClick(Sender: TObject);


procedure CancelButtonClick(Sender: TObject);


procedure DeleteButtonClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

!!!

procedure FormDestroy(Sender: TObject);


procedure ItemControlExit(Sender: TObject);


procedure ItemEditChange(Sender: TObject);


procedure ItemListClick(Sender: TObject);


procedure ItemListDragDrop(Sender, Source: TObject; X, Y: Integer);


procedure ItemListDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure NewButtonClick(Sender: TObject);

TPieControlEditor

procedure OkButtonClick(Sender: TObject);


procedure pnlColorClick(Sender: TObject);


procedure PreviewClick(Sender: TObject);


procedure UpdateList;


procedure ShowPreview;


Properties

Events

Variables

btnApply : TButton;


ColorDialog1 : TColorDialog;


edHeight : TEdit;


edOutside : TEdit;


edText : TEdit;


edValue : TEdit;


ItemList : TListBox;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


pnlColor : TPanel;


Preview : TxPie;


UpDown1 : TUpDown;


UpDown2 : TUpDown;


UpDown3 : TUpDown;


OrginalPie : TxPie;


PieItems : TPieItems;

Public-Deklarationen

fEdit : Boolean;

Private-Deklarationen


Constructors


Functions


procedure btnApplyClick(Sender: TObject);


procedure CancelButtonClick(Sender: TObject);


procedure DeleteButtonClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

!!!


procedure FormDestroy(Sender: TObject);


procedure ItemControlExit(Sender: TObject);


procedure ItemEditChange(Sender: TObject);


procedure ItemListClick(Sender: TObject);


procedure ItemListDragDrop(Sender, Source: TObject; X, Y: Integer);


procedure ItemListDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure NewButtonClick(Sender: TObject);

TPieControlEditor


procedure OkButtonClick(Sender: TObject);


procedure pnlColorClick(Sender: TObject);


procedure PreviewClick(Sender: TObject);


procedure UpdateList;


procedure ShowPreview;


Properties


Events


Variables


btnApply : TButton;


ColorDialog1 : TColorDialog;


edHeight : TEdit;


edOutside : TEdit;


edText : TEdit;


edValue : TEdit;


ItemList : TListBox;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


pnlColor : TPanel;


Preview : TxPie;


UpDown1 : TUpDown;


UpDown2 : TUpDown;


UpDown3 : TUpDown;


OrginalPie : TxPie;


PieItems : TPieItems;

Public-Deklarationen


fEdit : Boolean;

Private-Deklarationen