Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Тапсырма №3. Заты.Bmp, .ico болып келген графикалық файлдарды шығару үшін Additional бетіндегі Image компоненті қосылады.
|
|
Заты.Bmp,.ico болып келген графикалық файлдарды шығ ару ү шін Additional бетіндегі Image компоненті қ осылады.
 |
Image
10.7-сурет. Additional беті.
Тө мендегі кенстеде осы компоненттің қ асиеттері кө рсетілген.
| Қ асиеті | Анық тамасы |
| Picture | Компонент ө рісінде бейнеленетін сурет |
| Width Height | Компонент ө лшемі |
| AutoSize | ө лшемнің автоматты тү рде ө згертілу ьелгісі |
| Strech | Компонент ө лшеміне байланысты сурет ө лшемін ө згерту белгісі |
| Visible | Компонент ү стінде суреттің кө ріну, кө рінбеу белгісі |
Енді экранғ а жоғ арыда келтірілген фигураларды сызып, оның жанына олардың атын жазып шығ аратын программа мысалын жазайық. Ол ү шін формағ а Image1 жә не Button компоненттерін орналастырамыз. Программа мә тіні тө мендегідей:
Unit rr2;
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphcs, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
Type
Tform1=class(TForm)
Image: TImage;
Button: TButton;
Procedure ButtonClick(Sender: TObject);
Private {Private declarations}
Public {Public declarations}
End; var
Form1: TForm1;
Implementation
{$R*.dfm}
Procedure Tform1.Button1Click(sender: TObject);
Begin
With Image1.Canvas do
Begin
Font.Sryle: =[fsBold];
Pen.Color: =clred;
Arc(10, 10, 90, 90, 90, 50, 10, 50);
TextOut(40, 60, ’Arc’);
Pen.color: =clGreen;
Brush.style: =bscroos;
Chord(110, 10, 190, 90, 190, 50, 110, 50);
Textout(135, 60, ’Chord’);
Pen.Color: =clred;
Brush.Color: =clBlue;
Brush.Style: =bsclear;
Ellipse(230, 60, ’Ellipse’);
Pie(310, 10, 390, 90, 390, 30, 310, 30);
Textout(340, 60, ’Pie’);
Polygon([Point(30, 150), Point(40, 130), Point(50, 140), Point(60, 110)
Point(70, 150)]);
Polyline([Point(130, 150), Point(140, 130), Point(150, 140), Point(160, 110)
Point(170, 150)]);
Textout(140, 170, ’polyLine’);
Rectangle(230, 120, 280, 160);
Textout(230, 170, ’Rectangle’);
Roundrect(330, 120, 380, 160, 20, 20);
TextOut(325, 170, ’Roundrect’);
End;
End;
End.
Программанның орындалу нә тижесі 10.8- суретте келтірілген.
Форманы дайындау кезінде сурет Picture қ асиеті арқ ылы жү ктеледі. Олү шін Objecr Inspecror қ осымшасында Picture қ асиетін таң дау керек. Содан кейін пайда болғ ан Picture Editor терезеде Load батырмасы арқ ылы суретті тандап, OK батырмасын басу керек.
Оның ө лшемін Strech қ асиеті арқ ылы ө згертуге болады.
10.8-сурет. Фигураларды бейнелеу терезесі
10.9-сурет. Picture Editor терезесі
|
|