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

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

Delphi控件源码

开发平台：

Delphi

CalcDemoU.pas：源码内容
  1. unit CalcDemoU;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   fcLabel, StdCtrls, fcCombo, fcCalcEdit, fcButton, fcImgBtn, fcShapeBtn,
  8.   ExtCtrls, fcClearPanel, fcButtonGroup, fcOutlookBar, fcCalculator,
  9.   fcpanel, fcColorCombo, ComCtrls, fcDemoRichEdit;
  11. type
  12.   TCalculatorDemoForm = class(TForm)
  13.     CalcDemoOutlookBar: TfcOutlookBar;
  14.     CalculatorBitmap: TfcShapeBtn;
  15.     Configurations: TfcShapeBtn;
  16.     Behavior: TfcShapeBtn;
  17.     DisplayformatPage: TfcShapeBtn;
  18.     fcCalcEdit1: TfcCalcEdit;
  19.     fcCalcEdit2: TfcCalcEdit;
  20.     fcCalcEdit3: TfcCalcEdit;
  21.     fcCalcEdit4: TfcCalcEdit;
  22.     Bevel1: TBevel;
  23.     fcGroupBox1: TfcGroupBox;
  24.     ButtonAppearanceRadio: TRadioGroup;
  25.     HotTrackButtonsCheckbox: TCheckBox;
  26.     HideBorderCheckbox: TCheckBox;
  27.     DrawStyleRadio: TRadioGroup;
  28.     Bevel2: TBevel;
  29.     ButtonArrangementRadio: TRadioGroup;
  30.     Bevel3: TBevel;
  31.     CloseOnEqualsCheckbox: TCheckBox;
  32.     ShowDecimalCheckbox: TCheckBox;
  33.     DigitGroupingCheckbox: TCheckBox;
  34.     fcColorList1: TfcColorList;
  35.     fcLabel1: TfcLabel;
  36.     ButtonAppearanceRadio2: TRadioGroup;
  37.     Bevel4: TBevel;
  38.     fcCalcEdit5: TfcCalcEdit;
  39.     fcCalcEdit6: TfcCalcEdit;
  40.     ShowDropDownCheckbox: TCheckBox;
  41.     fcLabel2: TfcLabel;
  42.     fcDemoRichEdit1: TfcDemoRichEdit;
  43.     procedure fcCalcEdit1BeforeDropDown(Sender: TObject);
  44.     procedure fcCalcEdit2BeforeDropDown(Sender: TObject);
  45.     procedure fcCalcEdit3BeforeDropDown(Sender: TObject);
  46.     procedure ShowDecimalCheckboxClick(Sender: TObject);
  47.     procedure ShowDropDownCheckboxClick(Sender: TObject);
  48.   private
  49.     { Private declarations }
  50.   public
  51.     { Public declarations }
  52.   end;
  54. var
  55.   CalculatorDemoForm: TCalculatorDemoForm;
  57. implementation
  59. {$R *.DFM}
  61. procedure TCalculatorDemoForm.fcCalcEdit1BeforeDropDown(Sender: TObject);
  62. begin
  63.   with Sender as TfcCalcEdit do begin
  64.      CalcOptions.Options := [cboHideEditor];
  66.      case DrawStyleRadio.ItemIndex of
  67.      0:CalcOptions.BackGroundStyle := cbdTile;
  68.      1:CalcOptions.BackGroundStyle := cbdStretch;
  69.      2:CalcOptions.BackGroundStyle := cbdCenter;
  70.      3:CalcOptions.BackGroundStyle := cbdTile;
  71.      end;
  73.      case ButtonAppearanceRadio.ItemIndex of
  74.        0:CalcOptions.Options := CalcOptions.Options + [cboFlatButtons];
  75.        1:CalcOptions.Options := CalcOptions.Options + [cboRoundedButtons];
  76.        3:CalcOptions.Options := CalcOptions.Options + [cboFlatDrawStyle];
  77.      end;
  79.      if HotTrackButtonsCheckbox.Checked then
  80.         CalcOptions.Options := CalcOptions.Options + [cboHotTrackButtons];
  82.      if HideBorderCheckbox.Checked then
  83.         CalcOptions.Options := CalcOptions.Options + [cboHideBorder];
  84.   end;
  85. end;
  87. procedure TCalculatorDemoForm.fcCalcEdit2BeforeDropDown(Sender: TObject);
  88. begin
  89.   with Sender as TfcCalcEdit do begin
  90.      CalcOptions.Options := [cboHideEditor];
  92.      case ButtonArrangementRadio.ItemIndex of
  93.         0:CalcOptions.Options := CalcOptions.Options + [cboSimpleCalc];
  94.         2:CalcOptions.Options := CalcOptions.Options + [cboHideMemory];
  95.      end;
  96.   end;
  97. end;
  99. procedure TCalculatorDemoForm.fcCalcEdit3BeforeDropDown(Sender: TObject);
  100. begin
  101.   with Sender as TfcCalcEdit do begin
  102.      CalcOptions.Options := [cboHideEditor];
  104.      if CloseOnEqualsCheckbox.Checked then
  105.         CalcOptions.Options := CalcOptions.Options + [cboCloseOnEquals];
  107.      if DigitGroupingCheckbox.Checked then
  108.         CalcOptions.Options := CalcOptions.Options + [cboDigitGrouping];
  110.      if ShowDecimalCheckbox.Checked then
  111.         CalcOptions.Options := CalcOptions.Options + [cboShowDecimal];
  114.      CalcOptions.PanelColor := fcColorList1.SelectedColor;
  116.      case ButtonAppearanceRadio2.ItemIndex of
  117.        0:CalcOptions.Options := CalcOptions.Options + [cboFlatButtons];
  118.        1:CalcOptions.Options := CalcOptions.Options + [cboRoundedButtons];
  119.        3:CalcOptions.Options := CalcOptions.Options + [cboFlatDrawStyle];
  120.      end;
  122.   end;
  123. end;
  125. procedure TCalculatorDemoForm.ShowDecimalCheckboxClick(Sender: TObject);
  126. begin
  127.    fcCalcEdit3BeforeDropDown(fcCalcEdit3);
  128. end;
  130. procedure TCalculatorDemoForm.ShowDropDownCheckboxClick(Sender: TObject);
  131. begin
  132.   with Sender as TfcCalcEdit do
  133.    ShowButton := ShowDropDownCheckbox.Checked;
  134. end;
  136. end.