Файл: пособие по программированию на ДЕЛЬФИ.doc

Var I:integer;

begin

for i:=1 to strtoint(Edit1.Text) do

begin

StringGrid1.Cells[3,i]:=floattostr(strtofloat(StringGrid1.Cells[2,i])*0.01);

StringGrid1.Cells[4,i]:=floattostr(strtofloat(StringGrid1.Cells[2,i])*0.01);

StringGrid1.Cells[5,i]:=floattostr(strtofloat(StringGrid1.Cells[2,i])*0.12);

StringGrid1.Cells[6,i]:=floattostr(strtofloat(StringGrid1.Cells[2,i])-

strtofloat(StringGrid1.Cells[3,i])-

strtofloat(StringGrid1.Cells[4,i])-

strtofloat(StringGrid1.Cells[5,i]));

end;

end;

Работа 5. Создание и просмотр рисунков

Пример 5а. Создайте приложение для просмотра рисунков. Причем рисунок можно открыть двумя способами: 1) указав имя файла и путь в окошке и нажав кнопку «ПРОСМОТР»; 2) через главное меню: ФАЙЛ-ОТКРЫТЬ. Сконструируйте форму изображенную на рисунке.

Создайте обработчики событий OnClick

• для кнопки «ПРОСМОТР»:

Image1.Picture.LoadFromFile(Edit1.Text);

• для пункта главного меню: ФАЙЛ-ОТКРЫТЬ:

if OpenDialog1.Execute then Image1.Picture.LoadFromFile(OpenDialog1.FileName);

Пример 5б. Сконструируйте форму изображенную на рисунке.

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

SpinEdit2.Value:=x;

SpinEdit3.Value:=y;

PaintBox1.Canvas.MoveTo(x,y);

end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

PaintBox1.Canvas.Pen.Width:=SpinEdit1.Value;

if SpeedButton2.Down then PaintBox1.Canvas.LineTo(x,y);

if SpeedButton3.Down then PaintBox1.Canvas.Rectangle(SpinEdit2.Value,SpinEdit3.Value,x,y);

if SpeedButton4.Down then PaintBox1.Canvas.Ellipse(SpinEdit2.Value,SpinEdit3.Value,x,y);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if ColorDialog1.Execute then PaintBox1.Canvas.Pen.Color:=ColorDialog1.Color;

Shape2.Pen.Color:=ColorDialog1.Color;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if FontDialog1.Execute then begin

PaintBox1.Canvas.Font.Name:=FontDialog1.Font.Name;

PaintBox1.Canvas.Font.Style:=FontDialog1.Font.Style;

PaintBox1.Canvas.Font.Size:=FontDialog1.Font.Size;

PaintBox1.Canvas.Font.Color:=FontDialog1.Font.Color;

end;

end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

StatusBar1.Panels[1].Text:=IntToStr(x);

StatusBar1.Panels[2].Text:=IntToStr(y);

end;

procedure TForm1.PaintBox1Click(Sender: TObject);

var

x, y: integer;

begin

if SpeedButton1.Down then begin

x:=StrToInt(StatusBar1.Panels[1].Text);

y:=StrToInt(StatusBar1.Panels[2].Text);

PaintBox1.Canvas.TextOut(x,y,Edit1.Text);

end;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

if ColorDialog1.Execute then

PaintBox1.Canvas.Brush.Color:=ColorDialog1.Color;

Shape1.Brush.Color:=ColorDialog1.Color;

end;

Работа 6. Работа со списками, фигурами и регуляторами

Пример 6.1. Сконструируйте форму изображенную на рисунках. В первом рисунке показаны имена компонентов, во втором их значения. Для ScrollBar1 и ScrollBar2 установите диапазон от 1 до 300.

Введите следующие обработчики событий:

procedure TForm1.ScrollBar1Change(Sender: TObject);

begin

Edit1.Text:=inttostr(ScrollBar1.Position);

Shape1.Width:=ScrollBar1.Position;

end;

procedure TForm1.ScrollBar2Change(Sender: TObject);

begin

Edit2.Text:=inttostr(ScrollBar2.Position);

Shape1.Height:=ScrollBar2.Position;

end;

procedure TForm1.ComboBox1Click(Sender: TObject);

begin

if ComboBox1.ItemIndex=0 then Shape1.Shape:=stEllipse;

if ComboBox1.ItemIndex=1 then Shape1.Shape:=stSquare;

// продолжайте

end;

procedure TForm1.ListBox1Click(Sender: TObject);

begin

if ListBox1.Selected[0] then Image1.Picture.LoadFromFile('c:\Windows\пузыри.bmp');

//продолжайте

end;

Упражнение 1. Объясните функции каждого обработчика.

Упражнение 2. Объясните работу созданной программы.

Задачи для самоконтроля

1. На форме расположены две кнопки: НАЧАЛО, КОНЕЦ и надпись: ПРИМЕР. При нажатии кнопки НАЧАЛО надпись: ПРИМЕР меняется на: ЗДРАВСТВУЙТЕ, зеленого цвета, а при нажатии - КОНЕЦ, на – ДОСВИДАНИЯ, красного цвета.

