АкушерствоАнатомияАнестезиологияВакцинопрофилактикаВалеологияВетеринарияГигиенаЗаболеванияИммунологияКардиологияНеврологияНефрологияОнкологияОториноларингологияОфтальмологияПаразитологияПедиатрияПервая помощьПсихиатрияПульмонологияРеанимацияРевматологияСтоматологияТерапияТоксикологияТравматологияУрологияФармакологияФармацевтикаФизиотерапияФтизиатрияХирургияЭндокринологияЭпидемиология

Листинг 10.1. Стили заполнения областей

Прочитайте:
  1. Д. Заполнения палат по мере освобождения в них отдельных мест
  2. Душі в Чистилищі
  3. Коммуникативные стили.
  4. Коммуникативные стили.
  5. Листинг 10.10. Летящий самолет
  6. Листинг 10.2. Оси координат и оцифрованная сетка
  7. Листинг 10.4. Вычерчивание замкнутого контура (звезды) в точке нажатия кнопки мыши
  8. Листинг 10.6. Слайд-проектор
  9. Листинг 10.7. Использование битовых образов

unit brustyle_; interface

Uses

Windows, Messages, SysUtils, Classes,

Graphics, Controls, Forms, Dialogs, ExtCtrls;

Type

TForm1 = class (TForm)

procedure FormPaint(Sender: TObject);

Private

{ Private declarations}

Public

{ Public declarations)

end;

Var

Form1: TForm1;

Implementation

{$R *.DFM}

// перерисовка формы

procedure TForm1.FormPaint(Sender: TObject);

Const

bsName: array [1..8] of string =

('bsSolid','bsClear','bsHorizontal',

'bsVertical','bsFDiagonal','bsBDiagonal',

'bsCross','bsDiagCross');

Var

x,y: integer; // координаты левого верхнего угла прямоугольника

w,h: integer; // ширина и высота прямоугольника

bs: TBrushStyle;// стиль заполнения области

k: integer; // номер стиля заполнения

i,j: integer;

Begin

w:=40; h:=40; // размер области(прямоугольника)

у:=20;

for i:=l to 2 do

Begin

х:=10;

for j:=1 to 4 do

Begin

k:=j+(i-1)*4; // номер стиля заполнения

Case k of

1: bs = bsSolid;

2: bs = bsClear;

3: bs = bsHorizontal;

4: bs = bsVertical;

5: bs = bsFDiagonal;

6: bs = bsBDiagonal;

7: bs = bsCross;

8: bs = bsDiagCross; end;

// вывод прямоугольника

Canvas.Brush.Color:= clGreen;

// цвет закрашивания — зеленый

Canvas.Brush.Style:= bs;

// стиль закрашивания

Canvas. Rectangle (x, y, x+w, y-t-h);

// вывод названия стиля

Canvas.Brush.Style:= bsClear;

Canvas.TextOut(x, y-15, bsName[k]);

// вывод названия стиля

x:= x+w+30;

end;

у:= y+h+30;

end;

end;

End.


Дата добавления: 2015-09-18 | Просмотры: 498 | Нарушение авторских прав



1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 |



При использовании материала ссылка на сайт medlec.org обязательна! (0.004 сек.)