30- сурет.
Image компоненті форма бетіне графиктік бейне қою үшін қолданылады. Оның қасиеттері:
AutoSize қасиетінің мәні ақиқат болса Image компонентінің өлшемі қойылған бейне өлшемімен сәйкестендіріледі.
Stretch қасиетінің мәні ақиқат болса компонент өлшемі емес, керісінше бейне өлшемі компонент өлшеміне сәйкестендіріледі.
Center-қасиетінің мәні ақиқат болса, онда бейне центрі Image компонентінің центріне сәйкестендіріледі. Аталған үш қасиеттің мәні бульдік болып табылады және олар true, false екі мәннің біреуін қабылдайды.
Picture қасиеті компонентке графиктік бейне қоюды жүзеге асырады. Бұл қасиеттің LoadFromFile және SaveToFile әдістері компонентке сурет жүктеуді және суретті сақтауды жүзеге асырады. Жалпы түрдегі жазылу форматтары:
procedure LoadFromFile(const FileName: string);
procedure SaveToFile(const FileName: string);
№4 тапсырма
Мысалы: Image1.Picture.LoadFromFile (‘d:\4204\Adil.bmp’);
31- сурет.
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('c:\4204.bmp');
end;
Тәжірибелік жұмыс №3 Баспаға шығару
Жұмыс мақсаты – баспаға жіберу қызметін атқаратын бағдарлама құру.
Форма ашып, оған Edit1, RadioGroup1, Label1, Button1 компоненттерін лақтырамыз. RadioGroup-тың Caption қасиетіне Баспаға шығару деп жазамыз.
Items қасиетін екі рет шерткенде, келесі терезе пайда болады: Items қасиетіне келесі сөздерді Enter басу арқылы енгіземіз:
барлығын
ерекшеленгендерді
ағымдағы
ОК батырмасын шертеміз.
Компоненттерді формада мына ретте орналастырамыз:
Яғни, егер RadioGroup-та жазылған сөздердің бірін таңдасақ, Label-де сол сөздің реттік номері пайда болады. Ал, Edit-ке сан жазып, Басу (Button) батырмасын бассақ, белгі автоматты түрде сол санның қасындағы сөзге келеді.Бағдарламаны жүктегенде келесі терезе пайда болады:
Бағдарлама листінгі
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
Label1.Caption:=IntToStr(RadioGroup1.ItemIndex);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(RadioGroup1.ItemIndex); end.
№5 тапсырма
«Олимпиада жалауы»
Жұмыс мақсаты- олимпиада жалауын құратын бағдардама жасау. Листинг программы:
procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do
begin // полотнище
Canvas.Pen.Width := 1;
Canvas.Pen.Color := clBlack;
Canvas.Brush.Color := clCream;
Rectangle(30,30,150,115); // кольца
Pen.Width := 2;
Brush.Style := bsClear; // область внутри круга
// не закрашивать
Pen.Color := clBlue;
Ellipse(40,40,80,80);
Pen.Color := clBlack;
Ellipse(70,40,110,80);
Pen.Color := clRed;
Ellipse(100,40,140,80);
Pen.Color := clYellow;
Ellipse(55,65,95,105);
Pen.Color := clGreen;
Ellipse(85,65,125,105);
end;end;end.
Достарыңызбен бөлісу: |
;_begin_Image1.Picture.LoadFromFile(c:\4204.bmp);_end;){kind=link}