The-third--components-of-RAD2010
所属分类：Pascal/Delphi编程
开发工具：Delphi
文件大小：32079KB
下载次数：9
上传日期：2012-03-14 23:29:22
上 传 者：
mohan3225
说明： Embarcadero RAD Studio 2010的第三方组件，可以添加到程序中
( the third component of Embarcadero RAD Studio 2010)
文件列表:
第三方组件\Bsf_761.rar (14942929, 2009-09-23)
第三方组件\BSF控件安装顺序.doc (20992, 2009-10-13)
第三方组件\BSF教程.rar (1849136, 2009-09-29)
第三方组件\Bsf_761\Bsf_761\bsButtonGroup.pas (68585, 2009-09-06)
第三方组件\Bsf_761\Bsf_761\bscalc.pas (48434, 2009-09-06)
第三方组件\Bsf_761\Bsf_761\bscalc.res (6216, 2003-05-03)
第三方组件\Bsf_761\Bsf_761\bscalendar.pas (15156, 2009-09-06)
第三方组件\Bsf_761\Bsf_761\bscalendar.res (1180, 2006-10-25)
第三方组件\Bsf_761\Bsf_761\bscategorybuttons.res (456, 2005-08-31)
第三方组件\Bsf_761\Bsf_761\bsColorCtrls.pas (82699, 2009-09-06)
第三方组件\Bsf_761\Bsf_761\bsconst.pas (7150, 2009-09-06)
第三方组件\Bsf_761\Bsf_761\bsdbctrls.pas (302268, 2009-09-06)
第三方组件\Bsf_761\Bsf_761\bsdbctrls.res (19892, 2006-10-25)
第三方组件\Bsf_761\Bsf_761\bsdbgrids.pas (178948, 2009-09-06)
第三方组件\Bsf_761\Bsf_761\bsdbgrids.res (760, 2002-07-29)
第三方组件\Bsf_761\Bsf_761\bsDialogs.pas (128914, 2009-09-06)
第三方组件\Bsf_761\Bsf_761\bsDialogs.res (12404, 2006-10-25)
第三方组件\Bsf_761\Bsf_761\bsEffects.pas (153770, 2009-09-06)
第三方组件\Bsf_761\Bsf_761\bsfcb2006.bdsproj (26508, 2008-05-05)
第三方组件\Bsf_761\Bsf_761\bsfcb2006.cpp (524, 2006-10-26)
第三方组件\Bsf_761\Bsf_761\bsfcb2006.res (1536, 2006-09-06)
第三方组件\Bsf_761\Bsf_761\bsfcb2007.cbproj (13703, 2008-05-05)
第三方组件\Bsf_761\Bsf_761\bsfcb2007.cpp (522, 2007-10-05)
第三方组件\Bsf_761\Bsf_761\bsfcb2007.res (5056, 2008-05-05)
第三方组件\Bsf_761\Bsf_761\bsfcb2009.cbproj (11797, 2008-09-26)
第三方组件\Bsf_761\Bsf_761\bsfcb2009.cpp (794, 2008-09-26)
第三方组件\Bsf_761\Bsf_761\bsfcb2009.res (5940, 2008-09-26)
第三方组件\Bsf_761\Bsf_761\bsfcb2010.cbproj (11841, 2009-09-07)
第三方组件\Bsf_761\Bsf_761\bsfcb2010.cpp (794, 2009-09-07)
第三方组件\Bsf_761\Bsf_761\bsfcb2010.res (5940, 2008-09-26)
第三方组件\Bsf_761\Bsf_761\BSFCB5.bpk (3318, 2008-05-05)
第三方组件\Bsf_761\Bsf_761\BSFCB5.cpp (1870, 2008-05-05)
第三方组件\Bsf_761\Bsf_761\BSFCB5.res (1536, 2003-10-08)
第三方组件\Bsf_761\Bsf_761\BSFCB6.bpk (9581, 2008-05-05)
第三方组件\Bsf_761\Bsf_761\BSFCB6.cpp (800, 2008-05-05)
第三方组件\Bsf_761\Bsf_761\BSFCB6.res (1536, 2003-09-26)
第三方组件\Bsf_761\Bsf_761\BSFD2005.bdsproj (7757, 2008-05-05)
第三方组件\Bsf_761\Bsf_761\BSFD2005.cfg (500, 2008-05-05)
第三方组件\Bsf_761\Bsf_761\BSFD2005.dpk (1868, 2008-05-05)
第三方组件\Bsf_761\Bsf_761\BSFD2005.res (1228, 2004-11-18)
... ...
Do this steps to adapt colors of VTV header to skin colors:
1. Open VirtualTrees.pas, find TVirtualTreeColumns.PaintHeader method and
copy this DrawEdge method to it:
====================================================================================
function DrawEdge(hdc: HDC; var qrc: TRect; edge: UINT; grfFlags: UINT): BOOL;
procedure Frm3D(Canvas: TCanvas; Rect: TRect; TopColor, BottomColor: TColor);
procedure DoRect;
var
TopRight, BottomLeft: TPoint;
begin
with Canvas, Rect do
begin
TopRight.X := Right;
TopRight.Y := Top;
BottomLeft.X := Left;
BottomLeft.Y := Bottom;
Pen.Color := TopColor;
PolyLine([BottomLeft, TopLeft, TopRight]);
Pen.Color := BottomColor;
Dec(BottomLeft.X);
PolyLine([TopRight, BottomRight, BottomLeft]);
end;
end;
begin
Canvas.Pen.Width := 1;
Dec(Rect.Bottom); Dec(Rect.Right);
DoRect;
end;
function Darker(Color:TColor; Percent:Byte):TColor;
var
r, g, b: Byte;
begin
Color:=ColorToRGB(Color);
r:=GetRValue(Color);
g:=GetGValue(Color);
b:=GetBValue(Color);
r:=r-muldiv(r,Percent,100);
g:=g-muldiv(g,Percent,100);
b:=b-muldiv(b,Percent,100);
result:=RGB(r,g,b);
end;
function Lighter(Color:TColor; Percent:Byte):TColor;
var
r, g, b: Byte;
begin
Color:=ColorToRGB(Color);
r:=GetRValue(Color);
g:=GetGValue(Color);
b:=GetBValue(Color);
r:=r+muldiv(255-r,Percent,100);
g:=g+muldiv(255-g,Percent,100);
b:=b+muldiv(255-b,Percent,100);
result:=RGB(r,g,b);
end;
var
C: TCanvas;
LightColor, DarkColor: TColor;
R, G, B: Byte;
begin
C := TCanvas.Create;
C.Handle := HDC;
C.Brush.Color := Self.FHeader.FBackground;
C.Brush.Style := bsSolid;
C.FillRect(qrc);
LightColor := Lighter(C.Brush.Color, 10);
DarkColor := Darker(C.Brush.Color, 10);
if edge = BDR_SUNKENOUTER
then
begin
InFlateRect(qrc, -2, -2);
Frm3D(C, qrc, DarkColor, LightColor);
end
else
Frm3D(C, qrc, LightColor, DarkColor);
C.Handle := 0;
C.Free;
end;
====================================================================================
2. Set VTV.Header.Style to 'hsFlatButtons' value.
3. Use TbsaSkinAdapter.OnChangeSkinData event
to apply skincolor to VTV.Header.Background and VTV.Header.Font.Color properties:
procedure TForm1.bsaSkinAdapter1ChangeSkinData(Sender: TObject);
begin
VTV.Header.Background := bsSkinData1.SkinColors.cBtnFace;
VTV.Header.Font.Color := bsSkinData1.SkinColors.cBtnText;
// to adapt color of VTV use:
VTV.Color := bsSkinData1.SkinColors.cWindow;
end;
近期下载者：
相关文件：
收藏者：