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

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

Delphi控件源码

开发平台：

Delphi

FrameU.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "frameu.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma link "fcButton"
  9. #pragma link "fcCombo"
  10. #pragma link "fcDemoRichEdit"
  11. #pragma link "fcImage"
  12. #pragma link "fcImageForm"
  13. #pragma link "fcImager"
  14. #pragma link "fcImgBtn"
  15. #pragma link "fcLabel"
  16. #pragma link "fcShapeBtn"
  17. #pragma link "fctreecombo"
  18. #pragma resource "*.dfm"
  19. TFrameDemoForm *FrameDemoForm;
  20. //---------------------------------------------------------------------------
  21. __fastcall TFrameDemoForm::TFrameDemoForm(TComponent* Owner)
  22.         : TForm(Owner)
  23. {
  24. }
  25. //---------------------------------------------------------------------------
  27. void __fastcall TFrameDemoForm::BitBtn1Click(TObject *Sender)
  28. {
  29.  Close();        
  30. }
  31. //---------------------------------------------------------------------------
  33. void __fastcall TFrameDemoForm::BackgroundComboChange(TObject *Sender)
  34. {
  35.  if (!dynamic_cast<TfcTreeCombo *>(Sender)) return;
  37.  if (((TfcTreeCombo *)Sender)->Text=="Plain")
  38.  {
  39.   TileImager->Visible = False;
  40.   return;
  41.  }
  43.  TfcImager * Tile;
  44.  Tile = NULL;
  46.  if (((TfcTreeCombo *)Sender)->Text=="Wrinkle")
  47.     Tile = WrinkleImager;
  48.  else if (((TfcTreeCombo *)Sender)->Text=="Linen")
  49.     Tile = LinenImager;
  50.  else if (((TfcTreeCombo *)Sender)->Text=="Parchment")
  51.     Tile = ParchmentImager;
  52.  else if (((TfcTreeCombo *)Sender)->Text=="Mosaic")
  53.     Tile = MosaicImager;
  55.   if (Tile != NULL) {
  56.      Tile->UpdateWorkBitmap();
  57.      TileImager->Picture->Assign(Tile->WorkBitmap);
  58.   }
  59.   TileImager->Visible = True;
  60. }
  61. //---------------------------------------------------------------------------
  62. void __fastcall TFrameDemoForm::FormShow(TObject *Sender)
  63. {
  64.   ParchmentImager->UpdateWorkBitmap();
  65.   TileImager->Picture->Assign(ParchmentImager->WorkBitmap);
  66. }
  67. //---------------------------------------------------------------------------
  68. void __fastcall TFrameDemoForm::FrameComboChange(TObject *Sender)
  69. {
  70.   for (int i = 0;i <= ControlCount-1;i++)
  71.   {
  72.     if (!dynamic_cast<TfcTreeCombo *>(Controls[i])) continue;
  73.     TfcTreeCombo * TreeCombo = ((TfcTreeCombo *)Controls[i]);
  74.     TreeCombo->Frame->FocusStyle = efsFrameBox;
  75.     TreeCombo->Frame->NonFocusStyle = efsFrameBox;
  76.     TreeCombo->Frame->NonFocusBorders = TreeCombo->Frame->NonFocusBorders << efLeftBorder << efTopBorder << efRightBorder << efBottomBorder;
  77.     TreeCombo->ButtonEffects->Flat = False;
  78.     TreeCombo->ButtonEffects->Transparent = False;
  79.     TreeCombo->Frame->Enabled = True;
  80.     if (((TfcTreeCombo *)Sender)->Text == "Underline") {
  81.        TreeCombo->Frame->NonFocusBorders.Clear();
  82.        TreeCombo->Frame->NonFocusBorders = TreeCombo->Frame->NonFocusBorders << efBottomBorder;
  83.     }
  84.     else if (((TfcTreeCombo *)Sender)->Text == "FrameBox") {}
  85.     else if (((TfcTreeCombo *)Sender)->Text == "Flat Buttons") {
  86.           TreeCombo->Frame->NonFocusStyle = efsFrameSingle;
  87.           TreeCombo->ButtonEffects->Flat = True;
  88.           TreeCombo->ButtonEffects->Transparent = True;
  89.     }
  90.     else if (((TfcTreeCombo *)Sender)->Text == "No Frame (Normal)") {
  91.           TreeCombo->Frame->Enabled = False;
  92.           TreeCombo->BorderStyle = bsSingle;
  93.     }
  94.     else if (((TfcTreeCombo *)Sender)->Text == "No Frame (Normal)")
  95.           TreeCombo->Frame->FocusStyle = efsFrameSunken;
  96.     else if (((TfcTreeCombo *)Sender)->Text == "Raised Panel Focus")
  97.           TreeCombo->Frame->FocusStyle = efsFrameRaised;
  98.     else if (((TfcTreeCombo *)Sender)->Text == "Etched") {
  99.           TreeCombo->Frame->NonFocusStyle = efsFrameEtched;
  100.           TreeCombo->Frame->FocusStyle = efsFrameEtched;
  101.     }
  102.     else if (((TfcTreeCombo *)Sender)->Text == "Bump") {
  103.           TreeCombo->Frame->NonFocusStyle = efsFrameBump;
  104.           TreeCombo->Frame->FocusStyle = efsFrameBump;
  105.     }
  106.   }
  107. }
  108. //---------------------------------------------------------------------------