| 1 | 
 object Form10: TForm10 | 
 
 
 
 
 
 | 2 | 
   Left = 0 | 
 
 
 
 
 
 | 3 | 
   Top = 0 | 
 
 
 
 
 
 | 4 | 
   BorderStyle = bsNone | 
 
 
 
 
 
 | 5 | 
   Caption = 'Creating DB' | 
 
 
 
 
 
 | 6 | 
   ClientHeight = 90 | 
 
 
 
 
 
 | 7 | 
   ClientWidth = 401 | 
 
 
 
 
 
 | 8 | 
   Color = clBtnFace | 
 
 
 
 
 
 | 9 | 
   Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 
 | 10 | 
   Font.Color = clWindowText | 
 
 
 
 
 
 | 11 | 
   Font.Height = -11 | 
 
 
 
 
 
 | 12 | 
   Font.Name = 'Tahoma' | 
 
 
 
 
 
 | 13 | 
   Font.Style = [] | 
 
 
 
 
 
 | 14 | 
   OldCreateOrder = False | 
 
 
 
 
 
 | 15 | 
   Position = poScreenCenter | 
 
 
 
 
 
 | 16 | 
   PixelsPerInch = 96 | 
 
 
 
 
 
 | 17 | 
   TextHeight = 13 | 
 
 
 
 
 
 | 18 | 
   object group_progress: TGroupBox | 
 
 
 
 
 
 | 19 | 
     Left = 0 | 
 
 
 
 
 
 | 20 | 
     Top = 0 | 
 
 
 
 
 
 | 21 | 
     Width = 400 | 
 
 
 
 
 
 | 22 | 
     Height = 89 | 
 
 
 
 
 
 | 23 | 
     Caption = 'Progress ...' | 
 
 
 
 
 
 | 24 | 
     TabOrder = 0 | 
 
 
 
 
 
 | 25 | 
     object lbl_progress: TLabel | 
 
 
 
 
 
 | 26 | 
       Left = 2 | 
 
 
 
 
 
 | 27 | 
       Top = 32 | 
 
 
 
 
 
 | 28 | 
       Width = 396 | 
 
 
 
 
 
 | 29 | 
       Height = 17 | 
 
 
 
 
 
 | 30 | 
       Align = alTop | 
 
 
 
 
 
 | 31 | 
       AutoSize = False | 
 
 
 
 
 
 | 32 | 
     end | 
 
 
 
 
 
 | 33 | 
     object lbl_estimation: TLabel | 
 
 
 
 
 
 | 34 | 
       Left = 2 | 
 
 
 
 
 
 | 35 | 
       Top = 49 | 
 
 
 
 
 
 | 36 | 
       Width = 396 | 
 
 
 
 
 
 | 37 | 
       Height = 17 | 
 
 
 
 
 
 | 38 | 
       Align = alTop | 
 
 
 
 
 
 | 39 | 
       AutoSize = False | 
 
 
 
 
 
 | 40 | 
       Caption = 'Estimated finishing time:' | 
 
 
 
 
 
 | 41 | 
     end | 
 
 
 
 
 
 | 42 | 
     object progress: TProgressBar | 
 
 
 
 
 
 | 43 | 
       Left = 2 | 
 
 
 
 
 
 | 44 | 
       Top = 15 | 
 
 
 
 
 
 | 45 | 
       Width = 396 | 
 
 
 
 
 
 | 46 | 
       Height = 17 | 
 
 
 
 
 
 | 47 | 
       Align = alTop | 
 
 
 
 
 
 | 48 | 
       Smooth = True | 
 
 
 
 
 
 | 49 | 
       TabOrder = 0 | 
 
 
 
 
 
 | 50 | 
     end | 
 
 
 
 
 
 | 51 | 
     object btn_abortok: TButton | 
 
 
 
 
 
 | 52 | 
       Left = 3 | 
 
 
 
 
 
 | 53 | 
       Top = 64 | 
 
 
 
 
 
 | 54 | 
       Width = 60 | 
 
 
 
 
 
 | 55 | 
       Height = 22 | 
 
 
 
 
 
 | 56 | 
       Caption = 'Abort...' | 
 
 
 
 
 
 | 57 | 
       TabOrder = 1 | 
 
 
 
 
 
 | 58 | 
       OnClick = btn_abortokClick | 
 
 
 
 
 
 | 59 | 
     end | 
 
 
 
 
 
 | 60 | 
   end | 
 
 
 
 
 
 | 61 | 
 end |