国产中字,日韩五级片,日韩a级特黄大片

VCL中網格控件原理分析

翻譯|其它|編輯：郝浩|2006-06-27 17:33:00.000|閱讀 2204 次

概述：

# 界面/圖表報表/文檔/IDE等千款熱門軟控件火熱銷售中 >>

網格（Grid）控件，可直觀描述二維信息。因此它具有橫向和縱向二軸，就是一個二維表格。
　

一、類繼承結構圖

TCustomGrid

/ \

TCustomDrawGrid TCustomDBGrid

TDrawGrid TDBGrid

TStringGrid

1、TCustomGrid為所有網格控件的父類，定義了網格控件的主要特征和網格控件的主要功能。在這里，我們著重要了解的是它的兩個保護級（protected）方法：

（1）procedure Paint;

所有TWinControl的子類都可通過Paint來繪制自身外形。在TCustomGrid.Paint中，主要實現兩個功能：繪制網格線和填充網格數據。其中，網格數據的填充具體實現由下述的DrawCell完成。在后面的內容，我會結合源代碼詳細解釋Paint。

（2）procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); virtual; abstract;

這是一個純虛方法，被Paint調用，用以實現網格數據的填充。因此，所有TCustomGrid的子類都可以覆蓋（override）這個方法，根據實際需要實現填充方式。

2、TCustomDrawGrid并沒有實際用處。它主要完成兩件事情：

（1）覆蓋TCustomGrid的抽象方法加以實現。TCustomDrawGrid不再是一個抽象類。

（2）添加了一些事件。

比如它覆蓋了TCustomGrid.DrawCell，并在其中觸發了OnDrawCell事件。因此，我們在OnDrawCell中添加代碼，就可以改變特定行列網格中的數據及其填充方式。但要注意的是TCustomDrawGrid覆蓋DrawCell后，并沒有真正實現數據填充（因為它還不知道數據是什么）。簡化后的DrawCell源代碼如下：

procedure TCustomDrawGrid.DrawCell(ACol, ARow: Longint; ARect: TRect;

AState: TGridDrawState);

begin

if Assigned(FOnDrawCell) then

FOnDrawCell(Self, ACol, ARow, ARect, AState);

end;

3、TDrawGrid、TStringGrid都是用戶可以在設計時使用的類，或者簡單的說都是控件。但TDrawGrid是TCustomDrawGrid的一個簡單包裝，因此DrawCell仍然只簡單地觸發事件OnDrawCell，而沒有真正實現數據填充。也正因為如此，TDrawGrid的使用就相當靈活，我們可以利用它繪制文本、圖形圖像等多種信息。

TStringGrid派生于TDrawGrid，專門用于描述文本信息。從以下源代碼可以看到，它真正實現了數據填充：

procedure TStringGrid.DrawCell(ACol, ARow: Longint; ARect: TRect;

AState: TGridDrawState);

begin

if DefaultDrawing then

Canvas.TextRect(ARect, ARect.Left+2, ARect.Top+2, Cells[ACol, ARow]);{即這句}

inherited DrawCell(ACol, ARow, ARect, AState);

end;

4、TDBGrid是數據敏感類的網格控件。它是對TCustomDBGrid的簡單包裝，而TCustomDBGrid的實現原理和普通網格控件是類似的，主要的區別在于數據源不同。比如TStringGrid的數據來自于TStringGrid.Cells，而TCustomDBGrid的數據來自于TCustomDBGrid.DataSource.DataSet。

二、TCustomGrid的主要功能

前面已經說了，TCustomGrid定義了網格控件的主要功能，具有網格控件的主要特征，因此要理解網格控件的基本原理，重點在于TCustomGrid的兩個方法：Paint和DrawCell。

DrawCell是一個純虛方法，在Paint中被調用（具體過程參見下文），因此理解的重點是在兩個地方：

（1）Paint有什么用，Paint是如何運作的。

（2）Paint中做了什么工作。

1、Paint的運作機制。

前面說過了，Paint用來繪制控件自身外形。Paint內部定義了具體的繪制方法，因此，只要在適當的時間和地點調用Paint，就可以改變控件外觀。

在VCL中，可將Paint方法簡單理解為TControl對Windows標準消息WM_PAINT的反應。調用Win32 API中的UpdateWindow、RedrawWindow和InvalidateRect以及VCL中TControl的Repaint、Refresh和Update方法等都會直接或者間接引發相應的WM_PAINT消息。

因此，網格控件的基本運作原理就是：數據或者數據源本身發生變化后，通過適當方式調用Paint方法，從而更新數據填充。拿TStringGrid為例，其Cells的數據改變后：

procedure TStringGrid.SetCells(ACol, ARow: Integer; const Value: string);

begin

TStringGridStrings(EnsureDataRow(ARow))[ACol] := Value;

EnsureColRow(ACol, True);

EnsureColRow(ARow, False);

