estra

Вот зачем удалять мои посты? Если вы думаете, что я этих демок не видел, то вы ошибаетесь. ОНИ НЕ РАБОТАЮТ!!! Samples\Object Pascal\Mobile Snippets\CameraComponent\ - НЕ РАБОТАЕТ НА HUAWEI Ascend P7. На iOS пока не проверял, но думаю ситуация аналогичная. Отсюда и вопрос, как сделать чтобы работало??? P.S. Отличные исходники. FMX.Media; ... function TVideoCaptureDevice.GetHasFlash: Boolean; begin Result := False; end; ... И как это должно работать?

Как программно включить фонарик?

Есть примеры, но перевести их с Java не получается. http://www.cyberforum.ru/android-dev/thread751224.html

Передать фокус MediaPlayerControl.SetFocus?

ForceDirectories(TPath.GetHomePath + PathDelim + 'myDir'); CreateDir(TPath.GetHomePath + PathDelim + 'myDir');

unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListView.Types, FMX.ListView, FMX.StdCtrls; type TForm1 = class(TForm) ListView1: TListView; Button1: TButton; procedure FormCreate(Sender: TObject); procedure ListView1Change(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.FormCreate(Sender: TObject); var i: Integer; li: TListViewItem; begin for i := 0 to 20 do begin li := ListView1.Items.Add; li.Text := IntToStr( i ); end; end; procedure TForm1.Button1Click(Sender: TObject); begin ListView1.Items.Delete( ListView1.Selected.Index ); ListView1.ItemIndex := 0; ListView1Change( ListView1 ); end; procedure TForm1.ListView1Change(Sender: TObject); begin ShowMessage( IntToStr( ListView1.Selected.Index ) ); end; end. Подойдет?

Увы, не помогает...

Создавая запрос к серверу добавляю ContenntType следующим образом RESTRequest.Params.AddItem( 'Content-Type', 'application/json', TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode] ); Однако на сервер приходит Content-Type = "application/x-www-form-urlencoded, application/json". Как запретить RESTRequest добавлять application/x-www-form-urlencoded?

Кстати, в вышеозначенном примере тоже есть ошибка, приводящая к Access Violation. Как воспроизвести: 1. Запускаем пример под Windows; 2. В выпадающем списке (Multi View Mode) выбираем Custom; 3. Открываем MultiView (нажатием кнопки в левом верхнем углу формы); 4. Не закрывая MultiView закрываем приложение. Получаем Access Violation. Попробуйте исправить сами, а если не получится, можете подсмотреть решение:

Уточнение к вопросу. Такое поведение MultiView обусловлено тем, что оно является дочерним к TabControl и на к Form (с формой проблем нет). Как добиться нормального поведения, не меняя иерархию компонентов в примере? Или это снова баг?

Естественно. Данный конфуз случился из-за спешки, тем не менее возник он не на пустом месте. Я набросал свой пример (скачать можно в конце поста), в котором на MultiView лежит кнопка и в OnClick выводится сообщение. Так вот, открывая на устройстве MultiView и нажимая на кнопку MultiView закрывается а OnClick не срабатывает. Тогда я посмотрел пример из демок и увидев аналогичное поведение сразу создал вопрос. Но, возвращаясь к моему примеру, у меня нет никакого MultiView1.HideMaster, тем не менее оно скрывается. Что не так в моем примере и как его поправить, чтобы работало корректно? MultiView.zip

Беру пример Samples\Object Pascal\Mobile Samples\User Interface\MultiView\ и запускаю на устройстве. Все по умолчанию, окно выезжает слева. На нем ListBox, и когда я нажимаю на один из его итемов, MultiView закрывается. И только открыв его повторно я вижу, на какой Item я нажимал. Как сделать, чтобы при нажатии на itme MultiView не закрывался?

Как отследить событие поворота экрана (переход из режима Portrait в Landscope и обратно)?

