Дістемелік кешені


Лабораториялықжұмыс №5 Заставка құру процесін ортасында ұйымдастыру



бет35/43
Дата07.01.2022
өлшемі1,39 Mb.
#17102
түріПрограмма
1   ...   31   32   33   34   35   36   37   38   ...   43
Байланысты:
UMKD Obektige ba 1171 yttal 1171 an programmalau 2014 KAZ (1)

Лабораториялықжұмыс №5 Заставка құру процесін ортасында ұйымдастыру Тапсырма

Қосымша Заставка құрамыз.


Шешімі. Графикалық редакторды басты менюдегі Tools|Image Editor командасы арқылы қосылады.

1. Delphi-дегі графикалық редакторының жұмысы Paint графикалық редакторынан кішкене ғана айырмашылықтан тұрады File|New|BitmapFile (.bmp)басты менюінің командасын орындаймыз. Пайда болған



BitmapPropertiesдиалогыныңWidthe (ширина) установим-300, Height (высота)-200
қондырамыз. Colors-ға VGA (16 colors) қосымшасын немесе басқаны таңдап аламыздаOk-басамыз.

47




  1. Содан кейін төмендегі тексті қоямыз. Ол үшін (Text) кнопкасын пайдаланамыз. Тексті жазбай тұрып Text|Font командасы арқылы шрифт өзгертеміз.




  1. File|Saveкомандасын орындап, графикалық редакторды сақтаймыз. Графикалық редактордан File|Exit арқылы шығамыз.





  1. Additionalбетінен формаға Image (имя- Imagel) компонентін қоямыз




  1. Pictureқасиетін таңдап және оның үш нүктелі кнопкасын басамыз. Осы кезде PictureEditor терезесі пайда болады. Load кнопкасын бастық.

PictureEditor–де Ok-ді басамыз. Сурет толығымен көріну үшін, Autosizeқасиетін True-ге қондырамыз. Осыдан кейін суретті, форманың центірінде орналасатындай етіп қоюға болады..






  1. Timer1 компонентін екі рет басып және OnTimer қасиетін төмендегі бойынша құрамыз:

  2. Жобаны сақтап, модульге ат беріп жобаны орындауға жібереміз.

48

Модульдің қалыптасу тексті толығымен төменде көрсетілген. unit Yupi2;


interface uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;


type

TForm2 = class(TForm) Timer1: TTimer; Image1: TImage;

procedure Timer1Timer(Sender: TObject); procedure Image1Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var


Form2: TForm2; implementation
{$R *.DFM}

procedure TForm2.Timer1Timer(Sender: TObject); begin

If Image1.Visible=true then Image1.Hide else Image1.Show;

end;




Достарыңызбен бөлісу:
1   ...   31   32   33   34   35   36   37   38   ...   43




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет