TDSFancyButton,TFlatEdit,TFlatPanel,Tkvlabel
在什么控件里面啊
帮忙找下 还有运行时缺少TB97Ctls 应该怎么解决啊
在什么控件里面啊
帮忙找下 还有运行时缺少TB97Ctls 应该怎么解决啊
解决方案 »
- 跪求delphi7 IdTCPServer1 如何动态绑定IP&Port
- delphi群:20941847;欢迎喜欢delphi的人士加入!!!!~~~~
- (up加分)sqlserver备份与恢复(从服务器备份到本地,从本地恢复到服务器)
- 简单的SQL语句,关于用like找匹配记录
- 如何设置IP,DNS,网关
- cg1120(代码最优化-§新年祝福你,好运伴着你§,进来,谢谢你的回答,给分了
- 急救:DELPHI如何处理大数据量的数据库?
- delphi的 string为什么只能容纳255个字符???
- 我在玩的反恐精英时,一碰到我军与敌军打仗时,硬盘灯猛闪,速度奇慢,分辨率已到640*480,怎么办?
- 有没有用过delphi5的Decision Cube页的进来讨论一下。
- 中间层中beforeupdaterecord中如何根据DELTADS与SOURCEDS来生成自已的更新SQL(ADO)?在线
- 告警板编程,请赐教。。。
//(R)CopyRight KivenSoft International ,inc 1999
//单元名称:三维带超链接Label
//作 者:李会文
//开始时间:1999.03.21
//最后修改:1999.06.29
//---------------------------------------------------------------------------
unit KvLabel;interfaceuses
Windows, Classes, Graphics, StdCtrls, Messages, Controls;type
TDrawType=(dtNone,dtLowered,dtRaised); TKvLabel=class(TLabel)
private
FDrawType:TDrawType;
FVCenter:boolean;
FAboveColor:TColor;
FOldColor:TColor;
FLinkType:boolean;
procedure SetDrawType(DrawType:TDrawType);
procedure SetVCenter(Value:boolean);
procedure CMMouseEnter(var Msg:TMessage);message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg:TMessage);message CM_MOUSELEAVE;
protected
procedure Paint;override;
procedure DoDrawText(var Rect:TRect;Flags:Longint);override;
published
property DrawType:TDrawType read FDrawType write SetDrawType default dtLowered; //三维显示方式
property VCenter:boolean read FVCenter write SetVCenter default false;
property LinkType:Boolean read FLinkType write FLinkType default false; //是否允许超链接方式
property AboveColor:TColor read FAboveColor write FAboveColor default clBlue; //超链接方式为真时鼠标在上方时的字体颜色
public
constructor Create(AOwner:TComponent);override;
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Srm Project',[TKvLabel]);
end;constructor TKvLabel.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
FDrawType:=dtLowered;
FAboveColor:=clBlue;
FVCenter:=false;
FLinkType:=false;
end;procedure TKvLabel.Paint;
const
Alignments:array[TAlignment] of Word=(DT_LEFT,DT_RIGHT,DT_CENTER);
var
Rect:TRect;
begin
with Canvas do
begin
if not Transparent then
begin
Brush.Color:=Self.Color;
Brush.Style:=bsSolid;
FillRect(ClientRect);
end;
Brush.Style:=bsClear;
Rect:=ClientRect;
if VCenter then DoDrawText(Rect,(DT_EXPANDTABS or DT_SINGLELINE or DT_VCENTER) or Alignments[Alignment])
else DoDrawText(Rect,(DT_EXPANDTABS or DT_WORDBREAK) or Alignments[Alignment]);
end;
end;procedure TKvLabel.DoDrawText(var Rect:TRect;Flags:Longint);
var
Text:string;
TempRect:TRect;
begin
Text:=GetLabelText;
TempRect:=Rect;
if (Flags and DT_CALCRECT <> 0) and ((Text='') or ShowAccelChar and
(Text[1]='&') and (Text[2]=#0)) then Text:=Text + ' ';
if not ShowAccelChar then Flags:=Flags or DT_NOPREFIX;
Canvas.Font:=Font;
if not Enabled then Canvas.Font.Color:=clGrayText
else
begin
case DrawType of
dtLowered:
begin
OffsetRect(TempRect,1,1);
Canvas.Font.Color:=clWhite;
DrawText(Canvas.Handle,pchar(Text),Length(Text),TempRect,Flags);
OffsetRect( TempRect,-1,-1);
Canvas.Font.Color:=Font.Color;
end;
dtRaised:
begin
OffsetRect( TempRect,-1,-1);
Canvas.Font.Color:=clWhite;
DrawText(Canvas.Handle,pchar(Text),Length(Text),TempRect,Flags);
TempRect:=Rect;
OffsetRect(TempRect,1,1);
Canvas.Font.Color:=Font.Color;
end;
end;
end;
DrawText(Canvas.Handle,PChar(Text),Length(Text),TempRect,Flags);
if (Enabled) and (FDrawType<>dtNone) then
begin
Rect.Top:=Rect.Top-1;
Rect.Left:=Rect.Left-1;
end;
end;procedure TKvLabel.SetDrawType(DrawType:TDrawType);
begin
FDrawType:=DrawType;
Invalidate;
end;procedure TKvLabel.SetVCenter(Value:Boolean);
begin
FVCenter:=Value;
WordWrap:=not Value;
Invalidate;
end;procedure TKvLabel.CMMouseEnter(var Msg:TMessage);
begin
if FLinkType then
begin
Cursor:=crHandPoint;
FOldColor:=Font.Color;
Font.Color:=FAboveColor;
Font.Style:=Font.Style+[fsUnderline];
end;
end;procedure TKvLabel.CMMouseLeave(var Msg:TMessage);
begin
if FLinkType then
begin
Cursor:=crDefault;
Font.Color:=FOldColor;
Font.Style:=Font.Style-[fsUnderline];
end;
end;end.
------
需要安装ToolBar97
http://www.delphifans.com/SoftView/SoftView_862.html