egorea1999

Не советую вам юзать Delphi-ImageList-зоопарк, вот получше пример. abcdefg.zip

Для этих целей нужен Layout (Чтобы больно не было )

https://github.com/freeonterminate/delphi/tree/master/TWebBrowser

Как-то вы поступили очень грубо В ваших целях достаточно было воспользоваться директивами препроцессора: http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/devcommon/compdirsmemoryallocsizes_xml.html type TTh = class(TThread) protected procedure Execute; override; end; implementation procedure Do; var I: Integer; begin for I := 1 to 5000 do TTh.Create(False); end; { TTh } {$M 16384, 65535} procedure TTh.Execute; begin while True do Sleep(50); end;

Ну если все дураки, что сам не додумался? Возьми dfm файлы и регулярками пройдись по свойствам. прицепи 1 обработчик на 100 форм. Какой - это уже сказали выше. Сам обработчик - в отдельный юнит. Ну далее, думаю, понятно. P.S. По секрету скажу: в BIOS'е.

Я пенек, проблему решил: Platform был Win 10....нужно было Default ставить.

Где второе окно - VirtualBox, в котором не работают стили. Где первое окно - основа, т.е. все работает. P.S. Пробовал на VirtualBox Win XP, 7, 8 - ни на какой из них не работают стили. P.S.S.

Под спойлером я оставил скриншот, там раскрывается проблема. >Проблема будет при кешировании стиля и восстановлении стиля из хеша Исправить проблему, в принципе можно, как мне кажется, но вот кому оно нужно, разработчики сами не могут этого сделать, было бы желание... Я хотел поковырять FMX, но вот желание отпало по некоторым причинам...

var Img: TImage; begin Img := TImage.Create(nil); try Img.Bitmap.LoadFromFile(FileName); //Img.Bitmap.LoadFromStream(); Button1.StylesData['Image.MultiResBitmap'] := Img.MultiResBitmap; finally Img.Free; end; end; Не самый лучший пример, при том, что в вашем случае работать все-равно не будет, а что конкретнее: bitmap.zip

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

1. Критическая секция, мониторы, семофоры-светофоры - пробовал? - один из способов 2. Button.Enabled := False/True - самый простой способ 3. Глобальный флаг P.S. Лучше отдели логику от интерфейса

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]

Может, если пользователь как-то авторизован в гугл-плее, то ему предоставляется такая возможность, сам процесс авторизации - вопрос другой.

Вангую, что дело в Scal'е.

там все есть, разверни его

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

Да, тогда сейчас попробую переделать мой пример, чтобы было виднее.

А какой вам нужен? Уточнили бы)

tmp.zip Так?

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

Выделенного? Вам нужно редактировать стиль TListBoxItem'a, чтобы настроить его вид.

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

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]);