Turbo Delphi 04

1. Программная смена цвета поля ввода и управление отображением изображения.
1) Создайте папку под новый проект.
2) Скопируйте в папку два изображения (image1.jpg и image2.jpg).
3) Создайте новый проект и сохраните его в созданную папку.
4) Оформите внешний вид окна: задайте заголовок (Caption), стиль границ (BorderStyle), кнопки заголовка (BorderIcons) и размеры (Width, Height) и положение (Top, Left) формы.
5) Разместите на форме два изображения Image (вкладка Additional), один над другим. Если изображение Image2 перекрывает Image1, задайте для Image1 положение «сверху», для чего щелкните правой кнопкой мыши по Image2 и в контекстном меню выполните «Control – Send to Back» (или щелкните правой кнопкой мыши по Image1 и в контекстном меню выполните «Control – Bring to Front»).
6) Задайте свойства Image1: AutoSize=True; Visible=True. С помощью свойства Picture загрузите картинку image1.jpg. Если рисунок другой и большего размера, то можно установить дополнительно свойства Width=100 и Height=100, при этом следует установить AutoSize=False.
7) Задайте свойства Image2: AutoSize=True; Visible= False. С помощью свойства Picture загрузите картинку image2.jpg. Если рисунок другой и большего размера, то можно установить дополнительно свойства Width=100 и Height=100, при этом следует установить AutoSize=False.
8) Для Image1 создайте обработчики событий MouseDown и MouseUp (через вкладку Events Инспектора объектов) и введите указанный программный код (выделено жирным):
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Visible := False;
Image2.Visible := True;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Visible := True;
Image2.Visible := False;
end;
9) Сохраните проект, запустите на выполнение и проведите проверку работы программы (щелкните на изображении).
10) Добавьте на форму список выбора ListBox (вкладка Standard).
11) В свойстве Items компонента ListBox1 задайте элементы списка – названия цветов (красный, синий, зеленый, желтый, фиолетовый, коричневый, черный).
12) Добавьте на форму поле ввода Edit (вкладка Standard). Очистите свойство Text.
13) Создайте обработчик события OnClick для компонента ListBox1 (через вкладку Events Инспектора объектов или дважды щелкните по компоненту) и введите указанный программный код (выделено жирным):
procedure TForm1.ListBox1Click(Sender: TObject);
begin
case ListBox1.ItemIndex of
0: Edit1.Color := clRed;
1: Edit1.Color := clBlue;
2: Edit1.Color := clGreen;
3: Edit1.Color := clYellow;
4: Edit1.Color := clFuchsia;
5: Edit1.Color := clMaroon;
6: Edit1.Color := clBlack;
end;
end;
14) На форме разместите кнопку (Button) с надписью (свойство Caption) «Закрыть» и впишите в обработчик код закртыие главной формы Close.
15) Сохраните проект и запустите программу на исполнение.

2. Создать приложение «Перевод величин», предназначенное для перевода величины из одной меры в другую. Пары мер для перевода:
- Версты в метры (1 верста=1066,8 м)
- Футы в метры (1 фут=0,3048 м)
- Дюймы в см (1 дюйм=2,54 см)
- Фунты в кг (1 фунт=0,40951 кг)
- Мили в км (1 миля=1,609 км)
- Талоны в литры (1 талон=4,546 л)
- Кварты в литры (1 кварта=1,1365 л)
- Штофы в литры (1 штоф=1,2299 л)
- Караты в граны (1 карат=3,086 грана)
- Ярды в метры (1ярд=0,9144 м)
- Унции в граммы (1 унция=28,35 г)
- Пинты в миллилитры (1 пинта=568,24 мл)
- Бушели в литры (1 бушель=36,36 л)
1) Создайте новый проект и сохраните его в отдельную папку.
2) Оформите внешний вид окна: задайте заголовок (Caption), стиль границ (BorderStyle), кнопки заголовка (BorderIcons) и размеры (Width, Height) и положение (Top, Left) формы.
3) Разместите на форме три надписи (Label), комбинированный список (ComboBox), поле ввода (Edit) и две кнопки (Button).

