| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
unm
Зарегистрирован: 09.11.2008
Сообщения: 27
|
 Добавлено: Ср 01 Апр 2009 19:58 Заголовок сообщения: Создание стиля. |
 |
|
Вопрос к разработчикам.
я создаю стиль и в нем находиться стандартный метод отображения и рисунок:
| Код: |
sty := lay.Styles.AddWithID(app.ActiveDb.GenerateID);
sty.Name := lay_name;
sty.Flags := instDefineGeometry;
sty.Update;
//фон и основная закраска
paynt_std := sty.Painters.Add(inptStd) as IIngeoStdPainter;
paynt_std.Brush.Style := 1;
paynt_std.Pen.Color := color_type.Color;
sty.Update;
//кружочки
paynt_sym := sty.Painters.Add(inptSymbol) as IIngeoSymbolPainter;
paynt_sym.PaintMethod := inppmSingle;
paynt_sym.Picture.Figures.Add(2);
paynt_sym.Picture.Figures.Item[0].Left := -1 * strtoint(radius.Text) / 1000;
paynt_sym.Picture.Figures.Item[0].Bottom := -1 * strtoint(radius.Text) / 1000;
paynt_sym.Picture.Figures.Item[0].Height := 2 * strtoint(radius.Text) / 1000;
paynt_sym.Picture.Figures.Item[0].Width := 2 * strtoint(radius.Text) / 1000;
|
как мне изменить цвет контура фигуры(в моем примере кружка). Так как в ингео, я могу его руками поменять.
В справке описано что можно, через метод pen конкретно моей фигуры, но как это сделать??? |
|
| Вернуться к началу |
|
 |
RuslanG
Зарегистрирован: 10.07.2005
Сообщения: 171
Откуда: ИНТЕГРО
|
| Добавлено: Чт 02 Апр 2009 11:50 Заголовок сообщения: |
|
|
Попробуйте следующим образом:
| Код: | var
anEllipseFigure: IInPictureEllipseFigure;
begin
//...
paynt_sym := sty.Painters.Add(inptSymbol) as IIngeoSymbolPainter;
paynt_sym.PaintMethod := inppmSingle;
anEllipseFigure := paynt_sym.Picture.Figures.Add(inftEllipse) as IInPictureEllipseFigure;
anEllipseFigure.Pen.Color := clRed;
//...
|
_________________
С уважением, Руслан Гадеев
Видео уроки ИнГео
Документация ИнГео
Обновления ИнГео
Интегропедия |
|
| Вернуться к началу |
|
|
unm
Зарегистрирован: 09.11.2008
Сообщения: 27
|
|
| Вернуться к началу |
|
|
RuslanG
Зарегистрирован: 10.07.2005
Сообщения: 171
Откуда: ИНТЕГРО
|
|
| Вернуться к началу |
|
|
unm
Зарегистрирован: 09.11.2008
Сообщения: 27
|
| Добавлено: Чт 02 Апр 2009 12:08 Заголовок сообщения: |
|
|
Спасибо огромное, готов даже расцеловать)), или пиво поставить  |
|
| Вернуться к началу |
|
|
RuslanG
Зарегистрирован: 10.07.2005
Сообщения: 171
Откуда: ИНТЕГРО
|
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
