FALSE;//. Top:=330;// (RectBLEdit. Text);// GenCheck=TRUE then////. Visible:=FALSE;//. Enabled:=TRUE;//. Visible:=TRUE;//:=StrToFloat (RectBLEdit. Text);// (RectAccImgA. Visible=TRUE) and (RectAccImgB. Visible=TRUE) then //. Visible:=TRUE;////// //. Enabled:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Caption:=ErrorString;//. Visible:=TRUE;//;//;//
//TCADForm. RectBLEditEnter (Sender: TObject);// Відображення підказки до RectBLEdit //. Visible:=TRUE;//. Visible:=FALSE;//. Visible:=FALSE;//;//
//TCADForm. RectCalcLblClick (Sender: TObject);////(RectAccImgA. Visible=TRUE) and (RectAccImgB. Visible=TRUE) then////:=a * b;//. Text:=FloatToStr (S);// S gt;=50 then //. Visible:=TRUE;//;//. Visible:=TRUE;// ( Laquo; Стеля за шаблоном прямокутник raquo ;, a, b, 0, 0, 0, S);//;// TCADForm. ParallBtnClick (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. ParallBLEditChange (Sender: TObject);// Обробка введення даних в ParallBLEdit //. Visible:=FALSE;//. Visible:=FALSE;//. Top:=300;// (ParallBLEdit. Text);// GenCheck=TRUE then////. Visible:=FALSE;//. Enabled:=TRUE;//. Visible:=TRUE;//:=StrToFloat (ParallBLEdit. Text);// (ParallAccImgB. Visible=TRUE) and (ParallAccImgH. Visible=TRUE) then //. Visible:=TRUE;////// //. Enabled:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Caption:=ErrorString;//. Visible:=TRUE;//;//;//
//TCADForm. ParallBLEditEnter (Sender: TObject);// Відображення підказки до ParallBLEdit //. Visible:=TRUE;//. Visible:=FALSE;//. Visible:=FALSE;//;//
//TCADForm. ParallHLEditChange (Sender: TObject);// Обробка введення даних в ParallHLEdit //. Visible:=FALSE;//. Visible:=FALSE;//. Top:=330;// (ParallHLEdit. Text);// GenCheck=TRUE then////. Visible:=FALSE;//. Enabled:=TRUE;//. Visible:=TRUE;//:=StrToFloat (ParallHLEdit. Text);// (ParallAccImgB. Visible=TRUE) and (ParallAccImgH. Visible=TRUE) then //. Visible:=TRUE;////// //. Enabled:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Caption:=ErrorString;//. Visible:=TRUE;//;//;//
//TCADForm. ParallHLEditEnter (Sender: TObject);// Відображення підказки до ParallHLEdit //. Visible:=TRUE;//. Visible:=FALSE;//. Visible:=FALSE;//;//
//TCADForm. ParallCalcLblClick (Sender: TObject);////(ParallAccImgB. Visible=TRUE) and (ParallAccImgH. Visible=TRUE) then////:=b * h;//. Text:=FloatToStr (S);// S gt;=50 then //. Visible:=TRUE;//;//. Visible:=TRUE;// ( Laquo; Стеля за шаблоном паралелограм raquo ;, 0, b, h, 0, 0, S);//;// TCADForm. TrapBtnClick (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;//. Visible:=FALSE;//. Visible:=FALSE;// LogFileDisabled=FALSE then//( Обрано шаблон трапеції );//;//
//TCADForm. TrapALEditChange (Sender: TObject);// Обробка введення даних в TrapALEdit //. Visible:=FALSE;//. Visible:=FALSE;//. Top:=300;// (TrapALEdit. Text);// GenCheck=TRUE then////. Visible:=FALSE;//. Enabled:=TRUE;//. Enabled:=TRUE;//. Visible:=TRUE;//:=StrToFloat (TrapALEdit. Text);// (TrapAccImgA. Visible=TRUE) and (TrapAccImgB. Visible=TRUE) and (TrapAccImgH. Visible=TRUE) then //. Visible:=TRUE;////// //. Enabled:=FALSE;//. Enabled:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Caption:=ErrorString;//. Visible:=TRUE;//;//;//
//TCADForm. TrapALEditEnter (Sender: TObject);// Відображення підказки до TrapALEdit //. Visible:=TRUE;//. Visible:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//;//
//TCADForm. TrapBLEditChange (Sender: TObject);// Обробка введення даних в TrapBLEdit //. Visible:=FALSE;//. Visible:=FALSE;//. Top:=330;// (TrapBLEdit. Text);// GenCheck=TRUE then////. Visible:=FALSE;//. Enabled:=TRUE;//. Enabled:=TRUE;//. Visible:=TRUE;//:=StrToFloat (TrapBLEdit. Text);// (TrapAccImgA. Visible=TRUE) and (TrapAccImgB. Visible=TRUE) and (TrapAccImgH. Visible=TRUE) then //. Visible:=TRUE;////// //. Enabled:=FALSE;//. Enabled:=FALSE;//. Visible:=FALSE;//. Visible:=FALSE;//. Caption:=ErrorString;//. Visible:=TRUE;//;//;//
//TCADForm. TrapBLEditEnter (Sender: TObject);// Відображення підказки до TrapBLEdit //. Visible:=TRUE;//. Visible:=FALSE;//. Visible:=FALSE;//....