Перейти к содержанию
Fire Monkey от А до Я

Лидеры

Популярный контент

Показан контент с высокой репутацией 17.05.2018 во всех областях

  1. Sergiy_83

    Вывод личных сообщений

    Мы с вами в одном окопе. Путь к ListView лежит через ListBox. т.e надо помучится с listbox что бы понять что без ListView не обойтись. В чате как правило картинка и текст возможно не один. Создайте в ListView в режиме dinamicAppearance свои поля со своими именами, Далее ПКМ по listView выбираете TogleDesignMode там двигаете свои добавленные поля как вам удобно. Далее смотрите код. Чем смог тем помог! //Добавить итем в список void __fastcall TTabbedForm::add_item(int num_ico,UnicodeString *fname, UnicodeString *ext_name, unsigned int color) { TListItemText *ext; TListItemImage *ico; TListViewItem* item = ListView1->Items->Add(); item->Height = 30; ext = dynamic_cast<TListItemText*>(item->Objects->FindDrawable("extenssion_text")); if (ext) { ext->PlaceOffset->X = ListView1->Width - 60; ext->Text = *ext_name; ext->TextColor = color; } ext = dynamic_cast<TListItemText*>(item->Objects->FindDrawable("file_name_text")); if (ext) { ext->Text = *fname; ext->TextColor = color; if (num_ico==0) ext->Width = ListView1->Width - 10; //длина до расширения. else ext->Width = ListView1->Width - 90; //длина до расширения. } ico = dynamic_cast<TListItemImage*>(item->Objects->FindDrawable("Icon_Image")); if (ico) { switch (num_ico) { case 0: ico->Bitmap = Image_64x64_ret->Bitmap; break; case 1: ico->Bitmap = Image_64x64_folder->Bitmap; break; case 2: ico->Bitmap = Image_48x48_spk->Bitmap; break; case 3: ico->Bitmap = Image_64x64_play->Bitmap; break; case 4: ico->Bitmap = Image_64x64_pause->Bitmap; break; default: break; } } }
    1 балл
  2. Доброго времени суток ! Вопрос #1 Как назначить обработчик событий OnTap, OnGesture элементу стиля ? Либо, как еще отловить событие нажатие на элемент стиля, не путая скроллинг и tap? Подозреваю, что подобный подход не приемлем : ListBoxItem.StylesData['Rectangle.OnTap'] := TValue.From<TNotifyEvent>(..Myprocedure_OnTap...) ListBoxItem.StylesData['Rectangle.OnGesture'] := TValue.From<TNotifyEvent>(..Myprocedure_OnGesture...) Потому как, TNotifyEvent = procedure(Sender:TObject) of object; Вопрос #2. Насколько известно, android не различает скроллинг и tap. А как с этим в IOS ? Заранее благодарю
    1 балл
Эта таблица лидеров рассчитана в Москва/GMT+03:00
×
×
  • Создать...