График компоненталар

Загружено в:

20.09.2019

Скачано:

0

Размер:

142 KB

Скачать

График компоненталар Режа: 1. Delphi мультимедиа имкониятлари 2. Animate Компонентаси 3. График режим (TPrinter объекти) 4. График режим (TPrinter объекти)

Image компонентаси формага расмларни жойлаштириш учун ишлатилади. Жойлаштирилиши лозим бўлган расмлар битли файллар (кенгайтмалари Bmp ), пиктограммали (кенгайтмалари . Ico ), метафайллар (кенгайтмалари wmf ) бўлиши керак. Image компонентаси Additional палитрасида жойлашган бўлиб, у кўринишдаги пиктограммага эга. Бу тугмачани босиб формадан расм учун жой ажратилади ва кейин эса хоссалар бўлимидан Picture хоссаси танланиб, у ердан уч нуқтали тугмача босилади. Натижада экранда расмни аниқлаш ва жойлаш учун мулоқат дарчаси очилади. Мулоқат дарчаси қуйидаги тугмачаларга эга: Load -файлдан расмни чақириш; Save -расмни файлга сақлаш; Clear -танланган расмни олиб ташлаш; Ok -танланган расмни ажратилган жойга ёзиш; Cancel -қилинган ўзгартиришларни бекор қилиш. Shape компонентаси формага айлана, тўртбурчак, эллипс ва бошқа шаклларни жойлаштириш учун ишлатилади. Унинг қуйидаги хоссалари мавжуд: Brush -шаклни бўяш учун чўткача; Pen -шакл четини чизиш учун қалам; Shape -экранга чиқадиган шаклни аниқлайди: StRectangle -тўртбурчак; StSquare -квадрат;

StRoundRect -четлари айлана тўртбурчак; StRoundSquare -четлари айлана квадрат; StEllipse -эллипс; StCircle -айлана. Shape компонентаси ҳам Additional палитрасида жойлашган бўлиб, у кўринишдаги пиктограммага эга. Бу тугмачани босиб формадан шакл учун жой ажратилади ва кейин эса хоссалар бўлимидан Shape хоссасига кирилиб керакли шакл танланади. PaintBox компонента c и формага чегараланган майдонда шаклларни чизиш имконини беради. PaintBox компонентаси System палитрасида жойлашган бўлиб, у кўринишдаги пиктограммага эга. Бу тугмачани босиб формадан шакл учун жой ажратилади ва кейин эса хоссалар бўлимидан Shape хоссасига кирилиб керакли шакл танланади. Timer визуал бўлмаган компонента бўлиб, формада бажариладиган маълум бир операцияларни вақт бўйича бошқаради. Timer компонентаси System палитрасида жойлашган бўлиб, у кўринишдаги пиктограммага эга. Бу тугмачани босиб формага олиб келиб қўйилади. У қуйидаги хоссаларга эга: Enabled - true қиймати ўрнатилган бўлса у бўладиган жараёнга таъсир қилади; Interval -миллисекундларда вақт интервалини аниқлайди ва жараённинг экранга чиқишига таъсир кўрсатади. Тегмаган ҳолда 1000 (1 секунд) кўрсатади.

