Как да четете ред по ред от края на файла бележка Delphi FMX линия - пожар маймуна от А до Я

Не съм свършил FMX функции, за да отворите уеб връзки от заявление?
И тогава ние трябва да се сърдя lisapetami и много IFDEF.
В крайна сметка, това, което имам.
За удобство на гостите се издъни всички различни модули.
Модул Windiws
единичните uUtilsWindows; интерфейс използва ShellApi, варианти, Windows FMX.Types, FMX.Platform.Win; процедура WindowsOpenUrl (Конст SURL: низ; WindowHandle: TWindowHandle); Процедура за изпълнение WindowsOpenUrl (Конст SURL: низ; WindowHandle: TWindowHandle); започнем ShellExecute (FmxHandleToHWND (WindowHandle), "отворен", PChar (VarToStr (SURL)), нула, нула, SW_NORMAL); приключи; край.
Модул за Android
единица uUtilsAndroid; интерфейс използва FMX.Helpers.Android, Androidapi.JNI.Net, Androidapi.JNI.GraphicsContentViewText, AndroidApi.Helpers; процедура AndroidOpenUrl (Конст SURL: низ); Процедура за изпълнение AndroidOpenUrl (Конст SURL: низ); Var Ури: Jnet_Uri; OpenLinkIntent: JIntent; започне Юри: = StrToJURI (SURL); OpenLinkIntent: = TJIntent.JavaClass.init (TJIntent.JavaClass.ACTION_VIEW, Ури); // ще бъде нещо, което да гледате OpenLinkIntent.addCategory (TJIntent.JavaClass.CATEGORY_BROWSABLE); // поглед в OpenLinkIntent.setData браузър (Ури); // гледате SharedActivity.startActivity връзка (OpenLinkIntent); // отворен край; край.
Сега в основната си форма:
използва. , Vkbdhelper, uUtilsAndroid, uUtilsWindows ;. процедура TfmEditObject.actOpenUrlExecute (Sender: TObject); започне AndroidOpenUrl (edMapsCoordUrl.Text); WindowsOpenUrl (edMapsCoordUrl.Text, Self.Handle); приключи;
И ако добавите друга платформа, необходим друг модул.
Може би там е правилния вариант, така да се каже, изходния код дизайн?

Как да четете ред по ред от края на файла бележка Delphi FMX линия - пожар маймуна от А до Я

Как да четете ред по ред от края на файла бележка Delphi FMX линия - пожар маймуна от А до Я

Var Клавиатура: IFMXVirtualKeyboardService; започнем ако TPlatformServices.Current.SupportsPlatformService (IFMXVirtualKeyboardService, IInterface (Keyboard)) след това, ако TVirtualKeyboardState.Visible в Keyboard.GetVirtualKeyBoardState тогава ShowMessage ( "отворена клавиатура") друго ShowMessage ( "скрита клавиатура '); приключи; Така че аз отидох за да Delphi. Но ми трябва за C ++

Как да четете ред по ред от края на файла бележка Delphi FMX линия - пожар маймуна от А до Я

Здравейте всички мила!
Аз се опитвам да направя прострените върху компонента съдържание. Как се осъществява в типа на посланици WhatsApp, ако голям текст, който се простира (освободен), като съдържанието на една голяма област, ако малко по-малко.
Text2.Text: = Memo1.Lines.Strings [4]; text2.Height: = canvas.TextHeight (Text2.Text); // промени височина линия, тъй като има един ред в TText просто прехвърля WordWrap визуално. text2.Height: = canvas.TextWidth (text2.Text); // - като глупости Как се разбра, които някога са изправени?

Как да четете ред по ред от края на файла бележка Delphi FMX линия - пожар маймуна от А до Я

Как да четете ред по ред от края на файла бележка Delphi FMX линия - пожар маймуна от А до Я

Как да четете ред по ред от края на файла бележка Delphi FMX линия - пожар маймуна от А до Я

Var ите: низ; FS: TFileStream; започне FS: = TFileStream.Create (tpath.Combine (tpath.GetDownloadsPath "load.jpg"), fmCreate); NetHTTPClient1.Get ((подателя като TImage) .Hint, FS); fs.Free; (Подателя TImage) .MultiResBitmap.Bitmaps [1] .LoadFromFile (tpath.Combine (tpath.GetDownloadsPath "load.jpg")); Свързах още па намерени на този форум FMX.Features.Bitmap.Helpers.pas
(Подателя като TImage) .MultiResBitmap.Bitmaps [1] .LoadFromUrl ((подателя като TImage) .Hint); толкова лесно да го направят и да съветва Грузия и формата не е закачена?

Сега потребителите на страница 0

Не са хора, които търсят в тази страница

  • Всички действия
  • основен
  • Общи въпроси
  • Въпроси на езика Object Pascal и RTL
  • линии
  • Как да четете ред по ред от края на файла Memo Delphi FMX на?