1-ші тапсырманың коды:
procedure TForml.FormClick(Sender: TObject);
begin
Canvas.Pen.Color := clRed; // қалам ұштың түсі қызыл
Canvas.Pen.Width := 1;
//қалам ұштың қалыңдығы бір нүктедей
Canvas.Pen.Style := psDashDot;
//қалам ұштың сызығының типі пунктирлі-штрих
Canvas.MoveTo(0,0); Canvas.LineTo(350,250);//түзу сызу end;
2-ші тапсырманың коды:
procedure TForml.FormPaint(Sender: TObject);
varbmp: TBitmap;
begin
with Canvas do begin
Pen.Color := clLime;
Pen.Width := 3;
Brush.Color := clRed;
Brush.Style := bsBDiagonal;
Ellipse(10,10,160,160);
bmp := TBitmap.Create;
bmp.PixelFormat := pf24bit;
bmp.Width := 8; bmp.Height := 8;
bmp.Canvas.Pen.Color := clRed;
bmp.Canvas.Brush.Color := clRed;
bmp.Canvas.Ellipse(0, 0, 5, 5) ;
Brush.Bitmap := bmp;
Ellipse(170,10,320,160);
rush.Bitmap := nil; bmp.Free; end end;
3-шітапсырманыңкоды:
procedure TForml.FormPaint(Sender: TObject);
beginwith Canvas do begin
Brush.Style := bsClear;
Font.Color := clBlue;
Font.Size := 144;
Font.Name := 'Webdings'
TextOut(50,0,'я1); end
4-ші тапсырманың коды:
procedure TForml.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
with Canvas do begin
Brush.Color := Color;
Font.Color := clBlue;
Font.Size := 10;
Font.Name := 'Times New Roman';
Font.Style := [fsBold, fsltalic, fsUnderline];
TextOut(х, у, '(' + IntToStr(x) + ',' + IntToStr(y) + ')');
Brush.Color := clBlack;
Pen.Color := clBlack;
Ellipse(x - 3, у - 3, x + 3, у + 3); end;
Зертханалық жұмыс №5
Тақырыбы: Графикалық компоненттер
Жұмыстың мақсаты: Shape компоненті, Bevel компоненті, Image компоненті, PaintBox компоненті, ImageList компоненттері туралы түсінік.
№1 жұмыс.
1 тапсырма:
Форманың OnPaint оқиғасы арқылы, .bmp файлдан жүктелген суретті форманың дәл ортасына шығаратын проект құрыңыз.
Ескерту:
Форманың енін ClientWidth, биіктігін ClientHeight қасиеттері арқылы анықтауға болады.
Суреттің екілік бейнесімен жұмыс істеуге арналған Tbitmap класын қолданыңыз.
Достарыңызбен бөлісу: |
