| 1 | inherited Form_Preview: TForm_Preview | 
 
 
 
 
 | 2 | Caption = 'Preview' | 
 
 
 
 
 | 3 | OnCreate = FormCreate | 
 
 
 
 
 | 4 | ExplicitWidth = 500 | 
 
 
 
 
 | 5 | ExplicitHeight = 450 | 
 
 
 
 
 | 6 | PixelsPerInch = 96 | 
 
 
 
 
 | 7 | TextHeight = 13 | 
 
 
 
 
 | 8 | inherited content: TPanel | 
 
 
 
 
 | 9 | object lbl_notpossible: TLabel | 
 
 
 
 
 | 10 | Left = 16 | 
 
 
 
 
 | 11 | Top = 56 | 
 
 
 
 
 | 12 | Width = 97 | 
 
 
 
 
 | 13 | Height = 65 | 
 
 
 
 
 | 14 | AutoSize = False | 
 
 
 
 
 | 15 | Caption = 'No preview possible for this filetype' | 
 
 
 
 
 | 16 | Font.Charset = DEFAULT_CHARSET | 
 
 
 
 
 | 17 | Font.Color = clWindowText | 
 
 
 
 
 | 18 | Font.Height = -16 | 
 
 
 
 
 | 19 | Font.Name = 'Tahoma' | 
 
 
 
 
 | 20 | Font.Style = [] | 
 
 
 
 
 | 21 | ParentFont = False | 
 
 
 
 
 | 22 | Visible = False | 
 
 
 
 
 | 23 | WordWrap = True | 
 
 
 
 
 | 24 | end | 
 
 
 
 
 | 25 | object img: TImage | 
 
 
 
 
 | 26 | Left = 0 | 
 
 
 
 
 | 27 | Top = 20 | 
 
 
 
 
 | 28 | Width = 283 | 
 
 
 
 
 | 29 | Height = 403 | 
 
 
 
 
 | 30 | Align = alClient | 
 
 
 
 
 | 31 | ExplicitWidth = 313 | 
 
 
 
 
 | 32 | ExplicitHeight = 453 | 
 
 
 
 
 | 33 | end | 
 
 
 
 
 | 34 | object panel_buttons: TPanel | 
 
 
 
 
 | 35 | Left = 0 | 
 
 
 
 
 | 36 | Top = 0 | 
 
 
 
 
 | 37 | Width = 283 | 
 
 
 
 
 | 38 | Height = 20 | 
 
 
 
 
 | 39 | Align = alTop | 
 
 
 
 
 | 40 | BevelOuter = bvNone | 
 
 
 
 
 | 41 | TabOrder = 0 | 
 
 
 
 
 | 42 | Visible = False | 
 
 
 
 
 | 43 | OnResize = panel_buttonsResize | 
 
 
 
 
 | 44 | object btn_dec: TButton | 
 
 
 
 
 | 45 | Left = 0 | 
 
 
 
 
 | 46 | Top = 0 | 
 
 
 
 
 | 47 | Width = 20 | 
 
 
 
 
 | 48 | Height = 20 | 
 
 
 
 
 | 49 | Caption = '-' | 
 
 
 
 
 | 50 | Enabled = False | 
 
 
 
 
 | 51 | TabOrder = 0 | 
 
 
 
 
 | 52 | OnClick = btn_decClick | 
 
 
 
 
 | 53 | end | 
 
 
 
 
 | 54 | object btn_startstop: TButton | 
 
 
 
 
 | 55 | Left = 21 | 
 
 
 
 
 | 56 | Top = 0 | 
 
 
 
 
 | 57 | Width = 80 | 
 
 
 
 
 | 58 | Height = 20 | 
 
 
 
 
 | 59 | Caption = 'Stop automatic' | 
 
 
 
 
 | 60 | TabOrder = 1 | 
 
 
 
 
 | 61 | OnClick = btn_startstopClick | 
 
 
 
 
 | 62 | end | 
 
 
 
 
 | 63 | object btn_inc: TButton | 
 
 
 
 
 | 64 | Left = 102 | 
 
 
 
 
 | 65 | Top = 0 | 
 
 
 
 
 | 66 | Width = 20 | 
 
 
 
 
 | 67 | Height = 20 | 
 
 
 
 
 | 68 | Caption = '+' | 
 
 
 
 
 | 69 | Enabled = False | 
 
 
 
 
 | 70 | TabOrder = 2 | 
 
 
 
 
 | 71 | OnClick = btn_incClick | 
 
 
 
 
 | 72 | end | 
 
 
 
 
 | 73 | end | 
 
 
 
 
 | 74 | end | 
 
 
 
 
 | 75 | object timer: TTimer [3] | 
 
 
 
 
 | 76 | Enabled = False | 
 
 
 
 
 | 77 | OnTimer = timerTimer | 
 
 
 
 
 | 78 | Left = 400 | 
 
 
 
 
 | 79 | Top = 120 | 
 
 
 
 
 | 80 | end | 
 
 
 
 
 | 81 | end |