TForm1. FormClose (Sender: TObject; var Action: TCloseAction);// Закриття форми:=Application. MessageBox ( Завершити програму? Raquo ;, Вихід raquo ;, mb_YesNo + mb_IconAsterisk); (A=idYes) then form4.close else Abort ;; TForm1.N5Click (Sender: TObject);// Вихід в меню:=Application. MessageBox ( Завершити програму? Raquo ;, Вихід raquo ;, mb_YesNo + mb_IconAsterisk); (A=idYes) then form4.close else Abort ;; TForm1. FormActivate (Sender: TObject) ;. Left:=(Screen. Width div 2) - (Form1. Width div 2);// Центруючи вікно. Top:=(Screen. Height div 2) - (Form1. Height div 2) ;. Enabled:=false ;. LabeledEdit3.hide ;. UpDown3.hide; 2.caption:= Підказка: Після вибору потрібної функції + # 10 # 13 + натисніть кнопку «Далі», щоб перейти до + # 10 # 13 + введенню змінних і побудови графіка + # 10 # 13 + функції raquo ;;
end; TForm1.N7Click (Sender: TObject) ;. Show ;; TForm1. FormKeyUp (Sender: TObject; var Key: Word;//Виклик довідки по F1: TShiftState); Key=vk_F1 then (Application. Handle, open raquo ;, PChar ( base/helpm ), nil, nil , SW_SHOW) ;; TForm1.N6Click (Sender: TObject);//Виклик довідки (Application. Handle, open raquo ;, PChar ( base/helpm ), nil, nil, SW_SHOW) ;;. Unit3 ;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, StdCtrls, Buttons, Math, Menus, ComCtrls, shellapi;
=class (TForm): TGroupBox ;: TPaintBox ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TLabel ;: TLabel ;: TUpDown ;: TUpDown ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TLabeledEdit ;: TLabeledEdit ;: TMenuItem ;: TMenuItem ;: TLabeledEdit ;: TUpDown ;: TLabel; FormActivate (Sender: TObject); N2Click (Sender: TObject); N5Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); FormContextPopup (Sender: TObject; MousePos: TPoint; Handled: Boolean); BitBtn1Click (Sender: TObject); BitBtn3Click (Sender: TObject); BitBtn4Click (Sender: TObject); LabeledEdit1KeyPress ( Sender: TObject; var Key: Char); LabeledEdit1KeyUp (Sender: TObject; var Key: Word ;: TShiftState); LabeledEdit2KeyPress (Sender: TObject; var Key: Char); LabeledEdit2KeyUp (Sender: TObject; var Key: Word ;: TShiftState ); N7Click (Sender: TObject); FormKeyUp (Sender: TObject; var Key: Word ;: TShiftState); N6Click (Sender: TObject); LabeledEdit3KeyPress (Sender: TObject; var Key: Char); LabeledEdit3KeyUp (Sender: TObject; var Key: Word ;: TShiftState);
{Private declarations}
{Public declarations} ;: TForm3 ;, y: real;// Розрахунок х і у
x0, y0, tx, ty, i: Integer;// Початок координат по х і у
m: Integer;// Масштаб: string; Unit1, Unit2, Unit4, Unit5;
{$ R * .dfm} TForm3. BitBtn1Click (Sender: TObject) ;. mediaplayer1. FileName:=ExtractFilePath (ParamStr (0)) + base/click.wav raquo ;;. Mediaplayer1. Open; .mediaplayer1.play; (Length (LabeledEdit1.text)=0) or (LabeledEdit1. Text= - ) then LabeledEdit1. Text:= 0 raquo ;;// Якщо поле пусте, пишемо туди 0 (Length (LabeledEdit2.text)=0) or (LabeledEdit2. Text= - ) then LabeledEdit2. Text:= 0 raquo ;; form1. RadioGroup1. ItemIndex of
: begin if (strtofloat (LabeledEdit1.text) lt; 1) or (strtofloat (LabeledEdit1.text) gt; 7) then begin showmessage ( Числа від 1 до 7 ); abort; end; end ;;. Canvas. Brush. Color:=clWhite;// Колір фону білий. Canvas. FillRect (ClientRect);// Очищення робочої області PaintBox10:=paintbox1. Width div 2;// Дізнаємося центр форми по х
y0:=paintbox1. Height div 2;// Дізнаємося центр форми по у
paintbox1. Canvas. Pen. Color:=clsilver;// Малюємо клітини:=0;:=0; i:=1 to 25 do begin. Canvas. MoveTo (tx, ty + 10);// ..Вертікально. Canvas. LineTo (tx + 260, ty + 10);:=ty + 10 ;;:=0;:=0; i:=1 to 25 do begin//..Горізонтально. Canvas. MoveTo (tx + 10, ty) ;. Canvas. LineTo (tx + 10, ty + 260);:=tx + 10 ;;. Canvas. Pen. Color:=clblack;// ... Завершення
//креслимо х вісь
paintbox1. Canvas. MoveTo (0, y0) ;. Canvas. LineTo (paintbox1. Width, y0);
//креслимо у вісь
paintbox1. Canvas. MoveTo (x0, 0) ;. Canvas. LineTo (x0, paintbox1. Height);
//стрілка у. Canvas. Brush. Color:=clblack ;. Canvas. Polygon ([Point (x0,0), Point (x0 + 3, 20), Point (x0-3, 20)]) ;. Canvas. Brush. Color:=clwhite ;. Canvas. TextOut (x0-30,10, y );
//стрілка x. Canvas. Brush. Color:=clblack ;. Canvas. Polygon ([Point (260, y0), Point (240, y0-3), Point (240, y0 + 3)]) ;. Canvas. Brush. Color:=clwhite ;. Canvas. TextOut (240, y0 + 20, x );:=10;// Задаємо масштаб, інакше буде дуже невеликий графік
