Вопросы по исходному коду

[zed]

там же функция GetChangeNotifier()

Нет, там свойство:

Код: Выделить всё

IChangeable = interface
    ['{7F6DCE71-7EBD-40A0-A3BF-C603A3AEE8BA}']
    ...    
    property ChangeNotifier: INotifier ...

[Alex54]

У вас там ахинея какая-то написана:

Код: Выделить всё

TCustomGPSTrack = class(TChangeableWithSimpleLockBase, IChangeable)

но TChangeableWithSimpleLockBase итак уже наследует интерфейс IChangeable через TChangeableBase.

Спасибо, убрал тавтологию, Вы правы.

Нет, там свойство

Недоступно, только функцию напрямую видит, ее и вызвал, все работает прекрасно.

[Alex54]

Подскажите еще по настройкам - это настройка параметров трека

Код: Выделить всё

ITrackColorerConfig = interface(IConfigDataElement)
    ['{46E030C7-F9E1-45F5-914E-20B240238261}']
    function GetStatic: ITrackColorerStatic;

    function GetSpeedRangeCount: Integer;

    function GetSpeedRangeItem(AIndex: Integer): ISpeedRangeItem;
    function AddSpeedRangeItem(
      const ASpeed: Double;
      AMinColor, AMaxColor: TColor32
    ): Integer;
    procedure ClearItems;
  end;

Что означают минимальный и максимальный цвета для заданной скорости в AddSpeedRangeItem() ? Когда бегло смотрел, показалось, что для диапазона скоростей 1 цвет, а тут как понимать ?
P. S. Кстати, ГУЙ не сделан для этой настройки ? Что-то не могу найти в интерфейсе программы

[zed]

Недоступно, только функцию напрямую видит

Может вы переменную объявили не как интерфейс, а как класс?

[Alex54]

Недоступно, только функцию напрямую видит

Может вы переменную объявили не как интерфейс, а как класс?

Переделал через интерфейс, все верно говорите )

Подскажите еще по настройкам -

Это настройка параметров трека

Код: Выделить всё

ITrackColorerConfig = interface(IConfigDataElement)
    ['{46E030C7-F9E1-45F5-914E-20B240238261}']
    function GetStatic: ITrackColorerStatic;

    function GetSpeedRangeCount: Integer;

    function GetSpeedRangeItem(AIndex: Integer): ISpeedRangeItem;
    function AddSpeedRangeItem(
      const ASpeed: Double;
      AMinColor, AMaxColor: TColor32
    ): Integer;
    procedure ClearItems;
  end;

Что означают минимальный и максимальный цвета для заданной скорости в AddSpeedRangeItem() ? Когда бегло смотрел, показалось, что для диапазона скоростей 1 цвет, а тут как понимать ?
P. S. Кстати, ГУЙ не сделан для этой настройки ? Что-то не могу найти в интерфейсе программы

[zed]

А штоб я знал

[vdemidov]

Что означают минимальный и максимальный цвета для заданной скорости в AddSpeedRangeItem() ?

Минимальный цвет соответствует минимальной скорости диапазона, максимальный цвет - максимальной скорости. Цвета для промежуточных скоростей будут вычисляться покомпонентной линейной комбинацией этих двух цветов.

[DJ VK]

Минимальный цвет соответствует минимальной скорости диапазона, максимальный цвет - максимальной скорости. Цвета для промежуточных скоростей будут вычисляться покомпонентной линейной комбинацией этих двух цветов.

p/s/ На всякий случай. Если разрешения не хватает (масштаб ближе к логарифмическому), можно использовать аналог градиентной карты заполнения - там сделано от красного к зеленому через синий. Использование трех каналов цвета с двумя экспоненциальными кривыми позволяет значительно расширить динамический диапазон.

[vdemidov]

Минимальный цвет соответствует минимальной скорости диапазона, максимальный цвет - максимальной скорости. Цвета для промежуточных скоростей будут вычисляться покомпонентной линейной комбинацией этих двух цветов.

p/s/ На всякий случай. Если разрешения не хватает (масштаб ближе к логарифмическому), можно использовать аналог градиентной карты заполнения - там сделано от красного к зеленому через синий. Использование трех каналов цвета с двумя экспоненциальными кривыми позволяет значительно расширить динамический диапазон.

Это ты к чему?

[vasketsov]

TFileNameIteratorInFolderByMask.Next

if FValidFindData then begin
repeat
if IsNeedProcess(FFindFileData) then begin
AFileName := FFolderNameFromRoot + FFindFileData.cFileName;
Result := True;
FValidFindData := Windows.FindNextFileW(FFindHandle, FFindFileData);
Break;
end;
until not FValidFindData;

Если IsNeedProcess возвращает false - FValidFindData вообще не меняется.
Получается бесконечный цикл.
ps. Налетел на это при попытке добавить дополнительное условие фильтрации файлов по размеру.