Равиль Зарипов (ZuBy)

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

procedure LoadResizeBitmapFromURL(const AURL: string; aBitmap: TBitmap; const aWidth, aHeight: integer); // uses System.Net.HTTPClient, System.Net.HTTPClientComponent var thread: TThread; begin thread := TThread.CreateAnonymousThread( procedure var Http: THTTPClient; Result: TMemoryStream; begin Result := TMemoryStream.Create; Http := THTTPClient.Create; try try Http.Get(AURL, Result); TThread.Synchronize(TThread.CurrentThread, procedure var aSourceBmp, aResizeBmp: TBitmap; aSrcRect, aDestRect: TRectF; begin aSourceBmp := TBitmap.Create; aSourceBmp.LoadFromStream(Result); if not aSourceBmp.IsEmpty then begin aResizeBmp := TBitmap.Create(aWidth, aHeight - 2); aResizeBmp.Canvas.BeginScene; if aSourceBmp.Width > aWidth then aSourceBmp.Resize(aWidth, round(aSourceBmp.Height * aWidth / aSourceBmp.Width)); aSrcRect := RectF(0, round((aSourceBmp.Height - aHeight - 2) / 2), aWidth, round((aSourceBmp.Height - aHeight - 2) / 2) aHeight - 2); aDestRect := RectF(0, 0, aWidth, aHeight - 2); aResizeBmp.Clear(0); aResizeBmp.Canvas.DrawBitmap(aSourceBmp, aSrcRect, aDestRect, 1, false); aResizeBmp.Canvas.EndScene; aBitmap.Clear(0); aBitmap.SetSize(aWidth, aHeight - 2); aBitmap.CopyFromBitmap(aResizeBmp); FreeAndNil(aResizeBmp) end; FreeAndNil(aSourceBmp); end); except FreeAndNil(Result); end; finally FreeAndNil(Result); FreeAndNil(Http); end; end); thread.FreeOnTerminate := true; thread.start; end; я использую вот такой код, сразу с ресайзом под нужный размер использовать так, НЕ В ПОТОКЕ LoadResizeBitmapFromURL('image-url', Image1.Bitmap, 120, 120);

ShowShareSheetAction1.TextMessage := 'Текст'; ShowShareSheetAction1.ExecuteTarget(<тут контрол>);

// uses zLib; var aCompress: TBytes; begin aCompress := ZCompressStr('Привет FMX Developer :)', TZCompressionLevel.zcMax); ShowMessage(ZDecompressStr(aCompress)); end;

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

нет, я просто так привык

я придумал только так, может есть и лучше способ FindInLB.rar

на скорую руку SubMenu.zip

вот так примерно это делается FindInLB.zip

вы забываете про StyledSettings ListBoxGroupHeader.StyledSettings := ListBoxGroupHeader.StyledSettings - [TStyledSetting.Size, TStyledSetting.FontColor];

<TListBox>.ItemByIndex(i).ItemData.Detail

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

циклом пройтись по всем элементам и проверить на соответствие, найденные в другой LB

установка всегда делается под 32 bit Windows... не нужно android и прочее выбирать

HTTP 2.0 работает в "бинарном виде", но кажется у нас еще нет такой поддержки

наверное использовать стиль, точней нарисовать

да, под свои проекты писал

да, только доработанный TListView

в малых дозах можно, плюс забываем про привязки. вперед и с песней)

ну тут я бессилен) из-за анимации не хочу чтобы тормоза были

вот пару скринов проектов, по мне так не скучные

выход можно сделать такой 1) оригинал всегда лежит в GetDocumentsPath. 2) если его нужно открыть в сторонней программе, копируем в Download и передаем этот путь сторонней программе

вот в статье и говорится если вы будете метаться от одной сотовой вышки к другой/переключать вайфай и т.д., вас ждёт сюрприз. ни DevArt ни FireDac вам не поможет. Самый правильный и стойкий вариант это трехзвенка, не тратьте время зря