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

Andrey Efimov

Модераторы
  • Постов

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

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

    123

Ответы сообщества

  1. Пост Andrey Efimov - сообщение в TOpenDialog для Android был отмечен как ответ   
    Я вижу только одно решение, создать свой собственный "TOpenDialog". Т.е. будет открываться либо вкладка со списком директорий и файлов, либо всплывающая форма с тем же списком. Сложного в реализации ни чего нет, т.к. в Delphi уже всё готово (System.IOUtils).
  2. Пост Andrey Efimov - сообщение в Авторизация в ВКонтакте был отмечен как ответ   
    Тогда вам нужно поискать информацию по Indy.
     
    Вот вам ссылки для ознакомления:
    Для начинающих работать с компонентом idHTTP в Delphi - http://parsing-and-i.blogspot.ru/2009/05/idhttp-delphi.html Пример авторизации на сайте с помощью idHTTP.Post - http://parsing-and-i.blogspot.ru/2009/05/idhttppost.html А также очень советую ознакомиться с самыми основами:
    HTTP - http://ru.wikipedia.org/wiki/HTTP HTTP cookie - http://ru.wikipedia.org/wiki/HTTP_cookie Чтобы программа позволяла снова авторизоваться, нужно чистить куки, например так:
    procedure TForm1.Button1Click(Sender: TObject); begin   // Включаем куки   IdHTTP1.AllowCookies := True;   // Включаем редиректы   IdHTTP1.HandleRedirects := True;   // Указываем юзер агент, необходимо для авторизации. Иначе всегда будет приходить False   IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; rv:27.0) Gecko/20100101 Firefox/27.0';   try     if pos('выйти', IdHTTP1.Get('http://login.vk.com/?act=login&email=' + Edit1.Text + '&pass=' + Edit2.Text))>0 then     begin       ShowMessage('Авторизация прошла успешно!');       // Что-то делаем...       // Удаляем куки       IdHTTP1.CookieManager.CookieCollection.Clear;     end     else     begin       ShowMessage('Не удается войти.');       // Что-то делаем...       // Удаляем куки       IdHTTP1.CookieManager.CookieCollection.Clear;     end;   except     on E: Exception do     begin       ShowMessage ('Error: ' + E.Message);       Exit;     end;   end; end;
  3. Пост Andrey Efimov - сообщение в [TCornerButton] Как программно изменить размер шрифта TCornerButton? был отмечен как ответ   
    Всегда ищите ответ на ваш вопрос в поиске.
    Тема: Как массово задать размер шрифта у всех контролов?
     
    Как изменить размер шрифта:
    CornerButton1.Font.Size := 4; CornerButton1.StyledSettings := CornerButton1.StyledSettings - [TStyledSetting.ssSize];
  4. Пост Andrey Efimov - сообщение в Не получается получить фотографию со встроенной библиотеки изображений телефона. был отмечен как ответ   
    Для действия "TakePhotoFromLibraryAction1" у вас не прописан обработчик события "OnDidFinishTaking" (Object Inspector->Events) .
  5. Пост Andrey Efimov - сообщение в Как программно установить прозрачность в TImage был отмечен как ответ   
    Единственный нормальный и рекомендуемый (как минимум для Android) вариант - это готовить картинки сразу с прозрачным фоном, в том же фотошопе.
     
    Первый вариант не работает, даже если мы знаем точный код цвета. Только что пробовал в вашем проекте.
  6. Пост Andrey Efimov - сообщение в Как задать название приложению? был отмечен как ответ   
    «$(ModuleName)» - это название приложения, которое можно поменять в Project Manager’е.   Android: За имя ярлыка приложения отвечает строчка «Label», удалите из неё «$(ModuleName)» и впишите своё название.   iOS: У меня нет девайсов от компании Apple, поэтому следующая информация на уровне догадок. Я предполагаю, что за отображаемое имя приложения отвечает строчка «CFBundleDisplayName», попробуйте изменить её. Если не поможет, то проверьте остальные строчки, где упоминается «$(ModuleName)».
  7. Пост Andrey Efimov - сообщение в Как убрать отладочную информацию из пакета приложения для Андроид? был отмечен как ответ   
    В блоке "Project Maneger" открываем "Build Configurations" и выбираем "Release". (правда, не знаю как там в XE6)

  8. Пост Andrey Efimov - сообщение в Задаем отступ между картинкой и текстом в TListBoxItem был отмечен как ответ   
    Вопрос решил! Не знаю, как я мог забыть про стили… Прошу прощения за такой простой вопрос(Мне стыдно   )
     
    Всем у кого появился подобный вопрос, загружаете через «TStyleBook» свой стиль, далее редактируете его, находим ListBox (listboxitemnodetail), открываем ветку и находим «area:Tlayout->Text», чтобы редактировать отступ, выберите свойство Margins и редактируйте.
     
    P.S. Тему наверно можно удалять или …

×
×
  • Создать...