ctrls.pas

themeengine6源码

unit ctrls;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  te_controls,
  te_extended, te_extra_Effect_Controls, Menus;

type
  TfrmControls = class(TForm)
    SeSkinForm1: TTeForm;
    SeSkinButton1: TTeEffectButton;
    TePaintBox1: TTePaintBox;
    TeLabeledEdit1: TTeLabeledEdit;
    TeLanguageComboBox1: TTeLanguageComboBox;
    TeSimpleToolBar1: TTeSimpleToolBar;
    TeEffectSpeedButton1: TTeEffectSpeedButton;
    TeEffectSpeedButton2: TTeEffectSpeedButton;
    TeEffectSpeedButton3: TTeEffectSpeedButton;
    TeEffectSpeedButton4: TTeEffectSpeedButton;
    TeEffectSpeedButton5: TTeEffectSpeedButton;
    TeEffectSpeedButton6: TTeEffectSpeedButton;
    TeEffectSpeedButton7: TTeEffectSpeedButton;
    TeLabel1: TTeLabel;
    TeLabeledEdit2: TTeLabeledEdit;
    TeLabel2: TTeLabel;
    TeLabel3: TTeLabel;
    TeTransparentPanel2: TTeTransparentPanel;
    TeLabeledEdit3: TTeLabeledEdit;
    TeLabel6: TTeLabel;
    TeHeaderListBox1: TTeHeaderListBox;
    TeLabel4: TTeLabel;
    TeEffectSpeedButton8: TTeEffectSpeedButton;
    TeEffectSpeedButton9: TTeEffectSpeedButton;
    TeEffectSpeedButton10: TTeEffectSpeedButton;
    lblConfig: TTeAdvancedLabel;
    TeAdvancedLabel1: TTeAdvancedLabel;
    TeAdvancedLabel2: TTeAdvancedLabel;
    TeEffectButton1: TTeEffectButton;
    TePopupMenu1: TTePopupMenu;
    CustomItem1: TTeItem;
    CustomItem2: TTeItem;
    TeEffectGroupBox1: TTeEffectGroupBox;
    TeLabel5: TTeLabel;
    TeLabel7: TTeLabel;
    TeEffectEditButton1: TTeEffectEditButton;
    TeEffectSpinEdit1: TTeEffectSpinEdit;
    TeEffectSpinButton1: TTeEffectSpinButton;
    TeEffectComboBox1: TTeEffectComboBox;
    procedure TePaintBox1Paint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TeHeaderListBox1HeaderSectionClick(
      EkHeaderControl: TTeHeaderControl; Section: TTeHeaderSection);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmControls: TfrmControls;

implementation

uses Main;

{$R *.DFM}

procedure TfrmControls.TePaintBox1Paint(Sender: TObject);
begin
TePaintBox1.Canvas.Ellipse(TePaintBox1.ClientRect);
end;

procedure TfrmControls.FormCreate(Sender: TObject);
var i: Integer;
begin
   {for i:=0 to TeSimpleToolBar1.ControlCount-1 do
      if TeSimpleToolBar1.Controls[i] is TTeEffectSpeedButton then
      with TTeEffectSpeedButton(TeSimpleToolBar1.Controls[i]) do
      begin
         Animation.Enabled:=True;
         Animation.EffectKind:='[ FADE ] - Fade';
         if i>(TeSimpleToolBar1.ControlCount div 2) then
            Animation.Time := 30;
         UpdateAnimationProperties;
      end;}
end;

procedure TfrmControls.TeHeaderListBox1HeaderSectionClick(
  EkHeaderControl: TTeHeaderControl; Section: TTeHeaderSection);

  procedure SortByCol(const col: integer);
  var
    a, b, c: Integer;
  begin
    Try
    with TeHeaderListBox1.ListBoxControl do begin
      Items.BeginUpdate;
      for a := 0 to Items.Count - 1 do
      begin
        c := a;
        for b := a to Items.Count - 1 do
          if TeHeaderListBox1.ItemPart(b,col) < TeHeaderListBox1.ItemPart(c,col) then
            c := b;
        Items.Exchange(a, c);
      end;
      Items.EndUpdate;
    end;
    Except
    end;
  end;

begin
    SortByCol(Section.Index);
end;

end.