unit u_sys_tab_sort;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, dxExEdtr, dxCntner,
  dxTL, dxDBCtrl, dxDBGrid;

type
  Tfrm_sys_tab_sort = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    ListBox2: TListBox;
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys_tab_sort: Tfrm_sys_tab_sort;
  sys_grid_num_sort:integer;

implementation

uses u_main, u_op_seae;

{$R *.dfm}

procedure Tfrm_sys_tab_sort.bsSkinButton3Click(Sender: TObject);
var
  i:integer;
begin
  if ListBox2.ItemIndex>0 then
  begin
    i:=ListBox2.ItemIndex-1;
    ListBox2.Items.Move(ListBox2.ItemIndex,ListBox2.ItemIndex-1);
    ListBox2.ItemIndex:=i;
  end;
end;

procedure Tfrm_sys_tab_sort.bsSkinButton4Click(Sender: TObject);
var
  i:integer;
begin
  if ListBox2.ItemIndex<ListBox2.Items.Count-1 then
  begin
    i:=ListBox2.ItemIndex+1;
    ListBox2.Items.Move(ListBox2.ItemIndex,ListBox2.ItemIndex+1);
    ListBox2.ItemIndex:=i;
  end;
end;

procedure Tfrm_sys_tab_sort.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

end.