JvDesignPanel Component Editor

[geskill]

Jo klar... Ich nehme mal an du wirkst bei JVCL mit
Aber dann würde ich die DevExpress Komponente rauscoden, weil die
hat ja nicht jeder. Sehe grade unten steht noch was von TDownload das
sollte lieber auch noch raus...
Mir fällt gerade noch ein das ich bei den Komponenten was verändert habe:
Damit ich per gedrückter STRG Taste mehrere Komponenten hinzufügen kann. Ich hatte das "einfach" mal ausgeklammert, man kann
jetzt in meinem Programm die Taste ändern ... aber ich verstehe den Sinn von "Ctrl-drag" nicht

In der JvDesignImp.pas Zeile 860:

Delphi-Quellcode:

  procedure SelectDragMode;
  begin
    HandleId := dhNone;
    //if ssCtrl in Shift then // !!!
      // Ctrl-drag selection has highest priority // !!!
      //FDragMode := dmSelect // !!!
    //else // !!!
    //begin // !!!
      HandleId := Surface.GetHitHandle(X, Y);
      if HandleId <> dhNone then
      begin
        FClicked := Surface.Selection[0];
        FDragMode := dmResize;
      end
      else
      begin
        FClicked := Surface.FindControl(X, Y);
        if (FClicked = Surface.Container) or (FClicked is TJvDesignHandle) then
          FClicked := nil;
        Surface.GetAddClass;
        if Surface.AddClass <> '' then
          // then object creation
          FDragMode := dmCreate
        else
        if FClicked <> nil then
          // moving is last
          FDragMode := dmMove
        else
          // select by default
          FDragMode := dmSelect;
      end;
    //end; // !!!
    if FClicked = nil then
      FClicked := Surface.Container;
    FClicked.Parent.DisableAlign;
  end;

Du kannst es gerne so herreinnehmen oder wir nehmen uns mal ne viertel Stunde und maches es vernünftig
Grüße