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

fixed zooming bug in main window

Browse Source
This commit is contained in:
zueuk
2006-09-27 14:52:07 +00:00
parent 2c9a9705cc
commit 07078fa223
8 changed files with 48 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
2.10/Source/Adjust.pas
View File

@ -1775,14 +1775,14 @@ begin
end;
MainForm.SetBounds(l, t, w, h);
end
else MainForm.RedrawTimer.Enabled := true;
end;
MainForm.RedrawTimer.Enabled := true;
end;
procedure TAdjustForm.GetMainWindowSize;
begin
ImageWidth := MainCP.Width; //MainForm.Image.Width;
ImageHeight := MainCP.Height; //MainForm.Image.Height;
ImageWidth := MainCP.Width;
ImageHeight := MainCP.Height;
txtWidth.text := IntToStr(ImageWidth);
txtHeight.text := IntToStr(ImageHeight);
end;