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

antarey

Пользователи
  • Постов

    284
  • Зарегистрирован

  • Посещение

  • Победитель дней

    2

Весь контент antarey

  1. Как задать ширину едита по длине текста? В лейбела есть свойство AutoSize там все просто , а как в едита???
  2. AlexG , немного да, уже разобрался. Ето вводный вопрос к моей основной задачей - хочу реализовать адресную строку как в проводнике вин 7
  3. Через TListBoxGroupHeader в динамике отлично получилось Огромное спасибо
  4. Есть TEdit в нем записан какой-то путь При клике по имени каталога в любом месте пути необходимо получить имя самого каталога и левую часть пути. По аналогии , как в адресной строке проводника вынь 7 и выше - кликнул по имени каталога - получил список подкаталогов. Дабы не изобретать велик - может есть стандартная функция получения подстроки заключенную в разделители? Если нет - то как получить позицию каретки в TEdit?
  5. Как зафиксировать первый итем в ListBox? - необходимо чтобы при прокрутке первый итем оставался на месте а все нижние прокручивались
  6. AlexG, пасибо, буду пробовать. И как вариант - разъяснение Ярослава в 7 посте
  7. Вот в етом то и вопрос. Я в своем первом посте привел код - но он не работает - мне надо определить абсолютные положения кнопки - а тут загвоздка
  8. Brovin Yaroslav, об этом свойстве я уже знаю , проблема не в создании а в показе. Кнопка лежит на тулбаре - и мне надо показать окно под кнопкой. И , в не зависимости от положения главного окна попап всегда должно появляться ниже кнопки - на подобии TMS TAdvSmoothPopup
  9. Хочу реализовать что-то типа PopUp окна. Есть главная форма и на ней SpeedButton. Вторичная форма прозрачна и на нее положил CalloutPanel Как сделать чтобы при клике на SpeedButton вторичная форма появлялась под SpeedButton frmFilter->Top=SpeedButton24->AbsoluteRect.Top; frmFilter->Left=SpeedButton24->AbsoluteRect.Left; frmFilter->Show(); Что-то не дает результата
  10. Как прочитать имя контакта владельца в адресной книге Андроида - Контакты-Я?
  11. Что-то я притупил. Может кому пригодится LinkControlToField1->Active=false; switch (frmMain->TabControl2->TabIndex) { case 1: LinkControlToField1->DataSource=dm->ds_sprCklad; LinkControlToField1->FieldName="CkladName"; break; case 4: LinkControlToField1->DataSource=dm->ds_tGGRup; LinkControlToField1->FieldName="GrypaName"; break; } LinkControlToField1->Active=true;
  12. Я пол дня лопатил справку гугля - Settings.Secure отвечает за настройки безопасности, но до имени владельца так и не добрался. Возможно оно от балды и никакой нагрузки не несет, мне надо имя пользователя, которое можно менять как в винде
  13. Я привязал свойство Text для TEdit через Live Binding к полю одной таблицы. Теперь мне надо в рантайме поменять ету связь - привязать к другому полю другой таблицы Как сие реализовать?
  14. Я в посте написал -идешь в настройки телефона -безопасность -сведения о владельце
  15. Согласно справки на андроиде надо вызывать ShowModal для формы с передачей процедуры. На основании Using FireMonkey Modal Dialog Boxes написал код //--------------------------------------------------------------------------- class TEditTableCallback : public TCppInterfacedObject<TProc__1<TModalResult> > { public: int TableIndex; void __fastcall Invoke(TModalResult ModalResult) { if (ModalResult==1) { switch (TableIndex) { case 0: dm->tKaca->Post();dm->tKaca->Refresh();break; } } else { switch (TableIndex) { case 0: dm->tKaca->Cancel();break; } } } }; //--------------------------------------------------------------------------- void __fastcall TfrmMain::SpeedButton4Click(TObject *Sender) { TSpeedButton *button=dynamic_cast<TSpeedButton*>(Sender); TEditTableCallback* EditTableCallback = new TEditTableCallback(); EditTableCallback->TableIndex=TabControl2->TabIndex; switch (TabControl2->TabIndex) { case 0: TfrmNewKaca *frmNewKaca = new TfrmNewKaca(Application); if (button->Tag==0){dm->tKaca->Append();frmNewKaca->ShowModal(EditTableCallback);} if (button->Tag==1){dm->tKaca->Edit();frmNewKaca->ShowModal(EditTableCallback);} break; } } //--------------------------------------------------------------------------- Все делается отлично, но на вин платформе модальная форма, как бы и не модальная - я свободно клацаю по элементам главной формы, а модальная уходит на второй план. Насколько я понимаю в колбасных обрезках, по крайней мере так было в ВСЛ - при вызове ShowModal управление передавалось модальной форме и управлять главной формой нельзя было до закрытия модальной. frmNewKaca->ShowModal(); работает как надо. Или frmNewKaca->ShowModal(EditTableCallback); актуально только для андроид платформы?
  16. Brovin Yaroslav, спасибо помогло за одним нюансом - для того комбобокса из которого я выбираю размер шрифта если DropDownKind = Native меняется только шрифт выбранного итема, если TDropDownKind.Custom то ничего не меняется, но ето уже мелочи.
  17. TJBuild.JavaClass.USER на рутированом устройстве выдает имя админа а мне надо добраться до имени владельца - Настройки-Безопасность-Сведения о владельце
  18. Ага.Как задисаблить всю форму не нашел - кинул на нее Layout , все контролы на него и Layout->Enable=false;
  19. Да мне ввод не надо , я хочу реализовать прогресс диалог.Но нюанс есть еще один - клик не по попап форме закрывает ее - еще не пробовал , но думаю надо дизаблить всю главную форму
  20. Если точнее, в ComdoBox меняется шрифт выделенного итема, но не меняется шрифт списка итемов. В Мемо вообще шрифт не меняется
  21. Нет. Я пока вообще хочу не затрагивать стили. Программно делаю так //--------------------------------------------------------------------------- class TSetTextSettings : public TCppInterfacedObject<TFunc__2<TControl*,TEnumControlsResult> > { public: TEnumControlsResult __fastcall Invoke(TControl* Control) { _di_ITextSettings Settings; if(Control->GetInterface(Settings)) { Settings->TextSettings->Font->Size = StrToInt(Form2->ComboBoxFontSize->ListItems[Form2->ComboBoxFontSize->ItemIndex]->Text); Settings->StyledSettings=Settings->StyledSettings>>TStyledSetting::ssSize; } return TEnumControlsResult::Continue; } }; //--------------------------------------------------------------------------- void __fastcall TForm2::Button1Click(TObject *Sender) { TControl* Control; for(int i = 0; i < ComponentCount; i++) { Control=dynamic_cast<TControl*>(Components[i]); if (Control!=NULL)Control->EnumControls(new TSetTextSettings); } } //--------------------------------------------------------------------------- Не меняется шрифт в ComdoBox & Memo & Grid
×
×
  • Создать...