Tibbiyotda axborot texnologiyalari

 
Color 
xususiyati chizuvchi qalam rangini belgilaydi. Quyidagi 
jadvalda PenColor xususiyatlari keltirilgan: 
Konstanta 
Rang 
Konstanta 
Rang 
clBlack 
Qora 
clSilver 
kumushrang 
clMaroon 
Kashtanrang clRed 
qizil 
clGreen 
Yashil 
clLime 
salatrang 
clOlive 
Olivkoviy 
clBlue 
ko‗k 
clNavy 
to‗q ko‗k 
clFuchsia 
Fuchsia 
clPurple 
Atirgulrang 
clAqua 
yorug‗ ko‗k 
clTeal 
Teal 
clWhite 
oq 
clGray 
Kulrang 
Width 
xususiyati chizuvchi qalam qalinligini (pikselda) 
belgilaydi. 
Xususiyat 
Vazifasi 
Color 
Chiziq (kontur) rangi 
Width 
Chiziq qalinligi 
Style 
Chiziq ko‗rinishi 
Mode 
Tasvirlash rejimi 

---

Masalan, Canvas.Pen.Width := 2 chiziq qalinligi 2 pikselga 
teng bodadi. 
Style xususiyati chiziluvchi chiziqning turini belgilaydi. Style 
komponentlari quydagi jadvalda keltirilgan. 
Konstanta 
Chiziq ko‗rinishi 
psSolid 
To‗g‗ri chiziq 
psDash 
Uzun shtrixli punktir chiziq 
psDot 
Qisqa shtrixli punktir chiziq 
psDashDot 
Uzun-qisqa shtrixli punktir chiziq 
PsDashDotDot 
Bir uzun va ikki qisqa shtrixli punktir 
chiziq 
PsClear 
Ko‗rinmas chiziq 
Mo‘yqalam 
Mo‗yqalam (Canvas.Brush) dan yopiq sohalarni toddirish 
uchun foydalaniladi, masalan, geometrik shakllarni bo‗yash va 
h.k. Mo‗yqalam obyekt sifatida quyidagi ikki xususiyatni o‗z 
ichiga oladi: 
Color – bo‗yaluvchi soha rangi Style – toddiruvchi soha tipi 
Masalan, konturning ichki sohasi bo‗yalishi yoki shtrixlanishi 
mumkin. 
Color xususiyati sifatida TColor ning barcha o‗zgarmaslaridan 
foydalanish mumkin. Style xususiyatlari quyidagi jadvalda 
keltirilgan: 
Konstanta 
Bo‗yaluvchi soha tipi 
bsSolid 
todiq 
bsClear 
bo‗yalmaydi 
bsHorizontal 
gorizontal shtrixlash 
bsVertical 
vertikal shtrixlash 
bsFDiagonal 
oldinga egilgan diagonal shtrixlash 
bsBDiagonal 
orqaga egilgan diagonal shtrixlash 
bsCross 
gorizontal-vertikal setkali shtrixlash 
bsDiagCross 
diagonal setkali shtrixlash 

---

Quyida maydonlarni to‗ldirish (bo‗yash) usulining dasturi 
berilgan. Natijada 8.3-rasmdagi chizmani hosil qiladi.interface 
uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, ExtCtrls; type 
TForm1 = class(TForm) 
Image1: TImage; 
procedure FormActivate(Sender: TObject); private 
{ Private declarations } public 
{ Public declarations } end; 
var 
Form1: TForm1; 
implementation 
{$R *.DFM} 
procedure TForm1.FormActivate(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 yuqori chap burchak 
kordinatalari} 
w, h: Integer; { To‗g‗ri to‗rtburchakning uzunligi va bo‗yi} 
bs: TBrushStyle; {Maydonlarni to‗ldirish usuli} 
k: Integer; {Tо‗ldirish usulining raqami} 
j: integer; 
begin 
w := 40; h := 40; {Tugri turtburchak хajmi} y := 20; 
// Image1.Canvas.Brush.Color := ClRed; 
// image1.Canvas.Pen.Color := ClRed; //ClBlack; 
for i := 1 to 2 do 
Begin 
X := 10; 
For j := 1 to 4 do Begin 
K := J + (i – 1) * 4; { Tо‗ldirish usulining 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; 
{Maydonlarni chop etish} Imagel.Canvas.Brush.Color := 
ClBlack; 
Image1.Canvas.Brush.Style 
:= 
bs; 
Image1.Canvas.Rectangle(x, y, x+w, y+h); {Maydon nomini chop 
etish} 
Image1.Canvas.Brush.Style 
:= 
bsClear; 
Image1.Canvas.TextOut(x, y-15, bsName[k]); X := x + w + 30; 
End; 
Y := y + h + 30; 
End; end;