Я имел ввиду именно новые версии, update и hotfix никто не отменял. Ведь что палучается на практике? Есть стабильно работающее приложение и есть желание перевести его на новую версию Delphi. И тут натыкаешься на ряд сюрпризов, как в виде багов (вроде описанного выше), так и в виде нововведений (вроде неблокируемых сообщений). И тут посещает мысль - а оно мне надо? Зачим нарушать главную заповедь программиста (работает - не трогай)? Зачем добровольно брать на себя эти проблемы, когда и других задач выше крыши на месяцы вперед расписано. И все это значительно тормозит как освоение технологии в целом, так и миграцию на новые версии в частности. И с тем, что эта ситуация отбивает желание покупать новые версии, я абсолютно согласен.

Обход проблемы описан здесь. Похоже это действительно баг XE7, и если это на самом деле так, хочется в очередной раз сказать разработчикам: "Ребята, не торопитесь. Лучше выпускать 1 версию RAD Studio в год, при этом больше времени уделяя тестированию. Не нужно гнать брак...".

А вот теперь у меня возникли проблемы с этим компонентом. Суть в следующем - в XE6 все работает замечательно, а в XE7 не приходит событие. Код для проверки простой procedure TForm1.Button1Click(Sender: TObject); begin TKRBarCodeScanner1.Scan; end; procedure TForm1.TKRBarCodeScanner1ScanResult(Sender: TObject; AResult: string); begin Button1.Text := '!!!'; end; Экспериментальным путем выяснил, что когда приложение вновь становится активным, в XE6 оно получает 2 сообщения - WillBecomeForeground и BecameActive, а в XE7 дважды приходит WillBecomeForeground. Из за этого не отрабатывает функция {$IFDEF ANDROID} function TTKRBarCodeScanner.HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean; begin Result := False; if FMonitorClipboard and (AAppEvent = {$IF CompilerVersion >= 20}TApplicationEvent.{$ENDIF}aeBecameActive) then begin Result := GetBarcodeValue; // Сюда не попадает !!!!!! end; end; {$ENDIF} Но даже если в отладчике принудительно передать управление на эту строчку, вызов функции GetBarcodeValue не происходит. Помогите разобраться!

Тогда не знаю, билдером не пользуюсь. Может разработчики чего подскажут...

На Delphi так: procedure TMainForm.CornerButton1Click(Sender: TObject); var b: OleVariant; begin b := False; ShowMessage( VarAsType( b, varBoolean ) ); end; на билдер, надеюсь, сами переведете.

Вот результат работы вашей программы Last login: Fri Oct 17 17:25:25 on ttys001 xxx:~ User$ /Users/User/Desktop/lame ; exit; LAME 64bits version 3.99.5 (http://lame.sf.net) usage: /Users/User/Desktop/lame [options] <infile> [outfile] <infile> and/or <outfile> can be "-", which means stdin/stdout. Try: "/Users/User/Desktop/lame --help" for general usage information or: "/Users/User/Desktop/lame --preset help" for information on suggested predefined settings or: "/Users/User/Desktop/lame --longhelp" or "/Users/User/Desktop/lame -?" for a complete options list logout [Процесс завершен] Это то, что вы ожидали увидеть?

Height

Странно. У меня такое поведение не воспроизводится. Можете выложить свой проект, в котором присутствует такая аномалия?

Исходники выложите...

А что за компонент, в который вы текст выводите?

Вопрос по мотивам данной темы. Если по принципу 9-patch нужно создать элемент пользовательского интерфейса (например кнопку), которая будет отображаться в TImage, как действовать в этом случае? Как создать картинку понятно, но если ее потом загрузить в TImage, он поймет что это 9-patch, или нужны еще какие-то шаманства? Для чего это может быть нужно? Например для создания кнопки с "нестандартным" фоном, и при этом "резиновой". Пример Или для создания "нестандартного резинового" диалогового окна, пример Как быть, если нужно реализовать подобное?

Статья хорошая, спасибо. Но возник вопрос, тесно связанный с описанным в вашей статье решением (а именно 9-patch). Если по этому принципу нужно создать элемент пользовательского интерфейса (например кнопку), которая будет отображаться в TImage, какие действовать в этом случае? Как создать картинку понятно, но если ее потом загрузить в TImage, он поймет что это 9-patch, или нужны еще какие-то шаманства?