Delphining grafik imkoniyatlari

Aniqlanishi

Color	Chiziq rangi
Width	Chiziq qalinligi
Style	Chziq ko’rinishi
Mode	Tasvirlash rejimi

Color xususiyati qalamda chizilgan chiziqning rangini beradi. 10.2-jadvalda Tcolor tipga mos keluvchi va color xususiyatining qiymati sifatida foydalanish mumkin bo’lgan hamda nomlangan rang konstantalar keltirilgan
10.2-jadval. Color xususiyat qiymati chiziq rangini belgilaydi

Konstanta	Rang	Konstanta	Rang
clBlack	Qora	clSilver	Kumushrang
clMaroon	Kashtan rang	clRed	Qizil
clGreen	Yashil	clLime	Salat rang
clOlive	Ko’kish-sariq	clBlue	Ko’k
clNavy	To’q ko’k	clFuchsia	Ochiq atirgul rang
clPurple	Atirgulrang	clAqua	feruzarang
clTeal	Yashil-ko’k	clWhite	Oq
ClGray	Kulrang

Width xususiyati chiziq qalinligini piksellarda beradi. Masalan, Canvas.Pen.width:=2 instruksiyasi chiziq qalinligini 2 pikselda o’rnatadi.
Style xususiyati chiziqning ko’rinishini (style) aniqlaydi. 10.3-jadvalda chiziq turining nomlangan konstantalari keltirilgan. Punktir chiziqlarning qalinligi 1 dan katta bo’lmasligi kerak. Agar Pen.Width xususiyatining qiymati 1 dan katta bo’lsa, u holda punktir chiziq oddiy to’g’ri shaklida chiziladi.
10.3-jadval. Реn xususiyat qiymati. туре chiziq ko’rinishini belgilaydi

Konstanta__Chziq_ko’rinishi'>Konstanta	Chziq ko’rinishi
psSolid	Tekis chiziq
psDash	Uzun shtrixli punktir chiziq
psDot	Qisqa shtrixli punktir chiziq
psDashDot	Ketma-ket takrorlanuvchi uzun va qisqa shtrixli punktir chiziq
psDashDotDot	Ketma-ket takrorlanuvchi bitta uzun va ikkita qisqa shtrixli punktir chiziq
PsClear	Ko’rinmas chiziq

Mode xususiyati xosil qilinuvchi chiziq nuqtasining rangini sirt nuqrasining rangiga bog’liq holda qanday belgilanishini aniqlaydi. Odatda barcha chiziqlar Pen.Color xususiyatida belgilangan rangda chiziladi. Lekin, dasturchi fon rangidan kelib chiqib chiziqning inversli (almashgan) rangini berishi mumkin. Bu esa fonning rangidan qat’iy nazar, hatto fon bilan chiziq rangi bir xilda bo’lganida ham chiziqning barcha qismlari ko’rinishini kafolatlaydi.
10.4-jadvalda PenMode xususiyatining qiymati sifatida foydalanish mumkin bo’lgan konstantalar ro’yxari keltirilgan.
10.4-jadval. Pen.Mode xususiyat qiymati chiziq rangiga ta’sir qiladi

Konstanta	Chiziq rangi
pmBlack	Qora. Pen.Color xususiyat qiymatiga bog’liq emas.
pmWhite	Oq. Pen.Color xususiyat qiymatiga bog’liq emas.
pmCopy	Chiziq rangi Pen.Color xususiyat qiymati bilan aniqlanadi
pmNotCopy	Chiziq rangi Pen.Color xususiyat qiymatiga nisbatan inversli (farqli)
PmNot	Chiquvchi chiziq nuqtasining rangi sirtning mos nuqtasining rangiga nisbatan inversli sifatida aniqlanadi.

Mo’yqalam
Mo’yqalam (canvas.Brush) yopiq sohalarni, masalan geometric shakllarni bo’yash uchun foydalaniladi. No’yqalam ikkita xususiyatga ega bo’lgan ob’ektdir (10.5-jadval).
10.5-jadval. TBrush (mo’yqalam) ob’yekt xususiyati.

Xususiyat	Aniqlanishi
Color Style	Yopiq sohani bo’yash rangi Sohani bo’yash shakli (stili)

Konturning ichki sohasi bo’yalgan yoki shtrixlangan bo’lishi mumkin. Color xususiyatining qiymati sifatida Tcolor tipidagi konstantalardan foydalanish mumkin (10.2-jadval).
Soxani to’ldirish shakllari (stili) 10.6-jadvalda keltirilgan.
10.6-jadval. Brush.style xususiyat qiymati soxani to’ldirish shaklini belgilaydi

