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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
labelu.cpp
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

labelu.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "labelu.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma link "fcButton"
  9. #pragma link "fcButtonGroup"
  10. #pragma link "fcClearPanel"
  11. #pragma link "fcDemoRichEdit"
  12. #pragma link "fcImgBtn"
  13. #pragma link "fcLabel"
  14. #pragma resource "*.dfm"
  15. TLabelForm *LabelForm;
  16. //---------------------------------------------------------------------------
  17. __fastcall TLabelForm::TLabelForm(TComponent* Owner)
  18.         : TForm(Owner)
  19. {
  20. }
  21. //---------------------------------------------------------------------------
  23. void __fastcall TLabelForm::fcButtonGroup1Change(
  24.       TfcCustomButtonGroup *ButtonGroup, TfcButtonGroupItem *OldSelected,
  25.       TfcButtonGroupItem *Selected)
  26. {
  27.   PageControl1->ActivePage =
  28.     ((TTabSheet *)FindComponent("TabSheet"+IntToStr(Selected->Button->Tag)));
  29. }
  30. //---------------------------------------------------------------------------
  31. void __fastcall TLabelForm::fcLabel1Click(TObject *Sender)
  32. {
  33.  ShellExecute(Handle, "OPEN",
  34.    PChar("https://www.he.net/cgi-bin/suid/~wol2wol/ordering/order.cgi"), 0, 0, SW_SHOWNORMAL);
  35. }
  36. //---------------------------------------------------------------------------
  38. void __fastcall TLabelForm::fcLabel1MouseEnter(TObject *Sender)
  39. {
  40.   ((TfcLabel *)Sender)->Font->Color = clBlue;
  41. }
  42. //---------------------------------------------------------------------------
  44. void __fastcall TLabelForm::fcLabel1MouseLeave(TObject *Sender)
  45. {
  46.   ((TfcLabel *)Sender)->Font->Color = clBlack;
  47. }
  48. //---------------------------------------------------------------------------
  50. void __fastcall TLabelForm::RadioGroup1Click(TObject *Sender)
  51. {
  52.    fcLabel39->Font->Color = clBtnFace;
  53.    switch (RadioGroup1->ItemIndex) {
  54.    case 0: fcLabel35->TextOptions->Style = fclsDefault;
  55.            fcLabel39->TextOptions->Style = fclsDefault;
  56.            fcLabel39->Font->Color = clBlack;
  57.            fcLabel40->TextOptions->Style = fclsDefault;
  58.            break;
  59.    case 1: fcLabel35->TextOptions->Style = fclsRaised;
  60.            fcLabel39->TextOptions->Style = fclsRaised;
  61.            fcLabel40->TextOptions->Style = fclsRaised;
  62.            break;
  63.    case 2: fcLabel35->TextOptions->Style = fclsLowered;
  64.            fcLabel39->TextOptions->Style = fclsLowered;
  65.            fcLabel40->TextOptions->Style = fclsLowered;
  66.            break;
  67.    case 3: fcLabel35->TextOptions->Style = fclsOutline;
  68.            fcLabel39->TextOptions->Style = fclsOutline;
  69.            fcLabel40->TextOptions->Style = fclsOutline;
  70.    }
  71. }
  72. //---------------------------------------------------------------------------