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

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

Delphi控件源码

开发平台：

Delphi

fClass.pas：源码内容
  1. unit fClass;
  2. {
  3. //
  4. // Components : Registration for 1stClass
  5. //
  6. // Copyright (c) 1999 by Woll2Woll Software
  7. //
  8. }
  9. interface
  11. {$i fcIfDef.pas}
  13. uses Classes, Graphics, DB, fcColorCombo, fcButton,
  14.   {$ifdef fcdelphi6up}
  15.   designintf,
  16.   {$else}
  17.   dsgnintf,
  18.   {$endif}
  19.   fcLabel,
  20.   fcStatusBar, fcImageForm, fcImager, fcCollectionEditor, fcButtonGroup,
  21.   fcOutlookBar, fcClearPanel, fcDBTreeView, fctreeview,
  22.   Controls, fcPropEdt, fcFontCombo, fcShapeBtn, fcImgBtn, fcTreeCombo,
  23.   fcBitmap, fcOutlookList, fcDemoRichEdit, fcCollection,
  24.   {fcimagepanel, }fcpanel , fccalcedit, fctreeheader,
  25.   fccombo,
  26.   fctrackbar,
  27.   fcProgressBar;
  29. procedure Register;
  31. implementation
  33. {$r 1stClass.dcr}
  35. procedure Register;
  36. begin
  37.   RegisterComponents('1stClass', [TfcTreeView]);
  38.   RegisterComponents('1stClass', [TfcDBTreeView]);
  39.   RegisterComponents('1stClass', [TfcButtonGroup, TfcOutlookBar]);
  40.   RegisterComponents('1stClass', [TfcImageForm]);
  41.   RegisterComponents('1stClass', [TfcStatusBar]);
  42.   RegisterComponents('1stClass', [TfcImager]);
  43.   RegisterComponents('1stClass', [TfcDBImager]);
  44.   RegisterComponents('1stClass', [TfcShapeBtn]);
  45.   RegisterComponents('1stClass', [TfcImageBtn]);
  46.   RegisterComponents('1stClass', [TfcTreeCombo]);
  47.   RegisterComponents('1stClass', [TfcFontCombo]);
  48.   RegisterComponents('1stClass', [TfcColorCombo]);
  49.   RegisterComponents('1stClass', [TfcColorList]);
  50.   RegisterComponents('1stClass', [TfcLabel]);
  51. //  RegisterComponents('1stClass', [TfcDBLabel]);
  52. //  RegisterComponents('1stClass', [TfcImagePanel]);
  53.   RegisterComponents('1stClass', [TfcPanel]);
  54.   RegisterComponents('1stClass', [TfcGroupBox]);
  55.   RegisterComponents('1stClass', [TfcCalcEdit]);
  56.   RegisterComponents('1stClass', [TfcTreeHeader]);
  57.   RegisterComponents('1stClass', [TfcTrackBar]);
  58.   RegisterComponents('1stClass', [TfcProgressBar]);
  59. //  RegisterComponents('1stClass', [TfcTransparentPanel]);
  60.   RegisterClasses([TfcDemoRichEdit]);
  62.   RegisterPropertyEditor(TypeInfo(string), TfcCustomButtonGroup,
  63.     'ButtonClassName', TfcButtonGroupControlClassEditor);
  64.   RegisterPropertyEditor(TypeInfo(TCaption), TfcCustomLabel, 'Caption', TfcLabelCaptionEditor);
  65.   RegisterPropertyEditor(TypeInfo(TCaption), TfcCustomBitBtn, 'Caption', TfcButtonCaptionEditor);
  66. //  RegisterPropertyEditor(TypeInfo(TfcButtonGroupItems), TfcCustomButtonGroup,
  67. //    'Items', TfcButtonGroupItemsEditor);
  68. //  RegisterPropertyEditor(TypeInfo(TBitmap), TfcImageBtn, '', TfcImageBtnImageEditor);
  69.   RegisterPropertyEditor(TypeInfo(TfcStatusPanels), TfcCustomStatusBar, 'Panels', TfcStatusBarPanelsEditor);
  70. //  RegisterComponentEditor(TypeInfo(TfcTreeView), TfcTreeHeaderSectionsEditor);
  71.   RegisterPropertyEditor(TypeInfo(TfcTreeNodes), TfcCustomTreeView, 'Items',  TfcTreeViewItemsProperty);
  72.   RegisterPropertyEditor(TypeInfo(TfcTreeNodes), TfcCustomTreeCombo, 'Items',
  73.     TfcTreeComboItemsProperty);
  74.   RegisterPropertyEditor(TypeInfo(TfcBitmap), nil, '', TfcBitmapEditor);
  75.   RegisterPropertyEditor(TypeInfo(TfcButtonGroupItem), nil, '', TfcButtonGroupSelectedEditor);
  76.   RegisterPropertyEditor(TypeInfo(TColor), TfcCustomColorCombo, 'SelectedColor', TfcColorComboSelectedColorEditor);
  77.   RegisterPropertyEditor(TypeInfo(TColor), TfcCustomImageBtn, 'TransparentColor', TfcImageBtnTranColorEditor);
  78. //  RegisterComponents('1stClass', [TfcOutlookList]);
  79.   RegisterPropertyEditor(TypeInfo(TComponent), TfcCustomImageBtn, 'ExtImage', TfcImageBtnExtImageEditor);
  80.   RegisterPropertyEditor(TypeInfo(TComponent), TfcCustomImageBtn, 'ExtImageDown', TfcImageBtnExtImageEditor);
  81.   RegisterPropertyEditor(TypeInfo(TfcCustomBitBtn), TfcCustomOutlookBar, 'ActivePage', TfcOutlookBarActivePageEditor);
  82.   RegisterPropertyEditor(TypeInfo(TfcCollection), TPersistent, '', TfcCollectionEditor);
  83.   RegisterPropertyEditor(TypeInfo(TComponent), TfcCustomCombo, 'Controller', TfcControllerProperty);
  85.   RegisterComponentEditor(TfcTreeHeader, TfcHeaderEditor);
  86.   RegisterComponentEditor(TfcCustomTreeView, TfcTreeViewEditor);
  87.   RegisterComponentEditor(TfcCustomLabel, TfcComponentEditor);
  88.   RegisterComponentEditor(TfcDBCustomTreeView, TfcComponentEditor);
  89.   RegisterComponentEditor(TfcCustomButtonGroup, TfcButtonGroupEditor);
  90.   RegisterComponentEditor(TfcOutlookList, TfcCustomOutlookListEditor);
  91.   RegisterComponentEditor(TfcOutlookPanel, TfcOutlookPanelEditor);
  92.   RegisterComponentEditor(TfcCustomImageForm, TfcImageFormEditor);
  93.   RegisterComponentEditor(TfcCustomStatusBar, TfcStatusBarEditor);
  94.   RegisterComponentEditor(TfcCustomImager, TfcImagerEditor);
  95.   RegisterComponentEditor(TfcCustomShapeBtn, TfcCustomBtnEditor);
  96.   RegisterComponentEditor(TfcCustomImageBtn, TfcImgBtnEditor);
  97.   RegisterComponentEditor(TfcCustomTreeCombo, TfcTreeComboEditor);
  98.   RegisterComponentEditor(TfcCustomFontCombo, TfcComponentEditor);
  99.   RegisterComponentEditor(TfcCustomColorCombo, TfcComponentEditor);
  100.   RegisterComponentEditor(TfcCustomColorList, TfcComponentEditor);
  101. end;
  103. end.