Тақырыбы: Визуалды бағдарламалау ортасы. Қолданбалар пішімі. Пішім компоненттері



жүктеу 393.5 Kb.
бет19/21
Дата12.02.2022
өлшемі393.5 Kb.
#17177
1   ...   13   14   15   16   17   18   19   20   21
Delphi
Информатика кітап, СЫБАЙЛАС ЖЕМҚОРЛЫҚҚА ҚАРСЫ МӘДЕНИЕТ НЕГІЗДЕРІ, УМК ИТ в сервисе.Оргтехника (гос 2 пок) (1), 03.04.2020 -18-20 Қолданбалы информатика, 28.03.2020-18-21 Қолданбалы информатика, 07.04.2020-18-20 Информатика, СӨЖ3, instrukciya portal rus
3.7 Радиобатырмалар тобы

Радиобатырмалар тобы RadioGroup, RadioButton және GroupBox . радиобатырмалар өзара байланысты, әдетте тек біреуі ғана таңдалынатын индификаторлар тобын құрайды. Олар бірнеше нұсқалардың ішінен пайдаланушыға тек біреуін таңдау үшін қолданылады.



RadioGroup компоненті – радиотүймелер тобының панелі. Радиотүймелер баған немесе жол бойынша орналасуы мүмкін. Панельдің сол жақ бұрышындағы жазба Caption қасиетімен анықталады. Ал түймелердің жазбасы мен санын TStrings типі бар Items қасиеті анықтайды. Объектілер инспекторы терезесіндегі бұл қасиет қасындағы көпнүктелі түймені басыңыз, жазбалар тізімінің редакторын көруге болады. Сіз оған түйме басында көргіңіз келетін жазбаларды жазуыңызға болады. Қанша жол жазсаңыз, сонша түйме болады.

Items мәнін бергеннен кейін панельде пайда болатын түймелерді Columns мәнін беріп, бірнеше (17-ден артық емес) бағанаға орналастыруға болады. Әдетте үнсіз келісім бойынша Columns=1, яғни түймелер бірінің астына бірі орналасады.

Пайдаланушының қандай түймені таңдағанын түйме индексін көрсететін ItemIndex қасиетіне білуге болады. Үнсіз келісім бойынша ItemIndex=-1, бұл таңдалынған түйменің жоғын білдіреді. Егер де сіз тапсырма орындалу кезінде белгілі бір түйме таңдағыңыз келсе, онда проектілеу кезінде міндетті түрде ItemIndex мәнін беріңіз. Егер де сіз радиотүймені енгізу үшін емес, деректерді көрсету үшін пайдалансаңыз, онда ItemIndex мәнін тапсырма орындалу кезінде программаға енгізуге болады.

Егер жазбалардың ұзындығын және бағандағы түймелер саны бірдей болса, онда сізге RadioGroup компонентін қолдану өте ыңғайлы.



Түйменің әдемі орналасуына GroupBox панелінде топтастырылған RadioBox компонентін пайдаланған тиімді. GroupBox панелі формада

RadioButton секілді болады және оның жоғарғы сол жағындағы жазу да Caption анықталады. Бұл панель негізінен бос панель. Ол өзге басқарылатын элементтерге жекелік түрде RadioButton радиотүймесіне контейнер қызметін атқарады.

RadioButton оңаша тұрғанда айрықша мәні жоқ, әйтсе де пайдаланушының қосылып және сөндірілетін индикатор қызметін атқара алады. Бірақ әдетте ондай индикатор қызметін басқа компонент - CheckBox атқарады. Ал радтобатырмалар бір-бірімен тек топта ғана болғанда ғана мәні болады, бұл топ ортақ GroupBox панелі контейнеріне біріктіріледі.

RadioButton радиотүймелерінде де Caption қасиеті түйме жанында орналасқан жазбаны білдіреді. Ал Alignment қасиеті түйменің қай жанынан жазудың шығатынын анықтайды: taLeftJustify –солдан, taRigthJustify-оңнан. Checked қасиеті түйменің пайдаланушымен таңдалғанын немесе таңдалмағанын анықтайды. Әдетте тапсырманың орындалу кезінде топ ішіндегі бір түйме үнсіз келісім бойынша таңдалуы үшін оның Checked қасиетіне true мәнін жазу керек.

Name – компоненттің аты. Программада компонентке және оның қасиеттеріне қатынас жасауда пайдаланылады.

Caption – түйменің оң жағындағы мәтін.

Checked – түйменің сыртқы түрі. Егер түйме таңдалса, Checked=true. Егер түйме таңдалмаса, Checked=False;

Left –флажканың сол жақ шетінен форманың сол жақ шетіне дейінгі қашықтық.

Top – флажканың жоғарғы шетінен форманың жоғарғы шетіне дейінгі қашықтық.

Height – өрістің биіктігі.

Width – өрістің ұзындығы.

Font – мәтінді көрсетуде қолданылатын мәтін қарпі.

ParentFont – ата-аналық пішімінң қаріп қасиетін мұрагерлену қасиеті.

