Anatoliy

haword, Вам надо присвоить 100 плюсов и сделать модератором! Все работает и в Windows и в Android! СПАСИБО!!!! //фрагмент цикла TBitmap * PictureFood = new TBitmap(); if(FileExists(path)) { PictureFood->LoadFromFile(path); TListItemImage * img = dynamic_cast<TListItemImage *>(item->Objects->FindDrawable(L"MyImage")); img->Bitmap = PictureFood; img->OwnsBitmap = true; if(dynamic_cast<TListItemImage *>(item->Objects->FindDrawable(L"MyImage"))->Bitmap == NULL) { ShowMessage(L"Problem!"); } } else { //image по умолчанию. Это логотип в случае если нет файла. dynamic_cast<TListItemImage *>(item->Objects->FindDrawable(L"MyImage"))->Bitmap = ImageRAD->Bitmap; }

В итеме есть картинка. Научите как правильно получить доступ? TValue value = ListView1->StylesData[L"что тут написать чтобы получить доступ к MyImage?"]; if (!value.IsEmpty) { //***

Если на форму поставить Image1 сделать его невидимым и грузить сначала в него, а потом в ListView, то картинку на андроиде вижу, но почему-то во всех строках последняя картинка. Где ошибка? //TForm1::FormShow //name картинки Image1->ImageRAD //фрагмент цикла TListViewItem * item = ListView1->Items->Add(); //*** if(FileExists(path)) { PictureFood->LoadFromFile(path); ImageRAD->Bitmap = NULL; ImageRAD->Bitmap = PictureFood; reinterpret_cast<TListItemImage *>(item->Objects->FindDrawable(L"MyImage"))->Bitmap = ImageRAD->Bitmap; } else { ShowMessage(L"No file"); }

Спасибо. Попробовал. Все нормально не вижу ShowMessage(L"No file"); Однако картинок нет. //фрагмент цикла TBitmap * PictureFood = new TBitmap(); #ifdef __ANDROID__ String path = System::Ioutils::TPath::Combine(System::Ioutils::TPath::GetSharedDownloadsPath(), image); #elif _Windows String path = System::Ioutils::TPath::Combine(GetCurrentDir(), image); #endif if(FileExists(path)) { PictureFood->LoadFromFile(path); reinterpret_cast<TListItemImage *>(item->Objects->FindDrawable(L"MyImage"))->Bitmap = PictureFood; } else { ShowMessage(L"No file"); }

//фрагмент цикла TBitmap * PictureFood = new TBitmap(); #ifdef __ANDROID__ String path = System::Ioutils::TPath::Combine(System::Ioutils::TPath::GetSharedDownloadsPath(), image); #elif _Windows String path = System::Ioutils::TPath::Combine(GetCurrentDir(), image); //image = 1.jpg #endif PictureFood->LoadFromFile(path); //MyImage имя объекта в ListView reinterpret_cast<TListItemImage *>(item->Objects->FindDrawable(L"MyImage"))->Bitmap = PictureFood; Как правильно загрузить из внешнего файла картинку в ListView (DynamicAppearance)? Код выше показывает загруженные картинки в Windows, все нормально. А вот в андроиде вместо картинки пустота...

Т.е. если не продлить подписку, все ранее опубликованные приложения станут недоступны в магазине?

krapotkin, прошу прощения не понятно... Вот есть листбокс на картинке. У чекбокса имя Check. После нажатия кнопки "Сделать заказ" просто иду в цикле и анализирую если Check Visible=true записываю в список... Check устанавливается кликом по листбоксу: void __fastcall TForm1::ListView1ItemClick(TObject * const Sender, TListViewItem * const AItem) { if(AItem->Index == -1) { return; } TListItemAccessory * check = reinterpret_cast<TListItemAccessory *>(AItem->Objects->FindDrawable(L"Check")); if(check) { if(check->Visible == true) { check->Visible = false; } else { check->Visible = true; } } } А как Вы бы сделали? Спасибо.

Здравствуйте. Подскажите, пожалуйста, как правильно получить список элементов итемов (DynamicAppearance) ListView у которых AccessoryType=Checkmark=true? Только перебор в цикле? Спасибо.

Здравствуйте. Научите как сделать чтобы после окончания подписки приложение оставалось доступным в apple store? Или у apple это не возможно? Приложение было бесплатно в apple store. Годовая подписка кончалась и приложение перешло в режим - "ожидание оплаты". Так и должно быть или мы натупили сами? Спасибо. P.S. Apple вообще интересная корпорация... Из нашего опыта: Apple постоянно отвергало одно из наших приложений (то, функционала мало, то кнопки не те..., все это длилось неделями). Ну мы и забили на это приложение. А как только подписка кончилась, apple сообщило, что наше новое приложение одобрено и перешло в статус - "ожидание оплаты". Многоцветный Тим Кук одним словом...

Не знаю насколько это правильно ибо выглядит весьма криво. Похоже что работает, но есть ли лучше варианты на паскале? //переменная для отсечения лишних срабатываний события ListView1ItemClickEx bool flag = true; void __fastcall TForm1::ListView1ItemClickEx(TObject * const Sender, int ItemIndex, const TPointF &LocalClickPos, TListItemDrawable * const ItemObject) { if(ItemObject == NULL) { return; } if(flag == true) { //нажата картинка с плюсом if(ItemObject->Name == L"add" && ItemObject->InheritsFrom(__classid(TListItemImage))) { flag = false; TListViewItem * item = ListView1->Items->operator [](ItemIndex); UnicodeString splus = item->Data[L"TextCount"].AsString(); int plus = StrToInt(splus) + 1; item->Data[L"TextCount"] = TValue::From<UnicodeString>(IntToStr(plus)); } //нажата картинка с минусом if(ItemObject->Name == L"min" && ItemObject->InheritsFrom(__classid(TListItemImage))) { flag = false; TListViewItem * item = ListView1->Items->operator [](ItemIndex); UnicodeString smin = item->Data[L"TextCount"].AsString(); if(smin == "1") { return; } int min = StrToInt(smin) - 1; item->Data[L"TextCount"] = TValue::From<UnicodeString>(IntToStr(min)); } }//flag } //--------------------------------------------------------------------------- void __fastcall TForm1::ListView1ItemClick(TObject * const Sender, TListViewItem * const AItem) { flag = true; } //---------------------------------------------------------------------------

Вот как это выглядит в дисигн и ран тайм. Есть ли пример реализации на паскале? Спасибо.

Cпасибо! Работает. reinterpret_cast<TListItemImage *>(item->Objects->FindDrawable(L"MyImage"))->Bitmap = Image1->Bitmap; Кнопки TGlyphButtonObjectAppearancе заменил на TImageObjectAppearancе. Так работает с ImageList. P.S. Я что-то не могу понять объект TGlyphButtonObjectAppearancе. Вот добавил его в итем, поставил ему, к примеру, в инспекторе объектов ButtonTipe=delete. При запуске объекта не видно в итеме. Как работать с TGlyphButtonObjectAppearancе? Как его увидеть в итеме?

Большое спасибо! Подскажите, пожалуйста, как исправить ситуацию если ItemAppearance установить в DynamicAppearance. В этом случае проблема возвращается. Спасибо.

Здравствуйте. Беру стандартный пример паскаль embarcadero: C:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Object Pascal\Multi-Device Samples\User Interface\ListView\ListViewCheckList или отсюда: ListViewCheckList 1. Открываю и переключаю Target на Win32. 2. У компонента PrototypeBindSource1 ставлю AutoActivate в false чтобы отключить тестовые данные. Хочу наполнить ListView своими данными. 3. Наполняю данные для ListView этим паскаль кодом: Adding headers to TListView programmatically При старте приложение валиться. Не могу понять почему при использовании своих данных выскакивает AV. Подскажите, что надо поправить? Спасибо.

У меня есть элемент TImageObjectAppearance в который загружена картинка с плюсиком. Есть элемент TTextObjectAppearance, который планируется использовать как счетчик. Т.е щелкнули по элементу TImageObjectAppearance и тогда добавили единичку в элемент TTextObjectAppearance. Не соображу как это реализовать? void __fastcall TForm1::ListView1ItemClickEx(TObject * const Sender, int ItemIndex, const TPointF &LocalClickPos, TListItemDrawable * const ItemObject) { if(ItemObject == NULL) { return; } //картинка с плюсиком имеет кастомное имя add if(ItemObject->Name == L"add" && ItemObject->InheritsFrom(__classid(TListItemImage))) { //как добраться до элемента TTextObjectAppearance с кастомным именем TextCount? ShowMessage(L"Bingo"); } }

Подскажите, пожалуйста, как загрузить изображение в image? И как TGlyphButtonObjectAppearancе увидеть в ListView? void __fastcall TForm1::FormShow(TObject *Sender) { TListViewItem * item = ListView1->Items->Add(); item->Data[L"FullName"] = TValue::From<UnicodeString>(L"good1");//с текстом все нормально //TGlyphButtonObjectAppearancе //если так нельзя для этих двух TGlyphButtonObjectAppearancе, то как их отобразить с дефолтными изображениями? item->Data[L"ButtonMinus"] = TValue::From<int>(0);//index из ImageList item->Data[L"ButtonAdd"] = TValue::From<int>(1);//index из ImageList //TImageObjectAppearance item->Data[L"MyImage"] = TValue::From<TBitmap*>(Image1->Bitmap); //AV } В кнопках ButtonMinus и ButtonAdd картинки не появляются. А на строке с MyImage AV: First chance exception at $3D774400. Exception class $C0000005 with message 'access violation at 0x3d774400: read of address 0x3d774400'. Process Project1.exe (4508)

Правильно ли я понимаю, что после публикации в apple store, следует вернуть параметр в false? Проверить пока никак не получаеться, т.к. apple store упорно отвергает приложение - пишет мало функционала в нем...

Благодарность ZuBY за статью в его блоге! Спасибо!!!

Впервые получил пуш на IOS... Ответ в фаерфоксе: JSON: SyntaxError: JSON.parse: unexpected non-whitespace character after JSON data at line 1 column 144 of the JSON data Необработанные данные: {"multicast_id":4877008421064121783,"success":1,"failure":0,"canonical_ids":0,"results":[{"message_id":"0:1504184482619837%652001c8652001c8"}]}{"status":"OK"} и пуш приходит... Изменения в файле ZuBy push.php: 'sandbox' => true,

На хостинге PHP7.1 В лог пишет предупреждение: [Thu Aug 31 10:15:53 2017] [warn] [client 92.112.55.71] mod_fcgid: stderr: PHP Parse error: syntax error, unexpected '[' in /pushTest/push.php on line 36 Как правильно в коде убрать это замечание? Eще добавил в файл push.php строку print_r($result); перед строкой if ($result === false) return false; в функции pushSend. Ответ тогда такой: {"multicast_id":6484835755858346767,"success":0,"failure":1,"canonical_ids":0,"results":[{"error":"InvalidRegistration"}]}{"status":"ERROR","text":"Пуши не отправлены"}

xiaomi это с оболочкой MIUI. MIUI это большое кол-во неожиданностей...

Интересной особенностью консоли App Store оказалось, что теперь это приложение и удалить невозможно! Вроде удалить апп из консоли можно только если оно было одобрено. Может я ошибаюсь, но кнопки удалить апп нигде нет... P.S. Похоже я прав в своих выводах: помойка apple

Если экспортировать узел в развернутом виде, с заданием пароля, то затем не удается загрузить его в FCM. Причина не понятна.

Спасибо. Первая проблема обнаружена:

Спасибо за исследование! Теперь понятно, что мы и автор этой статьи: ссылка где-то делаем ошибку, ибо автор утверждает, что для иос только его метод работает. Вопросы: 1. Как XCode c версии 8.0 обновить до 8.1? Опыта в этом вопросе нет. 2. Вы когда делаете из статьи: 27) Далее находим их в Связке ключей и делаем экпорт (можно установить пароль) то вы просто экспортируете корень узла или раскрываете его выделяете сам узел и приватный ключ и делаете экспорт? 3. Есть ли отличия фреймворков из картинки выше с вашими настройками? Спасибо.