浏览代码

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

Karoly Balogh 3 年之前
父节点
当前提交
c01c13c29a
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      packages/amunits/src/coreunits/intuition.pas

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

@@ -4414,6 +4414,7 @@ begin
       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_Borderless: NewWindow^.Flags := NewWindow^.Flags or WFLG_BORDERLESS;
       WA_SuperBitMap: NewWindow^.BitMap := Pointer(TagList^.ti_Data);
       WA_Title: NewWindow^.Title := PChar(TagList^.ti_Data);
       WA_Top: NewWindow^.TopEdge := TagList^.ti_Data;