paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Karoly Balogh 2021-12-26 21:28:15 +01:00
parent f8de5fece2
commit 1f41cd195f
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

@ -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;