Перейти к содержанию
  • Регистрация

Alexey Lovchikov

Пользователи
  • Публикаций

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

  • Посещение

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

    6

Alexey Lovchikov стал победителем дня 27 февраля 2015

Alexey Lovchikov имел наиболее популярный контент!

Информация о Alexey Lovchikov

  • Звание
    Продвинутый пользователь
  • День рождения 25.07.1987

Контакты

  • Skype
    alexey.lovchikov

Информация

  • Пол
    Мужчина
  • Город
    Алматы

Посетители профиля

563 просмотра профиля
  1. Алексей, спасибо Вам большое!!! Но к сожелению на моём Sony Xperia Z1 Android 4.4.4 не работает, компилируется, запускается но висит после нажатия на кнопку, может у Вас есть соображения почему это может быть? Решение простое, проверь у себя наличия программы https://play.google.com/store/apps/details?id=com.google.zxing.client.android&hl=ru так как мой пример и предыдущий класс использует эту программу для считывания штрихкода intent := TJIntent.Create; intent.setAction(StringToJString('com.google.zxing.client.android.SCAN')); SharedActivity.startActivityForResult(intent, 0); Проверял у себя на Android 4.4.2, программа в начале не была установлена и симптомы были как у тебя, после установки все стало нормально, на многих устройствах эта программа уже предустановлена
  2. Написал небольшой класс по работе с сканером Проверял на XE7 Update 1 под Android 4.1.2 Пример Barcode.zip
  3. Ты следующий раз не упаковывай в архив папки Android и __history и все будет нормально
  4. Во вложении пример скрещивания VCL и FMX Пример работает без установки каких либо других компонентов Источники которыми я пользовался для создания примера http://parnassus.co/tfiremonkeycontainer-a-vcl-control-for-mixing-vcl-and-fmx/ http://firemonkey-container.googlecode.com/svn/trunk/FMXContainer.pas https://code.google.com/p/delphisorcery/source/browse/trunk/Source/Windows/DSharp.Windows.FMXAdapter.pas Пример FMXandVCL.zip
  5. А почему бы просто не пробовать изменять эти некоторые файлы в try except. В случае вылета ексепшена обрабатывать его и выдавать сообщение вроде "Отсутствуют права доступа на запись в файл так как нет Root прав"
  6. http://docwiki.embarcadero.com/CodeExamples/XE7/en/FMXGradient_(Delphi) Используй fill.Gradient.StartPosition.Y fill.Gradient.StartPosition.X fill.Gradient.StopPosition.X Gradient.zip
  7. На самом деле все просто, при Edit Default Style, на форме создается StyleBook с стилем EditStyle, который перекрывает стандартный стиль всех TEdit. Если ты его переименуешь (Свойство StyleName) например в MyStyleEdit, то этот стиль будет только на тех TEdit, где ты его сам установишь. Если ты хочешь поменять стиль конкретно одного элемента, то используй Edit Custom Style, при этом будет создан стиль с именем отличном от имени стиля по умолчанию Для удаления элемента стиля в StyleBook используй кнопку удаления как показано на скиншоте
  8. Используй свой стиль TEdit, во вложении пример Primer.zip
  9. TWebBrowser перекрывает все контролы, кто знает как с этим бороться MVWB.zip
  10. http://edn.embarcadero.com/article/43614 29485_c_243_digo_de_barras_no_delphi_para_ios.ZIP
  11. Используй Helper uses FMX.SearchBox; type TListViewMyHelper = class helper for TListView public function SearshBox: TSearchBox; end; { TListViewMyHelper } function TListViewMyHelper.SearshBox: TSearchBox; var AIdx: Integer; begin for AIdx := 0 to Self.ComponentCount - 1 do if Self.Components[AIdx] is TSearchBox then begin Result := TSearchBox(Self.Components[AIdx]); Break; end; end; Или просто функцию function SearshBox(AListView: TListView): TSearchBox; var AIdx: Integer; begin for AIdx := 0 to AListView.ComponentCount - 1 do if AListView.Components[AIdx] is TSearchBox then begin Result := TSearchBox(AListView.Components[AIdx]); Break; end; end; Primer.zip
  12. Предлагаю использовать uses System.IOUtils; {$IFDEF ANDROID} FFileDatabase := TPath.Combine(TPath.GetSharedDocumentsPath, 'news.s3db'); {$ENDIF} {$IFDEF MSWINDOWS} FFileDatabase := ExtractFilePath(ParamStr(0)) + '\files\news.s3db'; {$ENDIF}
  13. InputQuery('Има пользователя',['Парам1', 'Парам2'], ['1','2'], procedure(const AResult: TModalResult; const AValues: array of string) begin if AResult = mrOk then ShowMessage(AValues[0]); if AResult = mrCancel then ShowMessage(AValues[1]); end );
×
×
  • Создать...