28- сурет. №2 тапсырма Сәйкес батырмаларды шерткенде экранға ағымдық уақыт, ағымдық дата шығатын және Edit компонентіндегі мәтінді алмастыру буферіне қиятын, көшіретін және қоятын және форманы жабатын код жазыңдар.
29- сурет.
Шешуі: procedure TForm1.BitBtn1Click(Sender: TObject); begin Edit1.Text:=TimeToStr(Time);
end; procedure TForm1.BitBtn2Click(Sender: TObject); begin Edit2.Text:=DateToStr(Date);
end; procedure TForm1.BitBtn3Click(Sender: TObject); begin Edit3.CutToClipboard;
end; procedure TForm1.BitBtn4Click(Sender: TObject); begin Edit3.CopyToClipboard;
end; procedure TForm1.BitBtn5Click(Sender: TObject); begin Edit3.PasteFromClipboard;
end; Shapeкомпонентін шартты түрде графиктік ақпаратты шығару құрылғысына жатқызуға болады. Ол әр түрлі геометриялық фигураларды салу үшін қолданылады. Бұл компоненттің негізгі қасиеті- Shape. Ол төмендегі мәндерді қабылдайды:
StCircle- шеңбер
StEllipse- эллипс
StRectangle-тіктөртбұрыш
StRoundRectangle- бұрыштары дөңгеленген тіктөртбұрыш
StSquare- квадрат
StRoundSquare - бұрыштары дөңгеленген квадрат
Мысалы: Shape1.Shape:=StEllipse; Shape2.Shape:=StRectangle; Екінші қасиеті-Pen (қалам). Ол сызық және геометриялық фигура шекарасын сызу үшін қолданылатын қалам атрибутын анықтайды. Оның қасиеттері:
Color- сурет салынатын қалам түсі.
Width- сызылатын сызықтың пикселмен өлшенген қалыңдығы.
Style- сызықтың стилі. Ол төмендегідей мәндер қабылдайды.
psSolid- тұтас сызық
psDash- штрихталған сызық
psDot-пунктир сызық
psDashDot- штрих- пунктир сызық
psDashDotDot- штрих және екі пунктир сызық
psClear- сызық жоқ.
Түрі Тұрақты Сызық түрі
BsSolid Жай сызық
BsHorisontal Горизанталь штрих
BsVertical Вертикаль штрих
BsBDiagonal Сызықтары алға бағытталған диагональды штрих BsFDiagonal Сызықтары төмен бағытталған диагональды штрих BsCross Торлы штрих
BsDiagCross Торлы диагональды штрих
BsClear Бөлік боялмайды
№3 тапсырма
Мысалы: Shape1.Pen.Color:=clRed;
Shape1.Pen.Width:=3;
Shape1.Pen.Style:=psDash;
Shape1.Shape:=stCircle;
Нәтижеде сызық қалыңдығы 3-ке тең, сызық стилі штрихталған, қызыл түсті шеңбер сызылады.
Shape компонентінің келесі қасиеті- Brush(қылқалам). Ол геометриялық фигураның ішін бояуды жүзеге асырады. Brush қасиетінің өз қасиеттері бар. Color - фигура ішін бояу түсін көрсетеді.
Style- бояу стилін анықтайды. Оның мәндері:
bsSolid- тұтас бояу
bsHorizontal-горизонталь сызықпен бояу
bsVertical- вертикаль сызықпен бояу
bsFDiagonal, bsBDiagonal-диагонал сызықпен бояу
bsCross- тік торлы бояу
bsDiagCross- көлденең торлы бояу
bsClear- боялмаған.
Мысал. Суретте әр түрлі стильмен сызылған және боялған түрлі фигуралар көрсетілген.
