procedure TFrm_main.FormPaint(Sender: TObject);var r : trect;begin Visueel.GradVertical(Frm_Main.Canvas,Frm_Main.ClientRect, clSkyBlue, clBlue); //Visueel.GradVertical(Panel1.Canvas,Panel1.ClientRect, clSkyBlue, clBlue); SetRect(R, 0, 0, Panel1.Width, Panel1.Height); panel1.Canvas.GradientFill(R,clskyblue,clblue,gdvertical);end;