Расторлық графика құпияларының Delphi – ге мүмкіндіктері

Кіріспе ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..


I. Гафикалық мүмкіндіктері ... ... ... ... ... ... ... ... ... .

1.1. Диаграмма түрлері ... ... ... ... ... ... ... ... ... ... ... ... ...

1.2.

1.3. Ақпарат көзі ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...

II. Растролық суреттер

2.1. Формада сурет салу ... ... ... ... ... ... ... ... ... ... ... ... ..

2.2. Оперативтік жадыда сурет салу ... ... ... ... ... ... ... ..

2.3. Логикалық операцияларды түрлендіру ... ... ... ... ..


Қорытынды ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..
Borland корпорациясы аз ғана мерзім ішінде Delphi-дің 7 негізгі версиялары мен бірнеше модификацияларын шығарды. Delphi 7 версиясында өте көп өзгерістер енгізілген. Программалармен қамтаматсыз етудің тиімді өңдеу қүралдарын қажет ету “жылдам жасау” ортасы деп аталатын программалау жүйелерінің пайда болуына алып келді. Мүндай ортаға мысал ретінде Borland Delphi жатады. Жылдам жасау RAD – жүйесіне “Rapid Application Development” жүйесінің негізі визуалды жобалау және оқиғаны өңдеуді программалар технологиясы жатады, оның мағынасы өңдеу үнемсіз жүмыстың көп бөлігін өзіне алады да, программиске диалогты терезелерді және оқиғаны өңдеу функциясын қүрастыру жүмыстары қалады. Ортада қатаң типтелген объектіге бағдарлы тілі қолданылады, оның негізіне Object Pascal (Turbo Pascal жалғасы) жатады. Delphi әртүрлі программаларды қүруға мүмкіндік береді: қарапайым біртерезелі қосымшалардан тармақталған дерекқорларды басқару программаларына дейін. Delphi-дің үлғайтылған мүмкіндіктері графикпен, мультимедиямен, дерекқорларымен жүмыс істейтін және динамикалық қүрылымдармен қосымшаларды қүруға мүмкіндік береді. Delphi-дің айрықша ерекшелігі .NET технологиясының сүйемелдеуі болып табылады.
        
        ҚАЗАХСТАН РЕСПУБЛИКАСЫ БІЛІМ ЖӘНЕ ҒЫЛЫМ МИНИСТРЛІГІ
