Лидеры

Обычные операции по работе с множествами :-) TMapLayerOption.Traffic in MapView.LayerOptions;

Убрать трафик MapView.LayerOptions:=MapView.LayerOptions-[TMapLayerOptions.Traffic]; Включить трафик MapView.LayerOptions:=MapView.LayerOptions+[TMapLayerOptions.Traffic];

Не: MapView.LayerOptions:=MapView.LayerOptions-[TMapLayerOptions.Traffic]; а MapView.LayerOptions:=MapView.LayerOptions-[TMapLayerOption.Traffic]; Без s на конце TMapLayerOptions

Для справки, исходники всегда можно было менять. И причем любые исходники можно менять при их наличии. Однако, нужно понимать, как работает компилятор и как происходит линковка вашего кода с уже существующими собранными модулями. Вначале разберитесь с этим, а потом, когда вы эту тему разобрали вдоль и поперек, то тут можете и свой сарказм вставить. А то, как-то получается нехорошо, что вы в базовых вопросах компиляции и линковки не разобрались и не сильны, а при этом тут целые суждения строите без фундамента. P.S. Ответ на ваш вопрос был дан выше. P.S.S. Исходники IDE вам никогда не дадут менять. Банально потому, что их хотя бы нет в поставке.

Сори за флуд. Вот код в прищепке. Alienware.zip

Как-то так #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.fmx" TForm1 *Form1; int c=0; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { c=c+20; Arc1->EndAngle=c; if (c<90) {Text1->Text="4";} else if (c<180) {Text1->Text="3";} else if (c<270) {Text1->Text="2";} else if (c<360) {Text1->Text="1";} else if (c==360) {Timer1->Enabled=False;Text1->Text="0";c=0;} } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Arc1->EndAngle=0; Timer1->Enabled=true; } //--------------------------------------------------------------------------- ArcTimer.zip

procedure TStartForm.getAllNotfications; var LNotification: TPushServiceNotification; s:string; ps:TPushService; begin if AServiceConnection=NIL then exit; ps:=AServiceConnection.Service; for LNotification in ps.StartupNotifications do begin s:=lNotification.Json.ToString; ///.... end; TNotificationCenter.Create(nil).CancelAll; end;

да все верно

можно не разрешать приложению работать пока пользователь не включит высокую точность по GPS function IsGPS_high_accuracy: Boolean; // uses AndroidApi.Helpers, AndroidApi.JNI.Provider; var Provider: string; LocationMode: integer; begin Result := false; {$IFDEF ANDROID} if TOSVersion.Check(4, 4) then begin LocationMode := TJSettings_Secure.JavaClass.getInt(TAndroidHelper.Context.getContentResolver, TJSettings_Secure.JavaClass.LOCATION_MODE); Result := LocationMode <> TJSettings_Secure.JavaClass.LOCATION_MODE_HIGH_ACCURACY; end else begin Provider := JStringToString(TJSettings_Secure.JavaClass.GetString(TAndroidHelper.Context.getContentResolver, TJSettings_system.JavaClass.LOCATION_PROVIDERS_ALLOWED)); Result := (Pos('gps', Provider) > 0); end; {$ENDIF} end;

Хм, сомнительное предложение. Так то XSuperObject со всеми плюшками собирается для всех платформ. Если кого родной не устраивает. Что за стили и при чем тут суперобжект не ясно. А вообще у нас на форуме не принято меняться, есть что полезного показывайте. Велком в нужный раздел

Кто сказал что через ini нельзя? Всё прекрасно работает