М и с о л. Илова учун “заставка” яратиш. Е ч и ш Заставка график тасвирлар кўринишида бўлиб, программалар ишга туширилганда бир неча секунддан сўнг экранда пайдо бўлади. Унда программа номи ва унинг авторлари ҳақида маълумот бўлиши мумкин. График тасвирни, яъни . bmp кенгайтмага эга бўлган файлни график муҳаррири ёрдамида тайёрлаймиз. Delphi системасини ишга туширишдан аввал тузиладиган иловани сақлаш учун ўзимизга папка ташкил қиламиз. 1.Олдин тузилган бирор бир иловани очамиз ёки янги илова ташкил этамиз. 2.Бош менюдан график муҳаррирни ишга туширамиз: Tols => Image Editor . (Бу Delphi график мухарири оддий Paint график муҳарриридан унча катта фарқ қилмайди) 3. Delphi график мухарири Image Editor менюсидан File => New => Bitmap File (. bmp ) буйруғи берилади. Натижада экранда расм парамертларини бериш учун мулоқат дарчаси пайдо бўлади. Мулоқат дарчасидан керакли параметрлар танланиб Ok тугмаси босилади. Тайёр мавжуд расм фойлларидан ҳам фойдалашиш мумкин. 4.График муҳарири ойнасидан ажратилган жойга ихтиёрий расм чизилиб, у сақланади. Масалан, айлана ва унга ташқи чизилган расм чизиб, ичига “Тузучи – Ахмелов Р.” сўзи ёзиб қўйилсин. Матнни ёзиш учун ускуналар панелининг “ T ” ( Text ) тугмачасидан фойдаланилади.

5.График файли сақланади ва ундан чиқилади. 6. System палитрасидан Timer компонентасининг тугмачани босиб формага олиб келиб қўйилади ва у Timer 1 ном олади. Interval хоссасини 3000 га тенглашириб оламиз. 7. Additional палитрасидан Image компонентаси тугмачасини босиб формадан расм учун жой ажратилади ва кейин эса хоссалар бўлимидан Picture хоссаси танланиб, у ердан уч нуқтали тугмача босилади. Натижада экранда расмни аниқлаш ва жойлаш учун мулоқат дарчаси очилади. Мулоқат дарчасидан Load буйруғи берилиб, сақланган расм файлимиз танланади ва Ok тугмаси босилади. Расм тўлиқ формага жойлашиши учун Autosize хоссасига True қийматини ўрнатамиз. 8. Timer 1 компонентини активлаштирамиз, яъни уни икки марта тез-тез босамиз ва кодларни ёзиш ойнасига қуйидаги қора ёзилган кодларни киритамиз. procedure TForm1.Timer1Timer(Sender: TObject);

begin Image1.Free; Timer1.Free; end; Бу шуни билдирадики программа ишга тушгандан с ў нг 3000 миллисекунддан ў тиши билан Image1 ва Timer1 компоненталари компьютер хотирасидан ва мос равишда экрандан ў чирилади . 9. Тузилган лойи ҳ а ( проект ) яъни Project1 ва Unit1 стандарт модул номларини мос номлар билан алмаштириб са қ ланади . 10.Янги ном билан сақланган проект, яъни илова F 9 тугмачасини босиш билан ишга тушурилади. Илова ишга туширилганда экранда юқоридаги 4 пунктдаги расм “заставка” кўринишида намоён бўлади. Ташкил қилинган модулнинг тўлиқ кўринишини келтирамиз. unit px1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type TForm1 = class(TForm) procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin Image1.Free; Timer1.Free; End;

end. Яратилган “ заставка ” миз программа ишлаш давомида ў чиб - ёниб туриши учун қ уйидаги OnTimer ходисаси ни қ айта ишлаш кодини ёзишимиз керак б ў лади . procedure TForm1.Timer1Timer(Sender: TObject); begin If Image1.visible=true then Image1.hide Else Image1.Show; End; Delphi м ультимедиа имкониятлари Windows му ҳ итида фойдаланувчи дастурлар ининг кўпчилиги мультимедия дастурларидир . Бундай дастурлар видеоролик ва мультипликация к ў риш, муси қ а ва нут қ ни эшитишга имкон беради. Мультимедияли дастурларга ў йинлар ў ргатувчи дастурлар мисол б ў ла олади. Delphi да мультимедияли дастурлар яратиш учун икки компонентадан фойдаланиш мумкин:  Animate -оддий анимация яратиш учун (масалан файллардан нусха олишда фойдаланувчи кўрадиган анимация);  MediaPlayer -мураккаб вазифаларни бажариш учун, видеороликларни кўриш, товушли анимация.

