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