--- Unit1.fmx 2015/08/01 04:45:13 6 +++ Unit1.fmx 2015/08/15 03:06:09 7 @@ -8,6 +8,7 @@ FormFactor.Width = 320 FormFactor.Height = 480 FormFactor.Devices = [Desktop] + OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow DesignerMasterStyle = 3 @@ -15,79 +16,6 @@ Left = 256 Top = 184 end - object ListView1: TListView - ItemAppearanceClassName = 'TImageListItemBottomDetailAppearance' - ItemEditAppearanceClassName = 'TImageListItemBottomDetailShowCheckAppearance' - HeaderAppearanceClassName = 'TListHeaderObjects' - FooterAppearanceClassName = 'TListHeaderObjects' - Align = Client - Size.Width = 481.000000000000000000 - Size.Height = 231.000000000000000000 - Size.PlatformDefault = False - TabOrder = 4 - OnItemClick = ListView1ItemClick - end - object Panel1: TPanel - Align = Top - Size.Width = 481.000000000000000000 - Size.Height = 201.000000000000000000 - Size.PlatformDefault = False - StyleLookup = 'Panel1Style1' - TabOrder = 9 - object ToolBar1: TToolBar - Align = Bottom - Position.Y = 153.000000000000000000 - Size.Width = 481.000000000000000000 - Size.Height = 48.000000000000000000 - Size.PlatformDefault = False - TabOrder = 1 - object SpeedButton2: TSpeedButton - Action = Action1 - Enabled = True - Position.X = 56.000000000000000000 - Size.Width = 73.000000000000000000 - Size.Height = 48.000000000000000000 - Size.PlatformDefault = False - Visible = True - end - object SpeedButton1: TSpeedButton - Position.X = 360.000000000000000000 - Size.Width = 73.000000000000000000 - Size.Height = 48.000000000000000000 - Size.PlatformDefault = False - Text = 'SpeedButton1' - OnClick = SpeedButton1Click - end - object SpeedButton3: TSpeedButton - Position.X = 208.000000000000000000 - Size.Width = 73.000000000000000000 - Size.Height = 48.000000000000000000 - Size.PlatformDefault = False - Text = 'SpeedButton3' - end - end - object ToolBar2: TToolBar - Align = Bottom - Position.Y = 105.000000000000000000 - Size.Width = 481.000000000000000000 - Size.Height = 48.000000000000000000 - Size.PlatformDefault = False - TabOrder = 2 - object TrackBar1: TTrackBar - Align = HorzCenter - Max = 1.000000000000000000 - Orientation = Horizontal - Position.X = 104.000000000000000000 - Position.Y = 8.000000000000000000 - Size.Width = 273.000000000000000000 - Size.Height = 32.000000000000000000 - Size.PlatformDefault = False - TabOrder = 0 - Value = 0.300000011920929000 - OnChange = TrackBar1Change - end - end - end object Timer1: TTimer OnTimer = Timer1Timer Left = 160 @@ -99,7 +27,7 @@ Size.Width = 481.000000000000000000 Size.Height = 48.000000000000000000 Size.PlatformDefault = False - TabOrder = 17 + TabOrder = 15 object SpeedButton4: TSpeedButton Action = Action6 Align = Right @@ -140,6 +68,68 @@ OnChange = TrackBar2Change end end + object ToolBar1: TToolBar + Size.Width = 481.000000000000000000 + Size.Height = 48.000000000000000000 + Size.PlatformDefault = False + TabOrder = 23 + object SpeedButton1: TSpeedButton + Position.X = 360.000000000000000000 + Size.Width = 73.000000000000000000 + Size.Height = 48.000000000000000000 + Size.PlatformDefault = False + Text = 'SpeedButton1' + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Action = Action1 + Enabled = True + Position.X = 56.000000000000000000 + Size.Width = 73.000000000000000000 + Size.Height = 48.000000000000000000 + Size.PlatformDefault = False + Visible = True + end + object SpeedButton3: TSpeedButton + Position.X = 208.000000000000000000 + Size.Width = 73.000000000000000000 + Size.Height = 48.000000000000000000 + Size.PlatformDefault = False + Text = 'SpeedButton3' + end + end + object ToolBar2: TToolBar + Position.Y = 48.000000000000000000 + Size.Width = 481.000000000000000000 + Size.Height = 48.000000000000000000 + Size.PlatformDefault = False + TabOrder = 24 + object TrackBar1: TTrackBar + Align = HorzCenter + Max = 1.000000000000000000 + Orientation = Horizontal + Position.X = 104.000000000000000000 + Position.Y = 8.000000000000000000 + Size.Width = 273.000000000000000000 + Size.Height = 32.000000000000000000 + Size.PlatformDefault = False + TabOrder = 1 + Value = 1.000000000000000000 + OnChange = TrackBar1Change + end + end + object ListView1: TListView + ItemAppearanceClassName = 'TImageListItemBottomDetailAppearance' + ItemEditAppearanceClassName = 'TImageListItemBottomDetailShowCheckAppearance' + HeaderAppearanceClassName = 'TListHeaderObjects' + FooterAppearanceClassName = 'TListHeaderObjects' + Align = Client + Size.Width = 481.000000000000000000 + Size.Height = 336.000000000000000000 + Size.PlatformDefault = False + TabOrder = 25 + OnItemClick = ListView1ItemClick + end object ActionList1: TActionList Left = 312 Top = 232 @@ -148,11 +138,6 @@ Text = #26356#26032 OnExecute = Action1Execute end - object Action2: TAction - Category = 'Files' - Text = #20445#23384 - OnExecute = Action2Execute - end object Action3: TAction Category = 'Files' Text = #38283#12367