Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Die Delphi-IDE (https://www.delphipraxis.net/62-die-delphi-ide/)
-   -   ShortCut für Uses - Unit bewegen (https://www.delphipraxis.net/198751-shortcut-fuer-uses-unit-bewegen.html)

TigerLilly 27. Nov 2018 19:00

ShortCut für Uses - Unit bewegen
 
Gibt es eigentlich einen ShortCut, mit dem man eine Unit vom interface-Teil in den implementation Teil verschieben kann bzw umgekehrt?

Uwe Raabe 27. Nov 2018 19:01

AW: ShortCut für Uses - Unit bewegen
 
Beim MMX Code Explorer gibt es das schon: Ctrl-Alt-Shift-Up/Down

TigerLilly 27. Nov 2018 19:27

AW: ShortCut für Uses - Unit bewegen
 
Ahh. Dachte ich mir doch, dass MMX das kann. :thumb:

TigerLilly 10. Dez 2018 19:35

AW: ShortCut für Uses - Unit bewegen
 
Bei mir bewegt das die ganze Zeile auf oder ab.

Was übersehe ich da?

Uwe Raabe 10. Dez 2018 21:59

AW: ShortCut für Uses - Unit bewegen
 
Zitat:

Zitat von TigerLilly (Beitrag 1420530)
Bei mir bewegt das die ganze Zeile auf oder ab.

Und der Cursor steht dabei auch auf einer Unit in einer der beiden Uses-Anweisungen?

TigerLilly 11. Dez 2018 06:53

AW: ShortCut für Uses - Unit bewegen
 
Ja. Mit markieren + ohne, hab ich beides probiert. Gibt es die Aktion auch über das Menü? Wenn ich mich richtig erinnere, ist der ShortCut gebunden an "Move Selection up". Ich hätte auch nichts anderes passendes gefunden.

Uwe Raabe 11. Dez 2018 07:32

AW: ShortCut für Uses - Unit bewegen
 
Zitat:

Zitat von TigerLilly (Beitrag 1420545)
Wenn ich mich richtig erinnere, ist der ShortCut gebunden an "Move Selection up".

Nein, das wäre Shift-Alt-Up. Das Ctrl-Shift-Alt-Up/Down ist an Move Entity Up/Down gebunden, wenn nichts verändert wurde.

Der Befehl macht in der Regel zwar genau das, was du beschrieben hast, ist aber eigentlich deaktiviert, wenn der Cursor in einer uses-Anweisung steht (Shortcut funktioniert aber noch). In dem Fall wird mit dem Befehl die Unit unter dem Cursor in den jeweils anderen Bereich geschoben.

TigerLilly 11. Dez 2018 11:33

AW: ShortCut für Uses - Unit bewegen
 
Habs eben überprüft: Beide Shortcuts bewegen die ganze Zeile, unabhängig davon, ob etwas markiert ist oder nicht. Egal ob via Shortcut oder über das Menü.

Version ist 14.0.2 + ich habe an den Settings nichts geändert.

Uwe Raabe 11. Dez 2018 11:44

AW: ShortCut für Uses - Unit bewegen
 
Kannst du mal die fragliche Uses-Clause mit ein bisschen drumherum hier zeigen? Ich würde das gerne versuchen zu reproduzieren.

TigerLilly 11. Dez 2018 12:00

AW: ShortCut für Uses - Unit bewegen
 
Code:
interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.TabControl,
  FMX.StdCtrls, FMX.Controls.Presentation,
  FMX.Gestures, System.Actions, FMX.ActnList, FMX.TMSFNCButton, FMX.ScrollBox,
  FMX.Memo;

type
  TTabbedwithNavigationForm = class(TForm)
    TabControl1: TTabControl;
    TabItem1: TTabItem;
    TabControl2: TTabControl;
    TabItem5: TTabItem;
    ToolBar1: TToolBar;
    lblTitle1: TLabel;
    btnNext: TSpeedButton;
    TabItem6: TTabItem;
    ToolBar2: TToolBar;
    lblTitle2: TLabel;
    btnBack: TSpeedButton;
    TabItem2: TTabItem;
    ToolBar3: TToolBar;
    lblTitle3: TLabel;
    TabItem3: TTabItem;
    ToolBar4: TToolBar;
    lblTitle4: TLabel;
    TabItem4: TTabItem;
    ToolBar5: TToolBar;
    lblTitle5: TLabel;
    GestureManager1: TGestureManager;
    ActionList1: TActionList;
    NextTabAction1: TNextTabAction;
    PreviousTabAction1: TPreviousTabAction;
    mmoLog: TMemo;
    btnLoad: TTMSFNCButton;
    actLoad: TAction;
    btnCreate: TTMSFNCButton;
    actCreateJSON: TAction;
    procedure actCreateJSONExecute(Sender: TObject);
    procedure actLoadExecute(Sender: TObject);
    procedure GestureDone(Sender: TObject; const EventInfo: TGestureEventInfo;
      var Handled: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    procedure DataToJSON;
    procedure LoadData;
    { Public declarations }
  end;

var
  TabbedwithNavigationForm: TTabbedwithNavigationForm;

implementation

uses
  System.IOUtils, System.StrUtils, JsonDataObjects;

{$R *.fmx}
Genügt das?

Uwe Raabe 11. Dez 2018 13:12

AW: ShortCut für Uses - Unit bewegen
 
Funktioniert hier einwandfrei.

Kannst du mal spaßeshalber in MMX das Keybinding für eine der beiden Funktionen ändern? Vielleicht hängt sich da ja noch jemand anderes rein.

TigerLilly 11. Dez 2018 13:58

AW: ShortCut für Uses - Unit bewegen
 
Ich hab die Funktion jetzt direkt über das Menü aufgerufen, da funktioniert es. Ich hab sonst die GExperts noch installiert, wahrscheinlich kollidiert da was.

BTW: Gab es nicht die Möglichkeit, das MMX Popup in das Editor Popup zu integrieren?

Uwe Raabe 11. Dez 2018 14:16

AW: ShortCut für Uses - Unit bewegen
 
Zitat:

Zitat von TigerLilly (Beitrag 1420607)
BTW: Gab es nicht die Möglichkeit, das MMX Popup in das Editor Popup zu integrieren?

Das funktioniert seit 10.3 Rio leider nicht mehr so wie früher und es hat offenbar auch noch keiner eine Lösung gefunden.

TigerLilly 11. Dez 2018 14:41

AW: ShortCut für Uses - Unit bewegen
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hab den Übeltäter gefunden: DdevExtensions

Uwe Raabe 11. Dez 2018 15:30

AW: ShortCut für Uses - Unit bewegen
 
Zitat:

Zitat von TigerLilly (Beitrag 1420612)
Hab den Übeltäter gefunden: DdevExtensions

:thumb:


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:00 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz