Namangan muhandislik-pedagogika

for i := 0 to NUM_LINES - 1 do

begin

Canvas.Pen.Color :=

RGB(Random(256),

Random(256),

Random(256));

Canvas.LineTo

(Random(ClientWidth),

Random(ClientHeight));

end;

end;
DrawLines prosedurasi OnClick xodisasi yordamida bajariladi. Chiziqlar soni NUM_LINES kostantasi yordamida aniqlanadi.задаётся в константе NUM_LINES. RGB funksiyasi qizil, yashil va ko`k ranglardan TColor tipiga mos rang xosil qiladi.

Dastur natijasi quyidagi ko`rinishni hosil qilishi mumkin:

Agarda siz formani surib ko`rsangiz va u ekran chegarasidan chiqib ketasa chiziqlar o`chganligini k`orasiz. Bu muammoni xal etsa bo`ladi lekin keyinroq….

Shakilni hosil qilish

Shakillarni chizish uchun TCanvas xususiyatining quyidagi funksiyalari ishlatiladi:

NOMI	VAZIFASI	MISOL
Ellipse	Ko`rinmas to`g`ri to`rtburchak ichida elips chizadi	Canvas.Ellipse(0,0,50,50);
FillRect	Mo`yqalamdagi aktiv rang bilan (brush), to`g`ri to`rtburchak ichini bo`yaydi.	Canvas.FillRect( Bounds(0,0,100,100));
FloodFill	Mo`yqalamdagi aktiv rang bilan (brush), to`g`ri shakil ichini bo`yaydi.	Canvas.FloodFill(10, 10, clBlack, fsBorder);
Rectangle	To`g`ri to`rtburchak chizadi va uning ichini mo`yqalamning aktiv rang bilan bo`yaydi.	Canvas.Rectangle( Bounds(20, 20, 50, 50));
RoundRect	Rectangle kabi ishlatiladi, lekin uning qirrasi bo`lmaydi.	Canvas.RoundRect( 20, 20, 50, 50, 3, 3);