كيف جعل الخانة دات اللون الاحمر تظهر اللون الاحمر ثم تخفيه و تظر اللون الابيص...

[wadoud]

السلام عليكم

هنا مثال مرفق في كيفية تلوين خانة من bdgrid
كيف يمكن جعل الخانة دات اللون الاحمر تظهر اللون الاحمر ثم تخفيه و تظر اللون الابيص ثم الاحمر و هكدا كالغماز الضوئي

PHP كود :

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   DBGrid1.Canvas.Font.Color:=clblue;
  if Table1.FieldByName('Salary').AsCurrency>40000 then
begin

   DBGrid1.Canvas.Brush.Color:=clred;
end
else
    
     DBGrid1.Canvas.Brush.Color:=clyellow;
if DataCol = 1 then //4 th column is 'Salary'
  DBGrid1.DefaultDrawColumnCell
    (Rect, DataCol, Column, State);
end;

end. 


[محمد الدرة]

جرب استخدام التايمر واستخدم الشرط فيه

[Manarsoft]

لم افهم كثيرا ولكن ربما تريد الحصول على:

كود :

Application.ProcessMessage; Sleep(500); // Relax 500 ms if DBGrid1.Canvas.Brush.Color =clRed then DBGrid1.Canvas.Brush.Color := clWhite else DBGrid1.Canvas.Brush.Color := clRed;