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'е.

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