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);
Dostları ilə paylaş: |