. Visible:=FALSE ;. ParallBtn. Visible:=FALSE ;. PolyBtn. Visible:=FALSE ;. RectBtn. Visible:=FALSE ;. TrapBtn. Visible:=FALSE ;. TriangleBtn. Visible:=FALSE ;; (Parameter=111) and (Show=FALSE) then. RectGrBox. Visible:=FALSE ;. ParallGrBox. Visible:=FALSE ;. TrapGrBox. Visible:=FALSE ;. TriangleGrBox. Visible:=FALSE ;. CircleGrBox. Visible:=FALSE ;. EllipseGrBox. Visible:=FALSE ;. PolyGrBox. Visible:=FALSE ;;; TCADForm. FormActivate (Sender: TObject);// Обробка події активації форми
begin. Caption:= Виберіть цю опцію, якщо проектований стеля має одну із стандартних форм: прямокутник, паралелограм, трапеція, трикутник, коло, еліпс, правильний багатокутник. + Chr (10) +
Ця опція підходить для найпростіших стель. raquo ;;. Caption:= Виберіть цю опцію, якщо проектований стеля має складну форму, яку неможливо розрахувати за допомогою стандартних форм. + Chr (10) +
Ця опція підходить для стель, які ускладнені зовнішніми і внутрішніми кутами. raquo ;;
TempHelpLbl. Visible:=FALSE ;. Visible:=FALSE ;;:=FALSE; LogFileDisabled=FALSE then ( Вікно розрахунків );
EventLog ( Діалог вибору режиму розрахунку );
end ;. Visible:=FALSE ;; TCADForm. BackBtnClick (Sender: TObject);// Обробка натискання кнопки Назад SoundsEnabled=TRUE then (PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC) ;;:=3 ;. Show ;; TCADForm. CADMinBtnClick (Sender: TObject);// Обробка натискання кнопки Згорнути SoundsEnabled=TRUE then (PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC); (Application. Handle, SW_MINIMIZE) ;; TCADForm. CADCloseBtnClick (Sender: TObject);// Обробка натискання кнопки Закрити SoundsEnabled=TRUE then (PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC) ;;:=2 ;. Show ;; TCADForm. FormClose (Sender: TObject; var Action: TCloseAction);// Обробка події закриття формиLogFileDisabled=FALSE then ( Вікно розрахунків закрито ); (11, FALSE); (12, FALSE); (111, FALSE) ;; TCADForm. TempBtnClick (Sender: TObject);// Обробка натискання кнопки Вибрати шаблон стелі зі стандартних форм //SoundsEnabled=TRUE then//(PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC);//;// (11, TRUE);//;// LogFileDisabled=FALSE then//
EventLog ( Обрано розрахунок стелі стандартної форми );//;//
//TCADForm. TempBtnMouseMove (Sender: TObject; Shift: TShiftState; X,//відображення підказки до кнопці Вибрати шаблон стелі зі стандартних форм
Y: Integer);// //: Byte;////TempHelpLbl. Visible=TRUE then//// i:=107 to 137 do////. Top:=i;//;//;//. Visible:=TRUE;//;//
//TCADForm. TempBtnMouseLeave (Sender: TObject);// Приховування підказки до кнопці Вибрати шаблон стелі зі стандартних форм //: Byte;// //. Visible:=FALSE;// I:=137 downto 107 do////. Top:=i;//. ProcessMessages ();// (1);//;//;// TCADForm. CADBtnClick (Sender: TObject);// Обробка натискання кнопки Спроектувати стелю уручну //SoundsEnabled=TRUE then//(PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC);// (12, TRUE);// LogFileDisabled=FALSE then//
EventLog ( Вибрані проектування стелі складної форми );//
FormDisappear;//. Close;//. Show;//;//
//TCADForm. CADBtnMouseMove (Sender: TObject; Shift: TShiftState; X,//відображення підказки до кнопці Спроектувати стелю уручну raquo ;: Integer);// //. Visible:=TRUE;//;//
//TCADForm. CADBtnMouseLeave (Sender: TObject);// Приховування підказки до кнопці Спроектувати стелю уручну //. Visible:=FALSE;//;// TCADForm. RectBtnClick (Sender: TObject);// Обробка вибору прямокутника//SoundsEnabled=TRUE then//(PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC);// (11, FALSE);//. Visible:=TRUE;//. Visible:=TRUE;//. Visible:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;// LogFileDisabled=FALSE then//
EventLog ( Обрано шаблон прямокутника );//
end;//
//TCADForm. RectALEditChange (Sender: TObject);// Обробка введення даних в RectALEdit //. Visible:=FALSE;//. Visible:=FALSE;//. Top:=300;// (RectALEdit. Text);// GenCheck=TRUE then////. Visible:=FALSE;//. Enabled:=TRUE;//. Visible:=TRUE;//:=StrToFloat (RectALEdit. Text);// (RectAccImgA. Visible=TRUE) and (RectAccImgB. Visible=TRUE) then //. Visible:=TRUE;////// //. Enabled:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Caption:=ErrorString;//. Visible:=TRUE;//;//;//
//TCADForm. RectALEditEnter (Sender: TObject);// Відображення підказки до RectALEdit //. Visible:=TRUE;//. Visible:=FALSE;//. Visible:=FALSE;//;//
//TCADForm. RectBLEditChange (Sender: TObject);// Обробка введення даних в RectBLEdit //. Visible:=FALSE;//. Visible:=...
