瀏覽代碼

amunits: added missing WA_Activate handling to the OpenWindow taglist handling legacy support code

Karoly Balogh 3 年之前
父節點
當前提交
1f41cd195f
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      packages/amunits/src/coreunits/intuition.pas

+ 1 - 0
packages/amunits/src/coreunits/intuition.pas

@@ -4413,6 +4413,7 @@ begin
       WA_SizeBRight: NewWindow^.Flags := NewWindow^.Flags or WFLG_SIZEBRIGHT;
       WA_SizeGadget: NewWindow^.Flags := NewWindow^.Flags or WFLG_SIZEGADGET;
       WA_SmartRefresh: NewWindow^.Flags := NewWindow^.Flags or WFLG_SMART_REFRESH;
+      WA_Activate: NewWindow^.Flags := NewWindow^.Flags or WFLG_ACTIVATE;
       WA_SuperBitMap: NewWindow^.BitMap := Pointer(TagList^.ti_Data);
       WA_Title: NewWindow^.Title := PChar(TagList^.ti_Data);
       WA_Top: NewWindow^.TopEdge := TagList^.ti_Data;