- 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"
В чем проблема? Хотя бы в какую сторону копать?
-
От Дмитрий Потапов
Задался идеей написания IPTV приложения "для себя", в котором при желании смог бы реализовать что-то необходимое и удалить то, что не нужно.
Собственно вопрос в другом: Я написал простое приложение, которое отлавливает коды кнопок с пульта, приложение по сути самое банальное, использует OnKeyDown и OnKeyUp (чисто для теста). И по нажатию на кнопку на пульте высылает например в Memo или ListBox Информацию о нажатой кнопке (включая ее код).
Но суть в том, что далеко не все кнопки таким образом распознаются. Для примера:
Кнопки громкости, назад, домой, увеличение\уменьшение громкости, стрелки(влево, вправо, вверх, вниз) и центральная кнопка (по совместительству OK).
Цифры все определяются, как одна - 0
Кнопки, которые не определяются (не срабатывает событие, ибо если был бы неизвестен код, то думаю, в таком случае получил бы все, кроме кода кнопки), но по нажатию кнопки, которая не определяется приложением - ничего не происходит вообще.
Вопрос: Есть ли возможность как-то "научить" приложение распознавать эти кнопки? (Я где-то читал, может даже и здесь, что это все так реализовано именно на уровне самого FireMonkey, будто этих кнопок вообще не существует).
Если эта тема уже поднималась на форуме или вопрос очень просто решается - извиняюсь)
Решение: http://fire-monkey.ru/topic/5624-как-отловить-кнопки-пульта-ду/?do=findComment&comment=36399
-
От Serg Sib
RAD 10.2.3 Delphi , Win 10x64 Pro 1803
Подскажите, с помощью чего можно осуществить трансформацию изображения по опорным точкам (по углам)?
Возможно, что не напрямую сам TImage, а при помощи работы с Canvas на его Bitmap.
Пока удалось добиться подобной трансформации, заполнив нужным изображением полигон и, меняя координаты его вершин, делать нужные корректировки.
var MyBrushBitmap: TBrushBitmap; Image1.Bitmap.Canvas.Fill.Kind := TBrushKind.Bitmap; Image1.Bitmap.Canvas.Fill.Bitmap := MyBrushBitmap; Image1.Bitmap.Canvas.Fill.Bitmap.WrapMode := TWrapMode.TileStretch; Image1.Bitmap.Canvas.FillPolygon(MyPolygon, 50); Однако, изображение частично обрезается при этом.
В интернете поиском находил пример подобной трансформации на VCL, (перетаскиванием вершин мышью), но не смог приспособить этот пример для платформы FireMonkey.
-
От Zyablik3000
Здравствуйте!
Есть самописный компонент - индикатор загрузки написанныый под VCL с использованием Direct2D.
TD2DProgressBar = class(TCustomControl) FRenderTarget: ID2D1RenderTarget; FD2DFactory.CreateWicBitmapRenderTarget(FWicBitmap, RenderTargetProp, FRenderTarget); FInteropTarget := FRenderTarget as ID2D1GdiInteropRenderTarget; Вся отрисовка происходит на FRenderTarget.
Затем беру
FInteropTarget.GetDC(D2D1_DC_INITIALIZE_MODE_COPY, FRenderDC); и вывожу на поверхность функцией
procedure TD2DProgressBar.UpdateWindow(sourceDC : HDC); var info : TUpdateLayeredWindowInfo; begin ZeroMemory(@info, sizeof(info)); with info do begin cbSize := sizeof(TUpdateLayeredWindowInfo); pptSrc := @FSourcePosition; pptDst := @FWindowPosition; psize := @FWndSize; pblend := @FBlend; dwFlags := ULW_ALPHA; end; info.hdcSrc := SourceDC; if not UpdateLayeredWindowIndirect(handle, @info) then begin RaiseLastOSError(); end end; Но это только под VCL.
В Firemonkey не нашел способа комбинировать градиенты и/или нарисовать арку градиентом (саму линию арки а не залить сектор) или комбинацией градиентов.
Как вывести этот FRenderTarget на канву Firemonkey-контрола?
Самая большая проблема в том, что компонент полупрозрачный, и вариант с переливом через Vcl.Graphics.TBitmap и MemoryStream не дает нужного результата.
MS:=TMemoryStream.Create; Blend.BlendOp := AC_SRC_OVER; Blend.BlendFlags := 0; Blend.AlphaFormat := AC_SRC_NO_PREMULT_ALPHA; Blend.SourceConstantAlpha:= 255; // // Уровень прозрачности Res:=Winapi.Windows.AlphaBlend(VCLBitmap.Canvas.Handle, 0, 0, VCLBitmap.Width, VCLBitmap.Height, FRenderDC, 0, 0, VCLBitmap.Width, VCLBitmap.Height, Blend); {или эта функция StretchBlt(bm.Canvas.Handle, 0, 0, VCLBitmap.Width, VCLBitmap.Height, FRenderDC, 0, 0, VCLBitmap.Width, VCLBitmap.Height, SRCCOPY); } VCLBitmap.SaveToStream(MS); FFMXBitmap.SetSize(TSize.Create(VCLBitmap.Width, VCLBitmap.Height)); FFMXBitmap.LoadFromStream(MS); FreeAndNil(MS);
В Blend пробовал разные комбинации BlendOp и AlphaFormat.
Хелп плизз!
Во вложении компонент под VCL. ( Может кому пригодится)) )
D2DProgressbar.zip
-
От PavelS
Здравствуйте! Начал изучать FireMonkey и столкнулся с тем, что TBitmap не поддерживает размер изображения больше 8132, кажется. Т.е. большие размеры рисунка он грузит, но за счёт потери качества, размер пиксела растёт, а размер рисунка по оси всё равно не превышает 8132. В то же время в простом дельфи можно грузить и работать с гораздо большими размерами, например, один из файлов имеет размер 61216 х 1486 точек. Подскажите пожалуйста, есть ли возможность работать с большими файлами в FireMоnkey и как это можно организовать? Программа создаётся для работы только в Windows.
-
От SIARHEI RAHOUSKI
Создал проект там куча компонентов. Но разворачивании формы на весь экран компоненты размер не меняют:
Прочитал про свойства align Но как только я выставлю Group box например left другим right все сбивается в кучу и поправить это не могу.
Как настроить align ?
-
От SIARHEI RAHOUSKI
Как сделать мозаику (drag/drop) ? Получается есть 2 прямоугольника (которые надо перетаскивать) и есть ещё 2 прямоугольника (которые должны принимать) и ещё есть кнопка проверки. При нажатии определяет правильно ли разместили прямоугольники.
-
-
Последние посетители 0 пользователей онлайн
Ни одного зарегистрированного пользователя не просматривает данную страницу
Добрый день. Очень нужна Ваша помощь.
Мне необходимо сделать координатную сетку в виде точек. При масштабировании панели количество точек должно изменяться .
Хочу все это сделать на канве панели. Унаследовал класс и переопределил procedure Paint; override;
Tfield = class(TPanel)
Constructor Create( parent: TFmxObject);
procedure Paint; override;
Procedure OnMyClick (Sender: TObject);
end;
В теле метода я пробовал рисовать. Экспериментировал и столкнулся с такой проблемой. Ничего не отображается. Нет никаких изменений.
Если я наследую не от Tpanel а от Timage то часть кода работает а часть работает очень криво. Очень хочу разобраться почему .
{Отображается сразу}
for a:=1 to 1000 do
begin
self.Canvas.Fill.Color:= TAlphaColors.Crimson;
self.Canvas.FillEllipse(rect(1,1,10,10),self.AbsoluteOpacity);
self.Canvas.FillEllipse(rect(round(self.Width-9),round(self.Height-9),round(self.Width), round(self.Height)),self.AbsoluteOpacity);
self.Canvas.FillEllipse(rect(round(self.Width-9),1,round(self.Width), 9),self.AbsoluteOpacity);
self.Canvas.FillEllipse(rect(1,round(self.Height-9),10, round(self.Height)),self.AbsoluteOpacity);
end;
{Отображается только после того как я проскролю Scrollbox на котором лежит панель в крайнее нижнее правое положение}
self.Canvas.Stroke.Color:= TAlphaColors.Crimson;
self.Canvas.Stroke.Thickness:=7;
Canvas.BeginScene;
self.Canvas.DrawLine(PointF(20, 20), PointF(100, 50), self.AbsoluteOpacity);
Canvas.EndScene;
Подскажите пожалуйста, почему не работает такое с панелью? Как правильно рисовать на панели?
Почему в случае с имейджем все работает так некорректно? Почему работает только после скрола?
Каким способом мне лучше сделать координатную сетку? состоящую из точек как в режиме Design?
Поделиться сообщением
Ссылка на сообщение
Поделиться на другие сайты