瀏覽代碼

* Correct typo in class name TLocalMenuOutlieViewer -> TLocalMenuOutlineViewer

Michaël Van Canneyt 6 月之前
父節點
當前提交
cc0012f3dd
共有 1 個文件被更改,包括 5 次插入5 次删除
  1. 5 5
      packages/ide/wviews.pas

+ 5 - 5
packages/ide/wviews.pas

@@ -104,7 +104,7 @@ type
       LastLocalCmd: word;
       LastLocalCmd: word;
     end;
     end;
 
 
-    TLocalMenuOutlieViewer = object(TOutlineViewer)
+    TLocalMenuOutlineViewer = object(TOutlineViewer)
       procedure   HandleEvent(var Event: TEvent); virtual;
       procedure   HandleEvent(var Event: TEvent); virtual;
       procedure   LocalMenu(P: TPoint); virtual;
       procedure   LocalMenu(P: TPoint); virtual;
       function    GetLocalMenu: PMenu; virtual;
       function    GetLocalMenu: PMenu; virtual;
@@ -1569,7 +1569,7 @@ begin
   inherited HandleEvent(Event);
   inherited HandleEvent(Event);
 end;
 end;
 
 
-procedure TLocalMenuOutlieViewer.LocalMenu(P: TPoint);
+procedure TLocalMenuOutlineViewer.LocalMenu(P: TPoint);
 var M: PMenu;
 var M: PMenu;
     MV: PAdvancedMenuPopUp;
     MV: PAdvancedMenuPopUp;
     R: TRect;
     R: TRect;
@@ -1590,18 +1590,18 @@ begin
     Message(GetCommandTarget,evCommand,Re,@Self);
     Message(GetCommandTarget,evCommand,Re,@Self);
 end;
 end;
 
 
-function TLocalMenuOutlieViewer.GetLocalMenu: PMenu;
+function TLocalMenuOutlineViewer.GetLocalMenu: PMenu;
 begin
 begin
   GetLocalMenu:=nil;
   GetLocalMenu:=nil;
 {  Abstract;}
 {  Abstract;}
 end;
 end;
 
 
-function TLocalMenuOutlieViewer.GetCommandTarget: PView;
+function TLocalMenuOutlineViewer.GetCommandTarget: PView;
 begin
 begin
   GetCommandTarget:=@Self;
   GetCommandTarget:=@Self;
 end;
 end;
 
 
-procedure TLocalMenuOutlieViewer.HandleEvent(var Event: TEvent);
+procedure TLocalMenuOutlineViewer.HandleEvent(var Event: TEvent);
 var DontClear: boolean;
 var DontClear: boolean;
     P: TPoint;
     P: TPoint;
 begin
 begin