Animate Компонентаси Animate компонентаси белгиси, Win32 қаторда жойлашган бўлиб, кадрлари AVI-файлда жойлашган содда анимация кўришга имкон беради. AVI-файлдаги анимация товушли бўлиши мумкин бўлса ҳам Animate компонентаси фақат тасвирни акс эттиришга имкон беради. Animate компонентаси формага оддий усулда к ў шилади. Компонента формага қў шилгандан с ў нг унинг хоссалаприни ў рнатиш лозим. Animate хоссалари жадвалда келтирилган: Animate компонентаси хоссалари . Хосса Таърифи Name Компонента номи. FileName Анимация жойлашган AVI-файл номи StartFrame Анимацияни биринчи кадри номери stopFrame Анимация охирги кадри номери Activate Анимацияни акс эттириш жараенини активлаштири ш белгиси Color Компонента фони ранги Transparent Анимация акс эттиришда шаффоф рангдан фойдаланиш режими Repetitions Анимацияни қ айтариш сони Агар FileName хоссасига товушли файл номи ёзилса, Delphi файлни очиш мумкин эмаслиги ҳақида маълумот чиқаради (Cannot open AVI). AVI-файлда анимация ва товуш ёки фақат анимация ёзилганлигини аниқлаш учун Windowsда керакли папкани очиб, AVI-файлни белгилаш ва контекстли

менюдан Свойства командасини танлаш лозим. Натижада Свойства, ойнаси очилиб, Сводка қ аторида файл ҳ а қ ида т ў ли қ маълумот берилади. Animate компонентаси дастурчига Windows стандарт анимациясидан фойдаланишга имкон беради. Анимация тури СommonAVI хоссаси қ иймати билан белгиланади. Хосса қ иймати номланган константалар ор қ али берилади. Қ уйидаги жадвалда константалар қ ийматлари, анимаци я тури, жара ё н таърифи берилган. comonAVI хоссаси қийматлари . Қ иймат Анимация Жара ё н aviCopyFiles Файлдан нусха олиш AviDeleteFile Файлни ў чириш aviRecycleFile Файли корзинага ў чириш Қ уйидаги дастур, Animate компонентасидан фойдаланишга мисол б ў лади. Дастур формаси к ў риниши расмда, Animatel компонентаси хоссалари қ ийматлари жадвалда берилган.

Сводка бўлимида AVI-файл ҳақида маълумот акс этади. Анимация қ уриш дастури формаси Animate1 хоссалари қ ийматлари

$Хосса Киймат FileName D:\music\ms\COMMON\GRAPHICS\AVIS\SEARCH.AVI Active False Transparent True Дастур ишга туширилгандан сўнг формага биринчи анимация кадри чиқарилади. Дастур анимацияни кўришнинг икки режимини таъминлайди:  узлуксиз ;  кадрли. Button1 тугмаси анимацияни к у риш жара ё нини инициализация қ илиш ё ки тухтатиб туриш учун ишлатилади. Анимацияни узлуксиз акс этиши Пуск тугмасининг Onclick ҳ одисасини қ айта ишлаш процедурасида Active хоссасига True кийматини бери ш ор қ али инициализация қ илинади. Бу процедура Button1 тугмасидаги Пуск с ў зини Стоп с ў зига алмаштиради. Анимацияни к ў риш режими RadioButton1 ва RadioButton2 тугмалари ор қ али танланади. Анимация к ў риш дастури матни unit Unit 1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;$

type TForm1 = class(TForm) Animate1: TAnimate; Button1: TButton; Button2: TButton; Button3: TButton; RadioButton1: TRadioButton; RadioButton2: TRadioButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure RadioButton1Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; CFrame: integer; implementation {$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject); begin if CFrame = 1 then Button2.Enabled := True; if CFrame < Animate1.FrameCount then begin CFrame := CFrame + 1; Animate1.StartFrame := CFrame; Animate1.StopFrame := CFrame; Animate1.Active := True; if CFrame = Animate1.FrameCount then Button2.Enabled:=False; end; end; procedure TForm1.Button3Click(Sender: TObject); begin if CFrame = Animate1.FrameCount then Button2.Enabled := True; if CFrame > 1 then begin CFrame := CFrame - 1; Animate1.StartFrame := CFrame; Animate1.StopFrame := CFrame; Animate1.Active := True;

