y"> # define VK_UP 72
# define VK_DOWN 80
# define VK_DEL 83
# define VK_BACK 8
# define LF = 10
# define CF = 13
# define CR = CF + LFchar TCaption [12 +1]; TExitFlag
{, efNext, efPrev
}; TObject: public TListItem
{
// *** Abstract
}; TApplication; void (* PButtonClick) (void * Sender); void (TApplication :: * PAppButtonClick) (void * Sender); TControl: public TObject
{
// *** Предок всіх елементів управління,
// *** містить властивості для роботи в TControlList: X, Y; Color, BkCol, ActiveCol; Active; ExitFlag; Tag; Caption; (Byte AX, Byte AY, TCaption ACaption, Byte ACol , Byte ABkCol, Byte AActiveCol, int ATag); void SetClr (Byte AItem, Byte ACol); void Enter (); void Exit (); void Draw () = 0;
~ TControl () {};
}; TButton: public TControl
{: * Owner; onClick; (TApplication * AOwner, Byte AX, Byte AY, TCaption ACaption, int ATag, PAppButtonClick AClick); void Draw (); void Enter (); void Run () ;
~ TButton () {};
}; TControlLst: public TList
{
// *** Динамічний список елементів управління: (); Run (); void Repaint ();
}; TApplication
{: () {};
}; TProga; ReadKey (char * Key, Boolean * CtrlKey);
// *** Types and declarationsTPoint
{X, Y;
}; TLinePnt: public TListItem
{: Pnt; () {}
}; TRect
{Left, Top, Right, Bottom;
}; TShape: public TListItem
{
// *** Предок всіх фігур,
// *** містить властивості для роботи в TShapeList: Crossed; Color; Tag; () {Color = RED; Tag = 0;}; (Byte ACol, int ATag); void SetClr ( Byte ACol); void Draw () = 0; ~ TShape ();
}; TLine: public TShape
{: A, B; Len; (): TShape () {}; (TPoint AA, TPoint AB, Byte ACol, int ATag); SetLen (); void Draw ();
}; TTriangle: public TShape
{: A, B, C; Area; Smaller; (TPoint AA, TPoint AB, TPoint AC, Byte ACol, int ATag); void Draw (); SetArea (); void SetClr (Byte ACol);
}; TShapeLst: public TList
{
// *** Динамічний список фігур ***): * Smaller; (); void Repaint (); void LoadFromFile (char * FileName) = 0; void SaveToFile (char * FileName) = 0;
}; TTriangleLst: public TShap...
