Лидеры

Как получилось у меня: 1.То что вы открыли в Блокноте я полностью скопировал этот object TLayout StyleName = 'donetoolbutton' ... end Сохранил его в отдельный файл, при этом поменял StyleName = 'mydonetoolbutton' 2. На форму бросил StyleBook1, щелкнул на нем два раза попал в редактор. По кнопке Load... выбрал выше созданный файл и его немного подредактировал: добавил Rectangle (Fill.Kind := None; Stroke (рамка) уже есть) Немного повозился с размерами и выравниванием. После кнопка Apply and Close 3. Бросаю две SpeedButton, у одного набираю в StyleLookUp = mydonetoolbutton, у другого из списка выбираю StyleLookUp = donetoolbutton. Результат достигнут. На непоколебимость данного варианта не претендую, хотелось бы узнать мнение гуру.

Извините, не правильно Вас понял. Нет, не надо конечно. Стиль грузится в контейнер TStyleBook и лежит в "бинарнике" соответственно. Нужно только в том случае, если Вы хотите в процессе работы программы менять стили (например - дать выбор стиля пользователю программы).

Обычно выступления до 14 плюс один час до 15 отводится под ответы на вопросы.

Как я уже говорил: Bitmap Style Designer - вот этот C:\Program Files\Embarcadero\Studio\14.0\bin\BitmapStyleDesigner.exe Поддержка Андроида появилась с версии XE5.

Да, открыл, тоже нет рамки: причина в стиле изменилось имя: делаем следующее: 3. У формы ставим StyleBook := StyleBook1

Попробуйте использовать вот этот вариант: stylenew.zip В этом стиле, стандартный donetoolbutton с добавлением TRectangle, для создания рамки. Проверено, должно всё работать, можно редактировать в TStyleBook. p.s. Не забывайте заполнять свойство StyleBook у формы.

Вот сырое решение, проверено на демке «Mobile Snippets\CameraComponent»: Открываем FMX.Media.Android.pas, находим procedure TAndroidVideoCaptureDevice.DoStartCapture; После if TPlatformServices.Current.GlobalFlags.ContainsKey(EnableGlassFPSWorkaround) and TPlatformServices.Current.GlobalFlags[EnableGlassFPSWorkaround] then begin Params.setPreviewFpsRange(30000, 30000); Camera.setParameters(Params); end добавляем необходимые настройки: Params.setPreviewSize(800, 480); Camera.setParameters(Params); Сохраняем, запускаем демо, и картинка отображается и сохраняется из TBitmap с разрешением 480x800. Картинку в демке сохранял так: imgCameraView.Bitmap.SaveToFile(TPath.Combine(TPath.GetPicturesPath, 'test.png')); Очень важно не забывать, что камеры в устройствах поддерживают только определённые списки разрешений. Например, у моей камеры минимальное разрешение 640x480, 800x480, и т.д. по возрастанию.

Как на счет такого варианта? 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

Вот мои исходники (только на Delphi XE6 upd2)

Я думаю со мной согласится абсолютное большинство, что ограничение размеров формы - это проблема! Причем проблема с "большой буквы". Как это сделать в VCL - все в курсе. Предвидя ответ, что это можно сделать самому "ручками", спрошу - почему все должны лезть в исходники Firemonkey и править "родные" модули, дабы достичь нужного результата? Вроде это самые элементарные свойства (предопределение минимальных/максимальных размеров формы). Поэтому очень хотелось бы вынести это "обсуждение"/проблему на рассмотрение Embarcadero. И, конечно, хотелось бы чтобы они эту проблему решили и решили в срочном порядке. Согласитесь (думаю и наши уважаемые гуру согласятся), что этот вопрос относится к элементарным и основным проблемам. Представьте себе любого начинающего FMX-прогера, который в первом же своем FMX-проекте столкнется с данной проблемой... P.S. Как крайний вариант - рассматриваю коллективное обсуждение и решение этой задачи с публикацией кода.

Проблема решена с использованием UTF8EncodeToShortString Вот код: RESTRequest1.Params.AddItem( UTF8EncodeToShortString(edParam.Text), UTF8EncodeToShortString(edValue.Text), TRESTRequestParameterKind.pkGETorPOST,[poDoNotEncode] ); Всем спасибо.

"Height - не работает" а в Вашем TListBox, в котором Вы меняете Item'ы, свойство ItemHeight случаем <> 0 ? В смысле - если ItemHeight <> 0, то изменение свойства Height для любого TListBoxItem работать не будет P.S. Вот простой пример, который только-что опробовал и он прекрасно работает именно так, как Вам нужно (удаляет выбранный элемент списка с анимацией) ... TListBoxItem(TListBox(Sender).Selected).AnimateFloat('Opacity', 0, 0.3); TListBoxItem(TListBox(Sender).Selected).AnimateFloatWait('Height', 0, 0.3); TListBox(Sender).Items.Delete(TListBox(Sender).Selected.Index); ... P.P.S. проверил - все работает и на Windows и на Android. корректно и с анимацией