Таблиця – КОМПАС в DELPHI

Таблиця являє собою складений обєкт, що складається з відрізків (горизонтальних і вертикальних) і текстових рядків Побудова таблиці здійснюється в три етапи: 1) запуск побудови таблиці 2) висновок (Побудова) обєктів, з яких складається таблиця 3) завершення побудови таблиці Розглянемо їх

Запуск побудови таблиці здійснюється за допомогою методу

ksTable () інтерфейсу ksDocument2D Даний метод не має вхідних параметрів

Згідно документації метод ksTable () повертає числовий ідентифікатор таблиці Однак, як показує експеримент, даний метод, в разі успіху повертає значення 1

Після того як процес побудови таблиці запущений, ми повинні побудувати ті обєкти, з яких складатиметься наша таблиця Такими обєктами є відрізки і рядки

Побудова відрізків здійснюється за допомогою методу ksLineSeg інтерфейсу ksDocument2D Даний метод розглядався в розділі 8

Для побудови текстових рядків ми будемо використовувати метод ksText інтерфейсу ksDocument2D Даний метод розглядався в розділі 7

Після того, як всі необхідні обєкти побудовані, ми повинні

явним чином завершити побудову таблиці Для цього використовується метод ksEndObj () інтерфейсу ksDocument2D Даний метод не має вхідних параметрів, і саме він, в разі успіху, повертає ідентифікатор побудованої таблиці У разі ж помилки він повертає значення нуль

Подивимося, як це все виглядає на практиці Нижче наводиться ключовий фрагмент вихідного тексту програми, в якій демонструється побудова таблиці, що складається з двох стовпців і трьох рядків

var

kompas: KompasObject Document2D: ksDocument2D

……………………

Begin

……………………

/ / Запускаємо побудова таблиці

Document2DksTable()

/ / Будуємо відрізки зовнішнього контуру таблиці Document2DksLineSeg(100,100,100,130,1) Document2DksLineSeg(100,130,130,130,1) Document2DksLineSeg(130,130,130,100,1) Document2DksLineSeg(130,100,100,100,1)

/ / Будуємо відрізки між рядками Document2DksLineSeg(100,110,130,110,1) Document2DksLineSeg(100,120,130,120,1)

/ / Будуємо відрізок між стовпцями

Document2DksLineSeg(110,130,110,100,1)

/ / Виводимо рядки в першому стовпці

Document2DksText(101,121, 0,5,0,0,1)

Document2DksText(101,111, 0,5,0,0,2)

Document2DksText(101,101, 0,5,0,0,3)

/ / Виводимо рядка у другому стовпці Document2DksText (111,121, 0,5,0,0, один) Document2DksText (111,111, 0,5,0,0, два)

Document2DksText (111,101, 0,5,0,0, три)

/ / Завершуємо побудова таблиці

Document2DksEndObj()

kompasVisible:=true

end

На малюнку нижче показаний результат роботи цієї програми

Джерело: Норсеев Сергій, «розробка програм під КОМПАС У DELPHI»

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*