RadioButton радиотүймелері GroupBox панелінен тікелей формадағы өзге де панельдер типінде орналасуы мүмкін. Өзара байланысты түймелер тобы түймелер орналасқан түймелерді құрайтын терезелік компонентпен анықталады. Тікелей формадағы радиотүймелерге контейнер қызметін форманың өзі атқарады. Осылайша тіккелей формада орналасқан түймелер бір топ секілді жұмыс жасайды, яғни топ ішіндегі жалғыз бір түймеге Checked мәнін true қылдыруға болады.

Shape компоненті. Иерархиясы: TObject-TPersistent-TСomponent-TСontrol-TgraphicControl. Компонет палитрасының парағы – Additional.

Shape компонентін графикалық ақпарат көрсету әдісіне шартты түрде жатқызылуы мүмкін. Өйткені ол боялған немесе шрихталған геометриялық фигураларды анықтайды. Бұл компоненттің негізгі қасиеті – Shape(пішін), ол мына мәндерді алуы мүмкін:


stRectangle

Тіктөртбұрышты

stRoundRect

Бұрыштары дөңгеленген тіктөртбұрыш

stEllipse

Эллипс

Setsquare

Квадрат

stRoundSquare

Бұрыштары дөңгеленген квадрат

stCircle

Дөңгелек

Компоненттің тағы бір айрықша қасиеті – Brush (кисть). Бұл қасиет фигураның түсін (Brush.Color) және стилін (Brush.Style) білдіретін қасиетке бөлінеді. Shape-тің тағы бір спецификалық қасиеттерінің бірі – фигураның сызықтық стилін білдіретін Pen (перо) қасиеті.



Pen сызық және фигураны салуда қолданылатын перо атрибуттарын анықтайды,класы - TСanvas. Анықталуы - property Pen:Tpen;

Brush терезе фонының боялу стилі мен түсін анықтайды. Класы –Тwincontrol, қатынас тек қана оқуға арналған, анықталуы: propertyBrush:TBrush;


Мысал1; Label компонентін пайдаланып төмендегідей мысал қарастырамыз:
Unit gul1.cfg;
Interface
Uses
Windows, Message, SysUtils, Variants, Classes, graphics, Controls, forms,

Dialogs, StdCtrls, ExtCtrls, jpeg;


Type

TForn=class(TForm)

Label1:Tlabel;

Button1:TButton;

Button2:TButton;

Button3:TButton;

Button4:TButton;

Button5:TButton;

Button6:TButton;

Button7:TButton;

ColorBox1:T ColorBox1;

Timer1:TTimer;

Button8:TButton;

Button9:TButton;

Button10:TButton;

Procedure Button1Click (Sender:TObject);

Procedure Button2Click (Sender:TObject);

Procedure Button3Click (Sender:TObject);

Procedure Button4Click (Sender:TObject);

Procedure Button5Click (Sender:TObject);

Procedure Button6Click (Sender:TObject);

Procedure Button7Click (Sender:TObject);

Procedure ColorBoxChange (Sender:TObject);

Procedure Timer1Timer (Sender:TObject);

Procedure Button8Click (Sender:TObject);

Procedure Button9Click (Sender:TObject);

Procedure Button10Click (Sender:TObject);

Private


{private declarations}

Public


{ public declarations}

End;
Var

a:integer;

Form1:TForn1;

I

mplementation


{$R*.dfm}

procedure TForm1. Button1Click (Sender:TObject);

begin

Label1.Visible:=true;



end;

procedure TForm1. Button2Click (Sender:TObject);

begin

Label1.Top:=label1.top-5;



end;

procedure TForm1. Button5Click (Sender:TObject);

begin

Label1. Top:=label1.top+3;



end;

procedure TForm1. Button3Click (Sender:TObject);

begin

Label1. Left:=label1.left+3;



end;

procedure TForm1. Button4Click (Sender:TObject);

begin

Label1. Left:=label1.left-5;



end;

procedure TForm1. Button6Click (Sender:TObject);

begin

Label1.Visible:=false;



end;

procedure TForm1. Button7Click (Sender:TObject);

begin

Form1.close;



end;

procedure TForm1. Button1Click (Sender:TObject);

begin

Label1.Visible:=true;



end;

procedure TForm1. ColorBox1Change(Sender:TObject);

begin

Label1.Font.color:=ColorBox1.selected;



end;

procedure TForm1. Timer1.Timer(Sender:TObject);

begin

Label1. Left:=label1.left+a;



If(label.Left=form1.width-label1.width-10) then a:=-1;

If label1.left=0 then a:=1;

end;

procedure TForm1. Button8Click (Sender:TObject);



begin

Label1.Font.Size:=label1.Font.size+5;;

end;

procedure TForm1. Button9Click (Sender:TObject);



begin

Label1. Font.Size:=label1.Font.size-2;

end;

procedure TForm1. Button10Click (Sender:TObject);



begin

a=1;


timer1.Enabled:=true;

timer1.interval:=100;



end;

end.



5-сурет





жүктеу 393.5 Kb.

Поделитесь с Вашими друзьями:
1   ...   13   14   15   16   17   18   19   20   21




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

    Басты бет