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

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

Delphi控件源码

开发平台：

Delphi

labelu.pas：源码内容
  1. unit labelu;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, fcLabel, ComCtrls, StdCtrls, DBCtrls, Db, DBTables, fcButton,
  8.   fcImgBtn, fcShapeBtn, fcText, fcClearPanel, fcButtonGroup, ShellAPI, Math,
  9.   fcDemoRichEdit;
  11. type
  12.   TLabelForm = class(TForm)
  13.     PageControl1: TPageControl;
  14.     TabSheet1: TTabSheet;
  15.     TabSheet2: TTabSheet;
  16.     TabSheet3: TTabSheet;
  17.     TabSheet4: TTabSheet;
  18.     TabSheet5: TTabSheet;
  19.     Panel1: TPanel;
  20.     fcButtonGroup1: TfcButtonGroup;
  21.     fcButtonGroup1fcImageBtn1: TfcImageBtn;
  22.     fcButtonGroup1fcImageBtn2: TfcImageBtn;
  23.     fcButtonGroup1fcImageBtn3: TfcImageBtn;
  24.     fcButtonGroup1fcImageBtn4: TfcImageBtn;
  25.     fcButtonGroup1fcImageBtn5: TfcImageBtn;
  26.     Panel2: TPanel;
  27.     Rotatedlabel1: TfcLabel;
  28.     embossedlabel1: TfcLabel;
  29.     ShadowLabel1: TfcLabel;
  30.     outlinedlabel1: TfcLabel;
  31.     engravedlabel1: TfcLabel;
  32.     Block3DLabel1: TfcLabel;
  33.     FunLabel1: TfcLabel;
  34.     Rotatedlabel2: TfcLabel;
  35.     BlendLabel1: TfcLabel;
  36.     Extrudelabel1: TfcLabel;
  37.     Rotatedlabel3: TfcLabel;
  38.     fcDemoRichEdit1: TfcDemoRichEdit;
  39.     Panel3: TPanel;
  40.     RotateLabel5: TfcLabel;
  41.     RotateLabel6: TfcLabel;
  42.     RotateLabel4: TfcLabel;
  43.     RotateLabel3: TfcLabel;
  44.     RotateLabel7: TfcLabel;
  45.     RotateLabel8: TfcLabel;
  46.     RotateLabel9: TfcLabel;
  47.     fcDemoRichEdit2: TfcDemoRichEdit;
  48.     Panel4: TPanel;
  49.     Shape2: TShape;
  50.     fcLabel16: TfcLabel;
  51.     fcLabel17: TfcLabel;
  52.     fcLabel18: TfcLabel;
  53.     fcLabel22: TfcLabel;
  54.     fcLabel23: TfcLabel;
  55.     fcLabel24: TfcLabel;
  56.     fcLabel25: TfcLabel;
  57.     fcLabel31: TfcLabel;
  58.     fcLabel32: TfcLabel;
  59.     fcLabel33: TfcLabel;
  60.     fcLabel35: TfcLabel;
  61.     fcLabel39: TfcLabel;
  62.     fcLabel40: TfcLabel;
  63.     RadioGroup1: TRadioGroup;
  64.     fcDemoRichEdit3: TfcDemoRichEdit;
  65.     Panel5: TPanel;
  66.     Shape1: TShape;
  67.     BlockTestLabel1: TfcLabel;
  68.     fcLabel38: TfcLabel;
  69.     fcLabel34: TfcLabel;
  70.     fcLabel37: TfcLabel;
  71.     fcLabel36: TfcLabel;
  72.     BlockTestLabel2: TfcLabel;
  73.     BlockTestLabel3: TfcLabel;
  74.     wowlabel1: TfcLabel;
  75.     wowlabel4: TfcLabel;
  76.     fcLabel48: TfcLabel;
  77.     wowlabel2: TfcLabel;
  78.     wowlabel3: TfcLabel;
  79.     fcDemoRichEdit4: TfcDemoRichEdit;
  80.     Panel6: TPanel;
  81.     MultiLineLabel1: TfcLabel;
  82.     EllipsisLabel2: TfcLabel;
  83.     fcDemoRichEdit5: TfcDemoRichEdit;
  84.     Bevel1: TBevel;
  85.     Bevel2: TBevel;
  86.     Bevel3: TBevel;
  87.     Panel7: TPanel;
  88.     fcLabel2: TfcLabel;
  89.     fcLabel1: TfcLabel;
  90.     Panel8: TPanel;
  91.     AcceleratorKeyLabel1: TfcLabel;
  92.     AcceleratorKeyLabel2: TfcLabel;
  93.     AcceleratorKeyLabel3: TfcLabel;
  94.     AcceleratorKeyLabel4: TfcLabel;
  95.     AcceleratorKeyLabel5: TfcLabel;
  96.     Edit1: TEdit;
  97.     Edit2: TEdit;
  98.     Edit3: TEdit;
  99.     Bevel4: TBevel;
  100.     Bevel5: TBevel;
  101.     Label1: TLabel;
  102.     procedure RadioGroup1Click(Sender: TObject);
  103.     procedure fcButtonGroup1Change(ButtonGroup: TfcCustomButtonGroup;
  104.       OldSelected, Selected: TfcButtonGroupItem);
  105.     procedure fcLabel1MouseEnter(Sender: TObject);
  106.     procedure fcLabel1MouseLeave(Sender: TObject);
  107.     procedure fcLabel1Click(Sender: TObject);
  108.   private
  109.     { Private declarations }
  110.   public
  111.     { Public declarations }
  112.   end;
  114. var
  115.   LabelForm: TLabelForm;
  117. implementation
  119. {$R *.DFM}
  122. procedure TLabelForm.RadioGroup1Click(Sender: TObject);
  123. begin
  124.    fcLabel39.Font.Color := clBtnFace;
  125.    case RadioGroup1.ItemIndex of
  126.       0: begin
  127.          fcLabel35.TextOptions.Style := fclsDefault;
  128.          fcLabel39.TextOptions.Style := fclsDefault;
  129.          fcLabel39.Font.Color := clBlack;
  130.          fcLabel40.TextOptions.Style := fclsDefault;
  131.          end;
  132.       1: begin
  133.          fcLabel35.TextOptions.Style := fclsRaised;
  134.          fcLabel39.TextOptions.Style := fclsRaised;
  135.          fcLabel40.TextOptions.Style := fclsRaised;
  136.          end;
  137.       2: begin
  138.          fcLabel35.TextOptions.Style := fclsLowered;
  139.          fcLabel39.TextOptions.Style := fclsLowered;
  140.          fcLabel40.TextOptions.Style := fclsLowered;
  141.          end;
  142.       3: begin
  143.          fcLabel35.TextOptions.Style := fclsOutline;
  144.          fcLabel39.TextOptions.Style := fclsOutline;
  145.          fcLabel40.TextOptions.Style := fclsOutline;
  146.          end;
  147.    end;
  148. end;
  150. procedure TLabelForm.fcButtonGroup1Change(
  151.   ButtonGroup: TfcCustomButtonGroup; OldSelected,
  152.   Selected: TfcButtonGroupItem);
  153. begin
  154.   PageControl1.ActivePage :=
  155.     (FindComponent('TabSheet'+IntToStr(Selected.Button.Tag)) as TTabSheet);
  156. end;
  158. procedure TLabelForm.fcLabel1MouseEnter(Sender: TObject);
  159. begin
  160.   (Sender as TfcLabel).Font.Color := clBlue;
  161. end;
  163. procedure TLabelForm.fcLabel1MouseLeave(Sender: TObject);
  164. begin
  165.    (Sender as TfcLabel).Font.Color := clBlack;
  166. end;
  168. procedure TLabelForm.fcLabel1Click(Sender: TObject);
  169. begin
  170.    ShellExecute(Handle, 'OPEN',
  171.      PChar('https://www.he.net/cgi-bin/suid/~wol2wol/ordering/order.cgi'),
  172.            nil, nil, sw_shownormal);
  173. end;
  175. end.