bled=TRUE then (PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC) ;;. Visible:=TRUE ;; TMainForm. CalcBtnClick (Sender: TObject);// Обробка натискання кнопки Розрахунок //: Byte;////LogFileDisabled=FALSE then//
EventLog ( Розділ Розрахунок );//
if CalcMenuOpened=FALSE then//// SoundsEnabled=TRUE then//(PChar ( Sounds/MenuOpening. wav ), 0, SND_ASYNC);//:=TRUE;// I:=1 to 49 do////. Top:=OptBtn. Top + 1;//. Top:=AboutBtn. Top + 1;//. Top:=HelpBtn. Top + 1;//. ProcessMessages ();// (1);//;//. Visible:=TRUE;//. Visible:=TRUE;//;//;//
//TMainForm. CalcAreaBtnClick (Sender: TObject);// Обробка натискання кнопки Обчислення площі //LogFileDisabled=FALSE then//
EventLog ( Підрозділ Розрахунок / Обчислення площі );//
if SoundsEnabled=TRUE then//(PChar ( Sounds/OnSection. wav ), 0, SND_ASYNC);//;//;//. PriceGrBox. Visible:=FALSE;//. TempBtn. Visible:=TRUE;//. CADBtn. Visible:=TRUE;//. Show;//. Close;//;//
//TMainForm. CalcPriceBtnClick (Sender: TObject);// Обробка натискання кнопки Обчислення вартості //LogFileDisabled=FALSE then//
EventLog ( Підрозділ Розрахунок / Обчислення вартості );//
if SoundsEnabled=TRUE then//(PChar ( Sounds/OnSection. wav ), 0, SND_ASYNC);//;//;//. TempBtn. Visible:=FALSE;//. CADBtn. Visible:=FALSE;//. PriceGrBox. Visible:=TRUE;//. SRoomLEdit. Text:=FloatToStrF (SRoom, ffFixed, 5,2);//. SCeilLEdit. Text:=FloatToStrF (SCeil, ffFixed, 5,2);//. Show;//. Close;//;// TMainForm. OptBtnClick (Sender: TObject);// Обробка натискання кнопки Налаштування //SoundsEnabled=TRUE then//(PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC);// CalcMenuOpened=TRUE then //;// LogFileDisabled=FALSE then//( Розділ Налаштування );//;//. Visible:=TRUE;//;//
//TMainForm. LogFileChBoxClick (Sender: TObject);// Обробка події включення/вимикання ведення лог-файлу//LogFileChBox. Checked=TRUE then //:=TRUE////:=FALSE;//;//
//TMainForm. ClearLogLblClick (Sender: TObject);// Обробка натискання кнопки" Очистити лог-файл//SoundsEnabled=TRUE then//(PChar ( Sounds/LogFileClear. Wav ), 0, SND_ASYNC);//(LogFile);//( Лог-файл очищений ); //;//
//TMainForm. SoundsChBoxClick (Sender: TObject);// Обробка події включення/вимикання звукового супроводу//SoundsChBox. Checked=TRUE then //:=TRUE////:=FALSE;//;// TMainForm. OptSaveLblClick (Sender: TObject);// Обробка натискання кнопки Зберегти налаштування //:=TIniFile. Create (ExtractFilePath (ParamStr (0)) + Settings. Ini );//. WriteBool ( LogFile raquo ;, LogFileDisabled raquo ;, LogFileChBox. Checked);//. WriteBool ( Sounds raquo ;, SoundsEnabled raquo ;, SoundsChBox. Checked);// LogFileChBox. Checked=TRUE then//
EventLog ( ВЕДЕННЯ лог-файлів ВІДІМКНУТО )//// ( ВЕДЕННЯ лог-файлів ВКЛЮЧЕНО );//
if SoundsChBox. Checked=TRUE then//
EventLog ( Звуковий супровід включено )//// ( Звуковий супровід відключено );// ( Laquo; Налаштування збережені );//. Free;//
end;// TMainForm. HelpBtnClick (Sender: TObject);// Обробка натискання кнопки Довідка SoundsEnabled=TRUE then (PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC); CalcMenuOpened=TRUE then; LogFileDisabled=FALSE then ( Розділ Довідка ) ;;. Visible:=TRUE ;; TMainForm. AboutBtnClick (Sender: TObject);// Обробка натискання кнопки Про програму SoundsEnabled=TRUE then (PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC); CalcMenuOpened=TRUE then; LogFileDisabled=FALSE then ( Розділ Про програму ) ;;. Visible:=TRUE ;; TMainForm. FormClose (Sender: TObject; var Action: TCloseAction);// Обробка події закриття програми
begin ( Програма закрита );
Append (LogFile); (LogFile, ); (LogFile); (LogFile) ;;;.
Модуль CADUnit - Вікно розрахунків: CADUnit ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, MMSystem, jpeg, StdCtrls, Math, IniFiles;=class (TForm): TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TGroupBox ;: TImage ;: TLabeledEdit ;: TLabeledEdit ;: TLabel ;: TImage ;: TImage ;: TImage ;: TImage ;: TLabeledEdit ;: TLabel ;: TGroupBox ;: TImage ;: TImage ;: TImage ;: TLabeledEdit ;: TLabeledEdit ;: TLabel;:TLabel ;: TLabeledEdit ;: TImage ;: TImage ;: TGroupBox ;: TImage ;: TImage ;: TImage ;: TImage ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit ;: TLabel ;: TLabeledEdit ;: TImage ;: TImage ;: TImage ;: TLabel ;: TGroupBox ;: TImage ;: TImage ;: TImage ;: TLabeledEdit ;: TLabeledEdit ;: TLabel ;: TLabeledEdit ;: TImage ;: TImage ;: TLabel ;: TGroupBox ;: ...
