iCL Slide-out Sidebar Menu

[Crocotronic]

Wenn ich das so mache, habe ich nicht den gewünschten Slide-Effekt...
ist es vielleicht möglich, die bei dem Tutorial verwendete SWRevealViewController Library einzubinden?

[Crocotronic]

Ok, ich werde jetzt erstmal so ein "provisorisches" Menü hinwursteln, denn ohne geht es einfach nicht.
Dazu noch eine Frage: Mit was verwalte ich dann die ganzen Views? Also, wenn ich im Menü dann ein Item auswähle, soll ja ein anderes View angezeigt werden.Ich weiß, dass der NavigationController soetwas tun kann, aber das ist immer diese blöde Leiste oben. Ich möchte ja nur das "Fenster" ändern.

[Crocotronic]

Also, ich habe jetzt folgendes herausgefunden:
Dem TableView muss man als DetailView ein "Blanko-View" zuweise, auf das dann später die DetailViews der einzelnen Items angezeigt werden. Dafür muss man natürlich noch jedem Item des TableViews ein DetailView zuweisen.
Wenn ich meine App jetzt aber starte, sehe ich zuerst das blanke View, bis ich ein Item auswähle. Weiß jemand, wie ich einfach mal das erste DetailView des ersten Items anzeige=
Folgendes funktioniert nicht:

Delphi-Quellcode:

 o_menu.DetailView:= MainView;
 o_menu.Sections[0].Items[0].DetailView:= View1;
 o_menu.Sections[0].Items[1].DetailView:= View2;
 o_menu.Sections[0].Items[2].DetailView:= View3;

 o_menu.NavigationController.pushViewController(View1.getViewController,false);

[Darlo]

Probier mal danach ein

o_menu.initialze

[Crocotronic]

Funktioniert leider nicht :(

[Darlo]

kannst du mal ein Testprojekt hochladen?

[Crocotronic]

Hier mal ein Testprojekt

[Crocotronic]

Und die Lösung lautet:

Delphi-Quellcode:

procedure TF_MainiOS.SelectItem(var ATableView: TTMSFMXNativeUITableView; AIndex: Integer);
var idx: FMX.TMSNativeUICore.NSIndexPath;
    vwMaster: UIView;
    s, r: Integer;
    dt, idt: TTMSFMXNativeUIBaseControl;
    rs: NSRect;
    n: Integer;
    currentView: UIView;
begin
 idx := FMX.TMSNativeUICore.TNSIndexPath.Wrap(FMX.TMSNativeUICore.TNSIndexPath.OCClass.indexPathForRow(AIndex, 0));
 ATableView.TableView.selectRowAtIndexPath(iOSApi.Foundation.NSIndexPath(idx), False, UITableViewScrollPositionTop);

 if not Assigned(ATableView) then
   Exit;

 s:= Integer(idx.section);
 r:= Integer(idx.row);

 idt:= ATableView.GetItem(s,r).SubDetailView;
 dt:= ATableView.GetItem(s,r).DetailView;

 {if Assigned(currentView) then
   currentView.removeFromSuperView;}

 vwMaster := ATableView.DetailView.GetView;
 if Assigned(vwMaster) then
 begin
  for n:= 0 to dt.ChildrenCount - 1 do
  begin
   if dt.Children[n] is TTMSFMXNativeUIBaseControl then
   begin
     (dt.Children[n] as TTMSFMXNativeUIBaseControl).Visible := True;
     (dt.Children[n] as TTMSFMXNativeUIBaseControl).Initialize;
   end;
  end;

  currentView:= dt.GetView;
  if Assigned(currentView) then
  begin
   rs.origin.x := dt.Position.X;
   rs.origin.y := dt.Position.Y;
   rs.size.width := dt.Width;
   rs.size.height := dt.Height;

   currentView.sethidden(false);
   vwMaster.addSubview(currentView);
   currentView.setFrame(rs);
  end;
 end;

 ATableView.OnItemSelect(ATableView, 0, AIndex);
end;

Es funktioniert, wenn ich diese Funktion z.B. im Event eines Buttons aufrufe.
Im OnFormCreate hat es keine Auswirkung, warum?

[Crocotronic]

Slide Menu siehe D.P.F iOS Native Components

[Graberius]

Zitat:

Zitat von Crocotronic (Beitrag 1238043)

Es funktioniert, wenn ich diese Funktion z.B. im Event eines Buttons aufrufe.
Im OnFormCreate hat es keine Auswirkung, warum?

Hast du schon mit OnActivate Probiert?
Ich hatte das selbe Problem wie du aber eben OnActivate war die Lösung
Die Prozedur sieht dann so aus

Delphi-Quellcode:

procedure TMeineForm.FormActivate(Sender: TObject);