source upload

contrib/mORMot/SQLite3/Samples/ThirdPartyDemos/WarleyAlex/MongoProj/Formulario.dfm

@@ -0,0 +1,402 @@
+object FrmServidor: TFrmServidor
+  Left = 93
+  Top = 85
+  Width = 801
+  Height = 598
+  Caption = 'mORMot + MongoDB'
+  Color = clCaptionText
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 0
+    Top = 536
+    Width = 793
+    Height = 35
+    Align = alBottom
+    Alignment = taCenter
+    Color = clBtnHighlight
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clRed
+    Font.Height = -29
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentColor = False
+    ParentFont = False
+  end
+  object bmp1: TImage
+    Left = 6
+    Top = 8
+    Width = 781
+    Height = 526
+    Stretch = True
+  end
+  object title: TLabel
+    Left = 228
+    Top = 11
+    Width = 503
+    Height = 52
+    Caption = 'mORMot WINE CELLAR'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clMaroon
+    Font.Height = -43
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object txtItems: TLabel
+    Left = 207
+    Top = 456
+    Width = 3
+    Height = 13
+    Visible = False
+  end
+  object Label2: TLabel
+    Left = 452
+    Top = 306
+    Width = 31
+    Height = 13
+    Caption = 'Label2'
+  end
+  object status: TLabel
+    Left = 23
+    Top = 62
+    Width = 3
+    Height = 13
+  end
+  object bmp2: TImage
+    Left = 151
+    Top = 25
+    Width = 32
+    Height = 32
+    AutoSize = True
+    OnClick = btnSearchClick
+  end
+  object L1: TLabel
+    Left = 461
+    Top = 323
+    Width = 23
+    Height = 13
+    Caption = 'NEW'
+  end
+  object Label3: TLabel
+    Left = 510
+    Top = 323
+    Width = 25
+    Height = 13
+    Caption = 'SAVE'
+  end
+  object Label4: TLabel
+    Left = 556
+    Top = 321
+    Width = 36
+    Height = 13
+    Caption = 'DELETE'
+  end
+  object Label5: TLabel
+    Left = 609
+    Top = 322
+    Width = 25
+    Height = 13
+    Caption = 'PREV'
+  end
+  object Label6: TLabel
+    Left = 706
+    Top = 322
+    Width = 25
+    Height = 13
+    Caption = 'NEXT'
+  end
+  object Panel1: TPanel
+    Left = 580
+    Top = 81
+    Width = 169
+    Height = 155
+    BevelInner = bvSpace
+    BevelOuter = bvLowered
+    TabOrder = 14
+    object photo: TImage
+      Left = 2
+      Top = 2
+      Width = 165
+      Height = 151
+      Align = alTop
+      Stretch = True
+      OnClick = photoClick
+    end
+  end
+  object txtID: TLabeledEdit
+    Left = 196
+    Top = 46
+    Width = 183
+    Height = 24
+    EditLabel.Width = 11
+    EditLabel.Height = 13
+    EditLabel.Caption = 'ID'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clNavy
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 8
+    Visible = False
+  end
+  object txtname: TLabeledEdit
+    Left = 196
+    Top = 86
+    Width = 266
+    Height = 22
+    EditLabel.Width = 27
+    EditLabel.Height = 13
+    EditLabel.Caption = 'Name'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clMaroon
+    Font.Height = -12
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 2
+  end
+  object txtgrapes: TLabeledEdit
+    Left = 196
+    Top = 124
+    Width = 132
+    Height = 22
+    EditLabel.Width = 34
+    EditLabel.Height = 13
+    EditLabel.Caption = 'Grapes'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clNavy
+    Font.Height = -12
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 4
+  end
+  object txtcountry: TLabeledEdit
+    Left = 330
+    Top = 124
+    Width = 114
+    Height = 22
+    EditLabel.Width = 39
+    EditLabel.Height = 13
+    EditLabel.Caption = 'Country'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clNavy
+    Font.Height = -12
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 5
+  end
+  object txtregion: TLabeledEdit
+    Left = 450
+    Top = 125
+    Width = 106
+    Height = 22
+    EditLabel.Width = 33
+    EditLabel.Height = 13
+    EditLabel.Caption = 'Region'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clNavy
+    Font.Height = -12
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 6
+  end
+  object txtyear: TLabeledEdit
+    Left = 468
+    Top = 85
+    Width = 87
+    Height = 22
+    EditLabel.Width = 22
+    EditLabel.Height = 13
+    EditLabel.Caption = 'Year'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clNavy
+    Font.Height = -12
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 3
+  end
+  object txtphoto: TLabeledEdit
+    Left = 580
+    Top = 251
+    Width = 169
+    Height = 21
+    EditLabel.Width = 28
+    EditLabel.Height = 13
+    EditLabel.Caption = 'Photo'
+    TabOrder = 9
+    Visible = False
+  end
+  object txtdescription: TMemo
+    Left = 196
+    Top = 164
+    Width = 361
+    Height = 62
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clNavy
+    Font.Height = -12
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 7
+  end
+  object txtitem1: TEdit
+    Left = 364
+    Top = 338
+    Width = 85
+    Height = 21
+    TabOrder = 10
+  end
+  object txtitem2: TEdit
+    Left = 453
+    Top = 338
+    Width = 121
+    Height = 21
+    TabOrder = 11
+  end
+  object txtitem3: TEdit
+    Left = 581
+    Top = 338
+    Width = 121
+    Height = 21
+    TabOrder = 12
+  end
+  object StringGrid1: TStringGrid
+    Left = 194
+    Top = 229
+    Width = 252
+    Height = 77
+    BorderStyle = bsNone
+    Color = clCaptionText
+    ColCount = 1
+    FixedCols = 0
+    RowCount = 1
+    FixedRows = 0
+    Options = []
+    TabOrder = 13
+  end
+  object Memo1: TMemo
+    Left = 200
+    Top = 336
+    Width = 543
+    Height = 108
+    TabOrder = 1
+  end
+  object txtsearch: TEdit
+    Left = 19
+    Top = 25
+    Width = 131
+    Height = 33
+    AutoSize = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clMaroon
+    Font.Height = -13
+    Font.Name = 'Tahoma'
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 0
+  end
+  object ToolBar1: TToolBar
+    Left = 448
+    Top = 278
+    Width = 296
+    Height = 45
+    Align = alCustom
+    ButtonHeight = 43
+    ButtonWidth = 30
+    EdgeBorders = []
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Indent = 1
+    TabOrder = 15
+    object btnClear: TBitBtn
+      Left = 1
+      Top = 0
+      Width = 50
+      Height = 43
+      TabOrder = 0
+      OnClick = btnClearClick
+    end
+    object btnSave: TBitBtn
+      Left = 51
+      Top = 0
+      Width = 50
+      Height = 43
+      TabOrder = 1
+      OnClick = btnSaveClick
+    end
+    object btnDelete: TBitBtn
+      Left = 101
+      Top = 0
+      Width = 50
+      Height = 43
+      TabOrder = 2
+      OnClick = btnDeleteClick
+    end
+    object btnPrev: TBitBtn
+      Left = 151
+      Top = 0
+      Width = 50
+      Height = 43
+      TabOrder = 3
+      OnClick = btnPrevClick
+      Layout = blGlyphTop
+    end
+    object pag: TLabel
+      Left = 201
+      Top = 0
+      Width = 44
+      Height = 43
+      Alignment = taCenter
+      AutoSize = False
+      Caption = '    '
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clMaroon
+      Font.Height = -19
+      Font.Name = 'Tahoma'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object btnNext: TBitBtn
+      Left = 245
+      Top = 0
+      Width = 50
+      Height = 43
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clMaroon
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 4
+      OnClick = btnNextClick
+      Margin = 0
+    end
+  end
+  object btnItems: TBitBtn
+    Left = 420
+    Top = 232
+    Width = 25
+    Height = 21
+    TabOrder = 16
+    OnClick = btnItemsClick
+  end
+  object OpenPictureDialog1: TOpenPictureDialog
+    FileName = 'warley.jpg'
+    Left = 685
+    Top = 228
+  end
+end