2. На форме расположены: 1) главное меню с пунктом ФАЙЛ, имеющий в свою очередь два подпункта: ОТКРЫТЬ и СОХРАНИТЬ. 2) многострочное окно для ввода и редактирования текста в формате: ТХТ. По команде: ФАЙЛ – ОТКРЫТЬ, можно открыть текстовый файл, через диалоговое окно Windows для открытия файла, а по команде: ФАЙЛ – СОХРАНИТЬ, можно сохранить текстовый файл, пользуясь диалоговым окном для сохранения файла.

3. На форме расположены: 1) два окна для ввода и отображения строки, имеющие названия: АРГУМЕНТ и РЕЗУЛЬТАТ; 2) кнопки: КВАДРАТ, КУБ, КВАДРАТНЫЙ КОРЕНЬ и НАТУРАЛЬНЫЙ ЛОГАРИФМ. При нажатии этих кнопок вычисляется соответствующая функция от числа заданного в окошке: АРГУМЕНТ, а результат высвечивается в окошке: РЕЗУЛЬТАТ.

4. На форме расположены: 1) панель, высотой 75, с надписью: ПРИМЕР и занимающую всю верхнюю часть формы; 2) кнопка АТРИБУТЫ ШРИФТА, расположенная в нижнем правом углу панели; 3)окно редактирования текста в формате RTF, занимающую всю оставщуюся часть формы. При нажатии кнопки АТРИБУТЫ ШРИФТА открывается диалоговое Windows - окно для установки атрибутов шрифта редактируемого текста.

5. На форме расположена надпись: ПРИМЕР, размером 100, голубого цвета. При нажатии левой кнопки мыши, в расположении формы, надпись: ПРИМЕР меняется на надпись: КНОПКА МЫШИ НАЖАТА, красного цвета, а при отпускании - КНОПКА МЫШИ отпущена, зеленого цвета.

6. В нижней части формы расположена панель. На ней установлены пять кнопок с фиксацией с цифрами 1-5 и одна обычная кнопка: цвет. При нажатии каждой кнопки с цифрой на все окно выводится соответствующая цифра. А при нажатии кнопки: цвет появляется диалоговое Windows – окно выбора цвета для отображенной цифры.

7. В нижней части формы, занимая не более 1/5 от ее общей высоты, расположена группа из пяти зависимых переключателей: ЧЕРНЫЙ, КРАСНЫЙ, ЗЕЛЕНЫЙ, ГОЛУБОЙ и белый. Всю оставшую часть формы занимает панель с надписью: ПРИМЕР, у которого размер букв -100, а шрифт - New Times Roman. Зависимые переключатели могут установить соответствующий цвет для этой надписи.

8. В нижней части формы, расположена группа из трех независимых переключателей: ПОЛУЖИРНЫЙ, КУРСИВ и ПОДЧЕРКНУТЫЙ. Всю оставщую часть формы занимает окно редактирования текста в формате RTF. Независимые переключатели могут установить соответствующий стиль шрифта для этого окна редактирования.

9. На форме расположены: 1) три окна для ввода и отображения строки, имеющие названия: ЧИСЛО_1, ЧИСЛО_2 и РЕЗУЛЬТАТ; 2) кнопки с надписями операций: +, -, * и /. При нажатии этих кнопок вычисляется соответствующая операция над числами 1 и 2, а результат высвечивается в окошке: РЕЗУЛЬТАТ.

10. Вся форма занимает окно для просмотра рисунков. Для этого окна создано вспомогательное меню с одним единственным пунктом: ОТКРЫТЬ. При подаче этой команды появляется диалоговое Windows-окно для открытия файла, где можно выбрать тот или иной точечный рисунок и просмотреть его в окне для просмотра рисунков.

11. Форма имеет заголовок: площади ПЛОСКИХ ФИГУР. В левой части этой формы расположен список выбора, содержащий в себе пять пунктов: ПРЯМОУГОЛЬНИК, ПАРАЛЛЕЛОГРАММ, ТРЕУГОЛЬНИК, ТРАПЕЦИЯ и КРУГ. При выборе того или иного пункта в правой части формы активизируется одно из пяти окон многострочного редактора с определением площади выбранной фигуры.

12. В центре формы расположена надпись: ПРИМЕР, размер шрифта – 14, цвет-красный. При наведении курсора мыши на эту надпись размер шрифта становится в 4 раза больше, цвет становится зеленым, стиль – полужирным, а сама надпись меняется на ПРИВЕТ.

Часть 2. Компоненты delphi

1. Компоненты страницы standard

1.1. TFrame - рама и шаблоны компонентов

Этот компонент определяет контейнер для размещения других компонентов. В функциональном отношении компонент почти повторяет свойства формы и отличается от нее в основном лишь тем, что его можно помещать на формы или в другие рамы.

свойства