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

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

Delphi控件源码

开发平台：

Delphi

mainu.pas：源码内容
  1. unit mainu;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, fcImageForm, fcbutton,
  8.   ComCtrls, Buttons, fcShapeBtn, fcImgBtn, fcImage, fcClearPanel,
  9.   fcButtonGroup, fcStatusBar, fcOutlookList, fcOutlookBar, fcFontCombo,
  10.   fcCombo, fcTreeCombo, fcLabel, fcdbtreeview, Db, DBTables, fcColorCombo,
  11.   DBCtrls, ShellApi, fcDemoRichEdit, dbselftree, paneldemo,panel2u,calcdemou,
  12.   trackdemo, progressdemo;
  14. type
  15.   TMainForm = class(TForm)
  16.     PageControl1: TPageControl;
  17.     TabSheet4: TTabSheet;
  18.     GroupBox2: TGroupBox;
  19.     GroupBox3: TGroupBox;
  20.     DemoButtonImageBtn: TfcShapeBtn;
  21.     GroupBox1: TGroupBox;
  22.     DemoButtonShapeBtn1: TfcShapeBtn;
  23.     DemoButtonLabel: TfcShapeBtn;
  24.     TabSheet1: TTabSheet;
  25.     TabSheet2: TTabSheet;
  26.     GroupBox5: TGroupBox;
  27.     GroupBox6: TGroupBox;
  28.     TabSheet3: TTabSheet;
  29.     TabSheet5: TTabSheet;
  30.     DemoButtonButtonGroup: TfcShapeBtn;
  31.     DemoButtonOutlookBar: TfcShapeBtn;
  32.     TabSheet6: TTabSheet;
  33.     GroupBox4: TGroupBox;
  34.     GroupBox7: TGroupBox;
  35.     TabSheet7: TTabSheet;
  36.     DemoButtonStatusBar: TfcShapeBtn;
  37.     TabSheet8: TTabSheet;
  38.     DemoButtonTiler: TfcShapeBtn;
  39.     fcShapeBtn1: TfcShapeBtn;
  40.     fcImageForm1: TfcImageForm;
  41.     fcButtonGroup1: TfcButtonGroup;
  42.     TitleLabel: TfcLabel;
  43.     fcShapeBtn3: TfcShapeBtn;
  44.     fcLabel2: TfcLabel;
  45.     Shape1: TShape;
  46.     fcImageBtn1: TfcImageBtn;
  47.     fcShapeBtn2: TfcShapeBtn;
  48.     fcShapeBtn5: TfcShapeBtn;
  49.     fcShapeBtn6: TfcShapeBtn;
  50.     fcShapeBtn7: TfcShapeBtn;
  51.     fcShapeBtn8: TfcShapeBtn;
  52.     fcOutlookBar1: TfcOutlookBar;
  53.     RichEditPage1: TfcShapeBtn;
  54.     RichEditPage2: TfcShapeBtn;
  55.     RichEditPage3: TfcShapeBtn;
  56.     RichEditPage4: TfcShapeBtn;
  57.     RichEditPage5: TfcShapeBtn;
  58.     RichEditPage6: TfcShapeBtn;
  59.     RichEditPage7: TfcShapeBtn;
  60.     RichEditPage8: TfcShapeBtn;
  61.     fcDemoRichEdit1: TfcDemoRichEdit;
  62.     fcDemoRichEdit2: TfcDemoRichEdit;
  63.     fcDemoRichEdit3: TfcDemoRichEdit;
  64.     fcDemoRichEdit4: TfcDemoRichEdit;
  65.     fcDemoRichEdit5: TfcDemoRichEdit;
  66.     fcDemoRichEdit6: TfcDemoRichEdit;
  67.     fcDemoRichEdit7: TfcDemoRichEdit;
  68.     fcDemoRichEdit8: TfcDemoRichEdit;
  69.     fcShapeBtn9: TfcShapeBtn;
  70.     fcShapeBtn10: TfcShapeBtn;
  71.     fcShapeBtn11: TfcShapeBtn;
  72.     DemoFramingBtn: TfcShapeBtn;
  73.     TabSheet9: TTabSheet;
  74.     RichEditPage9: TfcShapeBtn;
  75.     fcDemoRichEdit9: TfcDemoRichEdit;
  76.     GroupBox8: TGroupBox;
  77.     fcImageBtn2: TfcImageBtn;
  78.     fcShapeBtn12: TfcShapeBtn;
  79.     fcShapeBtn13: TfcShapeBtn;
  80.     fcShapeBtn14: TfcShapeBtn;
  81.     fcShapeBtn15: TfcShapeBtn;
  82.     fcShapeBtn16: TfcShapeBtn;
  83.     DemoPanels: TfcShapeBtn;
  84.     RichEditPage10: TfcShapeBtn;
  85.     fcDemoRichEdit10: TfcDemoRichEdit;
  86.     TabSheet10: TTabSheet;
  87.     fcShapeBtn4: TfcShapeBtn;
  88.     DBImagerDemoButton: TfcShapeBtn;
  89.     Label2DemoButton: TfcShapeBtn;
  90.     GroupBox9: TGroupBox;
  91.     CalculatorDemoButton: TfcShapeBtn;
  92.     Panel2DemoButton: TfcShapeBtn;
  93.     DemoBars: TfcShapeBtn;
  94.     RichEditPage11: TfcShapeBtn;
  95.     fcDemoRichEdit11: TfcDemoRichEdit;
  96.     TabSheet11: TTabSheet;
  97.     fcShapeBtn17: TfcShapeBtn;
  98.     fcShapeBtn18: TfcShapeBtn;
  99.     procedure fcShapeBtn3Click(Sender: TObject);
  100.     procedure fcShapeBtn2Click(Sender: TObject);
  101.     procedure DemoButtonTilerClick(Sender: TObject);
  102.     procedure DemoButtonStatusBarClick(Sender: TObject);
  103.     procedure fcButtonGroup2Change(ButtonGroup: TfcCustomButtonGroup;
  104.       OldSelected, Selected: TfcButtonGroupItem);
  105.     procedure DemoButtonLabelClick(Sender: TObject);
  106.     procedure DemoButtonShapeBtn1Click(Sender: TObject);
  107.     procedure DemoButtonImageBtnClick(Sender: TObject);
  108.     procedure DemoButtonOutlookBarClick(Sender: TObject);
  109.     procedure DemoButtonButtonGroupClick(Sender: TObject);
  110.     procedure fcShapeBtn1Click(Sender: TObject);
  111.     procedure fcButtonGroup1Change(ButtonGroup: TfcCustomButtonGroup;
  112.       OldSelected, Selected: TfcButtonGroupItem);
  113.     procedure DemoButtonImageFormClick(Sender: TObject);
  114.     procedure fcShapeBtn4Click(Sender: TObject);
  115.     procedure fcShapeBtn5Click(Sender: TObject);
  116.     procedure fcShapeBtn6Click(Sender: TObject);
  117.     procedure fcShapeBtn7Click(Sender: TObject);
  118.     procedure fcShapeBtn8Click(Sender: TObject);
  119.     procedure fcImageBtn2Click(Sender: TObject);
  120.     procedure FancyButtonClick(Sender: TObject);
  121.     procedure fcImageBtn3Click(Sender: TObject);
  122.     procedure DemoButtonTreeViewClick(Sender: TObject);
  123.     procedure fcShapeBtn9Click(Sender: TObject);
  124.     procedure fcShapeBtn11Click(Sender: TObject);
  125.     procedure fcShapeBtn12Click(Sender: TObject);
  126.     procedure fcShapeBtn13Click(Sender: TObject);
  127.     procedure fcShapeBtn14Click(Sender: TObject);
  128.     procedure fcShapeBtn15Click(Sender: TObject);
  129.     procedure fcShapeBtn16Click(Sender: TObject);
  130.     procedure DBImagerDemoButtonClick(Sender: TObject);
  131.     procedure Label2DemoButtonClick(Sender: TObject);
  132.     procedure Panel2DemoButtonClick(Sender: TObject);
  133.     procedure CalculatorDemoButtonClick(Sender: TObject);
  134.     procedure fcShapeBtn18Click(Sender: TObject);
  135.     procedure fcShapeBtn17Click(Sender: TObject);
  136.   private
  137.     { Private declarations }
  138.   public
  139.     { Public declarations }
  140.     Procedure ExecuteDemo(AFormClass:TFormClass);
  141.   end;
  143. var
  144.   MainForm: TMainForm;
  146. implementation
  148. uses StatusBars, labelu, Shapeu, ImgButtonDemo, PaintUnit,
  149.   ImgCombos, mapu, orderformu, tabbuttons, imagetabformu,
  150.   DBTreeSample1, TreeDemo, colordemou, TilerUnit, buttongroupdemo,
  151.   ImagerMain, proportional, OutlookBarUnit, Frameu, DBLabelu, DBImageru;
  154. {$R *.DFM}
  156. procedure TMainForm.ExecuteDemo(AFormClass: TFormClass);
  157. begin
  158.    Screen.cursor:= crHourGlass;
  159.    with AFormClass.create(Application) do begin
  160.       Screen.cursor:= crDefault;
  161.       ShowModal;
  162.       Free;
  163.    end
  164. end;
  166. procedure TMainForm.fcShapeBtn3Click(Sender: TObject);
  167. begin
  168.   Close;
  169. end;
  171. procedure TMainForm.fcButtonGroup2Change(ButtonGroup: TfcCustomButtonGroup;
  172.   OldSelected, Selected: TfcButtonGroupItem);
  173. begin
  174.   PageControl1.ActivePage :=
  175.      FindComponent('TabSheet'+IntToStr(Selected.Button.Tag)) as TTabSheet;
  176. end;
  178. procedure TMainForm.fcButtonGroup1Change(ButtonGroup: TfcCustomButtonGroup;
  179.   OldSelected, Selected: TfcButtonGroupItem);
  180. begin
  181.   {Color Active Button's Font and reset old font}
  182.   if OldSelected <> Nil then
  183.      OldSelected.Button.Font.Color := clWhite;
  184.   Selected.Button.Font.Color := clYellow;
  186.   PageControl1.ActivePage :=
  187.      (FindComponent('TabSheet'+IntToStr(Selected.Button.Tag)) as TTabSheet);
  189.   fcOutlookBar1.ActivePage :=
  190.      (FindComponent('RichEditPage'+IntToStr(Selected.Button.Tag)) as TfcCustomBitBtn);
  192.   TitleLabel.Caption := Selected.Button.Caption;
  193. end;
  195. procedure TMainForm.fcShapeBtn2Click(Sender: TObject);
  196. begin
  197.    ExecuteDemo(TTabBtnGroupForm);
  198. end;
  200. procedure TMainForm.DemoButtonTilerClick(Sender: TObject);
  201. begin
  202.    ExecuteDemo(TTilerForm);
  203. end;
  205. procedure TMainForm.DemoButtonStatusBarClick(Sender: TObject);
  206. begin
  207.    ExecuteDemo(TStatusBarDemoForm);
  208. end;
  210. procedure TMainForm.DemoButtonLabelClick(Sender: TObject);
  211. begin
  212.    ExecuteDemo(TLabelForm);
  213. end;
  215. procedure TMainForm.DemoButtonShapeBtn1Click(Sender: TObject);
  216. begin
  217.    ExecuteDemo(TShapeBtnDemoForm);
  218. end;
  220. procedure TMainForm.DemoButtonImageBtnClick(Sender: TObject);
  221. begin
  222.    ExecuteDemo(TImageBtnDemoForm);
  223. end;
  225. procedure TMainForm.DemoButtonOutlookBarClick(Sender: TObject);
  226. begin
  227.    ExecuteDemo(TPaintForm);
  228. end;
  230. procedure TMainForm.DemoButtonButtonGroupClick(Sender: TObject);
  231. begin
  232.    if FileExists(PChar(ExtractFileDir(Application.ExeName) + 'ButtonGroupDemo1stClassMDI.exe')) then
  233.       ShellExecute(Handle, 'OPEN', PChar(ExtractFileDir(Application.ExeName) + 'ButtonGroupDemo1stClassMDI.exe'), nil, nil, sw_shownormal)
  234.    else
  235.       ShellExecute(Handle, 'OPEN', PChar(ExtractFileDir(Application.ExeName) + 'Demo1stClassMDI.exe'), nil, nil, sw_shownormal);
  236. end;
  238. procedure TMainForm.fcShapeBtn1Click(Sender: TObject);
  239. begin
  240.    ExecuteDemo(TMapForm);
  241. end;
  243. procedure TMainForm.DemoButtonImageFormClick(Sender: TObject);
  244. begin
  245.    ExecuteDemo(TOrderForm);
  246. end;
  248. procedure TMainForm.fcShapeBtn4Click(Sender: TObject);
  249. begin
  250.    ExecuteDemo(TPanelDemoForm);
  251. end;
  253. procedure TMainForm.fcShapeBtn5Click(Sender: TObject);
  254. begin
  255.    ExecuteDemo(TButtonGroupDemo2);
  256. end;
  258. procedure TMainForm.fcShapeBtn6Click(Sender: TObject);
  259. begin
  260.    ExecuteDemo(TImagerForm);
  261. end;
  263. procedure TMainForm.fcShapeBtn7Click(Sender: TObject);
  264. begin
  265.    ExecuteDemo(TProportionalDemo);
  266. end;
  268. procedure TMainForm.fcShapeBtn8Click(Sender: TObject);
  269. begin
  270.    ExecuteDemo(TOutlookBarForm);
  271.    
  272. end;
  274. procedure TMainForm.fcImageBtn2Click(Sender: TObject);
  275. begin
  276.    ExecuteDemo(TFrameDemo);
  277. end;
  279. procedure TMainForm.FancyButtonClick(Sender: TObject);
  280. begin
  281.    ExecuteDemo(TSelfDBForm);
  282. end;
  284. procedure TMainForm.fcImageBtn3Click(Sender: TObject);
  285. begin
  286.    ExecuteDemo(TDMTreeViewForm);
  287. end;
  289. procedure TMainForm.DemoButtonTreeViewClick(Sender: TObject);
  290. begin
  291.   ExecuteDemo(TTreeViewDemoForm);
  292. end;
  294. procedure TMainForm.fcShapeBtn9Click(Sender: TObject);
  295. begin
  296.    ExecuteDemo(TDMTreeViewForm);
  297. end;
  299. procedure TMainForm.fcShapeBtn11Click(Sender: TObject);
  300. begin
  301.    ExecuteDemo(TSelfDBForm);
  302. end;
  304. procedure TMainForm.fcShapeBtn12Click(Sender: TObject);
  305. begin
  306.    ExecuteDemo(TColorDemoForm);
  307. end;
  309. procedure TMainForm.fcShapeBtn13Click(Sender: TObject);
  310. begin
  311.    ExecuteDemo(TTreeComboDemoForm);
  312. end;
  314. procedure TMainForm.fcShapeBtn14Click(Sender: TObject);
  315. begin
  316.    ExecuteDemo(TFrameDemo);
  317. end;
  319. procedure TMainForm.fcShapeBtn15Click(Sender: TObject);
  320. begin
  321.    ExecuteDemo(TOrderForm);
  322. end;
  324. procedure TMainForm.fcShapeBtn16Click(Sender: TObject);
  325. begin
  326.    ExecuteDemo(TImageTabForm);
  327. end;
  329. procedure TMainForm.DBImagerDemoButtonClick(Sender: TObject);
  330. begin
  331.    ExecuteDemo(TDBImagerDemoForm);
  332. end;
  334. procedure TMainForm.Label2DemoButtonClick(Sender: TObject);
  335. begin
  336.    ExecuteDemo(TJustifyLabelDemoForm);
  337. end;
  339. procedure TMainForm.Panel2DemoButtonClick(Sender: TObject);
  340. begin
  341.    ExecuteDemo(TPanel2DemoForm);
  342. end;
  344. procedure TMainForm.CalculatorDemoButtonClick(Sender: TObject);
  345. begin
  346.    ExecuteDemo(TCalculatorDemoForm);
  347. end;
  349. procedure TMainForm.fcShapeBtn18Click(Sender: TObject);
  350. begin
  351.    ExecuteDemo(TTrackbarForm)
  352. end;
  354. procedure TMainForm.fcShapeBtn17Click(Sender: TObject);
  355. begin
  356.    ExecuteDemo(TProgressForm)
  357. end;
  359. end.