РАБОТА 4. Создание и обработка табличных данных. Использование кнопок с фиксацией и с изображением

Begin

Begin

if CheckBox1.Checked then panel2.Font.Style:=[fsbold] else panel2.Font.Style:=[];

end;

Упражнение 2.1. Напишитеобработчики для переключателей «курсив», «подчеркнутый», «зачеркнутый».

Для выбора шрифта (см. рис.) используются группа из трех зависимых переключателей. Обработчик имеет вид:

procedure TForm1.RadioGroup2Click(Sender: TObject);

if RadioGroup2.ItemIndex=0 then panel2.Font.Name:='Arial';

if RadioGroup2.ItemIndex=1 then panel2.Font.Name:='Times New Roman';

if RadioGroup2.ItemIndex=2 then panel2.Font.Name:='Symbol';

end;

Упражнение 2.2. Напишитеаналогичныйобработчик для переключателей цвета.

Для установки размера шрифта используется кнопка «ОК», которая считывает размер из окна Edit. Напишите обработчик OnClick для кнопки, следующего содержания:

panel2.Font.Size:=StrToInt(Edit1.Text);

Упражнение 2.3. Установитесвойства Align и Alignment для всех компонентов формы этого примера в соответствии с приведенным рисунком.

Упражнение 2.4. Установите на панель с надписью «Атрибуты шрифта» компонент Edit и повторите решение этого примера.

Упражнение 2.5. Установите на панель с надписью «Атрибуты шрифта» компонент RichEdit и повторите решение этого примера. Объясните разницу в результатах упражнений 4 и 5.

Для создания и обработки табличных данных используются компоненты: StringGrid и DrawGrid из страницы: Addinional, палитры компонентов. Тут же расположены кнопки: с фиксацией – SpeedButton и с изображением - BitBtn. Для размещения кнопок в качестве инструментальной панели, используется компонент ToolBar из страницы: Win32 палитры компонентов, а несколько инструментальных панелей удобней располагать в компоненте-контейнере: ControlBar из страницы: Addinional, палитры компонентов. В нижней части окна некоторых программ можно встретить информационную панель устанавливаемую с помощью компонента: StatusBar из страницы: Win32, палитры компонентов. Компонент SpinEdit расположен на странице: Samples

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

RichEdit1

Напишите следующий обработчик события: OnKeyPress для RichEdit:

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);

Дата добавления: 2014-12-27