Delphi tilida



Yüklə 3,41 Mb.
səhifə62/133
tarix07.01.2024
ölçüsü3,41 Mb.
#210126
1   ...   58   59   60   61   62   63   64   65   ...   133
sodapdf-converted (1)

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); 

Yüklə 3,41 Mb.

Dostları ilə paylaş:
1   ...   58   59   60   61   62   63   64   65   ...   133




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azkurs.org 2025
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin