Отображение графики с помощью Canvas, представляющей собой область компонента, на которой можно рисовать или отображать готовые изображения. Операторы, применяемые в программе создания аналоговых часов, ее интерфейс и алгоритм решения на языке Delphi.
Аннотация к работе
Delphi - это комбинация нескольких важнейших технологий: Высокопроизводительный компилятор в машинный код Объектно-ориентированная модель компонент Визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов Масштабируемые средства для построения баз данных. ЭВМ - это машина для автоматической обработки информации. Широко применяется в военных ВУЗах страны, в частности ВАВПВО ВС РФ, для разработки программ расчёта и анализа работы военной техники и вооружения. Но поскольку многие компоненты, в частности, формы, имеют канву и канва предоставляет возможность выводить различную графическую информацию, то некоторые начальные сведения о канве все-таки целесообразно дать. Каждая точка канвы имеет координаты X и Y. Для этого в обработчик события формы OnPaint (прорисовка) можно вставить следующий код: procedure TForm1.FormPaint(Sender: TObject); var X,Y: real; // координаты функции PX,PY: longint; // координаты пикселей Begin Color := clWhite; for PX := 0 to ClientWidth do begin {X - аргумент графика, соответствующий пикселю с координатой РХ} X := PX*4*Pi/ClientWidth; Y:=Sin(X); {PY - координата пикселя, соответствующая координате Y} PY: =trunc(ClientHeight - (Y 1)*ClientHeight/2); {Устанавливается черный цвет выбранного пикселя (О яркости)} Canvas.Pixels [PX, PY] := 0; end; end; Выполните это тестовое приложение, и вы увидите результат, представленный на Рис. В событие формы OnPaint вставьте операторы Canvas.Brush.Color := clWhite; Color := clWhite; Canvas.Pen.Mode := pmNotXor; Первый из этих операторов задает белый цвет кисти Brush. В обработчик щелчка на кнопке занесите код: procedure TForm1.Button1Click(Sender: TObject); var BitMap:TBitMap; begin // Выбор пользователем графического файла If OpenPictureDialog1.Execute then Begin // Создание объекта BitMap типа TBitMap BitMap:=TBitMap.Create; // Загрузка в BitMap выбранного графического файла BitMap.LoadFromFile(OpenPictureDialog1.FileName); // Перенос изображения на канву формы Canvas.Draw(10, 10, BitMap); // Уничтожение объекта BitMap BitMap.Free; end; end; Этот код создает временный объект типа TBitMap с именем BitMap.