if CFrame = 1 then Form1.Button3.Enabled := False; end; end; procedure TForm1.RadioButton1Click(Sender: TObject); begin Button1.Enabled:=True; Button3.Enabled:=False ; Button2.Enabled:=False; end; procedure TForm1.RadioButton2Click(Sender: TObject); begin Button2.Enabled:=True; Button3.Enabled:=False; Button1.Enabled:=False; end; procedure TForm1.Button1Click(Sender: TObject); begin if Animate1.Active = False then begin Animate1.StartFrame:=1; Animate1.StopFrame:=Animate1.FrameCount;

Animate1.Active:=True; Button1.caption:='Тухташ'; RadioButton2.Enabled:=False; end else begin Animate1.Active:=False; Button1.caption:='Бошлаш'; RadioButton2.Enabled:=True; end; end; end. График режим (TPrinter объекти) График режимда босмага чиқариш учун форманинг Print усулини қўллаш мумкин. Лекин махсус Printer объектидан (TPrinter синфига тегишли) фойдаланиш қулайроқдир. Бу объектдан фойдаланиш учун Printers модулини дастурга қўшиш яъни uses бўлимида эълон килиш лозим . Printer объекти Canvas хоссасидан фойдаланишга имкон беради. Printer хоссалари: Aborted – мантиқий тур; фойдаланувчи Abort усули билан босмани тўхтатганини курсатади. Canvas – графика чиқариш сохаси. Fonts – шрифтлар рўйхати. Handle - Windows API чақирилганда фойдаланилади.

Orientation – сахифа йўналиши, вертикал еки горизонтал. PageWidth , PageHeight , PageNumber – сахифа кенглиги, баландлиги ва номери. Printers принтерлар PrinterIndex жорий принтер номери . Ўрнатилган принтер номери -1. Printing – манти қ ий тур, босмага чи қ ариш бошланганлигини кўрсатади ( BeginDoc усули билан). Title - Print Manager учун сарлавха . Printer усуллари: Abort –босмани тўхтатиш BeginDoc – сохага чизишдан олдин чақирилади . EndDoc – сохага чизиб бўлингандан сўнг чақирилади. Шундан сўнг , принтер ишга тушади. NewPage –янги сатрга ўтиш . Шундай қ илиб график маълумотни босмага чи қ ариш қ уйидаги тартибда амалга оширилади:  BeginDoc усули ча қ ирилади  Сохага (Canvas) чизилади  Агар бир неча сахифага ажратиш зарур булса NewPage усули ча қ ирилади  EndDoc усули билан график маълумот принтерга юборилади Қ уйидаги мисолда босмага чи қ аришнинг учта усули кўрсатилган. Дастур формаси кўриниши

unit Pri _ form ; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Printers; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Bevel1: TBevel; Button2: TButton; Bevel2: TBevel; Button3: TButton; Label3: TLabel; Panel1: TPanel; Image1: TImage; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private

${ Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var To_Prn : TextFile; begin Button1.Enabled:=False; AssignPrn(To_Prn); Rewrite(To_Prn); Writeln(To_Prn, Label2.Caption); CloseFile(To_Prn); end; procedure TForm1.Button2Click(Sender: TObject); begin Button2.Enabled:=False;$ Form1.Print; end; procedure TForm1.Button3Click(Sender: TObject); begin Button3.Enabled:=False; with Printer do begin BeginDoc; Canvas.Draw(0,0,Image1.Picture.Bitmap); NewPage; Canvas.StretchDraw(Rect(0,0,300,300), Image1.Picture.Bitmap); EndDoc; end; end; end.

График компоненталар

20.09.2019

0

142 KB

Похожие