Kitchen Pages, KitCAD i3 KGC rX - SDK source - Index

This, main.dfm requires:- main.pas

modified DCEF 1.0; main.dfm


object MainForm: TMainForm
  Left = 100
  Top = 10
  ActiveControl = crm
  Caption = 'Chromium Embedded'
  ClientHeight = 696
  ClientWidth = 842
  Color = clBtnFace
  TransparentColorValue = clFuchsia
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  GlassFrame.Enabled = True
  GlassFrame.SheetOfGlass = True
  Menu = MainMenu
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000007000000000000000000000000
    0000008707000000000000000000000000007707070000000000007700000000
    0003770707000000000007770000000000887707070000000700737000000000
    0778870708700700007738077700000007F737070870770770737077F0070000
    0777777808707F3777370770000000000077F77808707F87F0707F0FF7880007
    7000777807808F7F870F0078337707777777F77807883FF330007813777F0887
    7777FF7008838838003333777F7F000887777880888888BBB338877700077880
    000008808333BBBB33BB00007777788888833833333BBBBBB00077777700F777
    77777883333BBBBBB3333887000070000007777BBBBBBBBBB000000000000077
    7700077BBBBBFBBBBBB00777770007777770777BBBBBBBBFF33B7FFF77700077
    8007777BBB3BBBBBBFF33877000000000078777877F3BB3BB77FF33387000000
    7837778877703BF33F777000783700008877073F8000377088F7777000070003
    F780038780700370038F777000000000700088FF807707770038FF7770700000
    000837FF7070000007F387000000000000037F77807000000070337077000000
    0000077770700000000008870000000000000777707000000000777700000000
    000000077070000000000070000000000000000000000000000000000000FFFF
    FFFFFFEFFFFFFFCBFFFFFF2BFFCFFE2BFF8FFC2BFB1FF829BC23F8292446F809
    009FFC090120E70902C08008070080180C00E010000E1F9000F0000007030000
    000F7E0007FFC380018381000001C600000FFC000003F0010070F087101EE185
    981FF7048C05FE05F83FFE05FD13FF85FF8FFF85FF0FFFE5FFDFFFFFFFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  DesignSize = (
    842
    696)
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 0
    Top = 0
    Width = 23
    Height = 22
    Action = actPrev
    Visible = False
  end
  object SpeedButton2: TSpeedButton
    Left = 24
    Top = 0
    Width = 23
    Height = 22
    Action = actNext
    Visible = False
  end
  object SpeedButton3: TSpeedButton
    Left = 48
    Top = 0
    Width = 23
    Height = 22
    Action = actHome
    Caption = 'H'
    Visible = False
  end
  object SpeedButton4: TSpeedButton
    Left = 72
    Top = 0
    Width = 23
    Height = 22
    Action = actReload
    Caption = 'R'
    Visible = False
  end
  object SpeedButton5: TSpeedButton
    Left = 819
    Top = 0
    Width = 23
    Height = 22
    Action = actGoTo
    Anchors = [akTop, akRight]
    ExplicitLeft = 707
  end
  object crm: TChromium
    Left = 0
    Top = 0
    Width = 842
    Height = 677
    Color = clWhite
    Align = alClient
    DefaultUrl = 'about:blank'
    TabOrder = 0
    OnBeforePopup = crmBeforePopup
    OnLoadStart = crmLoadStart
    OnLoadEnd = crmLoadEnd
    OnAuthCredentials = crmAuthCredentials
    OnGetDownloadHandler = crmGetDownloadHandler
    OnAddressChange = crmAddressChange
    OnStatusMessage = crmStatusMessage
    OnTitleChange = crmTitleChange
    Options.WebSecurityDisabled = True
    Options.AcceleratedPaintingDisabled = False
    Options.AcceleratedFiltersDisabled = False
    Options.AcceleratedPluginsDisabled = False
  end
  object edAddress: TEdit
    Left = 91
    Top = 0
    Width = 722
    Height = 21
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 1
    Text = 'about:blank'
    Visible = False
    OnKeyPress = edAddressKeyPress
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 677
    Width = 842
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object RichEdit1: TRichEdit
    Left = 224
    Top = 152
    Width = 449
    Height = 321
    TabStop = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    PlainText = True
    TabOrder = 3
    Visible = False
    WantTabs = True
    WordWrap = False
  end
  object RichEdit2: TRichEdit
    Left = 232
    Top = 168
    Width = 449
    Height = 321
    TabStop = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    PlainText = True
    TabOrder = 4
    Visible = False
    WantTabs = True
    WordWrap = False
  end
  object ActionList: TActionList
    Left = 624
    Top = 112
    object actPrev: TAction
      Caption = '<-'
      Enabled = False
      OnExecute = actPrevExecute
      OnUpdate = actPrevUpdate
    end
    object actNext: TAction
      Caption = '->'
      Enabled = False
      OnExecute = actNextExecute
      OnUpdate = actNextUpdate
    end
    object actHome: TAction
      Caption = 'actHome'
      OnExecute = actHomeExecute
      OnUpdate = actHomeUpdate
    end
    object actReload: TAction
      Caption = 'actReload'
      OnExecute = actReloadExecute
      OnUpdate = actReloadUpdate
    end
    object actGoTo: TAction
      Caption = '>'
      OnExecute = actGoToExecute
    end
    object actGetSource: TAction
      Caption = 'Get source'
      ShortCut = 16467
      OnExecute = actGetSourceExecute
    end
    object actGetText: TAction
      Caption = 'Get text'
      OnExecute = actGetTextExecute
    end
    object actShowDevTools: TAction
      Caption = 'Show developper tools'
      ShortCut = 123
      OnExecute = actShowDevToolsExecute
    end
    object actCloseDevTools: TAction
      Caption = 'Close developper tools'
      OnExecute = actCloseDevToolsExecute
    end
    object actZoomIn: TAction
      Caption = 'Zoom in'
      ShortCut = 16457
      OnExecute = actZoomInExecute
    end
    object actZoomOut: TAction
      Caption = 'Zoom out'
      ShortCut = 16463
      OnExecute = actZoomOutExecute
    end
    object actZoomReset: TAction
      Caption = 'Zoom reset'
      ShortCut = 16466
      OnExecute = actZoomResetExecute
    end
    object actExecuteJS: TAction
      Caption = 'Execute JavaScript'
      OnExecute = actExecuteJSExecute
    end
    object actPrint: TAction
      Caption = 'Print'
      ShortCut = 16464
      OnExecute = actPrintExecute
    end
    object actFileScheme: TAction
      Caption = 'File scheme'
      OnExecute = actFileSchemeExecute
    end
    object actDom: TAction
      Caption = 'Hook DOM'
      OnExecute = actDomExecute
    end
  end
  object MainMenu: TMainMenu
    Left = 624
    Top = 56
    object File1: TMenuItem
      Caption = '&File'
      Visible = False
      object Print1: TMenuItem
        Action = actPrint
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        ShortCut = 16472
        OnClick = Exit1Click
      end
    end
    object est1: TMenuItem
      Caption = '&Test'
      Visible = False
      object mGetsource: TMenuItem
        Action = actGetSource
      end
      object mGetText: TMenuItem
        Action = actGetText
      end
      object ExecuteJavaScript1: TMenuItem
        Action = actExecuteJS
      end
      object Zoomin1: TMenuItem
        Action = actZoomIn
      end
      object Zoomout1: TMenuItem
        Action = actZoomOut
      end
      object Zoomreset1: TMenuItem
        Action = actZoomReset
      end
      object Showdevtools1: TMenuItem
        Action = actShowDevTools
      end
      object Closedeveloppertools1: TMenuItem
        Action = actCloseDevTools
      end
      object actFileScheme1: TMenuItem
        Action = actFileScheme
      end
      object VisitDOM1: TMenuItem
        Action = actDom
      end
    end
  end
  object SaveDialog: TSaveDialog
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Title = 'Save KP2 file'
    Left = 624
    Top = 176
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 616
    Top = 248
  end
  object Timer2: TTimer
    Interval = 4444
    OnTimer = Timer2Timer
    Left = 616
    Top = 320
  end
  object Timer3: TTimer
    Enabled = False
    Interval = 30000
    OnTimer = Timer3Timer
    Left = 624
    Top = 376
  end
  object OpenDialog1: TOpenDialog
    Title = 'Open KP2 file'
    Left = 552
    Top = 176
  end
  object Timer4: TTimer
    Enabled = False
    OnTimer = Timer4Timer
    Left = 560
    Top = 376
  end
end





Copyright 2015-2016, all rights reserved. License.