Category

Development Platform
Home > SourceCode/Document > Delphi VCL > View Code
CoolForm.pas
Package: delphi.rar　[view]
Upload User: fh681027
Upload Date: 2022-07-23
Package Size: 1959k
Code Size: 2k
Category:

Delphi VCL

Development Platform:

Delphi

CoolForm.pas：Code Content
  1. unit CoolForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Buttons, ExtCtrls, ComCtrls, ToolWin, ColorGrd, ImgList;
  9. type
  10.   TCoolbarForm = class(TForm)
  11.     CoolBar1: TCoolBar;
  12.     ToolBar1: TToolBar;
  13.     ToolButton1: TToolButton;
  14.     ToolButton2: TToolButton;
  15.     ToolButton3: TToolButton;
  16.     ToolButton4: TToolButton;
  17.     ComboBox1: TComboBox;
  18.     Edit1: TEdit;
  19.     ToolButton5: TToolButton;
  20.     ColorGrid1: TColorGrid;
  21.     Label1: TLabel;
  22.     ImageListHighlight: TImageList;
  23.     ImageListNormal: TImageList;
  24.     procedure ToolButton1Click(Sender: TObject);
  25.     procedure ToolButton2Click(Sender: TObject);
  26.     procedure ToolButton3Click(Sender: TObject);
  27.     procedure ToolButton4Click(Sender: TObject);
  28.     procedure ColorGrid1Change(Sender: TObject);
  29.     procedure Edit1Change(Sender: TObject);
  30.     procedure FormCreate(Sender: TObject);
  31.     procedure ComboBox1Change(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  38. var
  39.   CoolbarForm: TCoolbarForm;
  41. implementation
  43. {$R *.DFM}
  46. procedure TCoolbarForm.ToolButton1Click(Sender: TObject);
  47. begin
  48.   Beep;
  49. end;
  51. procedure TCoolbarForm.ToolButton2Click(Sender: TObject);
  52. begin
  53.   Label1.Alignment := taLeftJustify;
  54. end;
  56. procedure TCoolbarForm.ToolButton3Click(Sender: TObject);
  57. begin
  58.   Label1.Alignment := taCenter;
  59. end;
  61. procedure TCoolbarForm.ToolButton4Click(Sender: TObject);
  62. begin
  63.   Label1.Alignment := taRightJustify;
  64. end;
  66. procedure TCoolbarForm.ColorGrid1Change(Sender: TObject);
  67. begin
  68.   Label1.Color := ColorGrid1.BackgroundColor;
  69.   Label1.Font.Color := ColorGrid1.ForegroundColor;
  70. end;
  72. procedure TCoolbarForm.Edit1Change(Sender: TObject);
  73. var
  74.   Value: Integer;
  75. begin
  76.   Value := StrToIntDef (Edit1.Text, 0);
  77.   if Value <> 0 then
  78.     Label1.Font.Size := Value;
  79. end;
  81. procedure TCoolbarForm.FormCreate(Sender: TObject);
  82. begin
  83.   ComboBox1.Items := Screen.Fonts;
  84.   // select the current font
  85.   ComboBox1.ItemIndex := ComboBox1.Items.IndexOf (Font.Name);
  86. end;
  87.                
  88. procedure TCoolbarForm.ComboBox1Change(Sender: TObject);
  89. begin
  90.   Label1.Font.Name := Combobox1.Text;
  91. end;
  93. end.