📄 webpagelookmod.dfm

📁 关于利用DELPHI来进行企业级方案解决的著作的附书源码
💻 DFM
字号:
object WebPageLookModule: TWebPageLookModule
  OldCreateOrder = False
  OnCreate = WebPageModuleCreate
  OnDestroy = WebPageModuleDestroy
  OnActivate = WebPageModuleActivate
  OnDeactivate = WebPageModuleDeactivate
  PageProducer = PageProducer1
  Left = 65532
  Top = 65532
  Height = 746
  Width = 1032
  object PicturesIterator: TPagedAdapter
    OnGetRecordIndex = PicturesIteratorGetRecordIndex
    OnGetRecordCount = PicturesIteratorGetRecordCount
    OnGetEOF = PicturesIteratorGetEOF
    OnGetFirstRecord = PicturesIteratorGetFirstRecord
    OnGetNextRecord = PicturesIteratorGetNextRecord
    PageSize = 4
    Left = 40
    Top = 80
    object TAdapterDefaultActions
      object NewPicturePage: TAdapterAction
        OnExecute = NewPicturePageExecute
      end
      object DeletePicture: TAdapterAction
        OnExecute = DeletePictureExecute
        OnGetParams = DeletePictureGetParams
      end
      object ActionGotoPage: TAdapterGotoPageAction
      end
    end
    object TAdapterDefaultFields
      object ThumbWidth: TAdapterField
        OnGetValue = ThumbWidthGetValue
      end
      object ThumbHeight: TAdapterField
        OnGetValue = ThumbHeightGetValue
      end
      object PictureImage: TAdapterImageField
        OnGetParams = PictureImageGetParams
        OnGetImage = PictureImageGetImage
        OnGetImageName = PictureImageGetImageName
      end
      object PictureThumbImage: TAdapterImageField
        OnGetParams = PictureImageGetParams
        OnGetImage = PictureThumbImageGetImage
      end
      object PicsPerRow: TAdapterField
        OnGetValue = PicsPerRowGetValue
      end
    end
  end
  object PageProducer1: TPageProducer
    ScriptEngine = 'JScript'
    Left = 48
    Top = 16
  end
  object AdapterPageProducer1: TAdapterPageProducer
    HTMLDoc.Strings = (
      '<html>'
      '<head>'
      '</head>'
      '<body>'
      '<#STYLES><#WARNINGS><#SERVERSCRIPT>'
      '</body>'
      '</html>')
    Left = 184
    Top = 24
    object AdapterForm1: TAdapterForm
      object AdapterGrid1: TAdapterGrid
        Adapter = PicturesIterator
      end
      object AdapterCommandGroup1: TAdapterCommandGroup
        DisplayComponent = AdapterGrid1
      end
    end
  end
  object DisplayOptions: TAdapter
    Left = 136
    Top = 88
    object TAdapterActions
      object SubmitOptions: TAdapterAction
        OnExecute = SubmitOptionsExecute
      end
    end
    object TAdapterFields
      object MaxPicsPerPage: TAdapterField
        OnGetValue = MaxPicsPerPageGetValue
      end
      object PreferredThumbWidth: TAdapterField
        OnGetValue = PreferredThumbWidthGetValue
      end
      object MaxPicsPerRow: TAdapterField
        OnGetValue = MaxPicsPerRowGetValue
      end
    end
  end
end
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -