Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Private void trackBar1_Scroll(object sender, EventArgs e)

Читайте также:
  1. A Ticket to Private School.
  2. A. The mediator conducts a caucus or private session with
  3. From the History of Private Equity and Venture Capital in the USA
  4. Keeping your details private
  5. Land Stewardship — Maintaining the Health of Privately Owned Land
  6. Look at Business English section and write an inquiry letter to the Supraveni Chemicals Private Limited (you can find information in the writing section of the unit 4).
  7. PRIVATE EDUCATION

{

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; просмотров: 123 | Нарушение авторских прав


Читайте в этой же книге: Procedure DrawAxesD; | Namespace openGL_1 | Implementation | Form1.Image1.Canvas.LineTo(x,y); |
<== предыдущая страница | следующая страница ==>
СПИСОК СКОРОЧЕНЬ| Form1.Image1.Canvas.MoveTo(x,0);

mybiblioteka.su - 2015-2024 год. (0.01 сек.)