📄 pictures.xfm
字号:
inherited PicturesFrame: TPicturesFrame VertScrollBar.Range = 150 object Splitter1: TSplitter Left = 0 Top = 120 Width = 451 Height = 3 Cursor = crVSplit Align = alTop end object ScrollBox1: TScrollBox Left = 0 Top = 150 Width = 451 Height = 154 VertScrollBar.Range = 1077 HorzScrollBar.Range = 1077 Align = alClient AutoScroll = False TabOrder = 3 object DBImage: TDBImage Left = 0 Top = 0 Width = 1077 Height = 1077 Center = False Constraints.MinHeight = 50 DataField = 'PICTURE' DataSource = dsPictures TabOrder = 0 end end object DBGrid: TDBGrid Left = 0 Top = 27 Width = 451 Height = 93 Align = alTop Constraints.MinHeight = 50 DataSource = dsPictures Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete] TabOrder = 0 TitleFont.Color = clBlack TitleFont.Height = 11 TitleFont.Name = 'helvetica' TitleFont.Pitch = fpVariable TitleFont.Style = [] TitleFont.Weight = 40 end object ToolBar: TPanel Left = 0 Top = 0 Width = 451 Height = 27 Align = alTop BevelOuter = bvNone TabOrder = 1 object Panel2: TPanel Left = 0 Top = 0 Width = 414 Height = 24 BevelOuter = bvNone Color = 170 TabOrder = 0 object btOpen: TSpeedButton Left = 1 Top = 1 Width = 85 Height = 22 Caption = 'Open' Flat = True Transparent = False OnClick = btOpenClick end object btClose: TSpeedButton Left = 87 Top = 1 Width = 85 Height = 22 Caption = 'Close' Flat = True Transparent = False OnClick = btCloseClick end object DBNavigator: TDBNavigator Left = 173 Top = 1 Width = 240 Height = 22 DataSource = dsPictures Flat = True TabOrder = 0 end end end object ToolBar1: TPanel Left = 0 Top = 123 Width = 451 Height = 27 Align = alTop BevelOuter = bvNone TabOrder = 2 object Panel1: TPanel Left = 0 Top = 2 Width = 259 Height = 24 BevelOuter = bvNone Color = 170 TabOrder = 0 object btLoad: TSpeedButton Left = 1 Top = 1 Width = 85 Height = 22 Caption = 'Load from file ...' Flat = True Transparent = False OnClick = btLoadClick end object btSave: TSpeedButton Left = 87 Top = 1 Width = 85 Height = 22 Caption = 'Save to file ...' Flat = True Transparent = False OnClick = btSaveClick end object btClear: TSpeedButton Left = 173 Top = 1 Width = 85 Height = 22 Caption = 'Clear' Flat = True Transparent = False OnClick = btClearClick end end end object dsPictures: TDataSource DataSet = quPictures Left = 96 Top = 16 end object quPictures: TSmartQuery SQL.Strings = ( 'SELECT P.*, RowId FROM ODAC_Pictures P') Debug = True FetchRows = 1 LockMode = lmNone Left = 24 Top = 16 endend
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -