Ўзбекистон Республикаси олий ва ўрта махсус таълим вазирлиги Бухоро ози

procedure TForm1.FormColorClick(Sender: TObject);
begin
end;
Энди биз оддий кодларни киритамиз:
procedure TForm1.FormColorClick(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Color := ColorDialog1.Color;
end;
Бу код дастур бажарилиш вақтида “Форма ранги” тугмаси босилгач, рангни 
танлаш мулоқот ойнасини чақиради. Агар сиз бу мулоқот ойнасида OK тугмасини 
боссангиз қуйидаги сатр бажарилади:
Form1.Color:=ColorDialog1.Color;

---

44 
Бу код форма(Form1)нинг ранги (Color)ни ColorDialog1 мулоқот ойнасида 
танлинган рангга ўрнатади.
Тасвир рангини ўзгартириш учун ҳам худди шундай ишлар бажарилади. Энди 
сиз формага бошқа тугма ўрнатасиз ва унинг номини “ShapeColor” ва сарлавхасини 
“Тасвир ранги” деб ўрнатасиз. Шу тугмага сичқон тугмасини икки марта босиб, 
қуйидагича код ёзасиз:
procedure TForm1.ShapeColorClick(Sender: TObject);
begin
if ColorDialog1.Execute then
Shape1.Brush.Color := ColorDialog1.Color;
end;
Энди анча мураккаброқ бўлган иш ўтказиш йўлакчалари (ScrollBar) ёрдамида 
тасвир ўлчамларини ўзгартириш дастурини тузамиз. 
Дастлаб, формага иккита ScrollBar компонентини ташлаймиз ва биринчи 
объект учун Kind хусусиятини sbHorizontalга, иккинчиси учун - sbVerticalга 
ўрнатамиз. Объектлар Инспекторидан “Events” саҳифасига ўтамиз ва ҳар бир 
ўтказиш йўлакчалари учун OnChange ҳолатига дастур ёзиш учун сичқон тугмасини 
босамиз ва муҳаррирда қуйидагича код киритамиз:
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Shape1.Width := ScrollBar1.Position * 3; 
end;
procedure TForm1.ScrollBar2Change(Sender: TObject);