Қазақ Мемлекеттік Қыздар Педагогикалық Институты
Жаратылыстану факультеті
ИНФОРМАТИКА КАФЕДРАСЫ
Дипломдық жұмыс
Тақырыбы: Расторлық графика құпияларының Delphi – ге ... ... ... ж.
Кафедра менгеруші
Ғылыми жетекші:
т.ғ.к., доцент ... ...... ... ... ... ... Ақпарат көзі
............................................................
II. Растролық суреттер
2.1. Формада сурет салу..................................................
2.2. Оперативтік жадыда сурет салу..............................
2.3. Логикалық операцияларды түрлендіру..................
Қорытынды...................................................................
...
Кіріспе
Borland корпорациясы аз ғана ... ... ... 7 негізгі
версиялары мен бірнеше модификацияларын шығарды. Delphi 7 ... ... ... ... ... ... ... тиімді өңдеу
қүралдарын қажет ету ... ... ... деп ... ... ... болуына алып келді. Мүндай ортаға мысал ретінде ... ... ... ... RAD – ... “Rapid ... Development”
жүйесінің негізі визуалды жобалау және оқиғаны өңдеуді программалар
технологиясы жатады, оның ... ... ... ... көп ... алады да, программиске ... ... және ... ... ... жүмыстары қалады. Ортада қатаң типтелген ... тілі ... оның ... Object Pascal (Turbo Pascal
жалғасы) жатады. Delphi әртүрлі программаларды ... ... ... ... қосымшалардан тармақталған дерекқорларды басқару
программаларына дейін. ... ... ... графикпен,
мультимедиямен, дерекқорларымен жүмыс істейтін және ... ... ... ... ... Delphi-дің айрықша
ерекшелігі .NET технологиясының сүйемелдеуі болып табылады.
Delphi тілінде программалау ортасымен танысу
Delphi ... ... ... ... ... ... ... Environment) дамытылған ... ... IDE ... ... ... үйымдастырып,
әртүрлі басқару қлементтерінен қүралған бірнеше терезелерден түрады. Осы
ортаның қүралдарын пайдалана ... ... ... бөлігін
жобалауға, программаның кодын жазуға және оны басқару ... ... ... ... және ... түзету, оны
орындау әрекеттері IDE ортасында орындалады.
Delphi ортасын іске қосу үшін, келесі ... ... ... —> ... —> Borland Delphi —ң Delphi ... ... ... жүйе деп саналады және икемделуіне
байланысты оның ... ... ... ... түрде болуы мүмкін (1-
сурет). Интерфейстің қүрамына 4 терезе кіреді:
1. Негізгі терезе (Project 1);
2. Объектілер бақылаушысының ... (Object ... ... ... терезесі (Form1);
4. Программа кодының терезесі (Unit1.pas).
Негізгі терезеден басқа терезелерді жылжытуға, қкраннан алып ... ... ... өзгертуге болады. Delphi бір қүжаттық орта, яғни бір
мезгілде тек қана бір ... ... ... ... ... атауы негізгі терезенің жоғарғы қатарында көрсетіледі.
Терезелерді кішірейту, үлкейту, жабу ... осы ... ... ... ... ... ... Форманың терезесінен Unit
кодына өту және одан кері өту F12 пернесі ... ... ... Delphi
жүктелгенде, Unit терезесі шығады. Сол жақтағы терезе Browser терезесі деп
аталады және бүл ... ... ... ... танысуға болады.
1- сурет. Delphi ортасының көрнісі
Delphi ортасынан шығу үшін негізгі терезені жабу керек.
Негізгі терезе мен компоненттер ... ... ... ... ... ... басқарады және
Delphi ортасы iске ... ... ... түрде қкранның жоғарғы
қатарында орналасады (2-сурет).
Бүл терезеде Delphi-дiң негiзгi меню ... ... ... ... ... ... ... палитрасы орналасады. Негiзгi меню жүйесiнiң опциялар
тақырыптарының ... iшкi меню ... меню ... қлементтерi сол жағында ¦¦¦ таңба қойылған
арнайы панельдерде ... ... ... ... ... ¦¦¦ таңбасы арқылы негiзгi терезеден тыс қкранның кез-келген
жерiне жылжытуға немесе мүлдем алып тастауға болады.
Компоненттер ... - ... ... ... ... ... Ол
негiзгi терeзенiң оң жағында орналасып, қажеттi компонентті тез ... ... ... ... Компоненттер жинағының терезесi
Компонент деп белгiлi бiр қасиеттердi ... және ... ... ... ... ... туғызатын функционалды
қлементтi айтады. Delphi ... ... 19 ... ... ол
топтарды парақтар деп атайды. Компоненттер көмегiмен программаның негiзi
бөлiгi қүрылады (терезелер, батырмалар, таңдау тiзiмдерi және т.с.с).
Батырмалар ... ... ... ... ... болады. Ол
үшiн компоненттер палитрасына кiретiн кез- келген пиктограмманы тышқан
тетiгiнiң оң батырмасымен сырт еткiзiп, ... ... iске қосу ... менюдегi Properties (қасиеттер) пунктiн таңдағанда 4 –суреттегi оң
жақ терезе шығады.
Мысалы, 3-суретте ... ... ... Dialogs парағын
алға жылжытсақ, бүл парақта жиi қолданылатын компоненттер орналасады. ... ... ... ... Dialogs ... ... сол ... басып түрып, Dialogs пунктiн Data Aсcess ... қою ... ... ... икемдеудегi
терезелер
Форма қүрастырушының және объектілер бақылаушысының терезесі.
Форма қүрастырушысының немесе форманың терезесi - болашақ программаның
Windows терезесiнiң жобасы. Алдымен бүл ... бос ... ... айтсақ,
Windows-тiң стандартты интерфейстiк қлементтерiнен: жүйелi менюдi шақыру,
терезенi ... ... жабу ... ... ... ... ... түрады. Бүл терезенiң ... ... ... ... ... ... ... Lego констукторының бөлiктерiмен
атқарылатын жүмыс сияқты компоненттер жинағынан қажеттi компонентті
таңдап, ... ... ... ... Сөйтiп, форма
терезесiнде ... ... ... соң бiрi ... ерекшелiк –визуалды (көрсеткiш) программалаудың негiзi болып
табылады. ... әр ... ... ... ... отырып, қажеттi өзгерiстердi кез- ... ... ... ие ... ... әр ... өзiнiң мекен-жайымен, мөлшерiмен,
түсiмен т.с.с. анықталады. Форманы қүрастыру File => New => Form ... ... ... ... бос ... бiр компонентті, мысалы
Standard ... Button ... ... үшiн ... Standard белгiсiн сырт еткiзiп, ... ... ... ... ... ... ... үшiн тышқанды баспай түрып парақта
орналасқан белгiлердiң үстiнен жылжытып көрген сәтте компоненттердің аты
шығып түрады.
қажеттi компонентті сырт еткiзiп ... ... ... ... ... сырт ... ... бетiнде Button1 қлементi
пайда болады.
5-сурет. Формаға Button батырмасын орналастыру
Компоненттің формадағы мекен- жайын, мөлшерiн форма терезесiнде ... ... ол үшiн ... ... сол жақ ... ... ... төртбүрыштылар пайда болады). Ендi белгiленген
компонентті тышқанның сол жақ батырмасымен басып түрып, форма аймағының кез-
келген жерiне жылжытуға ... ... ... үшiн тышқанды қлементтi
қоршап түрған кез-келген төртбүрышқа орналастырсаңыз, пайда болған қос
бағытты тiк ... ... сол жақ ... басып түрып жылжытуға
болады. Компонент жою үшiн оны ... Delete ... ... ... ... параметрлерiн өзгерту әрекеттерi Объектiлер
бақылаушысы арқылы немесе ... ... ... ... ... екi ... ... Properties-
қасиеттерi және Events –оқиғалары. Properties парағы арқылы компоненттің
қасиеттерi ... ... ал Events ... арқылы компонентті
әртүрлi оқиғаларға сәйкес сезiндiру анықталады. ... ... ... Button1 ... - ... ... - осы
батырманы басу, ал оқиғаға сезiндiру - осы батырма ... ... ... соны анықтауды қажет етедi.
Объектiлер бақылаушысы екi бағанадан қүралған кесте: сол ... ... ... ... ... ал оң ... – параметрдiң
мәнi немесе оқиғаны өңдейтiн iшкi программаның атауы орналасады.
Кестенiң кез келген ... ... сырт ... арқылы таңдауға болады.
Бүл жолдағы параметр қарапайым немесе күрделi болуы мүмкiн. қарапайымдарға
бiр мәнмен ... - сан, ... ... True ... False мәндерiн
қабылдай алатын және т.с.с. компоненттің қасиеттерi жатады. Мысалы,
Caption ... ... бiр ... ... Enabled (қол ... ... False мәндерiмен, ал Heigh (биiктiгi) және Width ... бiр ... ... ... ... көрiнiстегi “…” белгiсiн басқанда қасиеттiң мәнiн
анықтауға мүмкiндiк туғызатын сүõбаттасу ... ... ... ... басқанда қарапайым қасиеттiң болуы мүмкiн
мәндерiнiң ... ... ... ... жоғарғы жағында форманың атауы және
формадағы орналасқан барлық компоненттер және ... ... ... ... ... (7-сурет).
7-сурет. Программада анықталған компоненттер және оқиғалар тiзiмi
Объектiлер бақылаушысының ... ... оң ... еткiзгенде локальды меню шығады. Меню қүрамындағы ... ... ... ... ... ... Stay on Top оциясы екпiндi
болса, онда ... ... ... ... ... ... ... түрады.
Программа кодының терезесі
Программа (немесе модуль) кодының терезесi программаның ... және оны ... ... Бүл мәтiн арнайы ережелер бойынша
қүрылып, алгоритм жүмысын анықтайды. Delphi жүйесiнде Pascal ... және ... ... - Object Pascal ... ... ортасы iске қосылғанда программа кодының терезесi Windows
ортасының бос терезесiнiң бастапқы кодынан ... ... ... ... ... ... Delphi ... бүл қатарларды автоматты түрде
қосып отырады.
Жобаны қүру барысында осы ... ... ... ... ... unit Unit1 және ... қатарларының аралығын өзгертiп
отырады, ал программалаушының жүмыс аймағы - {$R *.DFM} және end ... ... деп ... ... бiр ... ... ... Жаңа
форма қүрылғанда жаңа модуль жасалады. Жалпы программа қүрамында көптеген
формалар және олармен байланысқан модульдер болуы мүмкiн. Delphi ... ... ... ... .PAS, .DFM және .DCU болатын
файлдарды ... .PAS ... ... ... ... ... .DFM файлында форма терезесiнiң мазмүн анықтамасы, ал .DCU
файлында алдыңғы екi файл ... ... ... ... DCU ... компилятор жүмысының нәтижесi, ендi компоненті ... ... ... орындалатын немесе жүктелетiн .EXE файлы
қүрылады.
Пиктограммалық батырмалар
Пиктограммалық батырмалар ... ... меню ... ... тез ... қол ... болады. Атқаратын жүмыстарына
байланысты пиктограммалық батырмалар келесі топқа ... ... ... Debug, Custome, ... ... Delphi ... ... программа кодының терезесi Windows
ортасының бос терезесiнiң бастапқы кодынан (яғни минималды қажеттi кодынан)
түрады. Бүл код функционал-ды толық деп ... және ол ... даяр ... File/New ... ... ... программаны iске қосуға
болады.
I. Графикалық мүмкіндіктер
Қозғалысты программалау.
Қозғалысты еліктету немесе анимация қффектін көрсету ... ... ... қамтылады:
Объектіні қкран бетіне шығару (кейде шағын үзіліс орнатылғаны жөн);
Объектіні қкраннан алып тастау;
□ Объектіні басқа жерге шығару.
Диаграмма және ... ... мен ... ... ... ... ... және Delphi ортасы олармен жүмыс атқаратын компоненттерімен
қамтылған. Диаграммаларды екі ... ... ... ... ... диаграммалар және графиктер.
Индикаторларды пайдалану
Индикатор жалпы диаграмманың қарапайым түріне жатады және ол ... үзақ ... ... ... ... дискетті форматтау, файлды
көшіру, т.с.с.) процестердің көрінісін мәтіндік және графикалық түрде
бейнелеуге арналған.
Delphi ортасы жүмыстың орындалуын көрсететін ProgressBar және ... ... ... Win32 ... ... бүл ... ... болып, кейбір үзақ уақыт орындалатын іс-әрекеттің көрінісін қкран
бетіне шығарады.
Delphi ортасының Win32 парағы
ProgressBar компонентінің ... ... мен ... ... ... жоқ, ... бүл ... контейнер
параметрлерімен анықталады. Әдетте графикалық белдеу көк түспен ... ... ... қасиеттерін негізгі деп санайды:
□ Min және Max - индикатордың алғашқы және соңғы мәндерінің
аралығын ... ... Min=0%, Max=100% деп ... Position - ... іс-әрекеттің салыстырмалы көлемін Min және ... ... ... ... Min=0, Max=80 деп ... ... 20 ... мәніне сәйкес орындалған жүмыстың көлемі 25% деп
саналады.
□ Step - индикатордың көлемі өскендегі ... ... ... ... анықтайды.
Индикатордың позициясын программада көрсетуге болады, мысалы:
ProgressBar1. Position:=35;
ProgressBar-ның қлементінің позициясын StepIt (өсімшесі Step) және
StepBy ... ... Delta) ... арқылы өзгертуге
болады. Мысалы, ProgressBar1.StepBy (13).
Бүл оператор бойынша ProgressBar1-дің индикаторы 13-ке өсіп отырады.
ProgressBar1 ... Caption ... Text ... ... жүмыс атқару индикаторын жазумен ... ... ... ... ... ... ... Gauge қлементі қарапайым диаграммаларды
шығаруда қолданылады. Gauge компоненті арқылы белгілі бір параметрдің ... ... ... шығарады.
Kind қасиеті шығарылатын диаграмманың түрін анықтайды және оның ... бола ... ... ... - ... төртбүрыш;
□ gkVerticalBar - тік төртбүрыш;
□ gkPie - сектор;
□ gkNeedle - ... gkText - тек қана ... ... ... - ... түрі bsSingle деп ... онда
жиегі жіңішке сызықпен салынады. Егер bsNone деп ... - ... ... - индикатордың түсін, BackColor диаграмманың
индикатордан бос ... ... Progress - ... ... ... анықтайды.
MinValue және MaxValue - ... ең кіші және ең ... ... ... ол мәндер - 0% және 100% ).
Мысалы, бейнетаспаны ойнау Animate компоненті арқылы іске асырылады.
Бүл ... тек ... ... ... ... ... Осы ... орындалуын графикалық түрде ProgressBar
компоненті арқылы көрсетуге болады.
График және диаграмма
Chart ... ... ... ... салуда қолданылады.
Бүл компоненттің қүрамындағы көптеген қасиеттері өздері объект ретінде
анықталған және ... ішкі ... ... ... Chart ... Chart ... параметрлерін анықтау әрекеттері
Editing Chart редакторының терезесінде анықталады. Ол терезені шақыру үшін
формадағы TСhart терезесiн екі рет сырт ... ... ... оң ... ... Edit Chart опциясын таңдаңыз. Ашылған редактордың
терезесіндегі Series ... Add ... басу ... немесе графиктің түрін анықтауға болады.
Берілгендердің шығар көзі Series=> Data Source ... ... ... жиыны қосымшаның орындалу барысында қалыптастандырылса,
онда No data деп ... ... және QRChart ... ... ... Table - ... деп
анықтауға болады.
Диаграмма қүрылғандағы пайдаланылатын берілгендердің мәндерін ... Add, Delete, Clear ... ... (Const AValue :Double; Const ALabel:String; Acolor:Tcolor): LongInt
функциясы Avalue ... ... ... ... ... ... Alabel - мәндің атын, ал Aсolor - оның ... ... ... ... нөмірімен анықталған
мәнді жояды. Жалпы барлық мәндерді жою үшін Clear процедурасы қолданылады.
Delphi ... ... ... ... ... ... программаларды неғұрлым қарапайым жолмен құруға мүмкіндік береді.
Графикалық элементтер объекттің ... ... ... ... Image ... бұған Canvas қасиеттері сәйкес келеді. Объектінің
бетіне графиктік элементтерді (түзу сызық, шеңбер және т.б.) ... ... ... Canvas ... ... ... ... form1.Canvas.Restangle (10, 10, 100, 100);
Бет (Холст)
Қарапайым графиктерді шығару әдісінде ... ... ... абстрактты
бет (холст) ретінде Canvas қасиеттері қарастырылады. Бұл бет (холст) ...... ... ... ... көлденең (х) және тік
(у) координаталар арқылы анықталады.
Қарандаш және ... ... бет ... бетіне салуды қамтамасыз ететін
әдістер үшін, қарандаш және қылқалам қолданылады: қарандашты түзулер ... ... ... ал ... аймақтарды шекаралық контурмен
бояуға қолданады.
Графиктерді бетке (холстқа) шығаратын арнайы қарандаш және қылқаламға
Pen ... Brush ... ... ... ... ... TPen және
TBrush типтерін көрсетеді. Осы объектілердің қасиеттерінің мәні шығарылатын
графикалық элементтердің түрін анықтайды.
TPen объектісінің ... ... ...... түсі ... – түзудің қалындығы (пиксель бойынша);
Style – түзудің түрі.
Pen.Color қасиетіннің мәні ... ... ... ... ... ... clBlack, clOlive, clGray, clBlue, clMaroon,
clNavy, clSilver, clAqua, clGreen, clPurple, clRed, clWhite.
Pen.Style қасиеті мынадай ... ...... ... – пункттирлік түзу, ұзын штрихтар;
psDot – пункттирлік түзу, ... ... – түзу ... Pen.Width қасиетінің мәні бірден үлкен болса, онда ... ... ... ... шығады.
Қылқалам (Canvas. Brush) тұйық аймақтарды сызатын және сол облыстарды
бояуды қамтамасыз ететін әдіс ретінде қолданылады. ... ... ... қасиетке ие:
Color – тұйық облысты бояйтын түс;
Style – аймақты толықтыру стилі (типі).
Brush.Color қасиетінің мәні ретінде ... ... ... ... ... тұрақтылардықолдануға болады.
Brush.Style қасиеті мындай мәндерді қабылдайды :
bsSolid – біркелкі бояу;
bsClear – облыс болмайды;
bsHorizontal – ... ... – тік ... – ілгері қарай көлбеген диагоналдық штрих.
TextOut әдісімен ... ... ... оң жақ шекара
координаттарын, PenPos қасиетін пайдыланып алуға болады, мысалы:
TextOut(PenPos.x, PenPos.y, (‘руб.’);
Қарапайым графиктерді сызу әдістері
LineTo ... ... ... ... ... ... ... дейін сызады.
Объект.Canvas.LineTo(х, у);
MoveTo әдісі қарандашты белгіленген нүктеге апарады:
Объект.Canvas.MoveTo(х, у);
Ellipse әдісі эллипс сызады (жеке ... ...... ... ... y1, x2, ... х1, у1, х2, у2 – ... эллипс сызылатын тіктөртбұрыш
координаттары.
Arc әдісі доға сызады:
Объект.Canvas.Arc(x1, y1, x2, y2, х3, у3, х4, у4);
Мұндағы х1, у1, х2, у2 – ... ... ... ... ... доға болады.
Rectangle әдісі тіктөртбұрыш сызады:
Объект.Canvas.Rectangle (x1, y1, x2, y2);
Мұндағы х1, у1 және х2, у2 – сол жақ үстінгі және оң жақ ... ... ... әдісі Brush.Color ... ... ... түсімен
тіктөртбұрышты бояйды. Бұл әдістің бір ғана ... бар, ... TRect ... ... :Rect(20, 20, 150, 150);
with Canvas do
begin
Brush.Color:=clRed;
FillRect(R);
end;
end;
Canvas объектінің қасиеттері
Айтып кеткендей, программа орындайтын графиктерді ... ... ... ... ... Canvas ... Pixels ... пайдалана
отырып, графикалық беттің кез келген нүктесін қажетті түске бояуға болады.
Мысалы, нұсқауы
Form1.Canvas.Pixels[10, 10] :=clRed;
форм ... ... ... ... бояйды.
Функциялардың графиктері мен диаграммаларын сызу
Sin (K* pi/10 ) функциясы берілген, K=0…20. Функцияның ... ... - ... ... сызу үшін Chart1.SeriesList[0]. AddXY(k,
( sin(k*pi/10)),' ', clGreen) оперторын ... ... ... Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
TeEngine, Series, ExtCtrls, TeeProcs, Chart;
type
TForm1 = class(TForm)
Chart1: TChart;
Series2: TLineSeries;
procedure FormActivate(Sender: TObject);
private
{ Private ... ... Public ... ... ... ... ... TObject);
var k: integer;
begin
for k:=0 to 20 do
Chart1.SeriesList[0]. AddXY(k,(sin(k*pi/10)),' ', clGreen);
end; end.
Синус ... ... ... ... ... бар ... бар ... есебінде TButton түрінің туындысы BitBtn компоненті
саналады. Оның Button батырмасынан айырмашылығы: BitBtn ... ... ... ... ... ... bkCustom - ... бетінде таңдалған сурет орналасады, бірақ ол
арнайы жүктеуді қажет етеді;
b) bk OK - жасыл ... ... ... мен OK (келісу) жазуы шығып
түрады. Компоненттің Default қасиеті True, ал ModalResult - mrOK ... bkCancel - ... ... ... Х ... мен Cancel - (аластату)
жазуымен қамтылған батырма. Компоненттің Cancel ... True, ... - mrCancel деп ... bkYes - ... ... ... қанатша мен Yes (келісу) ... ... ... Default ... True, ал ... - ты ... деп ... bkNo - батырма үстінен сызылып тасталған ... ... ... ... ... жазуымен қамтылған. Компоненттің Cancel қасиеті True,
ал ModalResult - mrNo деп анықталған;
f) bkClose - ... ... ... жатқан есіктің бейнесі
және Close (жабу) жазуы ... ... ... форма
автоматты түрде жабылады;
g) bkAbor t- қызыл түспен боялған Х таңбасы мен Abort (аппаттық ... ... ... bkRetry - ... ... боялған тіл сызық белгісі мен Retry
(қайталау) жазуымен қамтылған;
i) bkIgnore - ... ... ... және Ignore ... қамтылған;
j) bkAll - батырманың бетінде екі жасыл ... ... және Yes ... - ... ... ... ) ... орналасқан:
k) bkHelp - батырманың бетінде көкшіл түсті сүрақ ... және Help ... ) ... ... ... Kind ... ... bkCustom деп түрады. Жалпы
алдын ала анықталған батырмалардың Glif параметрін ... ... онда осы ... алдын ала тағайындалған жүмыс орындалмайды.
Батырманың Margin қасиеті арқылы глиф пен жазуды батырманың ... ... ... Келісімше бүл параметрдің мәні -1 деп түрады,
яғни бейне мен жазу батырманың ... ... ... шеті Layout ... ... , егер Layout мәні
blGlifLeft деп анықталса, онда ... сол жақ шеті ... ... қасиеті арқылы глиф пен жазбаның ара ... ... ... ... ... - тез ... қол жеткізу батырмасы ретінде BitBtn -
ге үқсас ... ... ... ... үсынады.
SpeedButton батырмасы терезелік емес ... ... ... ... ... ... ... алмайды, бірақ BitBtn және ... ... оның ... ... компьютердің
ресурстары айтарлықтай кем болып келеді. Әдетте бүл батырманы қүралдар
тақташасын ... ... ... ... ... ... жиі ... және басылған күйден басқа бүл батырма ... - ... ... болуы мүмкін. Батырманың қосылған күй - жағдайын Down
(Boolean) ... ... ... ... егер оның мәні True ... ... қосылған күйде, керісінше - қосылмаған күйде деп саналады.
I. Растролық суреттер
Растр сөзі латын rastrum ... ...... ... ... салуға болама?
Растр деп информатикада монитор экранында немесе ... ... ... ... ... ... көрінбейтін қиылысқан
горизонтальды немесе вертикальды сызықтарда орналасады, оларды «грабля» деп
атайды. Растролы ... ... ... .bmp (bit map – ... ... ... ең кіші ... – бит. Компьютердің жадысында бит екі
разрядтан ... 0 және 1. 0 – қара ... ... ал 1 – ақ. ... ... ... үшін бір бит ... ал түрлі түстер үшін бір ... ... ... ... ... үшін ... көбейткен жөн, онда
түстер анық көрсетіледі.
Әр бір биттердің сегізразрядтық байтта 0 немесе 1 кездеседі барлығы ... ... ... тұрады. Программада екілік жүйеден басқа оңалтылық
сану жүйесінің сандарының жазбасын қолдануға болады.
2.1. Формада сурет салу
Эксперимент 1. Image1 ... ... ... ... және ... өлшемдерін орналастырамыз: Width: 200; Height: 201.
Button1 батырмасын қосамыз, басында «Image1сурет саламыз» деп ... ... ... жағдайда Image1 кез келген бір өрнектін пикселдік ... ... ... үшін ... CLR ... функция қажет болады.
Төменде келтірілгендей CLR функция кодын Unit1 модулінен және
{$R*.DFM} жолдан кейін орналастыру қажет.
Function ... ... mod ... k ... ... ... ... CLR:=$110000*g;
4: CLR:=$110011*g;
5: CLR:=$111100*g;
6: CLR:=$111111*g;
End;
End;
Byte стандартық типі g локалдық айнымалысы түрлі түсті интенсивті
тұрлерді қолдану үшін ... 255-ке ... N және k ... түрлерді
тандау. Әрі қарай бізге глобалды k айнымалысы қажет, оны CLR ... ... k: integer = ... Button1 ... шерту процедурасының мәтіні келтірілген.
Procedure Tform1. Button1Click (Sender:TОbject);
Var
I, j, io:integer;
C:Tcolor;
Tick:Cardinal;
Begin
Tick:=GetTickCount;
Inc(k);
K:=k mod 7;
Io:= Imagel .Height div ... i:=0 to io ... j:=0 to io ... ... k);
Imagel.Canvas.Pixels[io+i, io+j]:=c;
Imagel.Canvas.Pixels[io-i, io+j]:=c;
Imagel.Canvas.Pixels[io+i, io-j]:=c;
Imagel.Canvas.Pixels[io-i, io-j]:=c;
End;
Application.ProcessMessages;
End;
Caotion:=IntToStr(GetTickCount-Tick);
End;
Бұл процедурада пикселдердін түрлі түске боялуы көрсетілген.
Button1 батырмасына тышқан арқылы бернешерет шертсе әр түрлі өрнектер
алуға ... ... ... ... ... 2. Button2. ... формаға орналастырамыз, басында
мынадай жазба жазамыз «Жадыны қолданамыз".
Delphi – де растролық бейнелеуінің Tbitmap классы бар, ол компьютердін
оперативтік жадысында қалыптасады.
Button2. батырмасына ... мына ... ... ... Tform1. ... (Sender:TОbject);
Var
I, j, io:integer;
C:Tcolor;
Btm: Tbitmap;
Tick:Cardinal;
Begin
Tick:=GetTickCount;
Btm:=Tbitmap. Create;
Btm.Height:=Imagel. Height;
Btm.Width:= Imagel. Width;
Inc(k);
K:=k mod 7;
Io:= Btm.Height div 2;
For i:=0 to io do
Begin
For j:=0 to io ... ... ... ... io+j]:=c;
Btm.Canvas.Pixels[io+i, io-j]:=c;
Btm.Canvas.Pixels[io-i, io-j]:=c;
End;
End;
Imagel.Pictore.Bitmap.Assign(Btm);
Btm.Free;
Caotion:=IntToStr(GetTickCount-Tick);
End;
Бұл процедуранын орындалу барысы жоғарыда көрсеткендей, бірақ
пикселдеодін боялуы Imagel компонентінде емес биттік картада Btm атымен.
ScanLine функциясы.
Растролық бейнелеуінің жылдамдығына мына ScanLine ... ... ... ... ... ... 3. . Button3. батырмасын формаға орналастырамыз,
басында мынаны жазамыз ScanLine.
Келесі процедура орындалады.
Procedure Tform1.Button3Click(Sender:Tobject);
Var
I,j,io: integer;
C: Tcolor;
Bmp: Tbitmar;
Line1, Line2:pByteArray;
Tick:Cardinal;
Begin
Tick:=GetTickCount;
Bmp:=Image1.Pictore.Bitmap;
Bmp.PixelFormat:=pf24bit;
Bmp.Width:= Imagel. ... Imagel. ... mod ... div ... i:=0 to io do
Begin
If odd(Bmp.Height) then
Linel:=PByteArray (Bmp.ScanLine[io+i])
Else Linel:= PbyteArray
(Bmp.ScanLine[io+i-1]);
Line2:= PByteArray (Bmp.ScanLine[io-i]);
For j:=0 to io ... ... ... ... // ... ... ... // приращение угла
// поворота
r=120; ... ... // ... ... // ... ... // ... центра планеты
yp=150;
var
t:real; // угол ... // ... ... спутника
begin
with Form1. Canvas do
begin
Brush.Color:=RGB(0,255,0);
FillRect(Rect(xp,yp-rp,Form1.Width,
Yp+rp)); // ... ... ... ... div 2));
//рисуем синюю тень
Brush.Color:=RGB(10,50,150);
Pen.Mode:=pmCopy; // Устанавливаем
// обычный режим рисования
Pen.Color:=clBlue; // Цвет ... ... yp-rp, xp+rp, ... ... ... // ... параметры для рисования спутника
Pen.Wifth:=2*rc;
Pen.Mode:=pmNotXor; // устанавливаем
// режим пера pmNotXor
T:=pi;
While t

Пән: Информатика
Жұмыс түрі: Дипломдық жұмыс
Көлемі: 16 бет
Бұл жұмыстың бағасы: 1 300 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Нысанды программалар18 бет
Галактикалардың белсенді ядролары7 бет
Мемлекеттік бюджеттік бақылаудың құқықтық негіздері12 бет
Стандарттаудың экономикалық мәселелері жайында5 бет
Тәттіні көп пайдалану неге алып келеді?4 бет
Геодезиялық жұмыстарда қолданылатын аспаптар63 бет
Компьютерлік графика және дизайн3 бет
12-жылдық білім берудегі компьютерлік графиканын мүмкіншіліктері13 бет
Adobe Photoshop – графикалық редакторы12 бет
AutoCAD графикалық жүйесі26 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь