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

Amiga: Bugfix for Tagged Version of OpenWindow at WB1.2/1.3

Browse Source
This commit is contained in:
Marcus Sackrow 2022-11-14 17:55:52 +01:00
parent 75c252fd8f
commit 94368d06ee
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4352,8 +4352,8 @@ begin
begin
NewWindow := @Nw;
FillChar(Nw, SizeOf(Nw), 0);
NW.LeftEdge := 20;
NW.TopEdge := 20;
NW.LeftEdge := 0;
NW.TopEdge := 0;
NW.Width := 200;
NW.Height := 100;
Nw.DetailPen := 0;
@ -4379,7 +4379,14 @@ begin
WA_MinHeight: NewWindow^.MinHeight := TagList^.ti_Data;
WA_MinWidth: NewWindow^.MinWidth := TagList^.ti_Data;
WA_NoCareRefresh: NewWindow^.Flags := NewWindow^.Flags or WFLG_NOCAREREFRESH;
WA_PubScreen: NewWindow^.Screen := Pointer(TagList^.ti_Data);
WA_PubScreen: begin
NewWindow^.Screen := Pointer(TagList^.ti_Data);
NewWindow^.WType := PUBLICSCREEN_F;
end;
WA_CustomScreen: begin
NewWindow^.Screen := Pointer(TagList^.ti_Data);
NewWindow^.WType := CUSTOMSCREEN_F;
end;
WA_PubScreenName:
begin
ILock := LockIBase(0);