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

проверка интернета
function CheckInet: boolean; var aResp: IHTTPResponse; aHTTP: THTTPClient; begin Result := false; aHTTP := THTTPClient.Create; try try aResp := aHTTP.Head('http://google.com'); Result := aResp.StatusCode < 400; except Result := false; end; finally FreeAndNil(aHTTP); end; end; get запрос
function HTTPGet(const aURL: string): string; var aHTTP: THTTPClient; aResp: TStringStream; begin Result := 'Error'; aResp := TStringStream.Create('', TEncoding.UTF8); aHTTP := THTTPClient.Create; try try aHTTP.Get(aURL, aResp); Result := aResp.DataString; except Result := 'Error'; end; finally FreeAndNil(aHTTP); FreeAndNil(aResp); end; end;  

Если правильно помню, то ПКМ по форме -> Tab Order
там можно выставить правильный порядок

const aColorNames: array [0 .. 3] of string = ('Black', 'Red', 'Yellow', 'Green'); aColors: array [0 .. 3] of TAlphaColor = (TAlphaColorrec.Black, TAlphaColorrec.red, TAlphaColorrec.Yellow, TAlphaColorrec.Green); procedure TForm1.DoItemApplyStyleLookup(Sender: TObject); var ColorObj: TShape; begin if TListBoxItem(Sender).FindStyleResource<TShape>('color', ColorObj) then ColorObj.Fill.Color := aColors[TListBoxItem(Sender).Tag]; end; procedure TForm1.Button1Click(Sender: TObject); var aItem: TListBoxItem; I: Integer; begin ComboBox1.DropDownKind := TDropDownKind.Custom; // uses FMX.Pickers; for I := Low(aColorNames) to High(aColorNames) do begin aItem := TListBoxItem.Create(ComboBox1); aItem.Parent := ComboBox1; aItem.Text := aColorNames[I]; aItem.Width := aItem.DefaultSize.Width; aItem.Height := aItem.DefaultSize.Height; aItem.StyleLookup := 'colorlistboxitemstyle'; aItem.StylesData['color.Fill.Color'] := aColors[I]; aItem.OnApplyStyleLookup := DoItemApplyStyleLookup; aItem.Tag := I; end; end; как-то так

var MyRect: TRectF; begin MyRect := RectF(10, 10, 30, 30); if Canvas.BeginScene then try Canvas.Fill.Color := TAlphaColorRec.Red; Canvas.Stroke.Color := TAlphaColorRec.Black; Canvas.FillEllipse(MyRect, 1); Canvas.DrawEllipse(MyRect, 1); finally Canvas.EndScene; end; end; FillEllipse - заливка
DrawEllipse - обводка

var Line: TmapPolylineDescriptor; Points: TArray<TMapCoordinate>; begin SetLength(Points, 2); Points[0] := TMapCoordinate.Create(49.901493, 28.587838); Points[1] := TMapCoordinate.Create(49.897793, 28.585026); Line := TmapPolylineDescriptor.Create(Points); Line.StrokeColor := TAlphaColorRec.Darkgrey; MapView.AddPolyline(Line); end; прочитайте как работать с массивами

На мобильных это делается с помощью TAniCalculations, в ModernLV есть метод getAniCalc
if ListView1.getAniCalc <> nil then ListView1.getAniCalc.Animation := false; в момент вызова этого кода скроллинг остановится

эта старая версия, вот здесь сделал по другому
 

кто-то в чатике просил сделать подобное, вот что получилось
FMX.AppMinimized.zip
сворачивание/разворачивание делается, только после разворота не делается активация формы (не было времени с этим разбираться у меня)

как-то странно вы стили подключаете... зачем его редактировать?
Загрузите в TStyleBook стиль, выберите нужный для TComboBox.
а то что не выбирается, возможно в стиле где-то косяк в HitTest у элементов
HitTest = true - разрешает принимать события мыши
HitTest = false - запрещает принимать события мыши

Ну как по мне:
1) только iOS и симулятор на айфоне, без айпада
2) MacOS + iOS + симулятор - вся продукция эпл
3, 4) iOS (включая симулятор, айфон, айпад)
В Делфи немного по другому, но тоже много вариантов. Используется в разных случаях.

да, иначе компилятор берет dcu, а не pas файл

TintColor не во всех стилях есть, в дефалтном на Windows точно нету.
на какой платформе тестите?

настройки (Version Info) одинаково заполнили для 32/64? включили опцию universal binary file?

мы в чатике провели небольшое расследование.
получилось что ресурсы на мобильных (на андроиде точно) сделаны для совместимости кода, т.к. даже если вы добавите в ресурсы файл, он все равно окажется в деплойменте
и доступ будет и через TResourceStream и по пути.
тест был такой
1) Новый проект
2) Project - Resources and Images
3) добавляем файл (camera_1x.png) 

 
 
 
 
 
 
 
 
 
 
4) компилируем на андроид устройство
5) проверяем оба варианта
procedure TForm1.Button1Click(Sender: TObject); var ResourceStream: TResourceStream; begin ResourceStream := TResourceStream.Create(hInstance, 'camera', RT_RCDATA); try ResourceStream.Position := 0; Image1.Bitmap.LoadFromStream(ResourceStream); finally FreeAndNil(ResourceStream); end; end; procedure TForm1.Button2Click(Sender: TObject); begin Image1.Bitmap.LoadFromFile(TPath.Combine (TPath.GetDocumentsPath, 'camera_1x.png')); end; в deployment'е наш файлик

HitTest := true стоит?

ты можешь это легко исправить, uses FMX.Dialogs.Default, на что фантазии хватит
это под Windows

Для мобильных есть (не)визуальные нативные компоненты
TCustomPopover - http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.MultiView.Types.TCustomPopover TCustomListPicker - http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.Pickers.TCustomListPicker TMultiView с режимом Popover TfgActionSheet - http://fire-monkey.ru/topic/3173-rx-fgx-описание-версии-071118/

вот почитайте как правильно вызывать
http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.DialogService.TDialogService.MessageDialog

это родной стиль от андроид 2.3, чтобы такой использовать нужно нарисовать его самому

попробовать изменить так
aItem.StylesData['Edit.OnKeyDown'] := TValue.From<TKeyEvent>(EditKeyDown(Self,key,KeyChar,Shift))  

Ну как-бы все вроде из названия понятно
Debug конфиг есть возможность пользоваться дебагером вес приложения больше из-за доп. файлов (deployment) Release конфиг дебагер не работает вес меньше возможность публикации приложении в магазины платформ

Ну так отключите если не используется и не будет пугать.
 
Из коробки сделано, чтобы новички при создании нового приложения не испытывали сложности. Эти все разрешения используются в демках студии. По очереди или скопом.

TGestureManager кинуть на форму связать контрол и TGestureManager через свойство Touch  выбрать LongTap в InteractiveGestures в событии OnGesture контрола написать примерно такое if EventInfo.GestureID = igiLongTap then ShowMessage('Long Tap'); а меню это уже совсем другая тема

в раздел интересующий зайти и там сверху справа есть "Подписаться"

ModernLV.getVisibleCount