lina-components/Source/uWebCtrls.pas

unit uWebCtrls;

//////////////////////////////////////
///  Lina Web Controls Unit        ///
///  ****************************  ///
///  (c) 2014 Dennis Göhlert a.o.  ///
//////////////////////////////////////

interface

uses
  { Standard-Units }
  SysUtils, Classes,
  { Andere Package-Units }
  uBase;

type
  { Hauptklassen }
  TDownload = class(TComponent)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    function GetProgressByte: Int64;
    function GetProgressPercent: Byte;
  published
    { Published-Deklarationen }
  end;

implementation

constructor TDownload.Create(AOwner: TComponent);
begin
  inherited;
  //...
end;

destructor TDownload.Destroy;
begin
  //...
  inherited;
end;

function TDownload.GetProgressByte: Int64;
begin
  //...
end;

function TDownload.GetProgressPercent: Byte;
begin
  //...
end;

end.