unitotheradd.pas

I mComputermaster programmisDelphi+pascal

unit UnitOtherAdd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, sLabel, sFrameAdapter, Buttons, sSpeedButton, sColorSelect,
  sBitBtn, sMonthCalendar, ExtCtrls, sPanel, sAlphaListBox, sFontCtrls,
  sScrollBar, ComCtrls, acHeaderControl, sCheckBox, sComboBox, sEdit;

type
  TFrameOtherAdd = class(TFrame)
    sWebLabel1: TsWebLabel;
    sFrameAdapter1: TsFrameAdapter;
    sColorSelect1: TsColorSelect;
    sMonthCalendar1: TsMonthCalendar;
    sHeaderControl1: TsHeaderControl;
    sCheckBox1: TsCheckBox;
    sFontListBox1: TsFontListBox;
    sFontComboBox1: TsFontComboBox;
    sEdit1: TsEdit;
    procedure sCheckBox1Click(Sender: TObject);
    procedure FrameResize(Sender: TObject);
  end;

implementation

uses MainUnit;

{$R *.DFM}

procedure TFrameOtherAdd.sCheckBox1Click(Sender: TObject);
begin
  sHeaderControl1.HotTrack := sCheckBox1.Checked;
end;

procedure TFrameOtherAdd.FrameResize(Sender: TObject);
begin
    sFontComboBox1.ItemIndex := 0;
end;

end.