- 0
-
Похожий контент
-
От Дмитрий Потапов
Приветствую. Имеется необходимость получить список всех видимых (GUI) компонентов, установленных в Delphi. Я видел где-то, что можно как-то попробовать через ToolsAPI это сделать, но ничего толкового на эту тему так и не нашел. Может есть у кого мысли по этому поводу?
Если возникнет вопрос: для чего тебе это?
Ответ: Для приложения LivePreview, которое идет вместе со студией для того, чтобы видеть то, что размещаю на форме непосредственно на устройстве.
Спасибо!
-
От ComAlex
Здравствуйте, господа программисты!
Пытаюсь протестировать Android приложение на любом эмуляторе.
Всегда одна ошибка "Unable to create process: Performing Streamed Install"
Понимаю, что ссылок много по данной теме в интернете, но ни одна не помогла.
Использую Embarsadero Delphi 10.3
При компиляции на реальный телефон всё работает
При компиляции на эмулятор даже пустого приложения выдается та же ошибка
"Unable to create process: Performing Streamed Install"
В чем проблема? Хотя бы в какую сторону копать?
-
От Евгений Корепов
Для одного своего проекта сделал, поделюсь, вдруг кому пригодится. Тестировал под Windows и Android.
Для использования просто добавьте BitmapAsyncLoader в uses, а дальше все просто:
ImageControl.Bitmap.LoadFromURLAsync('https://bipbap.ru/wp-content/uploads/2017/10/0_8eb56_842bba74_XL-640x400.jpg'); Код юнита хелпера:
unit BitmapAsyncLoader; interface uses FMX.Graphics, System.Net.HttpClient, System.Types, System.Classes; type TBitmapAsyncLoader = class helper for TBitmap procedure LoadFromUrlAsync(const AUrl : String); end; implementation var AHTTPClient : THTTPClient; procedure TBitmapAsyncLoader.LoadFromURLAsync(const AURL : String); begin try AHTTPClient.BeginGet( procedure (const ASyncResult: IAsyncResult) var AHTTPResponse : IHTTPResponse; begin if Not ASyncResult.IsCompleted then exit; try AHTTPResponse:=THTTPClient.EndAsyncHTTP(ASyncResult); except end; if Assigned(AHTTPResponse) and (AHTTPResponse.StatusCode = 200) then TThread.Synchronize(Nil, procedure begin try Self.LoadFromStream(AHTTPResponse.ContentStream); except end; end ); end, AURL ); except end; end; initialization AHTTPClient:=THTTPClient.Create; finalization if Assigned(AHTTPClient) then begin AHTTPClient.DisposeOf; end; end. Архив с тестовым проектом прилагаю.
BitmapAsyncLoader.7z
-
От Дмитрий Потапов
Задался идеей написания IPTV приложения "для себя", в котором при желании смог бы реализовать что-то необходимое и удалить то, что не нужно.
Собственно вопрос в другом: Я написал простое приложение, которое отлавливает коды кнопок с пульта, приложение по сути самое банальное, использует OnKeyDown и OnKeyUp (чисто для теста). И по нажатию на кнопку на пульте высылает например в Memo или ListBox Информацию о нажатой кнопке (включая ее код).
Но суть в том, что далеко не все кнопки таким образом распознаются. Для примера:
Кнопки громкости, назад, домой, увеличение\уменьшение громкости, стрелки(влево, вправо, вверх, вниз) и центральная кнопка (по совместительству OK).
Цифры все определяются, как одна - 0
Кнопки, которые не определяются (не срабатывает событие, ибо если был бы неизвестен код, то думаю, в таком случае получил бы все, кроме кода кнопки), но по нажатию кнопки, которая не определяется приложением - ничего не происходит вообще.
Вопрос: Есть ли возможность как-то "научить" приложение распознавать эти кнопки? (Я где-то читал, может даже и здесь, что это все так реализовано именно на уровне самого FireMonkey, будто этих кнопок вообще не существует).
Если эта тема уже поднималась на форуме или вопрос очень просто решается - извиняюсь)
Решение: http://fire-monkey.ru/topic/5624-как-отловить-кнопки-пульта-ду/?do=findComment&comment=36399
-
От Tot999
Добрый день!
Решил покопаться в своей старой спрайтовой игрушке, чтобы освежить в памяти знания и состряпать что-нибудь новое. Возникли сомнения, нормально ли сделано графическое отображение, можно ли доработать.
Все спрайты в дизайнтайме распиханы по Timagelist-ам. На старте приложения я загружаю битмапы из имэджлистов в свои обджектлисты, подгоняя под нужный размер.
MeduzasBitmpAr : array [1..numofMeduzas] of TObjectList<Tbitmap>;
Дальше рисую по таймеру в основном окне игры Tpaintbox.OnPaint:
В принципе, даже на слабеньких телефончиках, всё вроде бодро. Но может, опытные товарищи чего подскажут, а то я 3ий день в собственном соку варюсь, ничего толкового.
-
От SIARHEI RAHOUSKI
Создал проект там куча компонентов. Но разворачивании формы на весь экран компоненты размер не меняют:
Прочитал про свойства align Но как только я выставлю Group box например left другим right все сбивается в кучу и поправить это не могу.
Как настроить align ?
-
-
От SIARHEI RAHOUSKI
Как сделать мозаику (drag/drop) ? Получается есть 2 прямоугольника (которые надо перетаскивать) и есть ещё 2 прямоугольника (которые должны принимать) и ещё есть кнопка проверки. При нажатии определяет правильно ли разместили прямоугольники.
-
-
От SIARHEI RAHOUSKI
При нажатии на Label действия не происходят
procedure TForm2.Label11Click(Sender: TObject);
begin
Button1.visible:= true;
{label7.Font.Style:= [];
label8.Font.Style := [];
label9.Font.Style := [];
//label11.Font.Style := [fsbold];
label10.Font.Style := []; }
GroupBox12.Visible := false;
GroupBox13.Visible := false;
GroupBox14.Visible := false;
GroupBox15.Visible := true;
GroupBox16.Visible := false;
end;
-
-
Последние посетители 0 пользователей онлайн
Ни одного зарегистрированного пользователя не просматривает данную страницу
Здравствуйте! Начал изучать FireMonkey и столкнулся с тем, что TBitmap не поддерживает размер изображения больше 8132, кажется. Т.е. большие размеры рисунка он грузит, но за счёт потери качества, размер пиксела растёт, а размер рисунка по оси всё равно не превышает 8132. В то же время в простом дельфи можно грузить и работать с гораздо большими размерами, например, один из файлов имеет размер 61216 х 1486 точек. Подскажите пожалуйста, есть ли возможность работать с большими файлами в FireMоnkey и как это можно организовать? Программа создаётся для работы только в Windows.
Поделиться сообщением
Ссылка на сообщение
Поделиться на другие сайты