+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف جعل الخانة دات اللون الاحمر تظهر اللون الاحمر ثم تخفيه و تظر اللون الابيص... (/showthread.php?tid=4936)
كيف جعل الخانة دات اللون الاحمر تظهر اللون الاحمر ثم تخفيه و تظر اللون الابيص... - wadoud - 20-02-2013
السلام عليكم
هنا مثال مرفق في كيفية تلوين خانة من 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.
كيف جعل الخانة دات اللون الاحمر تظهر اللون الاحمر ثم تخفيه و تظر اللون الابيص... - محمد الدرة - 21-02-2013
جرب استخدام التايمر واستخدم الشرط فيه
كيف جعل الخانة دات اللون الاحمر تظهر اللون الاحمر ثم تخفيه و تظر اللون الابيص... - Manarsoft - 21-02-2013
لم افهم كثيرا ولكن ربما تريد الحصول على:
كود :
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;