Индикаторы процесса выполнения программы (ProgressBar, Gauge)
Специфичные свойства Smooth =True задает сплошную линию, иначе ‑ сегментированная линия. Step ‑ шаг приращения свойства Position методом StepIt. Методы: StepBy(h), StepIt ‑ наращивание свойства Position на величины h и свойства Step соответственно. Индикатор Gauge (панель Samples) дополнительно определяет цвет и выводит процент заполнения в графической форме (п.2.3.7.6). Графика Изображение (Image)
Специфичные свойства AutoSize ‑ размер рисунка определяет размер компонента (True). Canvas ‑ описание свойств канвы растровой картинки для ее изменения. Center ‑ расположение картинки по центру компонента. IncrementalDisplay ‑ показ большого изображения при загрузке (True). Picture ‑ имя файла с изображением. Stretch ‑ изображение полностью заполняет компонент (True). Список изображений (ImageList)
Специфичные методы CreateSize(AWidth,AHeight) ‑ задает новый размер рисунка. Add(AddMasked), AddIcon ‑ добавляют в конец списка битовый образ (маска формируется автоматически) и пиктограмму соответственно. AddImages ‑ добавляет в конец списка все картинки из другого списка.
Insert(InsertMasked),InsertIcon ‑ включают образ по номеру. Replace(Replace Masked), ReplaceIcon ‑ заменяют образ по номеру. Clear/Delete ‑ удаляет все/по номеру образ из списка. Draw ‑ выводит образ по его номеру на холст.
Геометрическая фигура (Shape)
Фаска (Bevel)
Специфичные свойства Shape ‑ фигура фаски: bsBox (прямоугольник), bsFrame (рамка), bsEpace (невидимый прямоугольник), bsTop, bsBottom, bsLeftLine, bsRightLine (линия сверху, снизу, слева, справа соответственно). Style ‑ стиль оформления фаски: bsLowerd (вогнутая), bsRaised (выпуклая).
Компонент (панель System) задает прямоугольную область для рисования в случае, когда область для рисования следует ограничить или рисуемые компоненты не имеют свойство Canvas. Основное свойство ‑ Canvas (п.2.2.8.4). В обработчике события OnPaint идет рисование. Пример рисования эллипса в заставке этого пункта: Procedure TForm1.PaintBox1Paint(Sender: TObject); Var x,y: Integer; Begin With PaintBox1, Canvas Do Begin //присоединение имен объектов Brush.Color:=clGreen; Ellipse(0,0,Width,Height); Font.Name:='New Times'; Font.Size:=Height Div 4; Font.Style:=[fsItalic, fsBold]; Font.Color:=clWhite; x:=(Width‑TextWidth('Эллипс')) Div 2; y:=(Height‑TextHeight('Э')) Div 2; TextOut(x,y,'Эллипс'); End; End; Простая диаграмма (Gauge)
Kind ‑ вид диаграммы: gkHorizontalBar (горизонтальная), gkVerticalBar (вертикальная), gkPie (секторная), gkNeedle (спидометр), gkText (текст). ForeColor, BackColor ‑ цвет индикатора и фона. Progress ‑ значение параметра в процентном отношении. MinValue, MaxValue ‑ минимально и максимально допустимое значение.
ShowText ‑ вывод текста на диаграмме (True). Пример вывода минутного секундомера:
Воспользуйтесь поиском по сайту: ![]() ©2015 - 2025 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...
|