| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
ShreK
Зарегистрирован: 27.01.2010
Сообщения: 3
|
 Добавлено: Ср 27 Янв 2010 12:56 Заголовок сообщения: Программное сождание стилей и задание параметров В DELPHI |
 |
|
| Подскажите пожалуйста, как создать программно стиль и присвоить ему параметры ? |
|
| Вернуться к началу |
|
 |
APopov
Зарегистрирован: 19.06.2006
Сообщения: 347
Откуда: Самара
|
| Добавлено: Ср 27 Янв 2010 13:57 Заголовок сообщения: |
|
|
"c:\Program Files\Integro\InGeo\IngeoIntfs.chm" - все что нужно прогаммисту чтобы использовать ингео api
на ваш вопрос:
| Код: | //добавляем стиль точечный объект, отображение символьное, символом из фонта Wingdings
with aLayer.Styles.Add do begin
Name := StyleName;
Flags := instDefineGeometry+instPaintOrderAfterAll;
//точечный объект
//CreationStart := instStartWithMove;//by deafault
//CreationClosing := instCloseNone;//by deafault
MinPoints:=1;
MaxPoints:=1;
Update;
with Painters.Add(inptSymbol) as IIngeoSymbolPainter do begin
PaintMethod := inppmSingle;
PictureZoomScale := 0;
with Picture do begin
X1 := -0.004; Y1 := -0.004;
X2 := 0.004; Y2 := 0.004;
iFig := Figures.Add(InScripting_TLB.inftText);
end;
end;
with iFig do begin
Left:=-0.0025;Bottom:=-0.003;
Width:=0.006;Height:=0.006;
Visible:=true;
end;
with iFig as IInPictureTextFigure do begin
Pen.Style := inpsClear;
Brush.Style := inbsClear;
Font.Name :='Wingdings';
Font.Color := $000F0F9F;
Font.Size := 16;
Font.ForZoomScale := 1;
Font.CharSet := 1;
Text := Char($AD);
end;
Update;//save changes
end;
|
|
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
