رنگی کردن برخی از سلولهای Dbgrid بر اساس شرط خاص - تالار گفتمان آذر فروم





فروش فوری انجمن آذر فروم با 1 گیگ هاست نامحدود به قیمت مناسب
جهت خرید با شماره 09363810642 تماس حاصل فرمایید.

 

رنگی کردن برخی از سلولهای Dbgrid بر اساس شرط خاص
زمان کنونی: 29-05-1396،10:42 ب.ظ
کاربران در حال بازدید این موضوع: 1 مهمان
نویسنده: Friga
آخرین ارسال: Friga
پاسخ: 1
بازدید: 305

 
 
رتبه موضوع:
  • 0 رای - 0 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5

موضوع: رنگی کردن برخی از سلولهای Dbgrid بر اساس شرط خاص
ارسال: #1
رنگی کردن برخی از سلولهای Dbgrid بر اساس شرط خاص
پست‌ها: 11,943
تاریخ عضویت: 20 اردیبهشت 1390
اعتبار: 288
حالت من: Shad
procedure TFRM_Main.DBG_MainGetCellParams(Sender: TObject; Field: TField;
AFont: TFont; var Background: TColor; Highlight: Boolean);
begin
if (Field.AsString = ’0′) and (Field.FullName = ‘LoadingAttn’) then
begin
Background := $00E69B00;
AFont.Color := clBlack;
AFont.Style := AFont.Style + [fsBold];
end
else
begin
if (Field.AsString = ’0′) and (Field.FullName = ‘DeliveryAttn’) then
begin
Background := $0082FFFF;
AFont.Color := clBlack;
AFont.Style := AFont.Style + [fsBold];
end
else
begin
if (Field.AsString = ‘H’) and (Field.FullName = ‘EctaCode1′) then
begin
Background := $008080FF;
AFont.Color := clBlack;
AFont.Style := AFont.Style + [fsBold];
end
else
begin
AFont.Color := clBlack;
AFont.Style := AFont.Style – [fsBold];
Background := clWhite;
end;
end;
end;
end;
















دورمچم به جای ساعت یکنوار مشکی بستم
تا همه بفهمن من از همه هر چه زمانو متعلق به زمان است بیزارم
من هم روزی قلبی داشتم
که توسط مردمانی ازمیان شما شکست و شکست تا سنگی شد
واکنون روزگاریست که شیطان فریاد میزند..
انسان پیدا کنید سجده خواهم کرد...


=====ஜ۩۞۩ஜ=====

18-05-1391 12:44 ق.ظ
 


موضوعات مشابه ...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
  تبدیل String به Integer بر اساس یک تابع ساخت Random Friga 0 386 18-05-1391 12:50 ق.ظ
آخرین ارسال: Friga
  رنگی کردن ردیفهای متفاوت زوج و فرد در DBGRID Friga 0 286 18-05-1391 12:47 ق.ظ
آخرین ارسال: Friga

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان