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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
StyleD.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

StyleD.pas：源码内容
  1. unit StyleD;
  3. interface
  5. uses
  6.   SysUtils, Windows, Classes, Graphics, Forms,
  7.   Controls, Buttons, StdCtrls;
  9. type
  10.   TStyleDial = class(TForm)
  11.     ApplyBitBtn: TBitBtn;
  12.     CloseBitBtn: TBitBtn;
  13.     ItalicCheckBox: TCheckBox;
  14.     BoldCheckBox: TCheckBox;
  15.     UnderlineCheckBox: TCheckBox;
  16.     LabelSample: TLabel;
  17.     procedure ApplyBitBtnClick(Sender: TObject);
  18.     procedure CloseBitBtnClick(Sender: TObject);
  19.     procedure ItalicCheckBoxClick(Sender: TObject);
  20.     procedure BoldCheckBoxClick(Sender: TObject);
  21.     procedure UnderlineCheckBoxClick(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  28. var
  29.   StyleDial: TStyleDial;
  31. implementation
  33. {$R *.DFM}
  35. {allow access to the main form}
  36. uses Main;
  38. procedure TStyleDial.ApplyBitBtnClick(Sender: TObject);
  39. var
  40.   I: Integer;
  41. begin
  42.   {copy the style from the sample label of the dialog box
  43.   to the five labels of the main form}
  44.   for I := 1 to 5 do
  45.     (Form1.FindComponent ('Label' + IntToStr (I)) as TLabel).
  46.        Font.Style := LabelSample.Font.Style;
  47. end;
  49. procedure TStyleDial.CloseBitBtnClick(Sender: TObject);
  50. begin
  51.   Close;
  52. end;
  54. procedure TStyleDial.ItalicCheckBoxClick(Sender: TObject);
  55. begin
  56.   if ItalicCheckBox.Checked then
  57.     LabelSample.Font.Style := LabelSample.Font.Style + [fsItalic]
  58.   else
  59.     LabelSample.Font.Style := LabelSample.Font.Style - [fsItalic];
  60. end;
  62. procedure TStyleDial.BoldCheckBoxClick(Sender: TObject);
  63. begin
  64.   if BoldCheckBox.Checked then
  65.     LabelSample.Font.Style := LabelSample.Font.Style + [fsBold]
  66.   else
  67.     LabelSample.Font.Style := LabelSample.Font.Style - [fsBold];
  68. end;
  70. procedure TStyleDial.UnderlineCheckBoxClick(Sender: TObject);
  71. begin
  72.   if UnderlineCheckBox.Checked then
  73.     LabelSample.Font.Style := LabelSample.Font.Style + [fsUnderline]
  74.   else
  75.     LabelSample.Font.Style := LabelSample.Font.Style - [fsUnderline];
  76. end;
  78. end.