Dbgrid 框線問題 |
|
答題得分者是：hagar
|
|
miguel
一般會員   發表：26 回覆：20 積分：9 註冊：2002-03-30 發送簡訊給我 |
|
|
hagar
版主   發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
自行判斷 Column 或 DataCol 參數的值, 決定那格要加粗框線.
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var c: TCanvas; begin c := DBGrid1.Canvas; c.Pen.Color := clBlack; // 指定畫筆的顏色 c.Pen.Width := 4; // 指定畫筆的粗細 // 畫線的起點(Y 的參數的算法是為了能畫到 Title 那一列) c.MoveTo(Rect.Right -1, Rect.Top - (Rect.Bottom - Rect.Top) -1); // 畫線的終點 c.LineTo(Rect.Right -1, Rect.Bottom); end;--- 歡迎光臨 KTop 研究院 |
|
miguel
一般會員 發表：26 回覆：20 積分：9 註冊：2002-03-30 發送簡訊給我 |
|
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
自行判斷 DataCol 的參數, 例:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var c: TCanvas;
begin
if (DataCol mod 3 = 1) and (DataCol > 1) then begin
c := DBGrid1.Canvas;
c.Pen.Color := clBlack; // 指定畫筆的顏色
c.Pen.Width := 4; // 指定畫筆的粗細
// 畫線的起點(Y 的參數的算法是為了能畫到 Title 那一列)
c.MoveTo(Rect.Right -1, Rect.Top - (Rect.Bottom - Rect.Top) -1);
// 畫線的終點
c.LineTo(Rect.Right -1, Rect.Bottom);
end;
end;
---
歡迎光臨 KTop 研究院 |
|
miguel
一般會員 發表：26 回覆：20 積分：9 註冊：2002-03-30 發送簡訊給我 |
發表時間：2003-09-24 10:24:37
IP:61.221.xxx.xxx 未訂閱
系統時間：2024-07-01 19:27:45
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |