define.pas

来自「Delphi中处理线程池的一个组件,非常好用.」· PAS 代码 · 共 28 行

unit Define;

interface

const
  ABtnEnable : array[0..2,0..3] of Boolean = ((True, False,False,False),
                                              (False,True ,False,True ),
                                              (False,False,True ,True )
                                             );
var
  ColToSort : Integer;
  bUp : Boolean;

type
  TBtnStat = (bsNull, bsRunning, bsPaused);
  TBtnType = (btStart,btPause,btGoon,btStop) ;

  PCheckProxyParam = ^TCheckProxyParam;
  TCheckProxyParam = record
    IP : array[0..14] of Char;
    Port : Integer;
  end;

implementation


end.