estra

Думаю это побочный эффект спешки. Вместо того, чтобы клепать по несколько релизов в год (включая апдейты), лучше бы делали по одному, и при этом больше времени уделяли тестированию. О чем говорить, если они целую вкладку в свойствах проекта потеряли http://fire-monkey.ru/topic/471-kuda-delas-vkladka-orientation/... Печально это, ведь нам, как конечным пользователям продукта, в первую очередь важно качество, а не количество...

Сейчас посмотрю Добавлено: не из простых задачка оказалась, не помог даже такой подход - http://www.gunsmoker.ru/2010/08/blog-post.html надежда на ответ разработчиков

Странно, что не получается. Посмотрите пример. Добавлено: значения полей Border.Styling, BorderStyle, Transparency оставьте "по умолчанию" Demo2.zip

Есть, правда не знаю на сколько вас это устроит. При создании формы ручками ей стиль меняйте. procedure TForm2.FormCreate(Sender: TObject); begin FHandle := WindowHandleToPlatform(Form2.Handle).Wnd; SetWindowLong(FHandle, GWL_EXSTYLE, GetWindowLong(FHandle, gwl_exstyle) or WS_EX_APPWINDOW or WS_EX_ACCEPTFILES); SetWindowLong(FHandle, GWL_STYLE, GetWindowLong(FHandle, gwl_style) xor WS_THICKFRAME xor WS_POPUP xor WS_BORDER); end;

Как на счет такого варианта? unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} uses Unit2; procedure TForm1.Button1Click(Sender: TObject); begin Form2.Show; end; end. unit Unit2; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls; type TForm2 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.fmx} uses FMX.Platform.Win, Windows; var FHandle: THandle; procedure TForm2.FormCreate(Sender: TObject); begin FHandle := WindowHandleToPlatform(Form2.Handle).Wnd; SetWindowLong(FHandle, GWL_EXSTYLE, GetWindowLong(FHandle, gwl_exstyle) or WS_EX_APPWINDOW or WS_EX_ACCEPTFILES); end; end. Demo.zip

Не подходит, надо чтобы даты меньше минимальной и больше максимальной были неактивны... Очень жаль

Как в TDateEdit задать минимальное и максимальное значение даты (аналогично MinDate и MaxDate в VCL)?

Спасибо, такой вариант работает!

Но ведь начиная с D2009 тип string = Unicode, следовательно и под виндой должна вылетать аналогичная ошибка, а она не вылетает... или я что то не так понимаю?

Есть массив const arr: array[0..7] of Byte = ( 74, 234, 71, 252, 63, 31, 125, 34 ); При формировании из него строки под виндой проблем нет, а под андроидом вылетает ошибка: No mapping for the Unicode character exists in the target multi-byte code pdge. var s: string; begin s := StringOf(arr); end; Как избавиться от ошибки?

С самими приложениями проблем нет, все запускается и работает. За наводку спасибо, в logcat загляну...

На этом нет. Девайс RunboX5-W, андроид 4.2. Вопрос в том, почему не открывается порт для отладки именно для этого девайса, хотя с другими (например Lexand A702, ОС Android 4.2) такого сообщения не получаю (правда и отладка не работает)...

Пробовал, не помогает...

При попытке отладки на девайсе вылетает ошибка: Unable to start gdbserver on port '64311' Can't open socket: Permission denide.. Смена порта через параметр -debugport=35123 не помогает, фаервол отключен... Где еще порыться, чтобы победить проблему?

Здравствуйте, Ярослав. Хотел написать это через ЛС, но почему-то они вам не отправляются, по-этому напишу здесь. С учетом высокой актуальности данной темы, не могли бы вы создать какой нибудь раздел (создать пост, написать статью) где во-первых были бы перечислены устройства, на которых отладка гарантированно работает (исходя из опыта и тестов разработчиков), и во-вторых был бы как можно более подробный анализ возможных причин этой проблемы и способов их устранения (описанное в данном посте не помогает)?

