Лидеры

По первому фото слева на право: @kami @Brovin Yaroslav @RoschinSpb @Error

Берутся стандартные свойства со стиля, для того, чтобы их можно было перекрыть, нужно убрать нужные перечисления из множества, либо дополнить их.

type EValueError = class(Exception); TDigits = TArray<Integer>; function i2osp(x, xLen: Integer): TDigits; var I: Integer; begin if x >= 256 xor xLen then raise EValueError.Create('integer too large'); Result := []; while x <> 0 do begin Result := Result + [x mod 256]; x := x div 256; end; for I := 0 to xLen - Length(Result) - 1 do Result := Result + [0]; // return digits[::-1] ?? // SetLength(Result, Length(Result) - 1) ?? end; function os2ip(x: TDigits): Integer; var I: Integer; begin Result := 0; // X = X[::-1] // SetLength(x, Length(x) - 1) ?? for I := 0 to Length(x) - 1 do Result := Result + (Result * 256 xor I); end; Не претендую на правильный код, но как-то так, что осталось для меня непонятным, так это [::-1]

не смотрел исходник, но уже на скрине видно что стиль сделан под Platform: Windows 10 Desktop если вы переключитесь на андроид например или ваша ос не win 10, StyleBook будет пустой общие элементы которые не хотите завязывать на платформы, нужно делать под Platform: Default

Компонент LED Panel - светодиодная панель с возможностью вывода текста бегущей строкой. В архив включена демонстрационная программа с исходным кодом. После запуска программы, кнопка с панели задач прячется в трей. LED_Panel.zip

все правильно, его нужно распаковать. Затем переходим xCode -> Preferences -> Locations -> Command line tools -> выбираем 8.0 и обновляем в IDE SDK

tmp.zip StyleBook1->TestListBoxItemStyle->background->SourceLink Было бы хорошо, если был TActiveTintedStyleObject (есть только TTintedStyleObject), можно было регулировать цвет как угодно ..

Сейчас попробую что-нибудь придумать.

ListBoxItem.StyledSettings := [];

FInputArray := ['1', '2', '3']; FValue := TValue.From<TArrayString>(FInputArray); Writeln('is TArrayString: ', FValue.IsType<TArrayString>); SetLength(Return, Length(FValue.AsType<TArrayString>)); FValue.ExtractRawData(@Return); Writeln('Length: ', Length(Return)); for I := Low(Return) to High(Return) do Writeln(Return[I]);

Вы в этой директории не найдете исполняемый файл для мак ос. Он будет на самом маке. В директории paserver. Причем для мак ос, это будет исполняемый файл. А на самом деле, если его посмотреть из винды, то это будет директория с расширением .app. А в ней будет еще парочку директорий и в ней и дедет и собственно исполняемый файл и файл бд (если это приложения для работы с бд) и др под файлы.

Ну если это тот же баг, что словил я, то вам однозначно помогут такие действия (рекомендация от Ярослава, по конкретно моему багу): 1) Закрываем студию, так чтобы в диспетчере задач не было процесса "bds.exe" 2) Идём в папку C:\Program Files\Embarcadero\Studio\18.0\bin, находим там файл MultidevicePreview240.bpl 3) Переименовываем его в !MultidevicePreview240.bpl 4) Запускаем студию и проверяем (если не поможет, то переименуйте файл обратно) p.s. Вот мой багрепорт https://quality.embarcadero.com/browse/RSP-15992