Konstanta	Sohani bo’yash shakli
bsSolid	To’liq bo’yash
bsClear	Soha bo’yalmaydi
bsHorizontal	Gorizontal shtrixlash
bsVertical	Vertikal shtrixlash
bsFDiagonal	Oldinga egilgan diagonal shtrixlash
bsBDiagonal	Orqaga egilgan diagonal shtrixlash
bsCross	Gorizontal-vertikal shtrixlash (to’r)
bsDiagCross	Diagonally shtrixlash (to’r)

Misol sifatida 10.1-listingda ‘Sohani bo’yash shakllari’ dasturi keltirilgan. 10.2-rasmda dastur natijasi keltirilgan bo’lib, unda 8 ta to’g’ri to’rtburchakni turli stillardan foydalanib qora rangda bo’yalganligini ko’rish mumkin.

10.2-rasm. ‘Sohani bo’yash shakllari’ dastur oynasi
10.1-listing. Sohani bo’yash shakllari
unit brustyle_;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ Private declarations}
public
{ Public declarations )
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
// formani qayta chizish
procedure TForm1.FormPaint(Sender: TObject);
const
bsName: array[1..8] of string =
('bsSolid','bsClear','bsHorizontal',
'bsVertical','bsFDiagonal','bsBDiagonal',
'bsCross','bsDiagCross');
var
x,y: integer; // to’g’ri to’rtburchakning chap-yuqori burchagi koordinatasi
w,h: integer; // to’g’ri to’rtburchakning kengligi va balandligi
bs: TBrushStyle;// sohani bo’yash shakli
k: integer; // bo’yalish shaklining raqami
i,j: integer;
begin
w:=40; h:=40; // soha o’lchami (to’g’ri to’rtburchakning)
у:=20;
for i:=l to 2 do
begin
х:=10;
for j:=1 to 4 do
begin
k:=j+(i-1)*4; // bo’yash sohasining raqami
case k of
1: bs = bsSolid;
2: bs = bsClear;
3: bs = bsHorizontal;
4: bs = bsVertical;
5: bs = bsFDiagonal;
6: bs = bsBDiagonal;
7: bs = bsCross;
8: bs = bsDiagCross; end;
// to’g’ri to’rtburchakni chiqarish
Canvas.Brush.Color := clGreen;
// bo’yash rangi — yashil
Canvas.Brush.Style := bs;
// bo’yalish shakli
Canvas . Rectangle (x, y, x+w, y-t-h) ;
// shaklning (stil) nomini chiqarish
Canvas.Brush.Style := bsClear;
Canvas.TextOut(x, y-15, bsName[k]);
// shaklning (stil) nomini chiqarish
x := x+w+30;
end;
у := y+h+30;
end;
end;
end.
Matnni chiqarish
Grafik ob’ektlarning sirtida matn hosil qilish uchun TextOut uslubidan foydalaniladi. TextOut uslubini chaqirishning umumiy ko’rinishi quyidagicha bo’ladi:
Ob’yekt.Canvas.TextOut(x,y,matn)
Bu yerda

• 
  ob’yekt – matn chiqariluvchi ob’yekt nomi;
  
• 
  x,y – matn chiqariluvchi ob’yektda matn joylashuvchi koordinata (10.3-rasm);
  
• 
  matn – chiquvchi matn yoki satr kattalikdagi o’zgaruvchi
  

Matnni chiqishi uchun qo’llaniluvchi shrift Canvas ob’yektiga mos keluvchi Font xususiyat qiymatiga mos keluvchi qiymat bilan aniqlanadi. Font xususiyati Tfont tipli ob’yektga ega. 10.7-jadvalda Tfont ob’yekt xususiyatlari sanab o’tilgan.

10.3-rasm. Matn chiqariluvchi sohaning koordinatalari
matn chiqishi uchun qo’llaniluvchi shrift Canvas ob’yektiga mos keluvchi Font xususiyat qiymatiga mos keluvchi qiymat bilan aniqlanadi. Font xususiyati Tfont tipli ob’yektga ega. 10.7-jadvalda Tfont ob’yekt xususiyatlari sanab o’tilgan.
10.7-jadval. Tfont ob’yekt xususiyati
10.7-jadval. Tfont ob’yekt xususiyati