Alexey Lovchikov

Алексей, спасибо Вам большое!!! Но к сожелению на моём 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, программа в начале не была установлена и симптомы были как у тебя, после установки все стало нормально, на многих устройствах эта программа уже предустановлена

Написал небольшой класс по работе с сканером Проверял на XE7 Update 1 под Android 4.1.2 Пример Barcode.zip

Ты следующий раз не упаковывай в архив папки Android и __history и все будет нормально

Во вложении пример скрещивания 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

Можно ли вносить предложение улучшения IDE?

А почему бы просто не пробовать изменять эти некоторые файлы в try except. В случае вылета ексепшена обрабатывать его и выдавать сообщение вроде "Отсутствуют права доступа на запись в файл так как нет Root прав"

http://docwiki.embarcadero.com/CodeExamples/XE7/en/FMXGradient_(Delphi) Используй fill.Gradient.StartPosition.Y fill.Gradient.StartPosition.X fill.Gradient.StopPosition.X Gradient.zip

На самом деле все просто, при Edit Default Style, на форме создается StyleBook с стилем EditStyle, который перекрывает стандартный стиль всех TEdit. Если ты его переименуешь (Свойство StyleName) например в MyStyleEdit, то этот стиль будет только на тех TEdit, где ты его сам установишь. Если ты хочешь поменять стиль конкретно одного элемента, то используй Edit Custom Style, при этом будет создан стиль с именем отличном от имени стиля по умолчанию Для удаления элемента стиля в StyleBook используй кнопку удаления как показано на скиншоте

Ярослав, Вы меня опередили на одну минуту

Используй свой стиль TEdit, во вложении пример Primer.zip

TWebBrowser перекрывает все контролы, кто знает как с этим бороться MVWB.zip

http://edn.embarcadero.com/article/43614 29485_c_243_digo_de_barras_no_delphi_para_ios.ZIP

Используй 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

Предлагаю использовать uses System.IOUtils; {$IFDEF ANDROID} FFileDatabase := TPath.Combine(TPath.GetSharedDocumentsPath, 'news.s3db'); {$ENDIF} {$IFDEF MSWINDOWS} FFileDatabase := ExtractFilePath(ParamStr(0)) + '\files\news.s3db'; {$ENDIF}

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 );