На главную... Продукты | Технологии | Классификаторы | Проекты | Скачать | Цены| Форум | Статьи | Обучение | Контакты

TMapObject

Поиск  Пользователи  Правила  Войти
Форум » Настольные приложения » GIS ToolKit, GIS ToolKit Active, ГИС Конструктор для Windows
Страницы: 1
RSS
TMapObject, выделение объекта
 
#1
18.06.2015 09:49:56
Здравствуйте господа разработчики !
----------
Ситуация:
Компонента TMapObject обладает свойством выделение текущего объекта посредством установки свойств Style StyleSelect
Вопрос :
Как установить толщину выделения (контура)
Не тот глуп кто не знает, а тот, кто не знает где искать.
 
 
 
#2
19.06.2015 18:40:10
Для пользовательской настройки служат ряд параметров в TMApObj, пример ниже (ObjectFind это TMapObj).
var
aImgLine   : TIMGLINE;

procedure TfrmFind.Button4Click(Sender: TObject);
begin
 ObjectFind.StyleSelect := SEL_USERFUNC;
 ObjectFind.Mode := R2_COPYPEN;
 ObjectFind.IMage := IMG_LINE;
 ObjectFind.Parm := @aImgline;
 aImgline.Color := clRed;
 aImgline.Thick := MKMINPIX * 2;

end;
 
 
 
#3
20.06.2015 11:16:47
Спасибо за ответ !
Простыми словами свойство Parm служит для установки нужного вида при выделении.
Не тот глуп кто не знает, а тот, кто не знает где искать.
 
 
 
#4
22.06.2015 17:46:43
Здравствуйте !
Проверил Ваше предположение - выделение не получается.
Прошёлся по коду компоненты а там следующее




а далее
{$IFNDEF LINUXAPI}
    mapViewMapObject(mv.MapHandle, mv.Handle, dp, aImage, FObj, cPP_PICTURE);
{$ENDIF}

{$IFDEF LINUXAPI}
    mapViewMapObject(mv.MapHandle, HDC(mv.FpDC), dp, aImage, FObj, cPP_PICTURE);
{$ENDIF}
Не тот глуп кто не знает, а тот, кто не знает где искать.
 
 
 
#5
22.06.2015 18:21:58
Код взят из работающего примера. По кнопке Button4 осуществляется настройка выделения объекта.

var
aImgLine : TIMGLINE;

procedure TfrmFind.Button4Click(Sender: TObject);
begin
ObjectFind.StyleSelect := SEL_USERFUNC;
ObjectFind.Mode := R2_COPYPEN;
ObjectFind.IMage := IMG_LINE;
ObjectFind.Parm := @aImgline;
aImgline.Color := clRed;
aImgline.Thick := MKMINPIX * 2; // количество пикселов - толщина
 
 
 
#6
23.06.2015 13:48:47
Цитата
Andrey Gheleznyakov пишет:
ObjectFind.StyleSelect := SEL_USERFUNC;
а нужно
Цитата
ObjectFind.StyleSelect := SEL_BLINK2;
Не тот глуп кто не знает, а тот, кто не знает где искать.
 
 
 
#7
23.06.2015 14:19:35
Такой вариант (управление толщиной изображения) при моргании реализуем в следующих версиях (потребуется дополнительный параметр), а пока можете изменить текст исходного кода компонента:
aImgline.Thick := MKMINPIX * 2; // количество пикселов - толщина
 
 
 
#8
23.06.2015 23:40:38
Цитата
Andrey Gheleznyakov пишет:
а пока можете изменить текст исходного кода
Тексты я менять не стану потому что всё будет мигать жирным (и там где не надо)
Сделал проще - дописал обработчик на таймере , работает =)

п.с вопрос задал потому что, думал что, можно без обработчика
Не тот глуп кто не знает, а тот, кто не знает где искать.
 
 
 
Страницы: 1
Читают тему (гостей: 1)



© КБ Панорама, 1991-2024

Регистрируясь или авторизуясь на форуме, Вы соглашаетесь с Политикой конфиденциальности