浏览代码

Editor file dialog scroll fix

Arthur Yefimov 3 年之前
父节点
当前提交
6990f69b71
共有 2 个文件被更改,包括 3 次插入2 次删除
  1. 1 0
      src/Editor.Mod
  2. 2 2
      src/OV.Mod

+ 1 - 0
src/Editor.Mod

@@ -109,6 +109,7 @@ BEGIN L := c.colFiles.items;
   OV.EditSetCaption(c.edtFilename, s);
 
   OV.ColumnListSetCur(c.colFiles, 0);
+  OV.Refresh(c.colFiles);
   OV.NeedRedraw(c.app)
 END FileDialogUpdateFileList;
 

+ 2 - 2
src/OV.Mod

@@ -635,7 +635,7 @@ TYPE
 
   Scrollbar* = POINTER TO ScrollbarDesc;
   ScrollbarDesc* = EXTENSIBLE RECORD(ControlDesc)
-    max*, cur*, step*: INTEGER; (* cur is runner position in range 0..max *)
+    max*, cur*: INTEGER; (* cur is runner position in range 0..max *)
     runnerOffset*: INTEGER; (* Current visual position of runner *)
     runnerW*: INTEGER; (* Visual width of runner *)
     onScrollbar*: PROCEDURE (c: Control)
@@ -1584,7 +1584,7 @@ END InitWinBtnMethod;
 
 PROCEDURE InitScrollbar*(c: Scrollbar);
 BEGIN InitControl(c); c.max := 100; c.runnerOffset := 1; c.runnerW := 5;
-  c.step := 1; c.w := 30; c.h := 1; c.cur := 0; c.onScrollbar := NIL;
+  c.w := 30; c.h := 1; c.cur := 0; c.onScrollbar := NIL;
   c.do := scrollbarMethod
 END InitScrollbar;