Project

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils,

Lesson in 'Lesson.pas';

var i,j:TLesson; a,b,c,d,e:String; f:Byte; g,h,k,l:integer; q,n,m:TTime;

begin

i:=TLesson.Create;

Writeln;

a:=i.Kind;

Writeln(' Vud zanjat ',a);

Writeln;

b:=i.Discipline;

Writeln(' Predmet ',b);

Writeln;

c:=i.Teacher;

Writeln(' Vukladach ',c);

Writeln;

d:=i.ClassRoom;

Writeln(' Auditorija ',d);

Writeln;

e:=i.Group;

Writeln(' Grupa ',e);

Writeln;

f:=i.Cours;

Writeln(' Kurs ',f);

Writeln;

g:=i.Time.BeginEvent.Hour;

Writeln(' Poch zanjat v god ',g);

g:=i.Time.BeginEvent.Minute;

Writeln(' Poch zanjat v hv ',g);

Writeln;

h:=i.Time.EndEvent.Hour;

Writeln(' Kin zanjat v god ',h);

h:=i.Time.EndEvent.Minute;

Writeln(' Kin zanjat v hv ',h);

n:=i.GetDuration;

Writeln;

Writeln('Trivalist zanjattja ',n.Hour,' god i ',n.Minute,' hv');

Writeln;

m:=i.GetRemain(q);

Writeln('Do kintza zalushilos ',m.Hour,' god i ',m.Minute,' hv');

Readln;

end.

7.3

7.4

Барвисті кнопки

Розміщуються на панелі компонентів Additional. Працюють подібно звичайним кнопкам типу Button, але мають певні відмінності. Одна з них: розміщення графічного зображення на кнопці.

1. TBitBtn. Має дескриптор вікна.

Властивість	Опис
Glyph	указує на зображення *.BMP, яке розміщується на кнопці. Для встановлення значення властивості у процесі проектування форми потрібно у полі значення цієї властивості натиснути на кнопці з трьома крапками; програмно: Glyph.LoadFromFile(‘*.Bmp’);
Kind	визначає тип кнопки із запропонованих Delphi
Layout	положення зображення на кнопці відносно тексту: blGlyphLeft –ліворуч тексту (Right – праворуч, Top – над текстом, Bottom – під текстом)
Margin	відстань у пікселях від кута кнопки до кута зображення (за замовчення – по центру)
NumGlyphs	кількість зображень у файлі BMP
Spacing	відстань від малюнка до тексту в пікселях

1. SpeedButton

Не має дескриптор вікна. Використовується частіше при створенні панелей інструментів. Може працювати перемикачем – залишатися натиснутою. Декілька кнопок можуть поєднуватися в групи: лише одна кнопка групи може бути в натиснутому стані.

Властивість	Опис
GroupIndex	0 – не входить ні в яку групу. Для об’єднання кнопок у групу, потрібно задати однакове, відмінне від нуля значення цієї властивості.
AllowAllUp	True – усі кнопки групи можуть бути не натиснутими.
Down	True – кнопка натиснута (тільки для кнопок групи)