-
Постов
2 517 -
Зарегистрирован
-
Посещение
-
Победитель дней
265
Весь контент Равиль Зарипов (ZuBy)
-
посмотрите реализацию TAnonymousThread type EAnonymousThreadException = class(Exception); TAnonymousThread<T> = class(TThread) private class var CRunningThreads: TList<TThread>; private FThreadFunc: TFunc<T>; FOnErrorProc: TProc<Exception>; FOnFinishedProc: TProc<T>; FResult: T; FStartSuspended: Boolean; private procedure ThreadTerminate(Sender: TObject); protected procedure Execute; override; public constructor Create(AThreadFunc: TFunc<T>; AOnFinishedProc: TProc<T>; AOnErrorProc: TProc<Exception>; ACreateSuspended: Boolean = False; AFreeOnTerminate: Boolean = True); class constructor Create; class destructor Destroy; end; так универсальней получается procedure TBitmapHelper.LoadFromStorage(AFile, AFileDef: string); var _Thread: TAnonymousThread<TMemoryStream>; begin _Thread := TAnonymousThread<TMemoryStream>.Create( function: TMemoryStream begin Result := TMemoryStream.Create; try Result.LoadFromFile(AFile); except try Result.LoadFromFile(AFileDef); except FreeAndNil(Result); end; end; end, procedure(AResult: TMemoryStream) begin if AResult.Size > 0 then if Assigned(self) then LoadFromStream(AResult); FreeAndNil(AResult); end, procedure(AException: Exception) begin end); end; AnonThread.zip
-
то что создается, должно быть убито. вот и всё
-
хех, никак) в андроиде нет файла подкачки, а этот код если память не изменяет скидывает в дамп не использованную память
-
Использование двух стилей в приложении...
Равиль Зарипов (ZuBy) ответил HyperZen вопрос в TStyleBook
-
Использование двух стилей в приложении...
Равиль Зарипов (ZuBy) ответил HyperZen вопрос в TStyleBook
Берлин -
Использование двух стилей в приложении...
Равиль Зарипов (ZuBy) ответил HyperZen вопрос в TStyleBook
можете в одном файле .style хранить сразу два режима, достаточно указать им stylename разные а переключать стили изменяя Stylelookup компонента, и не забываем про ApplyStyleLookup NeedStylelookup -
можете проверить у себя: кидаем TListView на форму ставим anchors или align ItemApperance = ImageListItemBottomDetailRightButton запускаем и делаем ресайз формы текст пропадает с кнопки Profit? У меня это воспроизводится в голом проекте, FMX.ListView.pas не изменен
-
Думаю возможно, через spy++ посмотрите его класс (окна) и в коде выше поставьте первым параметром, а второй занильте
- 5 ответов
-
- Another Application
- Panel
-
(и ещё 1 )
C тегом:
-
Вы про Toast говорите? Поиск по форуму поможет