нопки Розрахувати з шаблоном правильного багатокутника;
· procedure TCADForm. CustomerLEditChange (Sender: TObject) - процедура, обробна введення даних в поле CustomerLEdit;
· procedure TCADForm. SRoomLEditChange (Sender: TObject) - процедура, обробна введення даних в поле SRoomLEdit;
· procedure TCADForm. LampLEditChange (Sender: TObject) - процедура, обробна введення даних в поле LampLEdit;
· procedure TCADForm. PipeLEditChange (Sender: TObject) - процедура, обробна введення даних в поле PipeLEdit;
· procedure TCADForm. SquareLEditChange (Sender: TObject) - процедура, обробна введення даних в поле SquareLEdit;
· procedure TCADForm. PriceCalcLblClick (Sender: TObject) - процедура, обробна натискання кнопки Розрахувати вартість raquo ;;
· procedure TCADForm. LampPriceLEditChange (Sender: TObject) - процедура, обробна введення даних в поле LampPriceLEdit;
· procedure TCADForm. PipePriceLEditChange (Sender: TObject) - процедура, обробна введення даних в поле PipePriceLEdit;
Процедури, описані в модулі CADUnitWTools:
· procedure TCADFormWTools. FormCreate (Sender: TObject) - процедура обробки події створення форми CADFormWTools;
· procedure TCADFormWTools. FormMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) - процедура обробки натискання лівої або правою кнопкою миші над робочою областю форми CADFormWTools;
· procedure TCADFormWTools. FormPaint (Sender: TObject) - процедура перемальовування форми CADFormWTools;
· procedure TCADFormWTools. FormMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура обробки руху миші над робочою областю форми CADFormWTools;
· procedure TCADFormWTools. BGImgTopMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура приховування координат покажчика миші при наведенні на BGImgTop;
· procedure TCADFormWTools. BGImgLeftMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура приховування координат покажчика миші при наведенні на BGImgLeft;
· procedure TCADFormWTools. BGImgRightMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура приховування координат покажчика миші при наведенні на BGImgRight;
· procedure TCADFormWTools. BGImgBottomMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура приховування координат покажчика миші при наведенні на BGImgBottom;
· procedure TCADFormWTools. ScaleTopMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура приховування координат покажчика миші при наведенні на ScaleTop;
· procedure TCADFormWTools. ScaleLeftMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура приховування координат покажчика миші при наведенні на ScaleLeft;
· procedure TCADFormWTools. ScaleRightMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура приховування координат покажчика миші при наведенні на ScaleRight;
· procedure TCADFormWTools. ScaleBottomMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) - процедура приховування координат покажчика миші при наведенні на ScaleBottom;
· procedure TCADFormWTools. CoordXLEditChange (Sender: TObject) - процедура, обробна введення даних в поле CoordXLEdit;
· procedure TCADFormWTools. CoordYLEditChange (Sender: TObject) - процедура, обробна введення даних в поле CoordYLEdit;
· procedure TCADFormWTools. CoordXLEditEnter (Sender: TObject) - процедура передачі в процедуру InputCheck інформації про те, що вводиться в поле CoordXLEdit значення слід перевірити на коректність;
· procedure TCADFormWTools. CoordYLEditEnter (Sender: TObject) - процедура передачі в процедуру InputCheck інформації про те, що вводиться в поле CoordYLEdit значення слід перевірити на коректність;
· procedure TCADFormWTools. PointAddLblClick (Sender: TObject) - процедура, обробна натискання кнопки Додати точку raquo ;;
· procedure TCADFormWTools. NewBtnClick (Sender: TObject) - процедура, обробна натискання кнопки Створити новий креслення raquo ;;
· procedure TCADFormWTools. CalcBtnClick (Sender: TObject) - процедура, обробна натискання кнопки Розрахувати площа raquo ;;
· procedure TCADFormWTools. SaveBtnClick (Sender: TObject) - процедура, обробна натискання кно...