今日编程手札

首先是TControlBar：

OnPaint事件和OnBandPaint的关系是：

procedure TCustomControlBar.Paint;

--> OnPaint(Self);

-->for I := 0 to FItems.Count - 1 do

  -->PaintControlFrame(Canvas, Control, R);

     -->DoBandPaint(AControl, Canvas, ARect, Options);

        --> OnBandPaint(Self, Control, Canvas, ARect, Options);

OnPaint事件解发在先，对整个TControlBar。OnBandPaint在后仅一个Band。

当然OnPaint中不能决定它绘什么不绘什么，而OnBandPaint中则可以更改Options决定它能绘什么。

若果windows没有启用Themesp，TControlBar画的那条竖线确实有碍美观，特别是bpoGradient时，不过完全可以参考TCustomControlBar.PaintControlFrame自己画一个。

TCustomControlBar.PaintControlFrame的代码:

1. procedure TCustomControlBar.PaintControlFrame(Canvas: TCanvas; AControl: TControl;
2.   var ARect: TRect);
3. const
4.   Offset = 3;
5. var
6.   R: TRect;
7.   ElemDetails: TThemedElementDetails;
8.   Options: TBandPaintOptions;
10.   procedure DrawGrabber;
11.   begin
12.     with Canvas, R do
13.     begin
14.       Pen.Color := clBtnHighlight;
15.       MoveTo(R.Left+2, R.Top);
16.       LineTo(R.Left, R.Top);
17.       LineTo(R.Left, R.Bottom+1);
18.       Pen.Color := clBtnShadow;
19.       MoveTo(R.Right, R.Top);
20.       LineTo(R.Right, R.Bottom);
21.       LineTo(R.Left, R.Bottom);
22.     end;
23.   end;
25. begin
26.   if FDrawingStyle = dsGradient then
27.     Options := [bpoGrabber, bpoGradient, bpoRoundRect]
28.   else
29.     Options := [bpoGrabber, bpoFrame];
30.   DoBandPaint(AControl, Canvas, ARect, Options);
31.   with Canvas do
32.   begin
33.     if bpoFrame in Options then
34.       DrawEdge(Handle, ARect, BDR_RAISEDINNER, BF_RECT);
36.     if bpoRoundRect in Options then
37.     begin
38.       BeginPath(Handle);
39.         Polyline([Point(ARect.Left + Integer(CornerEdge), ARect.Top),
40.           Point(ARect.Right - Integer(CornerEdge), ARect.Top), { Top line }
41.           Point(ARect.Right, ARect.Top + Integer(CornerEdge)), { Top right curve }
42.           Point(ARect.Right, ARect.Bottom - Integer(CornerEdge)), { Right side line }
43.           Point(ARect.Right - Integer(CornerEdge), ARect.Bottom), { Bottom right curve }
44.           Point(ARect.Left + Integer(CornerEdge), ARect.Bottom), { Bottom line }
45.           Point(ARect.Left, ARect.Bottom - Integer(CornerEdge)), { Bottom left curve }
46.           Point(ARect.Left, ARect.Top + Integer(CornerEdge)), { Left side line }
47.           Point(ARect.Left + Integer(CornerEdge), ARect.Top)]); { Top left curve }
48.       EndPath(Handle);
50.       { Clips the canvas to our roundrect drawn above using polyline }
51.       SelectClipPath(Handle, RGN_COPY);
52.     end;
54.     if bpoGradient in Options then
55.     begin
56.       { This gradient is actually the border gradient }
57.       GradientFillCanvas(Canvas, GetHighlightColor(GradientStartColor),
58.         GetShadowColor(GradientEndColor), ARect, GradientDirection);
60.       R := ARect;
61.       InflateRect(R, -Pen.Width, -Pen.Width);
63.       { The gradient of the band }
64.       GradientFillCanvas(Canvas, GradientStartColor, GradientEndColor,
65.         R, GradientDirection);
66.     end;
68.     if bpoGrabber in Options then
69.     begin
70.       if ThemeServices.ThemesEnabled then
71.       begin
72.         ElemDetails := ThemeServices.GetElementDetails(trGripper);
73.         R := Rect(ARect.Left + 2, ARect.Top + 2, ARect.Left + 5 + 2, ARect.Bottom - 3);
74.         ThemeServices.DrawElement(Canvas.Handle, ElemDetails, R);
75.       end else
76.       begin
77.         R := Rect(ARect.Left + Offset, ARect.Top + 2, ARect.Left + Offset + 2,
78.           ARect.Bottom - 3);
79.         DrawGrabber;
80.       end;
81.     end;
82.   end;
83. end;

改掉上面的DrawGrabber，爱怎么画就怎么画。当然还是建议在OnBandPaint事件里画，而不是改控件代码。

然后是TDBComboboxEh：

EhLib的控件不错，但总有些毛病，比如将控件连接到一个Boolean类型的字段，在KeyItems里写下false和true，结果呢？下拉列表能出来，选了也能更新到数据库，但控件自己显示的却是空白。翻了翻代码，原来它用KeyItems.IndexOf(FDataLink.Field.Text)来查找（GetDisplayTextForPaintCopy函数里），Boolean类型的Field.Text是False和True（首字母大写），改正后一切正常。

接着是Abstract Error：

将一个界面的控件类型大批量换掉后（直接改dfm文件），运行程序报Abstract Error，查来查去才发现，原来之前为Form指定了ActiveControl，而那个Control已经被转换成TDBText了，晕~~~~~

FastReport:

已经有4.7.3了，不过项目太紧，不敢现在更新控件。

Toad Data Modeler Library：

Case Studio卖了后，取而代之的是Toad Data Modeler Library，看了看资料，变了很多，功能也加强了很多，不敢马上用，项目完了再试。

最后是db4o：

最后的O是Object，面向对象的开源数据库，支持Java和.Net，遵守GPL协议，且免费！！！有兴趣了的Google去！

个人札记，拒绝转载！