You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69 lines
1.5 KiB
Plaintext
69 lines
1.5 KiB
Plaintext
11 months ago
|
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.
|