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     DefaultExt = 'jpg'
  55     Filter = 'jpg|*.jpg;*.jpeg'
  56     Left = 496
  57     Top = 312
  58   end
  59   object FDTable1: TFDTable
  60     AfterInsert = FDTable1AfterInsert
  61     AfterPost = FDTable1AfterPost
  62     IndexFieldNames = 'id'
  63     Connection = FDConnection1
  64     UpdateOptions.AssignedValues = [uvRefreshMode]
  65     UpdateOptions.UpdateTableName = 'kainushi.images'
  66     TableName = 'kainushi.images'
  67     Left = 296
  68     Top = 192
  69     object FDTable1id: TFDAutoIncField
  70       FieldName = 'id'
  71       Origin = 'id'
  72       ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
  73       Required = True
  74       AutoIncrementSeed = 1
  75       AutoIncrementStep = 1
  76       IdentityInsert = True
  77     end
  78     object FDTable1name: TWideStringField
  79       FieldName = 'name'
  80       Origin = '`name`'
  81       Required = True
  82     end
  83     object FDTable1source: TBlobField
  84       AutoGenerateValue = arDefault
  85       FieldName = 'source'
  86       Origin = '`source`'
  87     end
  88   end
  89   object FDConnection1: TFDConnection
  90     Params.Strings = (
  91       'User_Name=masasi'
  92       'Password=kainushi'
  93       'Server=localhost'
  94       'CharacterSet=utf8'
  95       'Database=kainushi'
  96       'DriverID=MySQL')
  97     Connected = True
  98     Left = 360
  99     Top = 192
 100   end
 101   object BindingsList1: TBindingsList
 102     Methods = <>
 103     OutputConverters = <>
 104     Left = 20
 105     Top = 5
 106     object LinkControlToField1: TLinkControlToField
 107       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 108       DataSource = BindSourceDB1
 109       FieldName = 'name'
 110       Control = Edit1
 111       Track = False
 112     end
 113     object LinkPropertyToFieldText: TLinkPropertyToField
 114       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 115       DataSource = BindSourceDB1
 116       FieldName = 'id'
 117       Component = Label1
 118       ComponentProperty = 'Text'
 119     end
 120     object LinkPropertyToFieldBitmap: TLinkPropertyToField
 121       Category = #12463#12452#12483#12463' '#12496#12452#12531#12487#12451#12531#12464
 122       DataSource = BindSourceDB1
 123       FieldName = 'source'
 124       Component = Image1
 125       ComponentProperty = 'Bitmap'
 126     end
 127   end
 128   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
 129     Provider = 'FMX'
 130     Left = 408
 131     Top = 224
 132   end
 133   object BindSourceDB1: TBindSourceDB
 134     DataSet = FDTable1
 135     ScopeMappings = <>
 136     Left = 384
 137     Top = 288
 138   end
 139 end