Delphi tilida

M i s o 1: 
with Forml.Canvas do begin 
Font.Name := 'Tahoma'; 
Font.Size := 20; 
FontStyle := [fsltalic, fsBold] ; 
Brush.Style := bsClear; 
Text0ut(0, 10, 'Borland Delphi6'); 
end; 
Textout uslubi orqali matn ekranga chiqarilgandan so‘ng qalam 
matn chiqarish sohasining yuqori o‘ng burchagiga keltiriladi. 
Agar matn uzunligi ma’lum bolmasa. chiqarilgan matn o‘ng 
chegarasi koordinatalarini PenPos xossasiga murojaat qilib aniqlash 
mumkin. 
M i s o 1: 
with Forml.Canvas do begin 
Text0ut(0, 10, 'Borland ') ; 
TextOut(PenPos.X, PenPos.Y, 'D elphi6'); 
end; 

Grafik primitivlarni chizish usullari 

Chiziq 

To‘g‘ri chiziq LineTo usuli orqali amalga oshiriladi. 

Komponent.Canvas.LineTo(x,y) 

LineTo usuli qalamning joriy pozitsiyasidan berilgan koordinatali 
nuqtagacha to‘g‘ri chiziq chizadi. Boshlang‘ich nuqtani kerakli nuqtaga 
ko‘chirish uchun MoveTo usulidan foydalanish mumkin. 

123 

Tutashgan chiziq 

chizuvchi protsedurasini keltiramiz: 
procedure TForml.ButtonlClick(Sender: TObject); 
var 
gr: array[1..50] of TPoint; 
xO,yO: Integer; 
dx,dy: Integer; 
i: Integer; begin 
xO := 10; uO := 200; dx :=5; dy := 5; 
for i:=l to 50 do begin 
gr[i].x := xO + (i-l)*dx; 
gr[i].y := yO - Data[i]*dy; 
end; 
with formLCanvas do begin 
MoveTo(x0,y0); LineTo(x0,10); 
MoveTo(x0,y0); LineTo(200,y0); 
Polyline(gr);