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

procedure ClearLV(const aLV: TListView); begin while aLV.Items.Count > 0 do aLV.Items.Delete(0); end; вызывать так ClearLV(ListView1);

такое давно есть, поэтому в modernLV есть правильный способ удаления procedure TAppearanceListView.ItemsClearTrue; // ZuBy begin while Items.Count > 0 do Items.Delete(0); end;

может это поможет

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

если я правильно понял, вы используете написание текста справа-налево TFillTextFlag.RightToLeft - этот параметр не нужно указывать, в делфи там ставится []

каков вопрос - таков ответ. Раскрывайте вопрос полностью, с описанием версии студии, использованных компонентов UPDATE: RESTRequest1.AddAuthParameter('name','value',TRESTRequestParameterKind.pkCOOKIE); UPDATE2: можно использовать альтернативный вариант, куда можно передать куки (как из примера выше)

ListView1.Items[0].Text := 'Сменим текст для Itema под индексом 0'; В ListView нельзя скрывать отдельные Item'ы

вот так можно активировать фронтальную камеру VideoRecorder_front.zip

Посмотрите тему про пуши, там выкладывали подобное UPDATE: @master webs выкладывал

увы не пользуюсь вайбером, не могу проестировать...

нет, не правильно ShowShareSheetAction1->Bitmap->SetSize(Image1->Bitmap->Width, Image1->Bitmap->Height); ShowShareSheetAction1->Bitmap->CopyFromBitmap(Image1->Bitmap);

ShowShareSheetAction1->Bitmap->Assign(Image1->Bitmap);

тоже самое попробуйте через CopyFromBitmap

да правильно, вот так короче Image1->Bitmap->SetSize(aBitmap->Width, aBitmap->Height); зачем использовать разные методы для IOS/Android?

такое поведение когда используется Assign, поэтому везде нужно заменить на CopyFromBitmap (не забываем что там используется копирование один-в-один, т.е. размеры должны быть одинаковы у обоих Bitmap'ов)

Попробуйте выставить MaxHeight, MaxWidth больше в экшене

да поведение подтвердилось, от параметра NeedSaveToAlbum никак не зависит

речь идет о иконке в трее или кнопка на панели задач?

1) чат не создавался как решение проблемных вопросов, мы всегда отправляем на форум, если тема достойна огласки 2) чат создан чтобы объединить разработчиков FMX, т.к. неформальное общение на форуме не поощряется 3) в чате решаются проблемы одной строкой 4) рассуждения что такое "хорошо", что такое "плохо" 5) с помощью чата решено не мало вопросов (от себя, спасибо активным участникам чата в тестировании) мы никому насильно не навязываем, кому интересно такая атмосфера они уже с нами

объявили переменную? Service: IFMXPhotoLibrary

Почистил тему, т.к. был оффтоп Напоминаю: Присоединяйтесь к нашему ламповому чату в телеграм, обсуждаем много всего интересного.

покажите скрин Tools-Options-SDK Manager

все правильно. сохраняется оригинальный файл, который приходит параметром Image, а наложение уже идет после. можете поставить NeedSaveToAlbum=false и сами сохранить картинку в галерее P.S. только как сохранять в IOS я незнаю. нужно смотреть исходники

версия студии? xcode? SDK?

procedure TForm5.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap); var aBitmap: TBitmap; aRectF: TRectF; begin aBitmap := TBitmap.Create; aBitmap.SetSize(Image.Width, Image.Height); aBitmap.CopyFromBitmap(Image); aBitmap.Canvas.BeginScene; aRectF := RectF(aBitmap.Width - Image2.Bitmap.Width, aBitmap.Height - Image2.Bitmap.Height, aBitmap.Width, aBitmap.Height); aBitmap.Canvas.DrawBitmap(Image2.Bitmap, Image2.Bitmap.BoundsF, aRectF, 1, true); aBitmap.Canvas.EndScene; Image1.Bitmap.Assign(aBitmap); aBitmap.Free; end; Kitty void __fastcall TFormCamera::TakePhotoFromCameraAction1DidFinishTaking(TBitmap *Image) { //умный указатель чтобы не использовать delete std::unique_ptr<TBitmap> aBitmap(new TBitmap()); TRectF aRectF; aBitmap->SetSize(Image->Width, Image->Height); aBitmap->CopyFromBitmap(Image); aBitmap->Canvas->BeginScene(); aRectF = RectF(aBitmap->Width - Form1->Image1->Bitmap->Width, aBitmap->Height - Form1->Image1->Bitmap->Height, aBitmap->Width, aBitmap->Height); aBitmap->Canvas->DrawBitmap(Form1->Image1->Bitmap, Form1->Image1->Bitmap->BoundsF, aRectF, 1, true); aBitmap->Canvas->EndScene(); Image1->Bitmap->Assign(aBitmap.get()); //сохранить в галерею _di_IFMXPhotoLibrary Service; if (TPlatformServices::Current->SupportsPlatformService(__uuidof(IFMXPhotoLibrary), &Service)) { Service->AddImageToSavedPhotosAlbum(Image1->Bitmap); } } Image1 - TImage с конечным результатом Image2 - с логотипом