- •Cоздать текстовый редактор, позволяющий с помощью диалоговых окон сохранять и открывать текстовые файлы , а также изменять характеристики шрифта и цвет компонента Memo.
- •Типы линий
- •Дерево-каталог в соответствии в соответствии с внутренним дисковым носителем
- •Выбор размера матрицы с помощью компонента combobox. Ввода значений элементов матрицы в stringgrid. Вычисление суммы четных элементов матрицы
- •Изменение шрифта при вводе в Edit
- •8.Изменение шрифтов в многострочном редакторе
- •9.Узнать имя файла дериктории и сделать ее текущей
- •10. Скрытый файл сделать видимым. Поменять атрибут.
- •11. Сумма эл-тов ниже побочной диагонали
- •12??? При наведении мыши показывает сколько файлов содержится.
- •13..Создание класса треугольника. Нахождение площади
- •14..Строка состояния студента
- •15..Объект машина. Старт и стоп движения
- •16. Создать программу, в которой при нажатии на кнопку выводится на печать страница перечеркнутая до диагонали линиями красного цвета
- •17. Нарисовать прямоугольник красного цвета
- •18. Найти сумму элементов матрицы
- •19.Найти сумму элементов выше главной диагонали
- •20. Сумма элементов ниже главной диагонали
- •21. Сумму элементов Выше побочной
- •22. Сумму элементов Ниже побочной
- •23.Поменять атрибуты файла
- •24.Нарисовать треугольник, закрашенный зеленым цветом
- •25.Цвета и их коды( 2 лаба)
- •26.Массив с помощью Combobox( поменять местами максимальный и минимальльный элементы)
- •27.Массив- найти сумму элементов на главной матрице
- •Решить квадратное уравнение
- •29.Провести линию из точки в точку и рядом вывести стиль линии
- •30.Создать текстовый редактор он позволяет сохранить открыть и изменить характеристики шрифта
- •Описать класс транспортные средства
- •32. С заголовком Header
- •33. Вывести на StatusBar фамилия имя студента а также дата время сегодняшние-системную информацию
- •35.Cформировать массив стоимость. Результат из этого массива в файл Total.
Изменение шрифта при вводе в Edit
TForm1 = class(TForm)
Edit1: TEdit;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
RadioGroup3: TRadioGroup;
Button1: TButton;
BitBtn1: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=-1
then showmessage('Необходимо выбрать цвет шрифта!')else
case radiogroup1.ItemIndex of
0:begin edit1.Font.Color:=clRed;
end;
1:begin edit1.Font.Color:=clGreen;
end;
2:begin edit1.Font.Color:=clBlue;
end;
3:begin edit1.Font.Color:=clYellow;
end;
4:begin edit1.Font.Color:=clMaroon;
end;
end;
if radiogroup2.ItemIndex=-1
then showmessage('Необходимо выбрать начертание шрифта!')else
case radiogroup2.ItemIndex of
0:begin edit1.Font.Style:= [fsBold];
end;
1:begin edit1.Font.Style:= [fsItalic];
end;
2:begin edit1.Font.Style:= [fsUnderline];
end;
3:begin edit1.Font.Style:= [fsStrikeout];
end;
end;
if radiogroup3.ItemIndex=-1
then showmessage('Необходимо выбрать размер шрифта!')else
case radiogroup3.ItemIndex of
0:begin edit1.Font.Size:=8;
end;
1:begin edit1.Font.Size:=10;
end;
2:begin edit1.Font.Size:=12;
end;
3:begin edit1.Font.Size:=14;
end;
4:begin edit1.Font.Size:=15;
end;
5:begin edit1.Font.Size:=18;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Clear
end;
end.
8.Изменение шрифтов в многострочном редакторе
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
RadioGroup3: TRadioGroup;
Button1: TButton;
BitBtn1: TBitBtn;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=-1
then showmessage('Необходимо выбрать цвет шрифта!')else
case radiogroup1.ItemIndex of
0:begin memo1.Font.Color:=clRed;
end;
1:begin memo1.Font.Color:=clGreen;
end;
2:begin memo1.Font.Color:=clBlue;
end;
3:begin memo1.Font.Color:=clYellow;
end;
4:begin memo1.Font.Color:=clMaroon;
end;
end;
if radiogroup2.ItemIndex=-1
then showmessage('Необходимо выбрать начертание шрифта!')else
case radiogroup2.ItemIndex of
0:begin memo1.Font.Style:= [fsBold];
end;
1:begin memo1.Font.Style:= [fsItalic];
end;
2:begin memo1.Font.Style:= [fsUnderline];
end;
3:begin memo1.Font.Style:= [fsStrikeout];
end;
end;
if radiogroup3.ItemIndex=-1
then showmessage('Необходимо выбрать размер шрифта!')else
case radiogroup3.ItemIndex of
0:begin memo1.Font.Size:=8;
end;
1:begin memo1.Font.Size:=10;
end;
2:begin memo1.Font.Size:=12;
end;
3:begin memo1.Font.Size:=14;
end;
4:begin memo1.Font.Size:=15;
end;
5:begin memo1.Font.Size:=18;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear
end;
end.