d_lmddbdiagram0.dfm

delphi 运行期间窗体设计

object Form1: TForm1
  Left = 281
  Top = 69
  BorderStyle = bsSingle
  Caption = 'TLMDDBDiagram Demo'
  ClientHeight = 560
  ClientWidth = 569
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 16
    Top = 346
    Width = 154
    Height = 13
    Caption = 'Events trace (only some events):'
  end
  object Label1: TLabel
    Left = 16
    Top = 472
    Width = 537
    Height = 81
    AutoSize = False
    Caption = 
      'This demo demonstrates the use of TLMDDBDiagram. '#13#10'Double click ' +
      'on item or on a link to change its properties. Drag one item fie' +
      'ld to another to create new link between those fields.'#13#10'Drag any' +
      ' item field to panel on the top of the main form to view drag an' +
      'd drop operations support. Also check Panel1 OnDragOver and OnDr' +
      'agDrop event handlers.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object LMDDiagram1: TLMDDBDiagram
    Left = 15
    Top = 50
    Width = 538
    Height = 287
    DiagramWidth = 1000
    DiagramHeight = 1000
    Links = <
      item
        BeginItemName = 'Item1'
        EndItemName = 'Item2'
        BeginLineIndex = 0
        BeginPointType = lptOne
        EndLineIndex = 1
        EndPointType = lptInfinity
      end>
    Items = <
      item
        Left = 13
        Top = 13
        Width = 98
        Height = 102
        Name = 'Item1'
        Caption = 'Item1'
        Lines.Strings = (
          'Obj#'
          'Data1'
          'Data2'
          'Creator#'
          'CreationDate#')
      end
      item
        Left = 197
        Top = 53
        Width = 115
        Height = 101
        Name = 'Item2'
        Caption = 'Item2'
        Lines.Strings = (
          'Obj#'
          'ParentObj#'
          'Data1'
          'Data2'
          'Data3'
          'Creator#'
          'CreationDate#')
      end>
    OnChange = LMDDiagram1Change
    OnChangeSelection = LMDDiagram1ChangeSelection
    OnInsertItem = LMDDiagram1InsertItem
    OnDeleteItem = LMDDiagram1DeleteItem
    OnInsertLink = LMDDiagram1InsertLink
    OnDeleteLink = LMDDiagram1DeleteLink
    DragMode = dmAutomatic
    TabOrder = 0
    OnClick = LMDDiagram1Click
    OnDblClick = LMDDiagram1DblClick
    OnDragDrop = LMDDiagram1DragDrop
    OnDragOver = LMDDiagram1DragOver
    OnEnter = LMDDiagram1Enter
    OnExit = LMDDiagram1Exit
    OnKeyDown = LMDDiagram1KeyDown
    OnKeyPress = LMDDiagram1KeyPress
    OnKeyUp = LMDDiagram1KeyUp
    OnMouseDown = LMDDiagram1MouseDown
    OnMouseMove = LMDDiagram1MouseMove
    OnMouseUp = LMDDiagram1MouseUp
  end
  object Memo1: TMemo
    Left = 16
    Top = 392
    Width = 537
    Height = 73
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object CheckBox8: TCheckBox
    Left = 24
    Top = 368
    Width = 129
    Height = 17
    Caption = 'Trace mouse events'
    TabOrder = 2
  end
  object CheckBox9: TCheckBox
    Left = 168
    Top = 368
    Width = 137
    Height = 17
    Caption = 'Trace keyboard events'
    TabOrder = 3
  end
  object Button5: TButton
    Left = 479
    Top = 360
    Width = 75
    Height = 25
    Caption = 'Clear'
    TabOrder = 4
    OnClick = Button5Click
  end
  object Panel1: TPanel
    Left = 209
    Top = 8
    Width = 169
    Height = 33
    Caption = 'Drag diagram item on me'
    TabOrder = 5
    OnDragDrop = Panel1DragDrop
    OnDragOver = Panel1DragOver
  end
  object Button1: TButton
    Left = 16
    Top = 8
    Width = 75
    Height = 25
    Caption = 'New item'
    TabOrder = 6
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 96
    Top = 8
    Width = 105
    Height = 25
    Caption = 'Delete item or link'
    TabOrder = 7
    OnClick = Button2Click
  end
end