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

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

Delphi控件源码

开发平台：

Delphi

ImagerMain.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "ImagerMain.h"
  6. #include "PicEdt.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma link "fcButton"
  10. #pragma link "fcButtonGroup"
  11. #pragma link "fcClearPanel"
  12. #pragma link "fcColorCombo"
  13. #pragma link "fcCombo"
  14. #pragma link "fcDemoRichEdit"
  15. #pragma link "fcImager"
  16. #pragma link "fcImgBtn"
  17. #pragma link "fcOutlookBar"
  18. #pragma link "fcShapeBtn"
  19. #pragma link "fcStatusBar"
  20. #pragma resource "*.dfm"
  21. TImagerForm *ImagerForm;
  22. //---------------------------------------------------------------------------
  23. __fastcall TImagerForm::TImagerForm(TComponent* Owner)
  24.         : TForm(Owner)
  25. {
  26. }
  27. //---------------------------------------------------------------------------
  28. void __fastcall TImagerForm::FormCreate(TObject *Sender)
  29. {
  30.   FDefaultsStream = new TMemoryStream;
  31. }
  32. //---------------------------------------------------------------------------
  33. void __fastcall TImagerForm::FormDestroy(TObject *Sender)
  34. {
  35.   FDefaultsStream->Free();
  36. }
  37. //---------------------------------------------------------------------------
  38. void __fastcall TImagerForm::FormShow(TObject *Sender)
  39. {
  40.   combo_DrawStyle->ItemIndex = 0;
  41.   fcImager1->BitmapOptions->BeginUpdate();
  42.   for (int i = 0; i < CheckListBox1->Items->Count; i++)
  43.     CheckListBox1->Checked[i] = (bool)(fcGetOrdProp(i < 5 ? (TPersistent *)fcImager1->BitmapOptions : (TPersistent *)fcImager1,
  44.       fcReplace(CheckListBox1->Items->Strings[i], " ", "")));
  45.   fcImager1->BitmapOptions->EndUpdate();
  46.   fcImager1->Invalidate();
  48.   if (FDefaultsStream->Size == 0) for (int i = 0; i < ComponentCount; i++)
  49.     if (!dynamic_cast<TfcCustomButtonGroup *>(Components[i]) &&
  50.         !dynamic_cast<TfcCustomColorCombo *>(Components[i]) &&
  51.         !dynamic_cast<TRichEdit *>(Components[i]))
  52.       FDefaultsStream->WriteComponent(Components[i]);
  53. }
  54. //---------------------------------------------------------------------------
  56. void __fastcall TImagerForm::fcImager1Click(TObject *Sender)
  57. {
  58.   TfcPicEditor::ExecutePictureEditor(fcImager1->Picture->Graphic, fcImager1->Picture);
  59. }
  60. //---------------------------------------------------------------------------
  62. void __fastcall TImagerForm::Track_LightnessChange(TObject *Sender)
  63. {
  64.   fcSetOrdProp(fcImager1->BitmapOptions, fcGetToken(((TTrackBar *)(Sender))->Name, '_', 1), ((TTrackBar *)(Sender))->Position);
  65. }
  66. //---------------------------------------------------------------------------
  68. void __fastcall TImagerForm::combo_DrawStyleChange(TObject *Sender)
  69. {
  70.   fcImager1->DrawStyle = TfcImagerDrawStyle(((TComboBox *)(Sender))->ItemIndex);
  71. }
  72. //---------------------------------------------------------------------------
  74. void __fastcall TImagerForm::combo_ColorChange(TObject *Sender)
  75. {
  76.   fcSetOrdProp(fcImager1->BitmapOptions, fcGetToken(((TComponent *)(Sender))->Name, '_', 1), ((TfcColorCombo *)(Sender))->SelectedColor);
  77. }
  78. //---------------------------------------------------------------------------
  80. void __fastcall TImagerForm::SpeedButton1Click(TObject *Sender)
  81. {
  82.   FDefaultsStream->Position = 0;
  83.   for (int i = 0; i < ComponentCount; i++)
  84.     if (!dynamic_cast<TfcCustomButtonGroup *>(Components[i]) &&
  85.         !dynamic_cast<TfcCustomColorCombo *>(Components[i]) &&
  86.         !dynamic_cast<TRichEdit *>(Components[i]))
  87.       FDefaultsStream->ReadComponent(Components[i]);
  88.   combo_Color->SelectedColor = clNone;
  89. }
  90. //---------------------------------------------------------------------------
  92. void __fastcall TImagerForm::CheckListBox1Click(TObject *Sender)
  93. {
  94.   fcImager1->BitmapOptions->BeginUpdate();
  95.   for (int i = 0; i < ((TCheckListBox *)(Sender))->Items->Count; i++)
  96.     fcSetOrdProp(i < 5 ? (TPersistent *)fcImager1->BitmapOptions : (TPersistent *)fcImager1,
  97.       fcReplace(((TCheckListBox *)(Sender))->Items->Strings[i], " ", ""),
  98.       int(((TCheckListBox *)(Sender))->Checked[i]));
  99.   fcImager1->BitmapOptions->EndUpdate();
  100. }
  101. //---------------------------------------------------------------------------
  103. void __fastcall TImagerForm::edit_Rotation_AngleChange(TObject *Sender)
  104. {
  105.   fcSetOrdProp(fcImager1->BitmapOptions->Rotation, fcGetToken(((TEdit *)(Sender))->Name, '_', 2), StrToIntDef(((TEdit *)(Sender))->Text, 0));
  106. }
  107. //---------------------------------------------------------------------------
  109. void __fastcall TImagerForm::edit_Rotation_XChange(TObject *Sender)
  110. {
  111.   fcSetOrdProp(fcImager1->BitmapOptions->Rotation, "Center" + fcGetToken(((TEdit *)(Sender))->Name, '_', 2), StrToIntDef(((TEdit *)(Sender))->Text, 0));
  112. }
  113. //---------------------------------------------------------------------------
  115. void __fastcall TImagerForm::SpeedButton2Click(TObject *Sender)
  116. {
  117.   Graphics::TBitmap* ABitmap = new Graphics::TBitmap;
  118.   fcImager1->BitmapOptions->AlphaBlend->Bitmap->Transparent = false;
  119.   if (TfcPicEditor::ExecutePictureEditor(fcImager1->BitmapOptions->AlphaBlend->Bitmap, ABitmap))
  120.     fcImager1->BitmapOptions->AlphaBlend->Bitmap->Assign(ABitmap);
  121.   fcImager1->BitmapOptions->AlphaBlend->Bitmap->Transparent = fcImager1->BitmapOptions->AlphaBlend->Transparent;
  122.   ABitmap->Free();
  123. }
  124. //---------------------------------------------------------------------------
  126. void __fastcall TImagerForm::edit_AlphaBlend_AmountChange(TObject *Sender)
  127. {
  128.   fcImager1->BitmapOptions->AlphaBlend->Bitmap->Transparent = checkbox_AlphaBlend_Transparent->Checked;
  129.   fcSetOrdProp(fcImager1->BitmapOptions->AlphaBlend, fcGetToken(((TEdit *)(Sender))->Name, '_', 2), StrToIntDef(((TEdit *)(Sender))->Text, 0));
  130. }
  131. //---------------------------------------------------------------------------
  133. void __fastcall TImagerForm::checkbox_AlphaBlend_TransparentClick(
  134.       TObject *Sender)
  135. {
  136.   fcSetOrdProp(fcImager1->BitmapOptions->AlphaBlend,
  137.        fcGetToken(((TCheckBox *)(Sender))->Name, '_', 2), int(((TCheckBox *)(Sender))->Checked));
  138. }
  139. //---------------------------------------------------------------------------
  141. void __fastcall TImagerForm::edit_Wave_XDivChange(TObject *Sender)
  142. {
  143.   fcSetOrdProp(fcImager1->BitmapOptions->Wave, fcGetToken(((TEdit *)(Sender))->Name, '_', 2), StrToIntDef(((TEdit *)(Sender))->Text, 0));
  144. }
  145. //---------------------------------------------------------------------------
  147. void __fastcall TImagerForm::checkbox_Wave_WrapClick(TObject *Sender)
  148. {
  149.   fcSetOrdProp(fcImager1->BitmapOptions->Wave, fcGetToken(((TCheckBox *)(Sender))->Name, '_', 2), int(((TCheckBox *)(Sender))->Checked));
  150. }
  151. //---------------------------------------------------------------------------