Delphi tilida

_lrl aI

Rasmlar ro‘yxati (TlmageList) 

Var 
bitmap:TBitmap; 
begin 
ImageListl.GetBitmap(3, bitmap); 
end; 
Rasmlar massivda 0 dan boshlab nomerlanadi. 

Diapazonli tanlash (TTrackBar) 

TTrackBar komponentasi biror diapazondan qiymat tanlash 
imkoniyatini yaratish uchun ishlatiladi. 

194 

Eng sodda ko‘rinishi 
Asosiy xossalari: 
Frequency —chizish chastotasini ko‘rsatuvchi parametr; 
Max —maksimal qiymat; 
Min —minimal qiymat; 
Orientation —ko‘rinishi. Bu xossa ikki qiymatga ega: trHorizontal 

r 
r ■ - - ■ - i 

MtmTlockBd 

LabeH 

TiackBd 
i------- 

195 

Birinchi TTrackBar komponentasining OnChange  hodisasi uchun 
quyidagi protsedurani yozamiz: 
Procedure TForml.TrackBarlChanoe(Sender: TObject); 
begin 
Labell.Caption:=IntToStr(TrackBarl.Position); 
end; 
Bu misolda joriy pozitsiyani qatorga aylantirib Labell ga yozamiz. 
Xuddi shunday protseduralami qolgan TTrackBar komponentalari 
uchun ham yozish kerak. 
Jarayon indikatori (TProgressBar) 
Bu komponenta biror jarayonning qancha foizi bajarilganligini 
ko‘rsatishga imkon beradi. 
H 
Asosiy xossalari: 
Max —maksimal qiymat (alohida ko‘rsatilmasa = 100). 
Min —minimal qiymat (alohida ko‘rsatilmasa = 0). 
Position —pozitsiya. 
Quyidagi dasturda 100 siklli hisoblash o‘tkaziladi. 
Boshqarish tugmasi uchun quyidagi protsedurani yozamiz: