透過DBGrid的OnDrawColumnCell事件將字體變色

透過DBGrid的OnDrawColumnCell事件將字體變色

由大衛王(david king) 發表於 [ Delphi ]
(1666) 閱讀,  (0) 引用,  (0) 回應 , 推文( 2 )

有時候我們常會需要將DBGrid中某Cell依照某條件下將字體變色，以突顯其重要。如果要做到這點，就得尋找DB顯示文字前所觸發的事件。Search一下後，確認DBGrid有兩個關於資料的顯示時會觸發的事件，分別是OnDrawColumnCell以及OnDrawDataCell。OnDrawDataCell在Delphi 6中僅是了為了相容而存在的，Delphi建議用OnDrawColumnCell取代它。因此我們只要關注OnDataColumnCell即可。

假設我們需要判斷TQuery中cfm_code欄位值如果為Y就將字體變成藍色，否則就維持預設的字體顏色。

procedure TMasterFM.DBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
inherited;
  //有效的藍色字體, 否則就是黑色
if (myQuery1.FieldByName('cfm_code').AsString = 'Y') then
      DBGrid1.Canvas.Font.Color := clBlue;
  DBGrid1.DefaultDrawDataCell(Rect,Column.Field,State);
end;

程式中我們利用了DBGGrid中的Canvas物件，取出其字體屬性後變更其顏色。最後利用DefaultDrawDataCell方法將欄位值繪入DBGrid的指定Cell。另請注意，DBGrid.DefaultDrawing的屬性與OnDrawColumnCell事件行為也息息相關。

DefaultDrawing預設為True，表示如果沒有於自訂OnDrawColumnCell事件中呼叫行DefaultDrawDataCell方法，則以Canvas預設設定自動呼叫DefaultDrawDataCell。如果設定為False，表示如果沒有於自訂OnDrawColumnCell事件中呼叫行DefaultDrawDataCell方法，則不自動將欄位值填入Cell中，因此欄位會是空白的。這點在開發時倒是要小心一點。

03 六月, 2009 09:45

啟用DBGrid中Field的Lookup功能

由大衛王(david king) 發表於 [ Delphi ]
(1660) 閱讀,  (0) 引用,  (0) 回應 , 推文( 0 )

Delphi中有個大家都不陌生的Lookup功能，只要將Field中的LookupDataSet、KeyFields、LookupKeyFields、以及LookupResultField設定完就搞定。那　，接下來我們在DBGrid中試著測試LookUp的結果，卻發現以下狀況：

• 新增狀態下，輸入Key Field的欄位值並按下tab鍵後，指定的ResultFiled並沒有出現預期的Lookup結果
• 把游標移往下一行後，Lookup的機制才被啟動，進而將LookupResultField結果顯示出來

研究了半天才發現，原來DataSet有個關鍵卻很謙虛的AutoCalcFields屬性值必須設定為True，預期的Lookup效果才會正確的出現。查了Help後，Delphi對該欄位如此解釋：

When AutoCalcFields is True (the default), Lookup fields are recalculated and OnCalcFields is triggered when:

• The dataset is opened.
• The dataset is put into dsEdit state.
• Focus moves from one visual control to another, or from one column to another in a data-aware grid and modifications have been made to the record.

When AutoCalcFields is False, Lookup fields are recalculated and the OnCalcFields event occurs only when

• The dataset is opened.
• The dataset is put into dsEdit state.
• A record is retrieved from a database.

看來，還得根據不同的UI行為設定下才能正確的得到預期的結果。

關於Delphi常有這種大隱隱於市的屬性設定來說，在開發過程中的確有不小的困擾。更別提現在還是在Delphi6的環境下開發，比起現有的RAD工具說明，其Help組織就遜色不少。這時，我就莫名的感謝MS了。

 

 

Free counters