رنگی کردن ردیفهای متفاوت زوج و فرد در DBGRID - تالار گفتمان آذر فروم





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

 

رنگی کردن ردیفهای متفاوت زوج و فرد در DBGRID
زمان کنونی: 29-05-1396،07:04 ب.ظ
کاربران در حال بازدید این موضوع: 1 مهمان
نویسنده: Friga
آخرین ارسال: Friga
پاسخ: 1
بازدید: 286

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

موضوع: رنگی کردن ردیفهای متفاوت زوج و فرد در DBGRID
ارسال: #1
رنگی کردن ردیفهای متفاوت زوج و فرد در DBGRID
پست‌ها: 11,943
تاریخ عضویت: 20 اردیبهشت 1390
اعتبار: 288
حالت من: Shad
کد:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
test1: Real;
RowNo: Integer;
begin
with (Sender as TDBGrid) do
begin
if (gdSelected in State) then
begin
// Farbe für die Zelle mit dem Focus
// color of the focused row
Canvas.Brush.Color := clblue;
end
else
begin
// Zeile erfahren
// get the actual row number
rowno := Query1.RecNo;
// gerade und ungerade Zeilen ermitteln
// odd or even ?
test1 := (RowNo / ۲) - trunc(RowNo / ۲);
// Zeile gerade…
// If it’s an even one…
if test1 = ۰ then
begin
farbe := clWhite
end
// …Zeile ungerade
// …else it’s an odd one
else
begin
farbe := clYellow;
end;
Canvas.Brush.Color := farbe;
// Font-Farbe immer schwarz
// font color always black
Canvas.Font.Color := clBlack;
end;
Canvas.FillRect(Rect);
// Denn Text in der Zelle ausgeben
// manualy output the text
Canvas.TextOut(Rect.Left + ۲, Rect.Top + ۱, Column.Field.AsString);
end
end;
















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


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

18-05-1391 12:47 ق.ظ
 


موضوعات مشابه ...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
  رنگی کردن برخی از سلولهای Dbgrid بر اساس شرط خاص Friga 0 304 18-05-1391 12:44 ق.ظ
آخرین ارسال: Friga

پرش به انجمن:


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