修改

2024-10-11 17:53:41 +08:00
parent 6d2f348019
commit 4a548c4861
6 changed files with 35 additions and 10 deletions
@@ -1681,21 +1681,32 @@ type TPageEditer=class(TPage) //
        IF ssCtrl in e.shiftstate then
        begin
            fw := font.Width;
+            hw := font.height;
            if e.delta<0 then
            begin
                if fw>6 then
                begin
-                    finfo := array("width":fw-1,"height":font.height-2);                    
+                    if fw=18 then 
+                    begin
+                        fw :=17;
+                        hw :=34;
+                    end 
+                    finfo := array("width":fw-1,"height":hw-2);                    
                end
            end else
            begin
                if fw<24 then
                begin
-                    finfo := array("width":fw+1,"height":font.height+2);
+                    if fw=16 then 
+                    begin
+                        fw := 17;
+                        hw := 34;
+                    end 
+                    finfo := array("width":fw+1,"height":hw+2);
                end
            end
            if finfo then 
-            begin 
+            begin
                font := finfo;
                callMessgeFunction(onscrollfont,o,finfo);
                InValidateRect(nil,false);