tool/Unit1.fmx

   1 object Form2: TForm2
   2   Left = 0
   3   Top = 0
   4   Caption = 'BlankForm'
   5   ClientHeight = 595
   6   ClientWidth = 640
   7   FormFactor.Width = 1280
   8   FormFactor.Height = 1024
   9   FormFactor.Devices = [Desktop]
  10   OnCreate = FormCreate
  11   DesignerMasterStyle = 0
  12   object Image1: TImage
  13     MultiResBitmap = <
  14       item
  15       end>
  16     Position.X = 120.000000000000000000
  17     Position.Y = 32.000000000000000000
  18     Size.Width = 265.000000000000000000
  19     Size.Height = 233.000000000000000000
  20     Size.PlatformDefault = False
  21   end
  22   object Edit1: TEdit
  23     Touch.InteractiveGestures = [LongTap, DoubleTap]
  24     TabOrder = 5
  25     Position.X = 160.000000000000000000
  26     Position.Y = 304.000000000000000000
  27     Size.Width = 164.000000000000000000
  28     Size.Height = 32.000000000000000000
  29     Size.PlatformDefault = False
  30   end
  31   object NavigatorBindSourceDB12: TBindNavigator
  32     Position.X = 160.000000000000000000
  33     Position.Y = 392.000000000000000000
  34     Size.Width = 240.000000000000000000
  35     Size.Height = 25.000000000000000000
  36     Size.PlatformDefault = False
  37     TabOrder = 12
  38     DataSource = BindSourceDB1
  39     xRadius = 4.000000000000000000
  40     yRadius = 4.000000000000000000
  41   end
  42   object Button1: TButton
  43     Position.X = 432.000000000000000000
  44     Position.Y = 136.000000000000000000
  45     TabOrder = 23
  46     Text = 'Button1'
  47     OnClick = Button1Click
  48   end
  49   object Label1: TLabel
  50     Position.X = 64.000000000000000000
  51     Position.Y = 48.000000000000000000
  52   end
  53   object OpenDialog1: TOpenDialog
  54     Left = 496
  55     Top = 312
  56   end
  57   object FDTable1: TFDTable
  58     AfterInsert = FDTable1AfterInsert
  59     AfterPost = FDTable1AfterPost
  60     IndexFieldNames = 'id'
  61     Connection = FDConnection1
  62     UpdateOptions.AssignedValues = [uvRefreshMode]
  63     UpdateOptions.UpdateTableName = 'kainushi.images'
  64     TableName = 'kainushi.images'
  65     Left = 296
  66     Top = 192
  67     object FDTable1id: TFDAutoIncField
  68       FieldName = 'id'
  69       Origin = 'id'
  70       ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
  71       Required = True
  72       AutoIncrementSeed = 1
  73       AutoIncrementStep = 1
  74       IdentityInsert = True
  75     end
  76     object FDTable1name: TWideStringField
  77       FieldName = 'name'
  78       Origin = '`name`'
  79       Required = True
  80     end
  81     object FDTable1source: TBlobField
  82       AutoGenerateValue = arDefault
  83       FieldName = 'source'
  84       Origin = '`source`'
  85     end
  86   end
  87   object FDConnection1: TFDConnection
  88     Params.Strings = (
  89       'User_Name=masasi'
  90       'Password=kainushi'
  91       'Server=localhost'
  92       'CharacterSet=utf8'
  93       'Database=kainushi'
  94       'DriverID=MySQL')
  95     Connected = True
  96     Left = 360
  97     Top = 192
  98   end
  99   object BindingsList1: TBindingsList
 100     Methods = <>
 101     OutputConverters = <>
 102     Left = 20
 103     Top = 5
 104     object LinkControlToField1: TLinkControlToField
 105       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 106       DataSource = BindSourceDB1
 107       FieldName = 'name'
 108       Control = Edit1
 109       Track = False
 110     end
 111     object LinkPropertyToFieldText: TLinkPropertyToField
 112       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 113       DataSource = BindSourceDB1
 114       FieldName = 'id'
 115       Component = Label1
 116       ComponentProperty = 'Text'
 117     end
 118     object LinkPropertyToFieldBitmap: TLinkPropertyToField
 119       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 120       DataSource = BindSourceDB1
 121       FieldName = 'source'
 122       Component = Image1
 123       ComponentProperty = 'Bitmap'
 124     end
 125   end
 126   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
 127     Provider = 'FMX'
 128     Left = 408
 129     Top = 224
 130   end
 131   object BindSourceDB1: TBindSourceDB
 132     DataSet = FDTable1
 133     ScopeMappings = <>
 134     Left = 384
 135     Top = 288
 136   end
 137 end