یک رنگ بندی و پس زمینه جالب برای فرم شما

[FirstLine]

با سلام
یه Gradiant رنگ برای فرم درست میکند و کافیست این را در Paint فرم قرار دهید.




Procedure Form_Fill_Vertically(frm_Name:TForm);
var
Row, Ht: Word;
IX: Integer;
Begin
iX :=200 ;
Ht:=(frm_Name.ClientHeight + 512) div 256;
for Row := 0 to 512 do
begin
with frm_Name.Canvas do begin
Brush.Color := RGB(Ix,0,row);
FillRect(Rect(0, Row * Ht, frm_Name.ClientWidth, (Row + 1) * Ht));
IX :=(IX-1);
end;
end;
End;



با تشکر