object ProgressForm: TProgressForm Left = 200 Top = 108 BorderIcons = [] BorderStyle = bsSingle Caption = 'Kopiowanie' ClientHeight = 135 ClientWidth = 405 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter Scaled = False PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 405 Height = 93 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object ZLabel: TLabel Left = 10 Top = 7 Width = 14 Height = 16 Caption = 'Z:' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object DoLabel: TLabel Left = 10 Top = 30 Width = 25 Height = 16 Caption = 'Do:' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Z_txt: TLabel Left = 40 Top = 7 Width = 3 Height = 16 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Do_txt: TLabel Left = 40 Top = 30 Width = 3 Height = 16 Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Gauge: TGauge Left = 5 Top = 50 Width = 395 Height = 35 ForeColor = clBlue Progress = 0 end end object Panel2: TPanel Left = 0 Top = 95 Width = 405 Height = 40 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Anuluj_but: TButton Left = 165 Top = 8 Width = 75 Height = 25 Caption = 'Anuluj' ModalResult = 2 TabOrder = 0 OnClick = Anuluj_butClick end end end