mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed "bug" with mouse-editing

Browse Source
This commit is contained in:
zueuk 2007-10-28 13:30:12 +00:00
parent dec5c50e8f
commit 1036769a10
2 changed files with 1013 additions and 434 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1438
2.10/Source/Editor.dfm
View File

File diff suppressed because it is too large Load Diff

9
2.10/Source/Editor.pas
View File

@ -2245,7 +2245,8 @@ begin
if viewDragged = false then // haven't dragged - popup menu then if viewDragged = false then // haven't dragged - popup menu then
begin begin
GetCursorPos(mousepos); // hmmm //GetCursorPos(mousepos); // hmmm
mousePos := (Sender as TControl).ClientToScreen(Point(x, y));
if mouseOverTriangle < 0 then if mouseOverTriangle < 0 then
EditPopup.Popup(mousepos.x, mousepos.y) EditPopup.Popup(mousepos.x, mousepos.y)
else begin else begin
@ -3099,7 +3100,8 @@ begin
Screen.Cursor := crHSplit; Screen.Cursor := crHSplit;
GetCursorPos(mousepos); // hmmm //GetCursorPos(mousepos); // hmmm
mousePos := (Sender as TControl).ClientToScreen(Point(x, y));
varDragMode:=true; varDragMode:=true;
varDragPos:=0; varDragPos:=0;
@ -4305,7 +4307,8 @@ begin
//SetCaptureControl(TControl(Sender)); //SetCaptureControl(TControl(Sender));
Screen.Cursor := crHSplit; Screen.Cursor := crHSplit;
GetCursorPos(mousepos); // hmmm //GetCursorPos(mousepos); // hmmm
mousePos := (Sender as TControl).ClientToScreen(Point(x, y));
HasChanged := false; HasChanged := false;
end; end;