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

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

Delphi控件源码

开发平台：

Delphi

Shapeu.pas：源码内容
  1. unit Shapeu;
  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, Buttons, fcDemoRichEdit, fcImager;
  10. type
  11.   TShapeBtnDemoForm = class(TForm)
  12.     PageControl1: TPageControl;
  13.     TabSheet1: TTabSheet;
  14.     TabSheet3: TTabSheet;
  15.     TabSheet4: TTabSheet;
  16.     TabSheet5: TTabSheet;
  17.     TabSheet6: TTabSheet;
  18.     Panel2: TPanel;
  19.     ButtonArrowLeft: TfcShapeBtn;
  20.     ButtonArrowRight: TfcShapeBtn;
  21.     ButtonDiamond: TfcShapeBtn;
  22.     ButtonRoundRect1: TfcShapeBtn;
  23.     ButtonEllipse: TfcShapeBtn;
  24.     ButtonRoundRect2: TfcShapeBtn;
  25.     ButtonStar: TfcShapeBtn;
  26.     ButtonRoundRect3: TfcShapeBtn;
  27.     ButtonTriangle: TfcShapeBtn;
  28.     ButtonTrapezoid: TfcShapeBtn;
  29.     fcDemoRichEdit1: TfcDemoRichEdit;
  30.     Panel3: TPanel;
  31.     CustomButton1: TfcShapeBtn;
  32.     CustomCrossButton: TfcShapeBtn;
  33.     CustomArrowButton: TfcShapeBtn;
  34.     RadioGroup1: TRadioGroup;
  35.     CustomLButton1: TfcShapeBtn;
  36.     CustomLButton2: TfcShapeBtn;
  37.     CustomLButton3: TfcShapeBtn;
  38.     CustomTriangleButton: TfcShapeBtn;
  39.     CustomTrapezoidButton: TfcShapeBtn;
  40.     fcDemoRichEdit2: TfcDemoRichEdit;
  41.     Panel4: TPanel;
  42.     ButtonMultiLine2: TfcShapeBtn;
  43.     ButtonTextEffects1: TfcShapeBtn;
  44.     ButtonMultiLine1: TfcShapeBtn;
  45.     fcDemoRichEdit3: TfcDemoRichEdit;
  46.     Panel5: TPanel;
  47.     Label1: TLabel;
  48.     ButtonSpeedStar: TfcShapeBtn;
  49.     ButtonSpeedArrow: TfcShapeBtn;
  50.     Label2: TLabel;
  51.     Label3: TLabel;
  52.     fcShapeBtn1: TfcShapeBtn;
  53.     fcShapeBtn2: TfcShapeBtn;
  54.     fcShapeBtn3: TfcShapeBtn;
  55.     fcShapeBtn7: TfcShapeBtn;
  56.     fcShapeBtn6: TfcShapeBtn;
  57.     fcShapeBtn5: TfcShapeBtn;
  58.     Edit1: TEdit;
  59.     fcDemoRichEdit4: TfcDemoRichEdit;
  60.     Panel6: TPanel;
  61.     ButtonGlyphHotTrack: TfcShapeBtn;
  62.     ButtonHotTrack: TfcShapeBtn;
  63.     ButtonColored: TfcShapeBtn;
  64.     fcDemoRichEdit5: TfcDemoRichEdit;
  65.     Bevel1: TBevel;
  66.     Label5: TLabel;
  67.     Label6: TLabel;
  68.     Bevel2: TBevel;
  69.     Bevel3: TBevel;
  70.     Bevel4: TBevel;
  71.     fcShapeBtn8: TfcShapeBtn;
  72.     fcShapeBtn9: TfcShapeBtn;
  73.     fcShapeBtn10: TfcShapeBtn;
  74.     fcLabel6: TfcLabel;
  75.     fcLabel7: TfcLabel;
  76.     Panel11: TPanel;
  77.     Panel12: TPanel;
  78.     Panel13: TPanel;
  79.     Panel14: TPanel;
  80.     Panel15: TPanel;
  81.     RightButton1: TfcShapeBtn;
  82.     RightButton2: TfcShapeBtn;
  83.     LeftButton1: TfcShapeBtn;
  84.     RightButton3: TfcShapeBtn;
  85.     LeftButton2: TfcShapeBtn;
  86.     RightButton4: TfcShapeBtn;
  87.     LeftButton3: TfcShapeBtn;
  88.     LeftButton4: TfcShapeBtn;
  89.     fcLabel8: TfcLabel;
  90.     fcLabel5: TfcLabel;
  91.     fcLabel3: TfcLabel;
  92.     fcLabel4: TfcLabel;
  93.     fcLabel9: TfcLabel;
  94.     fcLabel2: TfcLabel;
  95.     fcLabel1: TfcLabel;
  96.     fcImager1: TfcImager;
  97.     procedure LeftButton3Click(Sender: TObject);
  98.     procedure RightButton1Click(Sender: TObject);
  99.     procedure RadioGroup1Click(Sender: TObject);
  100.     procedure ButtonColoredMouseLeave(Sender: TObject);
  101.     procedure ButtonHotTrackMouseLeave(Sender: TObject);
  102.     procedure ButtonHotTrackMouseEnter(Sender: TObject);
  103.     procedure ButtonGlyphHotTrackMouseEnter(Sender: TObject);
  104.     procedure ButtonGlyphHotTrackMouseLeave(Sender: TObject);
  105.   private
  106.     { Private declarations }
  107.   public
  108.     { Public declarations }
  109.   end;
  111. var
  112.   ShapeBtnDemoForm: TShapeBtnDemoForm;
  114. implementation
  116. {$R *.DFM}
  118. procedure TShapeBtnDemoForm.LeftButton3Click(Sender: TObject);
  119. begin
  120.   with PageControl1 do ActivePage := FindNextPage(ActivePage,False,False);
  121. end;
  123. procedure TShapeBtnDemoForm.RightButton1Click(Sender: TObject);
  124. begin
  125.   with PageControl1 do ActivePage := FindNextPage(ActivePage,True,False);
  126. end;
  128. procedure TShapeBtnDemoForm.RadioGroup1Click(Sender: TObject);
  129. begin
  130.    case RadioGroup1.ItemIndex of
  131.       0: begin
  132.            CustomLButton1.Orientation := soDown;
  133.            CustomLButton2.Orientation := soDown;
  134.            CustomLButton3.Orientation := soDown;
  135.            CustomArrowButton.Orientation := soDown;
  136.            CustomLButton2.Top := CustomLButton3.Top;
  137.            CustomLButton1.Top := CustomLButton3.Top;
  138.            CustomLButton2.Left := CustomLButton3.Left;
  139.            CustomLButton1.Left := CustomLButton3.Left;
  140.          end;
  141.       1: begin
  142.            CustomLButton1.Orientation := soUp;
  143.            CustomLButton2.Orientation := soUp;
  144.            CustomLButton3.Orientation := soUp;
  145.            CustomArrowButton.Orientation := soUp;
  146.            CustomLButton2.Top := CustomLButton3.Top+15;
  147.            CustomLButton1.Top := CustomLButton2.Top+15;
  148.            CustomLButton2.Left := CustomLButton3.Left+15;
  149.            CustomLButton1.Left := CustomLButton2.Left+15;
  150.          end;
  151.       2: begin
  152.            CustomLButton1.Orientation := soLeft;
  153.            CustomLButton2.Orientation := soLeft;
  154.            CustomLButton3.Orientation := soLeft;
  155.            CustomArrowButton.Orientation := soLeft;
  156.            CustomLButton2.Top := CustomLButton3.Top;
  157.            CustomLButton1.Top := CustomLButton3.Top;
  158.            CustomLButton2.Left := CustomLButton3.Left+15;
  159.            CustomLButton1.Left := CustomLButton2.Left+15;
  160.          end;
  161.       3: begin
  162.            CustomLButton1.Orientation := soRight;
  163.            CustomLButton2.Orientation := soRight;
  164.            CustomLButton3.Orientation := soRight;
  165.            CustomArrowButton.Orientation := soRight;
  166.            CustomLButton2.Top := CustomLButton3.Top+15;
  167.            CustomLButton1.Top := CustomLButton2.Top+15;
  168.            CustomLButton2.Left := CustomLButton3.Left;
  169.            CustomLButton1.Left := CustomLButton3.Left;
  170.          end;
  171.    end;
  172. end;
  174. procedure TShapeBtnDemoForm.ButtonColoredMouseLeave(Sender: TObject);
  175. begin
  176.   (Sender as TfcShapeBtn).Font.Color := clWhite;
  177. end;
  179. procedure TShapeBtnDemoForm.ButtonHotTrackMouseLeave(Sender: TObject);
  180. begin
  181.   with (Sender as TfcShapeBtn) do begin
  182.     Color := clBtnFace;
  183.     UpdateShadeColors(Color);
  184.     Font.Color := clBlack;
  185.     TextOptions.ShadeColor := clBtnShadow;
  186.     TextOptions.HighlightColor := clBtnHighlight;
  187.     ShadeColors.Btn3DLight := cl3DLight;
  188.   end;
  189. end;
  191. procedure TShapeBtnDemoForm.ButtonHotTrackMouseEnter(Sender: TObject);
  192. begin
  193.   with (Sender as TfcShapeBtn) do begin
  194.      Color := clRed;
  195.      UpdateShadeColors(clRed);
  196.      Font.Color := clWhite;
  197.      TextOptions.HighlightColor := $00A0A0FF;
  198.      TextOptions.ShadeColor := clMaroon;
  199.   end;
  200. end;
  202. procedure TShapeBtnDemoForm.ButtonGlyphHotTrackMouseEnter(Sender: TObject);
  203. begin
  204.   (Sender as TfcShapeBtn).Font.Color := clRed;
  205. end;
  207. procedure TShapeBtnDemoForm.ButtonGlyphHotTrackMouseLeave(Sender: TObject);
  208. begin
  209.  (Sender as TfcShapeBtn).Font.Color := clBlack;
  210. end;
  212. end.