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

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

Delphi控件源码

开发平台：

Delphi

MainU.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "MainU.h"
  6. #include "OutlookBarU.h"
  7. #include "PaintU.h"
  8. #include "ImageTabFormU.h"
  9. #include "ColorDemoU.h"
  10. #include "TabButtons.h"
  11. #include "TreeDemo.h"
  12. #include "ImageButtonU.h"
  13. #include "MapU.h"
  14. #include "ShapeU.h"
  15. #include "DBTreeSample.h"
  16. #include "ImagerMain.h"
  17. #include "LabelU.h"
  18. #include "StatusBarU.h"
  19. #include "ProportionalU.h"
  20. #include "OrderFormU.h"
  21. #include "ButtonGroupDemo.h"
  22. #include "TreeCombos.h"
  23. #include "TilerUnit.h"
  24. #include "FrameU.h"
  26. //---------------------------------------------------------------------------
  27. #pragma package(smart_init)
  28. #pragma link "fcButton"
  29. #pragma link "fcButtonGroup"
  30. #pragma link "fcClearPanel"
  31. #pragma link "fcDemoRichEdit"
  32. #pragma link "fcImage"
  33. #pragma link "fcImageForm"
  34. #pragma link "fcImgBtn"
  35. #pragma link "fcLabel"
  36. #pragma link "fcOutlookBar"
  37. #pragma link "fcShapeBtn"
  38. #pragma resource "*.dfm"
  39. TMainForm *MainForm;
  40. //---------------------------------------------------------------------------
  41. __fastcall TMainForm::TMainForm(TComponent* Owner)
  42.         : TForm(Owner)
  43. {
  44. }
  45. //---------------------------------------------------------------------------
  47. void __fastcall TMainForm::fcButtonGroup1Change(
  48.       TfcCustomButtonGroup *ButtonGroup, TfcButtonGroupItem *OldSelected,
  49.       TfcButtonGroupItem *Selected)
  50. {
  51.   // Color Active Button's Font and reset old font
  52.   if (OldSelected != NULL) OldSelected->Button->Font->Color = clWhite;
  53.   Selected->Button->Font->Color = clYellow;
  54.   PageControl1->ActivePage = (TTabSheet *)FindComponent("TabSheet" + IntToStr(Selected->Button->Tag));
  55.   fcOutlookBar1->ActivePage = (TfcCustomBitBtn *)FindComponent("RichEditPage" + IntToStr(Selected->Button->Tag));
  56.   TitleLabel->Caption = Selected->Button->Caption;
  57. }
  58. //---------------------------------------------------------------------------
  60. void TMainForm::ExecuteDemo(TForm* AForm) {
  61.   Screen->Cursor = crHourGlass;
  62.   Screen->Cursor = crDefault;
  63.   AForm->ShowModal();
  64.   AForm->Free();
  65. }
  67. //---------------------------------------------------------------------------
  68. void __fastcall TMainForm::fcShapeBtn8Click(TObject *Sender)
  69. {
  70.   ExecuteDemo(&TOutlookBarForm(Application));
  71. }
  72. //---------------------------------------------------------------------------
  73. void __fastcall TMainForm::DemoButtonOutlookBarClick(TObject *Sender)
  74. {
  75.   ExecuteDemo(&TPaintForm(Application));
  76. }
  77. //---------------------------------------------------------------------------
  79. void __fastcall TMainForm::DemoButtonTreeViewClick(TObject *Sender)
  80. {
  81.   ExecuteDemo(&TTreeViewDemoForm(Application));
  82. }
  83. //---------------------------------------------------------------------------
  85. void __fastcall TMainForm::DemoButtonDBTreeViewClick(TObject *Sender)
  86. {
  87.   ExecuteDemo(&TDMTreeViewForm(Application));
  88. }
  89. //---------------------------------------------------------------------------
  91. void __fastcall TMainForm::DemoButtonImageFormClick(TObject *Sender)
  92. {
  93.   ExecuteDemo(&TOrderForm(Application));
  94. }
  95. //---------------------------------------------------------------------------
  97. void __fastcall TMainForm::fcShapeBtn4Click(TObject *Sender)
  98. {
  99.   ExecuteDemo(&TImageTabForm(Application));
  100. }
  101. //---------------------------------------------------------------------------
  103. void __fastcall TMainForm::DemoButtonLabelClick(TObject *Sender)
  104. {
  105.   ExecuteDemo(&TLabelForm(Application));
  106. }
  107. //---------------------------------------------------------------------------
  109. void __fastcall TMainForm::DemoButtonShapeBtn1Click(TObject *Sender)
  110. {
  111.   ExecuteDemo(&TShapeBtnDemoForm(Application));
  112. }
  113. //---------------------------------------------------------------------------
  115. void __fastcall TMainForm::DemoButtonImageBtnClick(TObject *Sender)
  116. {
  117.   ExecuteDemo(&TImageBtnDemoForm(Application));
  118. }
  119. //---------------------------------------------------------------------------
  121. void __fastcall TMainForm::fcShapeBtn1Click(TObject *Sender)
  122. {
  123.   ExecuteDemo(&TMapForm(Application));
  124. }
  125. //---------------------------------------------------------------------------
  127. void __fastcall TMainForm::fcShapeBtn5Click(TObject *Sender)
  128. {
  129.   ExecuteDemo(&TButtonGroupDemoForm(Application));
  130. }
  131. //---------------------------------------------------------------------------
  133. void __fastcall TMainForm::fcShapeBtn2Click(TObject *Sender)
  134. {
  135.   ExecuteDemo(&TTabBtnGroupForm(Application));
  136. }
  137. //---------------------------------------------------------------------------
  139. void __fastcall TMainForm::DemoButtonButtonGroupClick(TObject *Sender)
  140. {
  141.   String s;
  142.   s = ExtractFileDir(Application->ExeName)+ "\ButtonGroup\PDemo1stClassMDI.exe";
  143.   ShellExecute(Handle, "OPEN", s.c_str(), NULL, NULL, SW_SHOWNORMAL);
  144. }
  145. //---------------------------------------------------------------------------
  147. void __fastcall TMainForm::DemoButtonColorClick(TObject *Sender)
  148. {
  149.   ExecuteDemo(&TColorDemoForm(Application));
  150. }
  151. //---------------------------------------------------------------------------
  153. void __fastcall TMainForm::DemoButtonTreeComboClick(TObject *Sender)
  154. {
  155.   ExecuteDemo(&TTreeComboDemoForm(Application));
  156. }
  157. //---------------------------------------------------------------------------
  159. void __fastcall TMainForm::DemoButtonStatusBarClick(TObject *Sender)
  160. {
  161.   ExecuteDemo(&TStatusBarDemoForm(Application));
  162. }
  163. //---------------------------------------------------------------------------
  165. void __fastcall TMainForm::fcShapeBtn7Click(TObject *Sender)
  166. {
  167.   ExecuteDemo(&TProportionalStatusBarForm(Application));
  168. }
  169. //---------------------------------------------------------------------------
  171. void __fastcall TMainForm::DemoButtonTilerClick(TObject *Sender)
  172. {
  173.   ExecuteDemo(&TTilerDemoForm(Application));
  174. }
  175. //---------------------------------------------------------------------------
  177. void __fastcall TMainForm::fcShapeBtn6Click(TObject *Sender)
  178. {
  179.   ExecuteDemo(&TImagerForm(Application));
  180. }
  181. //---------------------------------------------------------------------------
  183. void __fastcall TMainForm::fcShapeBtn3Click(TObject *Sender)
  184. {
  185.   Close();
  186. }
  187. //---------------------------------------------------------------------------
  189. void __fastcall TMainForm::FormShow(TObject *Sender)
  190. {
  191.   PageControl1->ActivePage = TabSheet1;
  192. }
  193. //---------------------------------------------------------------------------
  196. void __fastcall TMainForm::fcImageBtn2Click(TObject *Sender)
  197. {
  198.   ExecuteDemo(&TFrameDemoForm(Application));
  199. }
  200. //---------------------------------------------------------------------------