Alexey Lovchikov

Прошу прощения, Вы правы.

Здравствуйте, Прочитав тему http://fire-monkey.ru/topic/432-sovety-po-sozdaniiu-mobilnogo-prilozheniia-master-detail/?p=1638 решил переделать свое приложение с использованием Frame, подскажите правильно ли я его делаю Primer.zip

То есть ты хочешь в зависимости от длины текста изменять свойство Font.Size?

У TListBoxItem установи значение свойство StyleLookup в listboxitemnodetail и ItemData.Bitmap укажи картинку Проверял на XE7 Update 1

Решения не нашел, стал просто использовать переключение без анимации TChangeTabAction Теперь переключение делаю так TTabControl.ActiveTab := ANextTab;

Пример по использованию JSON uses System.IOUtils, System.JSON; procedure TForm1.btLoadClick(Sender: TObject); var AOptions: TJSONObject; AGroup: TJSONObject; AParam: TJSONValue; begin if FileExists(FFileName) then begin AOptions := TJSONObject(TJSONObject.ParseJSONValue(TFile.ReadAllText(FFileName))); AGroup := TJSONObject(AOptions.GetValue('group1')); if AGroup <> nil then begin AParam := AGroup.GetValue('edit1'); if AParam <> nil then Edit1.Text := TJSONString(AParam).Value; AParam := AGroup.GetValue('edit2'); if AParam <> nil then Edit2.Text := TJSONNumber(AParam).Value; end; AGroup := TJSONObject(AOptions.GetValue('group2')); if AGroup <> nil then begin AParam := AGroup.GetValue('checkbox1'); if AParam <> nil then CheckBox1.IsChecked := AParam is TJSONTrue; end; end; end; procedure TForm1.btSaveClick(Sender: TObject); var AOptions: TJSONObject; AGroup: TJSONObject; AParam: TJSONValue; APair: TJSONPair; begin AOptions := TJSONObject.Create; AGroup := TJSONObject.Create; AGroup.AddPair('edit1', Edit1.Text); if Edit2.Text.Trim <> '' then AGroup.AddPair('edit2', TJSONNumber.Create(Edit2.Text)); AOptions.AddPair('group1', AGroup); AGroup := TJSONObject.Create; if CheckBox1.IsChecked then AGroup.AddPair('checkbox1', TJSONTrue.Create) else AGroup.AddPair('checkbox1', TJSONFalse.Create); AOptions.AddPair('group2', AGroup); TFile.WriteAllText(FFileName, AOptions.ToString); end; procedure TForm1.FormCreate(Sender: TObject); begin {$IFDEF ANDROID} //Если файл во внутреннем накопителе то GetDocumentsPath //Если файл на внешнем накопителе то GetSharedDocumentsPath FFileName := TPath.Combine(TPath.GetSharedDocumentsPath, 'Options.json'); {$ENDIF} {$IFDEF MSWINDOWS} FFileName := ExtractFilePath(ParamStr(0)) + 'Options.json'; {$ENDIF} end; Также почитай http://www.webdelphi.ru/2011/10/rabota-s-json-v-delphi-2010-xe2/ Primer.zip

Да, я чуть позже скину пример, кстати еще немного информации TJSONObject был перенесен в System.JSON

Всем привет, Появилась проблема при работе с TWebBrowser и TTabControl. Мое приложение состоит из TTabControl с несколькими TTabItem. На одном из табов размещен TWebBrowser который в дальнейшем должен будет отображать html станицу. Переключение между табами делаю через класс TChangeTabAction. Проблема появляется при переключении с любого таб на таб с TWebBrowser и обратно, браузер начинает перекрывать все контролы. Если телефон перевернуть то браузер исчезает. Если кто знает как можно обойти данную проблему подскажите. Может каким нибудь способом заставить перерисовываться окно Среда: Embarcadero® Delphi XE7 Version 21.0.17707.5020 Во вложении пример программы Primer.zip

Хранение информации о настройках в Ini файле на вой взгляд это прошлый век. Используй структуру XML или JSON. Чтоб использовать JSON подключи стандартные модули Data.DBXJSON, Data.DBXJSONCommon, Data.DBXJSONReflect в свой проект и используй объекты TJSONobject, TJSONArray и другие.

Попробуй использовать стандартные жесты TGestureManager плюс анимацию TFloatAnimation Пример type TfmMain = class(TForm) MenuHide: TFloatAnimation; MenuShow: TFloatAnimation; gmGesture: TGestureManager; pnMenu: TPanel; btHide: TButton; Rectangle1: TRectangle; Label1: TLabel; procedure btHideClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean); private { Private declarations } public { Public declarations } end; var fmMain: TfmMain; implementation {$R *.fmx} procedure TfmMain.btHideClick(Sender: TObject); begin MenuShow.Stop; MenuHide.Start; end; procedure TfmMain.FormCreate(Sender: TObject); begin MenuHide.StartValue := pnMenu.Position.Y ; MenuHide.StopValue := Self.ClientHeight; MenuShow.StartValue := MenuHide.StopValue; MenuShow.StopValue := MenuHide.StartValue; end; procedure TfmMain.FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean); begin if EventInfo.GestureID = sgiUp then begin MenuHide.Stop; MenuShow.Start; end else if EventInfo.GestureID = sgiDown then begin MenuShow.Stop; MenuHide.Start; end; end; Во вложении пример программы Primer.zip

Спасибо, все получилось

Добрый день! Как я понимаю компонент TEdit в XE7 был переписан и класс TCustomEdit изменил предка на TPresentedControl. Теперь все мои компоненты пропали. В чем может быть проблема. Проверить можно простым созданием пустого класса наследника от TEdit type TMyEdit = class(TEdit) end; procedure TForm1.FormCreate(Sender: TObject); var AEdit: TMyEdit; begin AEdit := TMyEdit.Create(Self); AEdit.Parent := Self; AEdit.Position.X := 10; AEdit.Position.Y := 10; AEdit.Visible := True; end;