Update(ACol, ARow); {這句內部調用Win32 API的InvalidateRect標記[ACol, ARow]所指區域需要重畫；系統接著就會發送一個WM_PAINT消息。最終引起Paint的執行。}

end;

2、Paint所做工作。先看看我簡化后的源代碼，更容易說清楚。以“★”為各功能部分劃分標記：

procedure TCustomGrid.Paint;

procedure DrawLines(DoHorz, DoVert: Boolean; Col, Row: Longint;

const CellBounds: array of Integer; OnColor, OffColor: TColor);

begin

{……}

end;

procedure DrawCells(ACol, ARow: Longint; StartX, StartY, StopX, StopY: Integer; Color: TColor; IncludeDrawState: TGridDrawState);

begin

{……}

{其中調用了TCustomGrid的純虛方法DrawCell。

因此TCustomGrid的子類可以覆蓋這個方法，自定義數據的填充方式}

DrawCell(CurCol, CurRow, Where, DrawState);

{……}

end;

begin

{★0：計算網絡繪制參數}

CalcDrawInfo(DrawInfo);

with DrawInfo do

begin

{★1：繪制網格線（如果線寬>0）}

if (Horz.EffectiveLineWidth > 0) or (Vert.EffectiveLineWidth > 0) then

begin

{左上角固定列}

DrawLines(goFixedHorzLine in Options, goFixedVertLine in Options, 0, 0, [0, 0, Horz.FixedBoundary, Vert.FixedBoundary], clBlack, FixedColor);

{橫向固定列}

DrawLines(goFixedHorzLine in Options, goFixedVertLine in Options, LeftCol, 0, [Horz.FixedBoundary, 0, Horz.GridBoundary, Vert.FixedBoundary], clBlack, FixedColor);

{縱向固定列}

DrawLines(goFixedHorzLine in Options, goFixedVertLine in Options, 0, TopRow, [0, Vert.FixedBoundary, Horz.FixedBoundary, Vert.GridBoundary], clBlack, FixedColor);

{非固定列}

DrawLines(goHorzLine in Options, goVertLine in Options, LeftCol, TopRow, [Horz.FixedBoundary, Vert.FixedBoundary, ??? Horz.GridBoundary, Vert.GridBoundary], LineColor, Color);

end;

{★2：填充數據}

{左上角固定列}

DrawCells(0, 0, 0, 0, Horz.FixedBoundary, Vert.FixedBoundary, ??? FixedColor, [gdFixed]);

{橫向固定列}

DrawCells(LeftCol, 0, Horz.FixedBoundary - FColOffset, 0, ??? Horz.GridBoundary, Vert.FixedBoundary, FixedColor, [gdFixed]);

{縱向固定列}

DrawCells(0, TopRow, 0, Vert.FixedBoundary, Horz.FixedBoundary, ?Vert.GridBoundary, FixedColor, [gdFixed]);

{非固定列}

DrawCells(LeftCol, TopRow, Horz.FixedBoundary - FColOffset, Vert.FixedBoundary, Horz.GridBoundary, Vert.GridBoundary, Color, []);

{★3：給被選中網格繪制外框}

Canvas.DrawFocusRect(FocRect);

{★4：填充客戶區中未被網格占用的區域}

{橫向部分}

if Horz.GridBoundary < Horz.GridExtent then

begin

Canvas.Brush.Color := Color;

Canvas.FillRect(Rect(Horz.GridBoundary, 0, Horz.GridExtent, ??? Vert.GridBoundary));

end;

{縱向部分}

if Vert.GridBoundary < Vert.GridExtent then

begin

Canvas.Brush.Color := Color;

Canvas.FillRect(Rect(0, Vert.GridBoundary, Horz.GridExtent, Vert.GridExtent));

end;

從以上代碼可見，TCustomGrid.Paint主要可以分為五個部分。其中★0用于計算當前繪制參數，結果用于后面4個部分。接下來4個部分中，★1和★2是主體。因此我們關注的重點是★0、★1和★2。★1和★2已有詳細注解，所以不逐行解釋了，有興趣但看不懂的可慢慢琢磨。最后對★0的DrawInfo作個解釋。

DrawInfo為TGridDrawInfo類型，定義如下：

TGridDrawInfo = record {網絡繪制參數}

Horz, Vert: TGridAxisDrawInfo; {分為橫向和縱向兩個部分}

end;

下面以橫向為例，解釋TGridAxisDrawInfo的含義：

TGridAxisDrawInfo = record

EffectiveLineWidth: Integer; {網格線寬}

FixedBoundary: Integer; {網格固定列總寬度（含網格線）}

GridBoundary: Integer; {網格各列總寬度（含網格線、固定列）}

GridExtent: Integer; {網格客戶區總寬度}

LastFullVisibleCell: Longint; {當前最后一個未超出客戶區（即能全部看見）的列}

FullVisBoundary: Integer; {當前可全部看見列的總寬度（含網格線）}