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

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

Delphi控件源码

开发平台：

Delphi

shapeu.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "shapeu.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma link "fcButton"
  9. #pragma link "fcDemoRichEdit"
  10. #pragma link "fcImgBtn"
  11. #pragma link "fcLabel"
  12. #pragma link "fcShapeBtn"
  13. #pragma resource "*.dfm"
  14. TShapeBtnDemoForm *ShapeBtnDemoForm;
  15. //---------------------------------------------------------------------------
  16. __fastcall TShapeBtnDemoForm::TShapeBtnDemoForm(TComponent* Owner)
  17.         : TForm(Owner)
  18. {
  19. }
  20. //---------------------------------------------------------------------------
  21. void __fastcall TShapeBtnDemoForm::RightButton1Click(TObject *Sender)
  22. {
  23.   PageControl1->ActivePage = PageControl1->FindNextPage(PageControl1->ActivePage,True,False);
  24. }
  25. //---------------------------------------------------------------------------
  26. void __fastcall TShapeBtnDemoForm::LeftButton1Click(TObject *Sender)
  27. {
  28.   PageControl1->ActivePage = PageControl1->FindNextPage(PageControl1->ActivePage,False,False);
  29. }
  30. //---------------------------------------------------------------------------
  31. void __fastcall TShapeBtnDemoForm::RadioGroup1Click(TObject *Sender)
  32. {
  33.    switch (RadioGroup1->ItemIndex) {
  34.    case 0: CustomLButton1->Orientation = soDown;
  35.            CustomLButton2->Orientation = soDown;
  36.            CustomLButton3->Orientation = soDown;
  37.            CustomArrowButton->Orientation = soDown;
  38.            CustomLButton2->Top = CustomLButton3->Top;
  39.            CustomLButton1->Top = CustomLButton3->Top;
  40.            CustomLButton2->Left = CustomLButton3->Left;
  41.            CustomLButton1->Left = CustomLButton3->Left;
  42.            break;
  43.    case 1: CustomLButton1->Orientation = soUp;
  44.            CustomLButton2->Orientation = soUp;
  45.            CustomLButton3->Orientation = soUp;
  46.            CustomArrowButton->Orientation = soUp;
  47.            CustomLButton2->Top = CustomLButton3->Top+15;
  48.            CustomLButton1->Top = CustomLButton2->Top+15;
  49.            CustomLButton2->Left = CustomLButton3->Left+15;
  50.            CustomLButton1->Left = CustomLButton2->Left+15;
  51.            break;
  52.    case 2: CustomLButton1->Orientation = soLeft;
  53.            CustomLButton2->Orientation = soLeft;
  54.            CustomLButton3->Orientation = soLeft;
  55.            CustomArrowButton->Orientation = soLeft;
  56.            CustomLButton2->Top = CustomLButton3->Top;
  57.            CustomLButton1->Top = CustomLButton3->Top;
  58.            CustomLButton2->Left = CustomLButton3->Left+15;
  59.            CustomLButton1->Left = CustomLButton2->Left+15;
  60.            break;
  61.    case 3: CustomLButton1->Orientation = soRight;
  62.            CustomLButton2->Orientation = soRight;
  63.            CustomLButton3->Orientation = soRight;
  64.            CustomArrowButton->Orientation = soRight;
  65.            CustomLButton2->Top = CustomLButton3->Top+15;
  66.            CustomLButton1->Top = CustomLButton2->Top+15;
  67.            CustomLButton2->Left = CustomLButton3->Left;
  68.            CustomLButton1->Left = CustomLButton3->Left;
  69.    }
  70. }
  71. //---------------------------------------------------------------------------
  72. void __fastcall TShapeBtnDemoForm::ButtonColoredMouseLeave(TObject *Sender)
  73. {
  74.   ((TfcShapeBtn *)Sender)->Font->Color = clWhite;
  75. }
  76. //---------------------------------------------------------------------------
  77. void __fastcall TShapeBtnDemoForm::ButtonGlyphHotTrackMouseEnter(
  78.       TObject *Sender)
  79. {
  80.   ((TfcShapeBtn *)Sender)->Font->Color = clRed;
  81. }
  82. //---------------------------------------------------------------------------
  83. void __fastcall TShapeBtnDemoForm::ButtonGlyphHotTrackMouseLeave(
  84.       TObject *Sender)
  85. {
  86.   ((TfcShapeBtn *)Sender)->Font->Color = clBlack;
  87. }
  88. //---------------------------------------------------------------------------
  89. void __fastcall TShapeBtnDemoForm::ButtonHotTrackMouseEnter(
  90.       TObject *Sender)
  91. {
  92.      ((TfcShapeBtn *)Sender)->Color = clRed;
  93.      ((TfcShapeBtn *)Sender)->UpdateShadeColors(clRed);
  94.      ((TfcShapeBtn *)Sender)->Font->Color = clWhite;
  95.      ((TfcShapeBtn *)Sender)->TextOptions->HighlightColor = 0x00A0A0FF;
  96.      ((TfcShapeBtn *)Sender)->TextOptions->ShadeColor = clMaroon;
  97. }
  98. //---------------------------------------------------------------------------
  99. void __fastcall TShapeBtnDemoForm::ButtonHotTrackMouseLeave(
  100.       TObject *Sender)
  101. {
  102.      ((TfcShapeBtn *)Sender)->Color = clBtnFace;
  103.      ((TfcShapeBtn *)Sender)->UpdateShadeColors(Color);
  104.      ((TfcShapeBtn *)Sender)->Font->Color = clBlack;
  105.      ((TfcShapeBtn *)Sender)->TextOptions->HighlightColor = clBtnHighlight;
  106.      ((TfcShapeBtn *)Sender)->TextOptions->ShadeColor = clBtnShadow;
  107.      ((TfcShapeBtn *)Sender)->ShadeColors->Btn3DLight = cl3DLight;
  108. }
  109. //---------------------------------------------------------------------------