| 1 | 
 object Form14: TForm14 | 
 
 
 
 
 
 | 2 | 
   Left = 0 | 
 
 
 
 
 
 | 3 | 
   Top = 0 | 
 
 
 
 
 
 | 4 | 
   BorderStyle = bsToolWindow | 
 
 
 
 
 
 | 5 | 
   Caption = 'Models' | 
 
 
 
 
 
 | 6 | 
   ClientHeight = 217 | 
 
 
 
 
 
 | 7 | 
   ClientWidth = 265 | 
 
 
 
 
 
 | 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 | 
   OnCloseQuery = FormCloseQuery | 
 
 
 
 
 
 | 16 | 
   PixelsPerInch = 96 | 
 
 
 
 
 
 | 17 | 
   TextHeight = 13 | 
 
 
 
 
 
 | 18 | 
   object Label1: TLabel | 
 
 
 
 
 
 | 19 | 
     Left = 8 | 
 
 
 
 
 
 | 20 | 
     Top = 8 | 
 
 
 
 
 
 | 21 | 
     Width = 121 | 
 
 
 
 
 
 | 22 | 
     Height = 17 | 
 
 
 
 
 
 | 23 | 
     AutoSize = False | 
 
 
 
 
 
 | 24 | 
     Caption = 'Char to apply model on:' | 
 
 
 
 
 
 | 25 | 
   end | 
 
 
 
 
 
 | 26 | 
   object Label2: TLabel | 
 
 
 
 
 
 | 27 | 
     Left = 8 | 
 
 
 
 
 
 | 28 | 
     Top = 32 | 
 
 
 
 
 
 | 29 | 
     Width = 73 | 
 
 
 
 
 
 | 30 | 
     Height = 17 | 
 
 
 
 
 
 | 31 | 
     AutoSize = False | 
 
 
 
 
 
 | 32 | 
     Caption = 'Model:' | 
 
 
 
 
 
 | 33 | 
   end | 
 
 
 
 
 
 | 34 | 
   object edit_char: TEdit | 
 
 
 
 
 
 | 35 | 
     Left = 126 | 
 
 
 
 
 
 | 36 | 
     Top = 6 | 
 
 
 
 
 
 | 37 | 
     Width = 107 | 
 
 
 
 
 
 | 38 | 
     Height = 17 | 
 
 
 
 
 
 | 39 | 
     AutoSize = False | 
 
 
 
 
 
 | 40 | 
     ReadOnly = True | 
 
 
 
 
 
 | 41 | 
     TabOrder = 0 | 
 
 
 
 
 
 | 42 | 
     Text = '0' | 
 
 
 
 
 
 | 43 | 
   end | 
 
 
 
 
 
 | 44 | 
   object list: TListBox | 
 
 
 
 
 
 | 45 | 
     Left = 8 | 
 
 
 
 
 
 | 46 | 
     Top = 48 | 
 
 
 
 
 
 | 47 | 
     Width = 249 | 
 
 
 
 
 
 | 48 | 
     Height = 161 | 
 
 
 
 
 
 | 49 | 
     ItemHeight = 13 | 
 
 
 
 
 
 | 50 | 
     TabOrder = 1 | 
 
 
 
 
 
 | 51 | 
     OnClick = listClick | 
 
 
 
 
 
 | 52 | 
   end | 
 
 
 
 
 
 | 53 | 
   object updown: TUpDown | 
 
 
 
 
 
 | 54 | 
     Left = 235 | 
 
 
 
 
 
 | 55 | 
     Top = 4 | 
 
 
 
 
 
 | 56 | 
     Width = 17 | 
 
 
 
 
 
 | 57 | 
     Height = 20 | 
 
 
 
 
 
 | 58 | 
     Max = 32 | 
 
 
 
 
 
 | 59 | 
     TabOrder = 2 | 
 
 
 
 
 
 | 60 | 
     OnClick = updownClick | 
 
 
 
 
 
 | 61 | 
   end | 
 
 
 
 
 
 | 62 | 
   object tim_lvlcheck: TTimer | 
 
 
 
 
 
 | 63 | 
     OnTimer = tim_lvlcheckTimer | 
 
 
 
 
 
 | 64 | 
     Left = 152 | 
 
 
 
 
 
 | 65 | 
     Top = 32 | 
 
 
 
 
 
 | 66 | 
   end | 
 
 
 
 
 
 | 67 | 
 end |