А почему тема заглохла? Между прочим очень актуально! Планшет Lexand, модель A702, ОС Android 4.2 - не работает отладка. После деплоя на устройство RAD Studio просто отключается от процесса. Что за ерунда и как это исправить?

Решение из коммента частично работает... На первое время сойдет. оффтоп Разработчики, вы вообще тестируете свои продукты перед их выпуском? Очень похоже что нет... Выпускайте скорее hotfix

Ставил Portrait и Landscape, у меня при этих настройках вообще не вертится...

>правда из 4 пунктов, работают только 3 Не уточните какие именно? UPD. Проверил, не работает... Оставил только Portrait, а работает в Landscape... Верните назад вкладку Orientation!!!

Куда в XE6 Upd1 делась вкладка Orientation?

Спасибо за наводку на пример, обязательно посмотрю.

Если кому не сложно, переведите код на Delphi, пожалуйста! - http://www.seostella.com/ru/article/2012/06/07/kak-poluchit-informaciyu-o-processore-cpu-v-android.html и это http://developer.android.com/reference/android/os/Build.html#SERIAL (http://habrahabr.ru/post/116719/#comment_3788894)

В первую очередь нужно научиться пользоваться поиском. > Определить цвет нужного мне пикселя (X,Y)... http://blogs.embarcadero.com/yaroslavbrovin/2013/06/17/firemonkey-bitmap-scanline/ > и нарисовать хотя бы линию этого цвета на форме используя обычный: Canvas.DrawLine http://fire-monkey.ru/topic/3-kak-narisovat-tochku-na-kanve-v-firemonkey/#entry7 http://fire-monkey.ru/topic/13-pochemu-na-mobilnykh-platformakh-u-menia-ne-risuet/ На всякий случай пример: var C: TAlphaColor; procedure TForm1.FormCreate(Sender: TObject); begin c := TAlphaColorRec.Null; end; ///<Summary> /// Получение цвета пикселя ///</Summary> procedure TForm1.Button1Click(Sender: TObject); var bm: TBitmap; M: TBitmapData; begin bm := TBitmap.Create; bm.LoadFromFile( 'c:\TROP002_w100h100.PNG' ); // Получение цвета пикселя bm.Map( TMapAccess.Read, M ); C := M.GetPixel( 10, 10 ); bm.Unmap( M ); // Принудительная перерисовка Invalidate; bm.Free; end; ///<Summary> /// Отрисовка линии ///</Summary> procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin Canvas.Stroke.Color := C; Canvas.Stroke.Kind := TBrushKind.Solid; Canvas.DrawLine( PointF( 0, 0 ), PointF( 100, 100 ), 1 ); end;

Есть задача по отображению видео-потока с IP веб-камеры на устройстве под ОС Android. С получением потока проблем нет, а вот с декодированием засада. Камера может отдавать поток в 3-х кодировках: 1 - H.264 Content-Type: video/x-h264 2 - JPEG Content-Type: image/jpeg 3 - MPEG4 Content-Type: image/mpeg4 Вопрос: как эти потоки декодировать? Если кто знает решение, пожалуйста поделитесь, очень нужно!

> Я решила пока оставить свой код как есть, наверное, он правильный. Ну как он может быть правильным? После создания и отображения форма сразу уничтожается (по коду), но продолжает отображаться на экране и нормально функционировать... В голове не укладывается, это из разряда - удивительно, но факт! Ярослав, пролейте свет на этот вопрос, самому уже интересно стало. А я бы сделал так: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, Unit2, FMX.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; f: TForm2; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject); begin f := TForm2.Create( nil ); f.Show; end; end. unit Unit2; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls; type TForm2 = class(TForm) Label1: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.fmx} uses Unit1; procedure TForm2.Button1Click(Sender: TObject); begin Close; end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin f := nil; end; end. То есть закрывающаяся форма сама уничтожает экземпляр объекта, связанного с ней (в момент закрытия формы мы точно знаем, что она нам больше не нужна). Это тоже не самый изящный код, но по сравнению с вашим этот мне кажется немного правильнее...