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

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

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

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

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

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

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

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

6. 
   Timer1 компонентін екі рет басып және OnTimer қасиетін төмендегі бойынша құрамыз:
   
7. 
   Жобаны сақтап, модульге ат беріп жобаны орындауға жібереміз.
   

48

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

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

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

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

{ Private declarations } public

{ Public declarations } end;

var

procedure TForm2.Timer1Timer(Sender: TObject); begin

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

end;