Равиль Зарипов (ZuBy)

uses System.Threading; TTask.Run(procedure begin Stream:=TMemoryStream.Create; IdHTTP1.Get('http://devdelphi.ru/files/VK_APImodul.rar',Stream); Stream.SaveToFile('C:\1.rar'); Stream.Free; end);

первое что пришло в голову, проверить есть ли эти картинки на местах ну и вот так я бы примерно написал procedure TForm1.ShowPlus(a, b: byte); // a - Номер строки // b - Цвет команды const cPlusName: array [1 .. 4] of string = ('bplus.png', 'yplus.png', 'gplus.png', 'rplus.png'); cMinusName: array [1 .. 4] of string = ('bminus.png', 'yminus.png', 'gminus.png', 'rminus.png'); var sPlusName: string; sMinusName: string; iPlusImg: TImage; iMinusImg: TImage; begin sPlusName := TPath.GetDocumentsPath + PathDelim + cPlusName[b]; sMinusName := TPath.GetDocumentsPath + PathDelim + cMinusName[b]; case a of 1: begin iPlusImg := form1.PlusImage1; iMinusImg := form1.MinusImage1; end; 2: begin iPlusImg := form1.PlusImage2; iMinusImg := form1.MinusImage2; end; 3: begin iPlusImg := form1.PlusImage3; iMinusImg := form1.MinusImage3; end; 4: begin iPlusImg := form1.PlusImage4; iMinusImg := form1.MinusImage4; end; end; iPlusImg.Bitmap.LoadFromFile(sPlusName); iMinusImg.Bitmap.LoadFromFile(sMinusName); end; писал на форуме, так что подправите если будут ошибки

читаем внимательно

Никто не может помочь?

Нет, не просмотр, а запуск приложений с расширением .jar. Не знали? Java последние версию ставил, восьмую если не ошибаюсь. Только после этого нужно заменить пути к джава в опциях Delphi. Иначе собирать не сможете

решения вроде прозвучало у вас в тексте, использовать Seattle на XE7 можно собрать под 6?

Vanka, .jar файлы открываются на компе? скорей всего java требует обнову, такая же песня была. все компилилось, а .jar файлы (виндовые програмки) не запускались

http://docwiki.embarcadero.com/Libraries/Seattle/en/System.IOUtils.TPath

https://ru.wikipedia.org/wiki/Dynamic_cast

Помогите добрым советом Вот что получается unit FGX.ActionSheet.Android; дописываем метод Show procedure TAndroidActionSheetService.Show(const ATitle: string; Actions: TfgActionsCollections; const UseUIGuidline: Boolean = True); var DialogBuilder: JAlertDialog_Builder; dialog: JAlertDialog; Items: TJavaObjectArray<JCharSequence>; // ................ TextView: JTextView; // uses Androidapi.JNI.Widget Typeface: JTypeface; FontFile: string; // ................ begin AssertIsNotNil(Actions); FActions := Actions; { Create Alert Dialog } if TOSVersion.Major <= 2 then DialogBuilder := TJAlertDialog_Builder.JavaClass.init(TAndroidHelper.Context) else DialogBuilder := TJAlertDialog_Builder.JavaClass.init(TAndroidHelper.Context, GetNativeTheme); // ................ { Пытаемся загрузить шрифт } FontFile := TPath.Combine(TPath.GetDocumentsPath, 'FontAwesome.ttf'); if FileExists(FontFile) then // выдает, что найден begin Typeface := TJTypeface.JavaClass.createFromFile(StringToJString(FontFile)); // пытаемся загрузить шрифт TextView := TJTextView.JavaClass.init(TAndroidHelper.Context); // создаем TextView TextView.setText(StrToJCharSequence(' ' + widechar($F085) + ' options')); // выводим посмотреть что получилось TextView.setTypeface(Typeface); // эту строчку забыл добавить!!! DialogBuilder.setView(TextView); // присваиваем нашему диалогу TextView end; // ................ { Forming Action List } Items := ItemsToJavaArray; if not ATitle.IsEmpty then DialogBuilder.setTitle(StrToJCharSequence(ATitle)); DialogBuilder.setItems(Items, FListener); DialogBuilder.setCancelable(True); CallInUIThread( procedure begin dialog := DialogBuilder.Create; dialog.Show; end); end; в итоге получается вот такое UPDATE: получилось присвоить TextView шрифт, забыл присвоить Typeface Что я делаю не так? Как теперь добавленным item'ам применить новый Typeface?

я же говорил, на просторах инета нашел. я его даже не пробовал

idhttp1.Create(Application); - что это за бред? IdHTTP - это откуда взялось? никогда и никому этот код не показывай берем файлик во вложении подключаем в проекте и пишем with ListView1.Items.Add do begin Text := 'Text'; Bitmap.LoadFromUrl('http://site.ru/icons/icon.png'); end; не проверял, но должно работать. не нужно пихать в поток, там итак уже используется FMX.Features.Bitmap.Helpers.zip

Ярослав, прошу попутно зацепить ImageList... Как сказали уже картинки нельзя прикрутить, нативно они не поддерживаются. Поэтому хочу использовать шрифт FontAwesome только нужно допилить немного, чтобы шрифт грузился

долго ли ждать следующую версию? на счёт шрифта, спасибо. завтра попробую

на кнопки повешать TTabControl.ActiveTab := TTabItem; убрать отображение вкладок TTabControl.TabPosition := None;

Пока писал вопросы, один решил 1) Создание динамически элементов получилось так: var fgItem: TfgActionCollectionItem; // uses FGX.ActionSheet.Types begin fgItem := fgActions.Actions.Add as TfgActionCollectionItem; fgItem.Caption := 'Контакты'; fgItem.OnClick := OnClickProc; end; 2) Как можно поменять шрифт? (я использую FontAwesome) 3) Как отловить закрытие? P.S. В качестве идеи/бреда, для десктопов можно было использовать TPopupMenu как основу

один экран - одна форма?? зачем тогда использовать TTabControl

TListBox с горизонтальной ориентацией

модуль UGlobal отсутствует, точней функция GetParentForm. Можете её выложить?

для чего это понадобилось?

не работает на Intel'ax

TLayout + TText + TLayout с контролами для управления текстом

Вам не кажется что вы что-то делаете не так? Ни ListView ни ListBox для этого не предназначены. Думаю, я Вам помог

вот что форум может предложить http://fire-monkey.ru/topic/17-nativnye-komponenty-dpf-delphi-android-native-components/ http://fire-monkey.ru/topic/2034-zeroplayer-for-delphidx-android/ http://fire-monkey.ru/topic/294-polnostiu-translirovannoe-android-api-7-19-urovnia/ http://fire-monkey.ru/topic/96-video-proigryvatel-vlc-dlia-android/

Ничего подобного. Отрисовка не вызывается. Верно на 146%. сейчас посмотрел, действительно не вызывается отрисовка. но лишние действия все равно выполняются