|
@@ -47,11 +47,11 @@ uses
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
{$IfDef MAC_COCOA}
|
|
{$IfDef MAC_COCOA}
|
|
CocoaAll,
|
|
CocoaAll,
|
|
|
|
+ MacOSAll,
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
{$IFDEF iOS}
|
|
{$IFDEF iOS}
|
|
iPhoneAll, CFBase, CFString,
|
|
iPhoneAll, CFBase, CFString,
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
-
|
|
|
|
zgl_types;
|
|
zgl_types;
|
|
|
|
|
|
const
|
|
const
|
|
@@ -383,10 +383,9 @@ begin
|
|
if not Already(width, height) Then
|
|
if not Already(width, height) Then
|
|
begin
|
|
begin
|
|
INC(scrResList.Count);
|
|
INC(scrResList.Count);
|
|
- SetLength(scrResList.Width, scrResList.Count);
|
|
|
|
- SetLength(scrResList.Height, scrResList.Count);
|
|
|
|
- scrResList.Width[scrResList.Count - 1] := width;
|
|
|
|
- scrResList.Height[scrResList.Count - 1] := height;
|
|
|
|
|
|
+ SetLength(scrResList.List, scrResList.Count);
|
|
|
|
+ scrResList.List[scrResList.Count - 1].Width := width;
|
|
|
|
+ scrResList.List[scrResList.Count - 1].Height := height;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
{$ENDIF}
|
|
{$ENDIF}
|