Меню авторизации с помощью компонентов TMS Software

07.09.2011
Сейчас рассмотрим как была сделана форма авторизации для программы АИС Техникум, какие компоненты из набора TMS Component Pack были использованы.

Приступим


Первым делом создадим новую форму размером 248х151, уберём у неё рамку, сделаем прозрачной, а также позиция формы по умолчанию будет в центре экрана

//Размер формы

Form1.Width := 248;
Form1.Height := 151;
//Убираем рамку
Form1.BorderStyle := bsNone;
//Делаем её прозрачной
Form1.Color := clGreen;
Form1.TransparentColor := True;
Form1.TransparentColorValue := clGreen;
//Позиция по умолчанию в центре рабочего стола
Form1.Position := poDesktopCenter;

Теперь добавим CurvyPanel, находящуюся на вкладке TMS Curvy, на форму и растянем её на всю возможную область формы. И поставим ей серый цвет.

//Растягиваем

CurvyPanel1.Align := alClient;
//Серый цвет
CurvyPanel1.Color := clScrollBar;

Добавим парочку RTFLabel (находятся на вкладке TMS) и впишем в них: Логин и Пароль соответственно. Шрифт будет Arial, размер выставим на 9. Также, их необходимо сделать прозрачными.

//Надписи
RTFLabel1.RichText := Логин:';
RTFLabel2.RichText := 'Пароль:';
//Включаем прозрачность
RTFLabel1.Transparent := True;
RTFLabel2.Transparent := True;


Поля для ввода, возмём с уже знакомой нам вкладки TMS Curvy. Компоненты называются CurvyEdit. В то поле, в которое будет вводится пароль сделаем замену всех символов на звёздочки. Размер обоих полей равен 155х24.

//Размер полей

CurvyEdit1.Width := 155;
CurvyEdit1.Height := 24;
CurvyEdit2.Width := 155;
CurvyEdit2.Height := 24;
//Скрываем символы
CurvyEdit2.PasswordChar := '*';

Осталось добавить кнопки и заголовок, начнём с кнопок:
Возмём недавно добавленные в набор TMS Component Pack кнопки со вкладки TMS W7. А называются они W7SpeedButton. Две размером 108х25 и надписями Вход и Настройка, и ещё две размером 20х25 и надписями ? и Х.

//Размер и надпись на первой кнопке

W7SpeedButton1.Width := 108;
W7SpeedButton1.Height := 25;
W7SpeedButton1.Caption := 'Вход';
//Размер и надпись на второй кнопке
W7SpeedButton2.Width := 108;
W7SpeedButton2.Height := 25;
W7SpeedButton2.Caption := 'Настройка';


//Размер и надпись на третьей кнопке

W7SpeedButton3.Width := 20;
W7SpeedButton3.Height := 25;
W7SpeedButton3.Caption := '?';
//Размер и надпись на четвёртой кнопке
W7SpeedButton4.Width := 20;
W7SpeedButton4.Height := 25;
W7SpeedButton4.Caption := 'Х';

Для заголовка используем компонент AdvSmoothLabel, который можно найти на вкладке TMS SmoothControls. Размер 143х25, а величина шрифта равна 15.

AdvSmoothLabel1.Width			:= 143;

AdvSmoothLabel1.Height := 25;
AdvSmoothLabel1.Caption.Text := АИС Техникум;
AdvSmoothLabel1.Caption.Font.Size := 15;

Напоследок ещё немного подкорректируем расположение компонентов между собой и получим то, что было у нас в самом начале.

И как последний штрих, сделаем возможность перетаскивать по экрану форму за практически любое место, а именно Curvy Panel и Smooth Label, о том как это реализуется смотрите в этой заметке.
P.S. Особо внимательные могли заметить по углам формы зелёные цвета, это побочный эффект прозрачной формы зелёного цвета, в данном случае лучше использовать цвет формы clSilver (Как наиболее близкий к clScrollBar), тогда получится вот такая красота: