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

a couple of interface bugs fixed

Browse Source
This commit is contained in:
zueuk 2006-10-29 13:44:45 +00:00
parent 6b890ba584
commit c132463c76
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2.10/Source/Editor.pas
View File

@ -640,7 +640,7 @@ begin
// just in case: // just in case:
SetCaptureControl(nil); SetCaptureControl(nil);
HasChanged := false; HasChanged := false;
viewDragMode := false; // viewDragMode := false;
varDragMode := false; varDragMode := false;
pnlDragMode := false; pnlDragMode := false;
CornerCaught := false; CornerCaught := false;
@ -3594,7 +3594,7 @@ begin
EditForm.StatusBar.Panels[2].Text := Format('Zoom: %f', [GraphZoom]); EditForm.StatusBar.Panels[2].Text := Format('Zoom: %f', [GraphZoom]);
if viewDragMode then begin if viewDragMode then begin
sc := GraphZoom * 50; sc := GraphZoom * 50;
gCenterX := fx - (p.X - TriangleView.Width/2) / sc; gCenterX := fx - (p.X - TriangleView.Width/2) / sc;
gCenterY := fy + (p.Y - TriangleView.Height/2) / sc; gCenterY := fy + (p.Y - TriangleView.Height/2) / sc;