paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 22:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Karoly Balogh 2021-12-26 22:22:38 +01:00
parent 1f41cd195f
commit c01c13c29a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/amunits/src/coreunits/intuition.pas
View File

@ -4414,6 +4414,7 @@ begin
WA_SizeGadget: NewWindow^.Flags := NewWindow^.Flags or WFLG_SIZEGADGET; WA_SizeGadget: NewWindow^.Flags := NewWindow^.Flags or WFLG_SIZEGADGET;
WA_SmartRefresh: NewWindow^.Flags := NewWindow^.Flags or WFLG_SMART_REFRESH; WA_SmartRefresh: NewWindow^.Flags := NewWindow^.Flags or WFLG_SMART_REFRESH;
WA_Activate: NewWindow^.Flags := NewWindow^.Flags or WFLG_ACTIVATE; 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_SuperBitMap: NewWindow^.BitMap := Pointer(TagList^.ti_Data);
WA_Title: NewWindow^.Title := PChar(TagList^.ti_Data); WA_Title: NewWindow^.Title := PChar(TagList^.ti_Data);
WA_Top: NewWindow^.TopEdge := TagList^.ti_Data; WA_Top: NewWindow^.TopEdge := TagList^.ti_Data;