unitbuttons.pas

I mComputermaster programmisDelphi+pascal

unit UnitButtons;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  sPanel, ExtCtrls, sFrameAdapter, Menus, sButton, sColorSelect, StdCtrls, Buttons, 
  sBitBtn, sSpeedButton, ComCtrls, ToolWin, sToolBar, sComboBox, sGroupBox,
  sTrackBar, sLabel, sCheckBox;

type
  TFrameButtons = class(TFrame)
    sBitBtn1: TsBitBtn;
    sPanel3: TsPanel;
    sButton4: TsButton;
    sButton5: TsButton;
    sButton6: TsButton;
    sSpeedButton2: TsSpeedButton;
    sSpeedButton1: TsSpeedButton;
    sFrameAdapter1: TsFrameAdapter;
    PopupMenu1: TPopupMenu;
    Item11: TMenuItem;
    Item21: TMenuItem;
    Item31: TMenuItem;
    Item41: TMenuItem;
    Subitem411: TMenuItem;
    Subitem421: TMenuItem;
    Subitem431: TMenuItem;
    Subitem441: TMenuItem;
    Subitem451: TMenuItem;
    Subitem461: TMenuItem;
    Subitem471: TMenuItem;
    sToolBar2: TsToolBar;
    ToolButton1: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    sSpeedButton4: TsSpeedButton;
    sBitBtn2: TsBitBtn;
    sBitBtn5: TsBitBtn;
    sGroupBox1: TsGroupBox;
    sComboBox1: TsComboBox;
    sComboBox3: TsComboBox;
    sBitBtn3: TsBitBtn;
    sComboBox2: TsComboBox;
    sBitBtn7: TsBitBtn;
    sBitBtn8: TsBitBtn;
    sGroupBox2: TsGroupBox;
    sCheckBox1: TsCheckBox;
    sTrackBar1: TsTrackBar;
    sLabel1: TsLabel;
    sBitBtn4: TsBitBtn;
    sSpeedButton3: TsSpeedButton;
    procedure FrameResize(Sender: TObject);
    procedure sComboBox1Change(Sender: TObject);
    procedure sComboBox3Change(Sender: TObject);
    procedure sComboBox2Change(Sender: TObject);
    procedure sTrackBar1Change(Sender: TObject);
    procedure sCheckBox1Click(Sender: TObject);
  end;

implementation

uses MainUnit;

{$R *.DFM}

procedure TFrameButtons.FrameResize(Sender: TObject);
begin
  sComboBox1.ItemIndex := 0;
end;

procedure TFrameButtons.sComboBox1Change(Sender: TObject);
const
  la : array [0..3] of TButtonLayout = (blGlyphTop, blGlyphLeft, blGlyphBottom, blGlyphRight);
begin
  sBitBtn5.Layout := la[sComboBox1.ItemIndex];
  sSpeedButton4.Layout := la[sComboBox1.ItemIndex];
  sSpeedButton4.Repaint
end;

procedure TFrameButtons.sComboBox3Change(Sender: TObject);
begin
  sBitBtn5.SkinData.SkinSection := sComboBox3.Text;
  sSpeedButton4.SkinData.SkinSection := sComboBox3.Text;
end;

procedure TFrameButtons.sComboBox2Change(Sender: TObject);
begin
  sToolBar2.SkinData.SkinSection := sComboBox2.Text;
end;

procedure TFrameButtons.sTrackBar1Change(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to ControlCount -1 do begin
    if Controls[i] is TsBitBtn then TsBitBtn(Controls[i]).Blend := sTrackBar1.Position;
    if Controls[i] is TsSpeedButton then TsSpeedButton(Controls[i]).Blend := sTrackBar1.Position;
  end;
end;

procedure TFrameButtons.sCheckBox1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to ControlCount -1 do begin
    if Controls[i] is TsBitBtn then TsBitBtn(Controls[i]).Grayed := sCheckBox1.Checked;
    if Controls[i] is TsSpeedButton then TsSpeedButton(Controls[i]).Grayed := sCheckBox1.Checked;
  end;
end;

end.