编辑器

标签-搜索结果-字体放大功能

designer/utslcodeeditor.tsf

@@ -627,6 +627,14 @@ type TEditerAuxiliary=class(TPage) //
         //FFileFindeItem := CreateApageItem();
         OnSelChanged := thisfunction(OnSelChangedCall);
         CloseBtn := true;
+        onnotification := function(o,e)begin
+            ms := e.message;
+            if ifarray(ms) and ms[0] ="font" then 
+            begin
+                font := ms[1];  
+                InValidateRect(nil,false);      
+            end 
+        end 
     end
     function WMNCLBUTTONDOWN(o,e):WM_NCLBUTTONDOWN;override;
     begin
@@ -1725,7 +1733,7 @@ type TEditer=class(TCustomcontrol) //
         FInfoShowWnd := new TEditerAuxiliary(self);
         FPageEditer := new TPageEditer(self);
         FPageEditer.onscrollfont := function(o,ft)begin
-        
+            self.Notification(self,array("font",ft));
             FinCodemap.FTree.font := ft;
             FinCodemap.FTree.ItemHeight := ft["height"]+6;
         end 
@@ -5653,6 +5661,13 @@ type TFindListWnd=class(TListBox) //
     function Create(AOwner);
     begin
         inherited;
+        onnotification := function(o,e)begin
+            ms := e.message;
+            if ifarray(ms) and ms[0] ="font" then 
+            begin
+                font := ms[1];        
+            end 
+        end 
     end
     function CheckListItem(s);override;
     begin

designer/utslvcldebuger.tsf

@@ -799,6 +799,19 @@ type TTslDebuga=class(TCustomControl)
         begin
             return 1;
         end 
+        onnotification := function(o,e)begin
+            if not (FStackList and FVaraiblesList) then return ;
+            ms := e.message;
+            if ifarray(ms) and ms[0] ="font" then 
+            begin
+                ft := ms[1];
+                FStackList.font := ft;
+                FStackList.ItemHeight := ft["height"]+6; 
+                FVaraiblesList.font := ft;
+                FVaraiblesList.ItemHeight := ft["height"]+6; 
+                //font := ms[1];        
+            end 
+        end 
     end
     function addbreak(item,idx,n); //添加断点
     begin