mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-11 17:25:39 +02:00
28 lines
874 B
Plaintext
28 lines
874 B
Plaintext
procedure TF_MAIN.FormEndDock(Sender, Target: TObject; X, Y: Integer);
|
|
var
|
|
ParentPanel: TComponent;
|
|
begin
|
|
Docking := False;
|
|
FSCS_Main.PDock1.DockSite := true;
|
|
FSCS_Main.pDock2.DockSite := true;
|
|
FSCS_Main.cbMainPanel.DockSite := true;
|
|
if TForm(Sender).Left > Screen.Width - 100 then
|
|
TForm(Sender).Left := TForm(Sender).Left - 50;
|
|
if TForm(Sender).Top > Screen.Height - 100 then
|
|
TForm(Sender).Top := TForm(Sender).Top - 50;
|
|
// Aey i?eaycuaaaiuo iaiaeae oi?iu
|
|
// DragKind := true; //(anee ii?iaaca ioaycaia)
|
|
// DragKind := false; //(anee ii?iaaca i?eaycaia)
|
|
ParentPanel := TForm(Self).GetParentComponent;
|
|
if ParentPanel = nil then
|
|
begin
|
|
Panel_Addition.DragKind := dkDock;
|
|
Panel_Tree.DragKind := dkDock;
|
|
end
|
|
else
|
|
begin
|
|
Panel_Addition.DragKind := dkDrag;
|
|
Panel_Tree.DragKind := dkDrag;
|
|
end;
|
|
end;
|