-
Постов
37 -
Зарегистрирован
-
Посещение
-
Победитель дней
6
Alexey Lovchikov стал победителем дня 27 февраля 2015
Alexey Lovchikov имел наиболее популярный контент!
Информация о Alexey Lovchikov
- День рождения 25.07.1987
Информация
-
Пол
Мужчина
-
Город
Алматы
Контакты
-
Skype
alexey.lovchikov
Посетители профиля
1 137 просмотров профиля
Достижения Alexey Lovchikov
-
Мирзали Пирмагомедов отреагировал на ответ на вопрос: Можно ли программно передать фокус на SearchBox и очистить строку?
-
Alexey Lovchikov изменил фотографию своего профиля
-
Pax Beach отреагировал на ответ на вопрос: Можно ли программно передать фокус на SearchBox и очистить строку?
-
Евгений Корепов отреагировал на ответ на вопрос: Универсальный способ хранения настроек
-
Brovin Yaroslav отреагировал на ответ на вопрос: Доработка компонента для чтения штрих-кодов под RAD XE7
-
Brovin Yaroslav отреагировал на ответ на вопрос: Доработка компонента для чтения штрих-кодов под RAD XE7
-
ophion отреагировал на ответ на вопрос: Доработка компонента для чтения штрих-кодов под RAD XE7
-
Kitty отреагировал на ответ на вопрос: Доработка компонента для чтения штрих-кодов под RAD XE7
-
Алексей, спасибо Вам большое!!! Но к сожелению на моём 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
-
Streletz отреагировал на ответ на вопрос: Помощь новичку
-
Alexey Lovchikov отреагировал на ответ на вопрос: Помощь новичку
-
Alexey Lovchikov отреагировал на ответ на вопрос: Помощь новичку
-
Во вложении пример скрещивания 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
-
Brovin Yaroslav отреагировал на ответ на вопрос: Как задать направление линейного градиента?
-
На самом деле все просто, при Edit Default Style, на форме создается StyleBook с стилем EditStyle, который перекрывает стандартный стиль всех TEdit. Если ты его переименуешь (Свойство StyleName) например в MyStyleEdit, то этот стиль будет только на тех TEdit, где ты его сам установишь. Если ты хочешь поменять стиль конкретно одного элемента, то используй Edit Custom Style, при этом будет создан стиль с именем отличном от имени стиля по умолчанию Для удаления элемента стиля в StyleBook используй кнопку удаления как показано на скиншоте
-
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 );