StringGrid 的顏色 |
|
答題得分者是：physics
|
|
yhk
一般會員   發表：11 回覆：7 積分：3 註冊：2002-10-29 發送簡訊給我 |
|
|
brook
資深會員  發表：57 回覆：323 積分：371 註冊：2002-07-12 發送簡訊給我 |
|
|
physics
一般會員 發表：11 回覆：11 積分：9 註冊：2002-05-21 發送簡訊給我 |
試試看這樣: void __fastcall TfrmMain::grd1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State)
{ int x = ACol * (grd1->DefaultColWidth 1) 2;
int y = ARow * (grd1->DefaultRowHeight 1) 2;
Rect.Left = x - 2;
Rect.Top = y - 2;
Rect.Right = x grd1->DefaultColWidth - 2;
Rect.Bottom = y grd1->DefaultRowHeight - 2;
if ((float)ACol/2.0 == ACol/2)
{ grd1->Canvas->Font->Color = clRed;
grd1->Canvas->Brush->Color = (TColor)0x00ECECFF;
}
else
{ grd1->Canvas->Font->Color = clBlue;
grd1->Canvas->Brush->Color = (TColor)0x00FFFFDF;
}
grd1->Canvas->FillRect(Rect);
grd1->Canvas->TextOutA(x, y, IntToStr(x) "," IntToStr(y));
}
|
|
yhk
一般會員 發表：11 回覆：7 積分：3 註冊：2002-10-29 發送簡訊給我 |
發表時間：2002-11-19 18:13:06
IP:61.220.xxx.xxx 未訂閱
系統時間：2024-11-23 11:23:45
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |