Создание формы с компонентой RichEdit.

Выполнение.

Создание формы ввода элементов ПК.

Þ Начните работу с новым приложением.

Þ Перетащите компоненту выбора из списка ComboBox. Очистите содержимое свойства Text.

Þ Создайте компоненту Label со свойством Caption “Список элементов ПК”

Þ Перетащите компоненту отображения текста Edit. Очистите содержимое свойства Text. Значение свойства Read Only (только чтение) измените на true.

Þ Создайте компоненту Label со свойством Caption “ Цена ”.

Þ Перетащите компоненту ввода и отображения целых чисел CspinEdit. Значение свойства MinValue (минимальное значение) измените на 0.

Þ Создайте компоненту Label со свойством Caption “Количество”.

Þ Перетащите компоненту таблицы символьных строк StringGrid. Значение свойств ColCount (количество столбцов) измените на 4, FixedCols (количество фиксированных столбцов) на 0, FixedRows(количество фиксированных строк) на 1, RowCount (количество строк) на 2.

Þ Создайте компоненту Label со свойством Caption “Выбранные комплектующие”.

Þ Создайте обработчик события FormActivate. В окне редактора кода введите текст:

ComboBox1->Items->LoadFromFile("naz.txt"); // Загружаются из файла

// наименования компонент ПК

StringGrid1->Cells[0][0] = "Наименование";

StringGrid1->Cells[1][0] = "Количество";

StringGrid1->Cells[2][0] = "Цена";

StringGrid1->Cells[3][0] = "Сумма";

Þ Создайте обработчик события ComboBox1Change. В окне редактора кода введите текст:

TStringList* TEMP = new TStringList;

TEMP->LoadFromFile("zena.txt"); // Загружаются из файла

// значения цен компонент ПК

AnsiString Temp;

Temp = TEMP->Strings[ComboBox1->ItemIndex];

Edit1->Text = Temp;

Þ Перетащите компоненту кнопки Button. Задайте ее свойство Caption “Выбрать”.

Þ Создайте обработчик события Button1Click. В окне редактора кода введите текст:

K++;

StringGrid1->RowCount = K+1;

 

StringGrid1->Cells[0][K] = ComboBox1->Text;

StringGrid1->Cells[1][K] = CSpinEdit1->Value;

StringGrid1->Cells[2][K] = Edit1->Text;

 

float zena = StrToFloat(StringGrid1->Cells[2][K]);

float kolvo = StrToFloat(StringGrid1->Cells[1][K]);

StringGrid1->Cells[3][K] = FloatToStr(zena*kolvo);

// Для данного программного кода необходимо вначале описать переменную К целого типа с начальным значением 0.

Þ Перетащите компоненту кнопки Button. Задайте ее свойство Caption “Готово ”.

(По нажатию этой кнопки будет создаваться новая форма с товарным чеком.)

Þ Создайте обработчик события Button1Click. В окне редактора кода введите текст:

TForm2* Form2 = new TForm2(this);

Form2->Show();

Þ Перетащите компоненту кнопки BitBtn. Задайте ее свойство Kind – bkClose, а Caption – &Выход.

 

Создание формы с компонентой RichEdit.

Þ Создайте новую форму.

Þ Перетащите компоненту многострочного окна редактирования RichEdit. Задайте ее свойство HideScrollBars на false, а ScrollBars на ssVertical.

Þ Создайте обработчик события FormActivate. В окне редактора кода введите текст:

RichEdit1->Clear();

int K = Form1->StringGrid1->RowCount;

for (int I = 1; I < K; I++)

{RichEdit1->Font->Size = 12;

RichEdit1->Font->Style = RichEdit1->Font->Style << fsBold << fsItalic;

RichEdit1->Lines->Append(Form1->StringGrid1->Cells[0][I]);

RichEdit1->Font->Size = 8;

RichEdit1->Paragraph->Numbering = nsBullet;

RichEdit1->Lines->Append("Кол-во "+Form1->StringGrid1->Cells[1][I]);

RichEdit1->Lines->Append("Цена "+Form1->StringGrid1->Cells[2][I]);

RichEdit1->Lines->Append("Сумма "+Form1->StringGrid1->Cells[3][I]);

RichEdit1->Paragraph->Numbering = nsNone;

RichEdit1->Lines->Append(" ");

}

Þ Перетащите компоненту кнопки Button. Задайте ее свойство Caption “Сохранить”.

Þ Создайте обработчик события Button1Click. В окне редактора кода введите текст:

TSaveDialog* dialog = new TSaveDialog(this);

dialog->Title = "Сохранить файл";

if(dialog->Execute())

RichEdit1->Lines->SaveToFile(dialog->FileName);

Þ Перетащите компоненту кнопки BitBtn. Задайте ее свойство Kind – bkClose, а Caption – &Закрыть.

Þ