4) Задайте свойство Caption для надписей и кнопок. Также для Надписи Label3 («Значение») установите свойство переноса по словам WorWrap= True.
5) Очистите свойство Text для комбинированного списка и поля ввода.
6) Установите для кнопки «Перевести» свойство Dafault=True.
7) Установите для кнопки «Выход» свойство Cancel=True.
8) Создайте обработчик события создания формы OnCreate (через вкладку Events Инспектора объектов) и впишите следующий программный код (выделено жирным):
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Clear;
ComboBox1.Items.Add('Версты в метры (1 верста=1066,8 м)');
ComboBox1.Items.Add('Футы в метры (1 фут=0,3048 м)');
ComboBox1.Items.Add('Дюймы в см (1 дюйм=2,54 см)');
ComboBox1.Items.Add('Фунты в кг (1 фунт=0,40951 кг)');
ComboBox1.Items.Add('Мили в км (1 миля=1,609 км)');
ComboBox1.Items.Add('Талоны в литры (1 талон=4,546 л)');
ComboBox1.Items.Add('Кварты в литры (1 кварта=1,1365 л)');
ComboBox1.Items.Add('Штофы в литры (1 штоф=1,2299 л)');
ComboBox1.Items.Add('Караты в граны (1 карат=3,086 грана)');
ComboBox1.Items.Add('Ярды в метры (1ярд=0,9144 м)');
ComboBox1.Items.Add('Унции в граммы (1 унция=28,35 г)');
ComboBox1.Items.Add('Пинты в миллилитры (1 пинта=568,24 мл)');
ComboBox1.Items.Add('Бушели в литры (1 бушель=36,36 л)');
end;
9) Создайте обработчик события OnClick для кнопки «Перевести» и впишите следующий программный код (выделено жирным):
procedure TForm1.Button1Click(Sender: TObject);
var
value: real;
s: string;
begin
if ComboBox1.ItemIndex<0 then
begin
Label3.Caption := 'Укажите вид перевода...';
exit
end;
if Edit1.Text='' then
begin
Label3.Caption := 'Введите значение для перевода...';
exit
end;
try
value := StrToFloat(Edit1.Text);
except
Label3.Caption := 'Введено ошибочное значение (не число)...';
exit
end;
case ComboBox1.ItemIndex of
0: s := FloatToStr(value*1066.8)+' м';
1: s := FloatToStr(value*0.3048)+' м';
2: s := FloatToStr(value*2.54)+' см';
3: s := FloatToStr(value*0.40951)+' кг';
4: s := FloatToStr(value*1.609)+' км';
5: s := FloatToStr(value*4.546)+' л';
6: s := FloatToStr(value*1.1365)+' л';
7: s := FloatToStr(value*1.2299)+' л';
8: s := FloatToStr(value*3.086)+' г';
9: s := FloatToStr(value*0.9144)+' м';
10: s := FloatToStr(value*28.35)+' г';
11: s := FloatToStr(value*568.24)+' мл';
12: s := FloatToStr(value*36.36)+' л';
end;
Label3.Caption := s;
end;
10) Создайте обработчик события OnClick для кнопки «Закрыть» и впишите в обработчик код закрытия главной формы Close.

3. Создать приложение «Обмен валюты», реализующее пересчет любой суммы денег по текущему курсу (например, курсу доллара).
Требования:
Пользователь должен иметь возможность вводить сумму денег и текущий курс валюты.
1) Должна быть выполнена проверка правильности ввода данных в поля редактирования. А именно, если поля редактирования пустые, то необходимо выдать сообщение об ошибке с помощью диалогов ShowMessage и MessageDlg. Также можно осуществить проверку на ввод недопустимых символов.
2) Предоставить пользователю возможность выбора формы представления выводимого результата: округлять результат до 2-ех знаков после запятой или не округлять. Для этого можно использовать компонент CheckBox. В процедуре пересчета денег проверять установлен или нет флажок (если CheckBox выбран, то результат округлять, иначе не округлять). Для получения округленного результата используйте функцию FloatToStrF: FloatToStrF(<значение>, ffFixed, 8, 2).
3) На форме должна присутствовать кнопка «Выход», завершающая работу с приложением. Для завершения работы с приложением необходимо закрыть форму, используя метод формы Close.