Цель курса

жүктеу 2,84 Mb.

бет	6/14
Дата	25.12.2017
өлшемі	2,84 Mb.
	#6129
түрі	Программа

1 2 3 4 5 6 7 8 9 ... 14

Width
Brush
30- сурет . Image

29- сурет.
Шешуі:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Edit1.Text:=TimeToStr(Time);

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

Edit2.Text:=DateToStr(Date);

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Edit3.CutToClipboard;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Edit3.CopyToClipboard;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

Edit3.PasteFromClipboard;

end;

Shape компонентін шартты түрде графиктік ақпаратты шығару құрылғысына жатқызуға болады. Ол әр түрлі геометриялық фигураларды салу үшін қолданылады. Бұл компоненттің негізгі қасиеті- Shape. Ол төмендегі мәндерді қабылдайды:

StCircle- шеңбер

StEllipse- эллипс

StRectangle-тіктөртбұрыш

StRoundRectangle- бұрыштары дөңгеленген тіктөртбұрыш

StSquare- квадрат

StRoundSquare - бұрыштары дөңгеленген квадрат

Мысалы: Shape1.Shape:=StEllipse; Shape2.Shape:=StRectangle;

Екінші қасиеті-Pen (қалам). Ол сызық және геометриялық фигура шекарасын сызу үшін қолданылатын қалам атрибутын анықтайды. Оның қасиеттері:

Color- сурет салынатын қалам түсі.

Width- сызылатын сызықтың пикселмен өлшенген қалыңдығы.

Style- сызықтың стилі. Ол төмендегідей мәндер қабылдайды.

psSolid- тұтас сызық

psDash- штрихталған сызық

psDot- пунктир сызық

psDashDot- штрих- пунктир сызық

psDashDotDot- штрих және екі пунктир сызық

psClear- сызық жоқ.

Мысалы: Shape1.Pen.Color:=clRed;

Shape1.Pen.Width:=3;

Shape1.Pen.Style:=psDash;

Shape1.Shape:=stCircle;

Нәтижеде сызық қалыңдығы 3-ке тең, сызық стилі штрихталған, қызыл түсті шеңбер сызылады.

Shape компонентінің келесі қасиеті- Brush (қылқалам). Ол геометриялық фигураның ішін бояуды жүзеге асырады. Brush қасиетінің өз қасиеттері бар. Color - фигура ішін бояу түсін көрсетеді.

Style- бояу стилін анықтайды. Оның мәндері:

bsSolid- тұтас бояу

bsHorizontal- горизонталь сызықпен бояу

bsVertical- вертикаль сызықпен бояу

bsFDiagonal, bsBDiagonal- диагонал сызықпен бояу

bsCross- тік торлы бояу

bsDiagCross- көлденең торлы бояу

bsClear- боялмаған.

Мысал. Суретте әр түрлі стильмен сызылған және боялған түрлі фигуралар көрсетілген.

30- сурет.
Image компоненті форма бетіне графиктік бейне қою үшін қолданылады. Оның қасиеттері:

AutoSize қасиетінің мәні ақиқат болса Image компонентінің өлшемі қойылған бейне өлшемімен сәйкестендіріледі.

Stretch қасиетінің мәні ақиқат болса компонент өлшемі емес, керісінше бейне өлшемі компонент өлшеміне сәйкестендіріледі.

Center-қасиетінің мәні ақиқат болса, онда бейне центрі Image компонентінің центріне сәйкестендіріледі. Аталған үш қасиеттің мәні бульдік болып табылады және олар true, false екі мәннің біреуін қабылдайды.

Picture қасиеті компонентке графиктік бейне қоюды жүзеге асырады. Бұл қасиеттің LoadFromFile және SaveToFile әдістері компонентке сурет жүктеуді және суретті сақтауды жүзеге асырады. Жалпы түрдегі жазылу форматтары:

procedure LoadFromFile(const FileName: string);

procedure SaveToFile(const FileName: string);

Мысалы: Image1.Picture.LoadFromFile (‘d:\4204\Adil.bmp’);

жүктеу 2,84 Mb.

Достарыңызбен бөлісу:

1 2 3 4 5 6 7 8 9 ... 14