Delphining grafik imkoniyatlari

with Form1.Canvas do begin
TextOut(0, 10, 'Borland ') ;
TextOut(PenPos.X, PenPos.Y, 'Delphi 7');
end;
Grafik elementlarni chizish usullari
Har qanday rasm, chizma, sxemalarni grafik elementlar: nuqta, chiziq, qylana, yoy va boshqalarni majmuyi sifatida qarash mumkin. Grafik elamantlarni komponent (forma yoki illyustratsiya chiquvchi soha) sirtida chizish shu komponentning Canvas xususiyatiga mos keluvchi uslubni qo’llash bilan amalga oshiriladi.
Chiziq
To’g’ri chiziqni chizish uchun LineTo uslubidan foydalaniladi. Uning yozilish formati quyidagicha: Komponenti.Canvas.LineTo(x,y)
LineTo uslubi to’g’ri chiziqni qalamning joriy koordinatasidan boshlab ko’rsatilgan x,y koordinatagacha chizadi.
Chziqning boshlang’ich nuqtasini berish mumkin. Buning uchun MoveTo uslubidan foydalaniladi: Komponenti.Canvas.MoveTo(x,y)
Chiziqning shakli (rangi, qalinligi va stili) chiziq hosil qilinuvchi sirtning Pen ob’yekti xususiyati bilan aniqlanadi.
Ko’pincha hisoblash natijalarini grafik ko’rinishda ifodalash qulayroqdir. Grafika yanada tushunarli bo’lishi uchun koordinata o’qlari va raqamlangan to’rlarda ifodalaniladi. 10.2-listingda forma sirtida koordinata o’qlari va raqamlangan to’rlarni hosil qiluvchi dastur matni keltirilgan (10.4-rasm).



Рис. 10.4. Koordiatali to’r ilova formasi
Листинг 10.2. Koordinata o’qlari va raqamlangan to’r
unit grid_;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1; implementation
{$R *.DFM}
procedure TForm1.FormPaint(Sender: TObject);
var
x0,y0:integer; // koordinata o’qlarining bosh koordinatasi
dx,dy:integer; // koordinatali to’r qadami (piksellarda)
h,w:integer; // koordinatali to’rning balandligi va kengligi
х,у:integer;
lx,ly:real; // x va y o’qlari bo’yicha raqamlash
dlx,dly:real; // x va y o’qlari bo’yicha raqamlash qadami
cross:integer; // to’rning raqalanmagan chiziqlari
dcross:integer;// raqamlangan chiziqlar orasidagi raqamlanmagan
//chiziqlar soni
begin
х0:=30; у0:=220; // o’qlar (40,250) nuqtadan boshlanadi
dx:=40; dy:=40;
dcross:=1;
dlx:=0.5;
dly:=1.0;
h:=200; w:=300;