uo;,
Ю , Е , laquo ;! raquo;,laquo;@raquo;,laquo;#raquo;,laquo;$raquo;,laquo;%raquo;,laquo;^raquo;,laquo;amp;raquo;,
* , (, ) , - , _ , =, + , /, '',
{, } , [, ] , " , lt; , gt; , laquo ;; , laquo ;: ,
№ , laquo ;? , laquo ;. , ~ , `, , ) ;: array [1.10] of Char=(laquo;1raquo;,laquo;2raquo;,laquo;3raquo;,laquo;4raquo;,laquo;5raquo;,laquo;6raquo;,laquo;7raquo;,laquo;8raquo;,laquo;9raquo;,laquo;0raquo;);ClosingUnit, FogUnit, CADUnit, BigFogUnit, CADUnitWTools;
{$ R *. dfm} FormAppear;// Процедура, анімуйте поява форм
var: Byte; MainForm. Active=TRUE theni:=0 to 255 do. AlphaBlendValue:=i ;. ProcessMessages; (1); CADForm. Active=TRUE theni:=0 to 255 do. AlphaBlendValue:=i ;. ProcessMessages; (1) ;;; CADFormWTools. Active=TRUE theni:=0 to 255 do. AlphaBlendValue:=i ;. ProcessMessages; (1) ;;; ClosingForm. Active=TRUE theni:=0 to 255 do. AlphaBlendValue:=i ;. ProcessMessages; (1) ;;;;; FormDisappear;// Процедура, анімуйте закриття форм: Byte; MainForm. Active=TRUE theni:=255 downto 0 do. AlphaBlendValue:=i ;. ProcessMessages; (1) ;;; CADForm. Active=TRUE theni:=255 downto 0 do. AlphaBlendValue:=i ;. ProcessMessages; (1) ;;; CADFormWTools. Active=TRUE theni:=255 downto 0 do. AlphaBlendValue:=i ;. ProcessMessages; (1) ;;; ClosingForm. Active=TRUE theni:=255 downto 0 do. AlphaBlendValue:=i ;. ProcessMessages; (1) ;;;; EnableFog;// Процедура анімації затемнення форми: Byte; MainForm. Active=TRUE then. Show; i:=0 to 150 do. AlphaBlendValue:=i ;. ProcessMessages; (1) ;;; CADForm. Active=TRUE then. Show; i:=0 to 150 do. AlphaBlendValue:=i ;. ProcessMessages; (1) ;;; CADFormWTools. Active=TRUE then. Show; i:=0 to 150 do. AlphaBlendValue:=i ;. ProcessMessages; (1) ;;;; DisableFog;// Процедура анімації зняття затемнення форми. Close ;. Close ;; EventLog (Event: String);// Процедура додавання подій в лог-файл: TFileStream ;: Real ;: Real ;: Real ;:=DateToStr (SysUtils. Date) ;:=TimeToStr (SysUtils. Time); (LogFile); (LogFile, + Date + + Time + Event); (LogFile); (LogFile) ;:=TFileStream. Create ( ActionLog. Txt raquo ;, fmOpenRead) ;:=SizeStream. Size ;. Free; SizeInB lt; 1024 then. ClearLogLbl. Caption:= Очистити лог-файл ( + FloatToStr (SizeInB) + байт) raquo ;:=SizeInB/1024; SizeInKb lt; 1024 then. ClearLogLbl. Caption:= Очистити лог-файл ( + FloatToStrF (SizeInKb, ffFixed, 4,2) + Кбайт) raquo ;:=SizeInKb/1 024 ;. ClearLogLbl. Caption:= Очистити лог-файл ( + FloatToStrF (SizeInMb, ffFixed, 4,2) + Мбайт) raquo ;;;; GUIHide;// Процедура приховування елементів інтерфейсу. AboutGrBox. Visible:=FALSE ;. HelpGrBox. Visible:=FALSE ;. OptGrBox. Visible:=FALSE ;. LogoImg. Visible:=FALSE ;; CalcMenuClose;// Процедура анімації закриття меню Розрахунок raquo ;: Byte ;:=FALSE ;. CalcAreaBtn. Visible:=FALSE ;. CalcPriceBtn. Visible:=FALSE; i:=1 to 49 do. OptBtn. Top:=MainForm. OptBtn. Top - 1 ;. AboutBtn. Top:=MainForm. AboutBtn. Top - 1 ;. HelpBtn. Top:=MainForm. HelpBtn. Top - 1 ;. ProcessMessages (); (1) ;;; TMainForm. FormCreate (Sender: TObject);// Обробка події запуску програми
//MainForm. DoubleBuffered:=TRUE ;;. Visible:=TRUE ;. Show;
CalcMenuOpened:=FALSE ;. Caption:= Дана програма розроблена в якості дипломного проекту за замовленням ІП Торопова І.М. + Chr (10) +
Розробник - Євген Богданов, група Пк - 41. + Chr (10) +
УО Гомельський Державний Машинобудівний Коледж raquo ;, 2011 raquo ;; (LogFile, ActionLog. txt );
if not FileExists ( ActionLog. txt ) then (LogFile); (LogFile) ;; ( Програма запущена ) ;:=TIniFile. Create (ExtractFilePath (ParamStr (0)) + Settings. Ini ) ;. WriteInteger ( Position raquo ;, X raquo ;, MainForm. Left) ;. WriteInteger ( Position raquo ;, Y raquo ;, MainForm. Top) ;:=INI. ReadBool ( LogFile raquo ;, LogFileDisabled raquo ;, LogFileDisabled); LogFileDisabled=TRUE then. Checked:=TRUE;
EventLog ( ВЕДЕННЯ лог-файлів ВІДІМКНУТО В ОДНІЙ ІЗ попередньої сесії );
end. Checked:=FALSE ;:=INI. ReadBool ( Sounds raquo ;, SoundsEnabled raquo ;, SoundsEnabled); SoundsEnabled=TRUE then. Checked:=TRUE. Checked:=FALSE ;. Free ;;; TMainForm. MinBtnClick (Sender: TObject);// Обробка натискання кнопки Згорнути SoundsEnabled=TRUE then (PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC); (Application. Handle, SW_MINIMIZE) ;; TMainForm. CloseBtnClick (Sender: TObject);// Обробка натискання кнопки Закрити SoundsEnabled=TRUE then (PChar ( Sounds/OnSection. Wav ), 0, SND_ASYNC) ;;:=1 ;. Show ;; TMainForm. MainBtnClick (Sender: TObject);// Обробка натискання кнопки Головна LogFileDisabled=FALSE then ( Розділ Головна ); SoundsEna...
