Chip 2004 April/CMCD0404.ISO/Software/Demo/conceptdraw/data1.cab/Samples__Basic/SimpleDrawing/DrawFillShadow/DrawFillShadow.cdb

Text File | 2004-02-13 | 3.3 KB | 55 lines

Sub DrawFillShadow()
    Dim active_page As Page        'Ссылка на активную страницу текущего документа.
    Dim new_Shape As Shape        'Ссылка на объект-шэйп, представляющий новый Shape.
    Dim i As integer            'Счетчик цикла.
    Dim iCounter As Integer        'Счетчик количества строящихся шэйпов, счет начинается с 0.
    Dim dShapeOffsetX as Double    'Координата X верхнего левого угла шэйпа
    Dim dShapeOffsetY as Double    'Координата Y верхнего левого угла шэйпа

    iCounter = -1            'Инициализации счетчика шэйпов
    thisDoc.ShadowOffsetX = 150    'Выставляем смещение тени в этом документе
    thisDoc.ShadowOffsetY = 50

    'Получаем ссылку на активную страницу текущего документа. Используем глобальную переменную thisDoc
    'для доступа к объекту Document.
    Set active_page = thisDoc.ActivePage()

    'Очистить документ от всех находящихся в нем сейчас шэйпов.
    thisDoc.ActivePage.RemoveAllShapes()

    'Для каждого типа Pattern строим объект, использующий его в качестве
    'Pattern объекта и Pattern тени. Цикл по всему интервалу, в котором
    'содержатся допустимые индексы Pattern.
    For i = 0 To 69
        'Индексы от 39 до 49 включительно в настоящее время не используются.
        'Они будут пропущены.
        If i < 39 Or i > 49 Then
            'Счетчик количества строящихся объектов увеличивается на 1
            iCounter = iCounter +1

            'Строим прямоугольник, демонстрирующий очередной тип Pattern.
            'Вычисляем координаты так, чтобы объекты составляли таблицу.
            dShapeOffsetX = 100 + (iCounter Mod 5) * 500
            dShapeOffsetY = 100 + (iCounter  \  5) * 300
            Set new_Shape = active_page.DrawRect(dShapeOffsetX, dShapeOffsetY, dShapeOffsetX + 200, dShapeOffsetY +200)

            'Устанавливаем построенным объектам цвета заливки и Fill Pattern.
            'Индекс, равный нулю, соответствует отсутствию заливки.
            new_Shape.FillPatColor.Index = 65
            new_Shape.FillColor.Index = 224
            new_Shape.FillPattern = i

            'Устанавливаем построенным объектам цвета заливки тени и Shadow Pattern.
            'Индекс, равный нулю, соответствует отсутствию тени.
            new_Shape.ShadowPatColor.Index = 119
            new_Shape.ShadowColor.Index = 202
            new_Shape.ShadowPattern = i

            'Добавляем объекту текст, который содержит номер используемого индекса.
            'Преобразование из типа Integer в тип String происходит неявно.
            new_Shape.Text = i
        End If
    Next

End Sub