开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > Static控件 > 查看源码
FLabel.cpp
资源名称：FLabel.rar　[点击查看]
上传用户：hnxhmj
上传日期：2020-10-13
资源大小：14k
文件大小：3k
源码类别：

Static控件

开发平台：

C++ Builder

FLabel.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "FLabel.h"
  7. #pragma package(smart_init)
  8. //---------------------------------------------------------------------------
  9. // ValidCtrCheck is used to assure that the components created do not have
  10. // any pure virtual functions.
  11. //
  13. static inline void ValidCtrCheck(TFLabel *)
  14. {
  15.         new TFLabel(NULL);
  16. }
  17. //---------------------------------------------------------------------------
  18. __fastcall TFLabel::TFLabel(TComponent* Owner)
  19.         : TLabel(Owner)
  20. {
  22. }
  23. //---------------------------------------------------------------------------
  24. namespace Flabel
  25. {
  26.         void __fastcall PACKAGE Register()
  27.         {
  28.                  TComponentClass classes[1] = {__classid(TFLabel)};
  29.                  RegisterComponents("Custom", classes, 0);
  30.         }
  31. }
  32. //---------------------------------------------------------------------------
  33. void __fastcall TFLabel::SetTextSpace(int Value)
  34. {
  35.    if(FTextSpace!=Value)
  36.    {
  37.         //int Diff=Value-FTextSpace;
  38.         FTextSpace=Value;
  39.         //int len=(WideString(Caption)).Length()-1;
  40.         //if(len) Width+=len*Diff;//加上TextSpace
  41.         Width++;
  42.         Width--;
  43.         //AdjustBounds();
  44.    }
  45. }
  46. //---------------------------------------------------------------------------
  47. void __fastcall TFLabel::DoDrawText(TRect &Rect, int Flags)
  48. {
  49.     AnsiString Text;
  50.     Text = GetLabelText();
  51.     if( (Flags && DT_CALCRECT!=0) && ((Text == "") || ( ShowAccelChar && Text.c_str()[0] == '&' && Text.c_str()[1] == '')))
  52.         Text = Text + " ";
  53.     if(!ShowAccelChar) Flags = Flags | DT_NOPREFIX;
  54.     Flags = DrawTextBiDiModeFlags(Flags);
  55.     Canvas->Font = Font;
  56.     SetTextCharacterExtra(Canvas->Handle,TextSpace);  //设置字符间距；
  57.     if(!Enabled)
  58.     {
  59.         OffsetRect(&Rect, 1, 1);
  60.         Canvas->Font->Color = clBtnHighlight;
  61.         DrawText(Canvas->Handle, Text.c_str(), Text.Length(), &Rect, Flags);
  62.         OffsetRect(&Rect, -1, -1);
  63.         Canvas->Font->Color = clBtnShadow;
  64.         DrawText(Canvas->Handle, Text.c_str(), Text.Length(), &Rect, Flags);
  65.     }
  66.     else
  67.         DrawText(Canvas->Handle, Text.c_str(), Text.Length(), &Rect, Flags);
  68. }
  69. //---------------------------------------------------------------------------
  70. void __fastcall TFLabel::SetBorder(int Value)
  71. {
  72.     if(FBorder!=Value)
  73.     {
  74.         FBorder=Value;
  75.         Paint();
  76.         Width++;
  77.         Width--;
  78.     }
  79. }
  80. //---------------------------------------------------------------------------
  81. void __fastcall TFLabel::Paint()
  82. {
  83.     TLabel::Paint();
  84.     Canvas->Pen->Style=FBorder?psSolid:psClear;
  85.     Canvas->Pen->Color=FBorder?clRed:clBlack;
  86.     if(FBorder==0 || FBorder==1)
  87.         Canvas->Rectangle(0,0,Width,Height);
  88.     else if(FBorder==2)
  89.         Canvas->RoundRect(0,0,Width,Height,20,20);
  90. }