Source position: zglHeader.pas line 731
var pr2d_Rect: procedure(
X: Single;
Y: Single;
W: Single;
H: Single;
Color: LongWord = $FFFFFF;
Alpha: Byte = 255;
FX: LongWord = 0
);