apiqueryut.dfm

一个用于查API函数的小工具

object Form1: TForm1
  Left = 257
  Top = 103
  Width = 385
  Height = 442
  BorderIcons = [biSystemMenu]
  Caption = 'API函数查询'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 377
    Height = 415
    ActivePage = TabSheet1
    Align = alClient
    Style = tsFlatButtons
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '函数名查询'
      object DBGrid2: TDBGrid
        Left = 0
        Top = 41
        Width = 369
        Height = 343
        Align = alClient
        DataSource = DataSource1
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ImeName = '中文 (简体) - 微软拼音'
        Options = [dgTitles, dgColumnResize, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnCellClick = DBGrid2CellClick
        OnDblClick = DBGrid2DblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'Api函数名'
            Font.Charset = GB2312_CHARSET
            Font.Color = clTeal
            Font.Height = -13
            Font.Name = '宋体'
            Font.Style = []
            Title.Caption = 'API函数名'
            Title.Color = clGreen
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 182
            Visible = True
          end
          item
            Expanded = False
            FieldName = '函数说明'
            Font.Charset = GB2312_CHARSET
            Font.Color = clTeal
            Font.Height = -13
            Font.Name = '宋体'
            Font.Style = []
            Title.Color = clGreen
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 162
            Visible = True
          end>
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 369
        Height = 41
        Align = alTop
        TabOrder = 1
        object Edit2: TEdit
          Left = 6
          Top = 10
          Width = 355
          Height = 21
          ImeName = '中文 (简体) - 微软拼音'
          TabOrder = 0
          OnChange = Edit2Change
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '函数说明查询'
      ImageIndex = 1
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 369
        Height = 41
        Align = alTop
        TabOrder = 0
        object Edit1: TEdit
          Left = 6
          Top = 10
          Width = 355
          Height = 21
          ImeName = '中文 (简体) - 微软拼音'
          TabOrder = 0
          OnChange = Edit1Change
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 41
        Width = 369
        Height = 343
        Align = alClient
        DataSource = DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ImeName = '中文 (简体) - 微软拼音'
        Options = [dgTitles, dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnCellClick = DBGrid1CellClick
        OnDblClick = DBGrid1DblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'Api函数名'
            Font.Charset = GB2312_CHARSET
            Font.Color = clTeal
            Font.Height = -13
            Font.Name = '宋体'
            Font.Style = []
            Title.Caption = 'API函数名'
            Title.Color = clGreen
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 182
            Visible = True
          end
          item
            Expanded = False
            FieldName = '函数说明'
            Font.Charset = GB2312_CHARSET
            Font.Color = clTeal
            Font.Height = -13
            Font.Name = '宋体'
            Font.Style = []
            Title.Color = clGreen
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clBlue
            Title.Font.Height = -13
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 162
            Visible = True
          end>
      end
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = ADOQuery1
    Left = 328
    Top = 8
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 264
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select Api函数名, 函数说明, WIN16可用, WIN95可用, WINNT可用 from' +
        ' api')
    Left = 296
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select Api函数名, 函数说明, WIN16可用, WIN95可用, WINNT可用 from' +
        ' api')
    Left = 296
    Top = 40
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 332
    Top = 43
  end
end