Source position: bcsamples.pas line 184
procedure DrawWindows8Background(
ABitmap: TBGRABitmap;
cl1: TColor;
cl2: TColor
);