Урок 34. Рисование на форме

Для рисования на форме надо использовать свойство Canvas формы. Оно имеет тип TCanvas. У этого типа есть целый ряд методов, которые позволяют рисовать различные примитивы, выводить текст, показывать картинки из файла и др.

Вот пример использования:

// Запоминаем текущую кисть.

TColor oldColor = Form1->Canvas->Brush->Color;

// Меняем текущую кисть.

Form1->Canvas->Brush->Color = RGB(255, 0, 0);

// Вывод примитивов.

Form1->Canvas->Ellipse(100, 100, 150, 150);

Form1->Canvas->MoveTo(200, 100);

Form1->Canvas->LineTo(200, 200);

Form1->Canvas->LineTo(300, 100);

Form1->Canvas->LineTo(200, 100);

Form1->Canvas->Rectangle(70, 100, 90, 180);

// Возврат старой кисти и вывод текста.

Form1->Canvas->Brush->Color = oldColor;

Form1->Canvas->TextOutA(100, 160, "Picture");

// Вывод картинки из файла.

Graphics::TBitmap * gr = new Graphics::TBitmap;

gr->LoadFromFile("C:\\1.bmp");

Form1->Canvas->Draw(100, 180, gr);

Этот код можно поместить, например, в обработчике нажатия на кнопке на некоторой форме.

Результат выполнения приведенного кода будет приблизительно таким: