45 lines
827 B
ObjectPascal
45 lines
827 B
ObjectPascal
unit frmNetworkDataCompressionUnit;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
ComCtrls;
|
|
|
|
type
|
|
|
|
{ TfrmNetworkDataCompression }
|
|
|
|
TfrmNetworkDataCompression = class(TForm)
|
|
Label1: TLabel;
|
|
lblMaxCompression: TLabel;
|
|
lblNone: TLabel;
|
|
tbCompressionLevel: TTrackBar;
|
|
procedure tbCompressionLevelChange(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
frmNetworkDataCompression: TfrmNetworkDataCompression;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TfrmNetworkDataCompression }
|
|
|
|
uses networkConfig;
|
|
|
|
procedure TfrmNetworkDataCompression.tbCompressionLevelChange(Sender: TObject);
|
|
begin
|
|
networkcompression:=tbCompressionLevel.Position;
|
|
end;
|
|
|
|
end.
|
|
|