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

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

Delphi控件源码

开发平台：

Delphi

SplitFrm.pas：源码内容
  1. unit SplitFrm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, StdCtrls, Buttons, ComCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     ListBox1: TListBox;
  12.     ListBox2: TListBox;
  13.     ListBox3: TListBox;
  14.     Splitter1: TSplitter;
  15.     Splitter2: TSplitter;
  16.     Panel1: TPanel;
  17.     SpeedBeveled: TSpeedButton;
  18.     SpeedColor: TSpeedButton;
  19.     ColorDialog1: TColorDialog;
  20.     LabelMin: TLabel;
  21.     EditMin: TEdit;
  22.     UpDownMin: TUpDown;
  23.     LabelWidth: TLabel;
  24.     EditWidth: TEdit;
  25.     UpDownWidth: TUpDown;
  26.     FontDialog1: TFontDialog;
  27.     procedure SpeedBeveledClick(Sender: TObject);
  28.     procedure SpeedColorClick(Sender: TObject);
  29.     procedure UpDownMinClick(Sender: TObject; Button: TUDBtnType);
  30.     procedure UpDownWidthClick(Sender: TObject; Button: TUDBtnType);
  31.     procedure OnListClick(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  38. var
  39.   Form1: TForm1;
  41. implementation
  43. {$R *.DFM}
  49. procedure TForm1.SpeedBeveledClick(Sender: TObject);
  50. begin
  51.   Splitter1.Beveled := SpeedBeveled.Down;
  52.   Splitter2.Beveled := SpeedBeveled.Down;  
  53. end;
  55. procedure TForm1.SpeedColorClick(Sender: TObject);
  56. begin
  57.   with ColorDialog1 do
  58.     if Execute then
  59.     begin
  60.       Splitter1.Color := Color;
  61.       Splitter2.Color := Color;
  62.     end;
  63. end;
  65. procedure TForm1.UpDownMinClick(Sender: TObject; Button: TUDBtnType);
  66. begin
  67.   Splitter1.MinSize := UpDownMin.Position;
  68.   Splitter2.MinSize := UpDownMin.Position;
  69. end;
  71. procedure TForm1.UpDownWidthClick(Sender: TObject; Button: TUDBtnType);
  72. begin
  73.   Splitter1.Width := UpDownWidth.Position;
  74.   Splitter2.Width := UpDownWidth.Position;
  75. end;
  77. procedure TForm1.OnListClick(Sender: TObject);
  78. begin
  79.   with FontDialog1 do
  80.     if Execute then
  81.       (Sender as TListBox).Font := Font;
  82. end;
  84. end.