Brovin Yaroslav

Добрый день, Так же, как и в случае конвертации HBitmap -> TBitmap var tmpIcon: Vcl.Graphics.TIcon; tmpStream: TMemoryStream; begin tmpIcon := TIcon.Create; try tmpIcon.Handle := GetIcon; tmpStream := TMemoryStream.Create; try tmpIcon.SaveToStream(tmpStream); Image1.Bitmap.LoadFromStream(tmpStream); finally tmpStream.Free; end; finally tmpIcon.Free; end; end; GetIcon - функция, которая возвращает хендл иконки. в вашем случае infofile.hIcon

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

Проблема устранена. Теперь на всех устройствах открывается полноценная версия сайта.

Нужно зарегистрировать ваш класс, чтобы система знала, что он есть. initialization RegisterFmxClasses([TCustomRoundRect]); end. Регистрацию делают в секции инициализации. Для справки Стиль сохраняется в бинарном виде. Поэтому, когда идет чтение стиля из бинарного вида, то система должна знать, а экземпляр какого класса именно нужно создать при чтении. Названия класса не достаточно, так как классов с одним именем может быть несколько. Чтобы четко указать, нужно сделать регистрацию вашего класса. Этот подход так же используется и в VCL.

Какая последовательность загрузки дата модуля и форм? Что создается раньше?

Вот, посмотрите пример. 4_5.zip Пример показывает создание двух триггеров и их использование в стилях. Сделан компонент, который в зависимости от положения курсора внутри него перекрашивает панель в разные цвета. Это пример из моей книги.

В Delphi есть встроенный механизм определения утечек памяти. Для его включения, достаточно в файле проекта добавить строчку: program Project1; uses System.StartUpCopy, FMX.Forms, Unit3 in 'Unit3.pas' {Form3}; {$R *.res} begin ReportMemoryLeaksOnShutdown := True; // Включение отчета утечек памяти при закрытии приложения. Application.Initialize; Application.CreateForm(TForm3, Form3); Application.Run; end. В вашем случае объекты удаляться только на Windows и OSX. На Android и iOS - нет. Ответы почему уже были даны в следующих темах: Освобождение динамического массива. Delphi XE7 Пользоваться Free или DisposeOf? Как правильно удалять контролы в RunTime?

Хотелось бы увидеть проект с этим примером.

Достаточно установить у контрола ClipChildren = True Или для канвы установить область отсечения: Canvas.IntersectClipRect(Button1.LocalRect);

Когда вы заполняете параметры у TRESTRequest достаточно у одно из них установить ContentType в нужно значение, и компонент всегда будет использовать его. Например, если вы установите его в ctAPPLICATION_JSON, что соответствует "application/json", то компонент вернет вам в TRESTRequest.ContentType = ctAPPLICATION_JSON

Добрый день, В теме: "Возможно ли создать свои тригеры для запуска анимации?" указано, как вызывать триггер. Соответственно в вашем случае, в момент задания Detail текста в ваш кастомный итем лист бокса вы можете синицировать вызов триггера. А в стиле его обработать.

Пользователи могут редактировать название темы. Для этого нужно открыть редактирование сообщения в полном режиме:

Вам спасибо

Исправлено.

Функциональность по заданию размера получаемого изображения с камеры добавлена в TCameraComponent в XE8. За качество отвечают свойства: TCameraComponent.Quality TCameraComponent.AvailableCaptureSettings TCameraComponent.CaptureSetting TCameraComponent.CaptureSettingPriority

Ссылка на скачивание (Только для RAD Studio XE8): fgx_0.6.0.60.zip Инструкция по установке: "Инструкция по установке набора компонентов FGX" Описание Эта версия включает в себя следующий набор компонентов: TfgFlipView (UPDATED) - слайдер изображений. Поддерживает несколько способов переключения фотографий при помощи эффектов и сдвигов. При первом использовании ОБЯЗАТЕЛЬНО прочитать инструкцию "TfgFlipView - Инструкция загрузки стиля" TfgPositionAnimation - анимация свойств типа TPosistion TfgPosition3DAnimation - анимация свойств типа TPosition3D TfgBitmapLinkAnimation - анимация свойств типа TBitmapLink TfgProgressDialog (UPDATED)- Компонент для отображения диалогового окна в момент выполнения длительной фоновой операции, когда время выполнения фоновой операции можно оценить. TfgActivityDialog (UPDATED)- компонент для отображения диалогового окна в момент выполнения длительной фоновой операции, когда время выполнения операции не возможно адекватно оценить. TfgActionSheet - Аналог контекстного меню для мобильных платформ. TfgColorsPanel - Палитра цветов с возможностью выбора цвета. TfgGradientEdit - Компонент выбора градиента. TfgLinkedLabel - Метка поддерживающая открытие Web ссылки в браузере по умолчанию. TfgApplicationEvents - компонент с возможностью легко задать обработчики на основные события приложения: Отслеживание смены состояния приложения, простой, обновление и выполнение действий Actions, Изменение ориентации устройства и тд. TfgVirtualKeyboard - компонент облегчающий работу с виртуальной клавиатурой. Позволяет задать пользовательские кнопки над виртуальной клавиатурой под iOS, а так же отлавливать события по отображению и скрытию клавиатуры. Зарегистрированы все стилевые объекты на вкладке "FGX: Style objects" Исправления Исправлен номер версии пакета fgx.dpk c 210 на 220 (Спасибо за наблюдательность Thomas Krampe) TfgActionSheet: Исправлена ошибка AV на iPad, появляющася при закрытии окна действий (Спасибо за наблюдательность Thomas Krampe) TfgProgressDialog, TfgActivityDialog: Исправлена ошибка на iOS платформе, приводящая при загрузке приложения к неправильным размерам формы. (Спасибо за наблюдательность Thomas Krampe) TfgFlipView: Исправлена ошибка, при отключенном режиме слайд шоу и загруженных изображениях, при загрузке формы пролистывался один слайд. (Спасибо StrangerMX)

Добрый день, Прикрепите, пожалуйста, чистый проект на котором эта проблема воспроизводится. Спасибо

Еще есть вариант на одномерном примере. Идея ввести параметр, который будет принимать случайное значение от 0 до суммы двух отрезков. Потом проверять, Если параметр попадает в первый отрезок по длине, то добавляем начальную координату отрезка. Если во второй, то добавляем начальную координату второй части.

Автор TImageList'а вернется с отпуска после майских праздником, и я его попрошу вам ответить.

Ошибку исправил. Спасибо AnthonySoprano за наблюдательность.

Добрый день, Забыли про StyledSettings. Итого весь код по поиску SearchBox и изменении цвета текста: function FindSearchBox(const ARootControl: TControl): TSearchBox; var Child: TControl; begin Result := nil; for Child in ARootControl.Controls do if Child is TSearchBox then Exit(TSearchBox(Child)); end; procedure TForm15.Button1Click(Sender: TObject); var SearchBox: TSearchBox; begin SearchBox := FindSearchBox(ListView1); if SearchBox <> nil then begin SearchBox.TextSettings.FontColor := TAlphaColorRec.Red; SearchBox.StyledSettings := SearchBox.StyledSettings - [TStyledSetting.FontColor]; end; end;

Да, проблема устранена в XE8.

Выложена запись вебинара. Смотрите предыдущее сообщение.

В FireMonkey нету реализации того, что вы хотите. Так что единственный вариант, самостоятельно вычислять на основании DPI все размеры контролов. Вы можете сделать некий вариант менеджера, который будет изменять все размеры контролов согласно текущему DPI.

На что у вас указывает указатель?