Private void trackBar1_Scroll(object sender, EventArgs e)

{

simpleOpenGlControl1.Refresh(); //обновляємо поле при зміні положення повзунка

}

}

}

5.2.2 Віконні інтерфейси

Рис.5.1.1 Програма реалізації на початку закривання діафранми

Рис.5.1.2 Програма реалізації при закритті діафрагми

Рис.5.1.3 Програма реалізації закритої діафрагми

5.3. Програмна реалізація з WinAPI

Опис алгоритму

Unit Unit1;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, ComCtrls, Buttons;

Type

TForm1 = class(TForm)

Image1: TImage;

TrackBar1: TTrackBar;

Label1: TLabel;

Label2: TLabel;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label3: TLabel;

TrackBar2: TTrackBar;

Label4: TLabel;

CheckBox2: TCheckBox;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Label5: TLabel;

Label6: TLabel;

ComboBox3: TComboBox;

procedure BitBtn2Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure TrackBar1Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Label4Click(Sender: TObject);

procedure TrackBar2Change(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure Label5Click(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

End;

Var

Form1: TForm1;

k,f,x,y,rx,ry,kd,fd:integer;

colGr1,colGr2,colAx:TColor;

Implementation

{$R *.dfm}

Procedure FonDraw;

Begin

Form1.Image1.Canvas.FillRect(Rect(0,0,Form1.Image1.Width,Form1.Image1.Height));

End;

Procedure DrawAxes;

Begin

k:=Form1.TrackBar1.Position;

Form1.Image1.Canvas.Pen.Color:=colAx;

Form1.Image1.Canvas.MoveTo(0,Trunc(Form1.Image1.Height/2));

Form1.Image1.Canvas.LineTo(Form1.Image1.Width,Trunc(Form1.Image1.Height/2));

Form1.Image1.Canvas.MoveTo(Trunc(Form1.Image1.Width/2),0);

Form1.Image1.Canvas.LineTo(Trunc(Form1.Image1.Width/2),Form1.Image1.Height);

Form1.Image1.Canvas.Pen.Color:=clSilver;

x:=Trunc(Form1.Image1.Width/2);

while x<Form1.Image1.Width do

Begin

x:=x+k;

Дата добавления: 2015-10-30