delphi4arab منتديات دلفي للعرب

السلام عليكم

هنا مثال مرفق في كيفية تلوين خانة من 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. 

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

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

كود :
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;

wadoud

محمد الدرة

Manarsoft