d_lmddiagram.dfm

delphi 运行期间窗体设计

object Form1: TForm1
  Left = 158
  Top = 62
  BorderStyle = bsSingle
  Caption = 'TLMDDiagram Demo'
  ClientHeight = 571
  ClientWidth = 555
  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 = 8
    Top = 354
    Width = 151
    Height = 13
    Caption = 'Events trace (only some events)'
  end
  object Label1: TLabel
    Left = 8
    Top = 480
    Width = 537
    Height = 81
    AutoSize = False
    Caption = 
      'This demo demonstrates use of TLMDDiagram. '#13#10'Drag one item to an' +
      'other to create new link betwen them.'#13#10'Drag some item to panel o' +
      'n the top of the main form to see drag and drop operations suppo' +
      'rt. Also check Panel1 OnDragOver and OnDragDrop 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: TLMDDiagram
    Left = 10
    Top = 57
    Width = 535
    Height = 288
    OnPaintItem = LMDDiagram1PaintItem
    OnCreateLinkDrawInfo = LMDDiagram1CreateLinkDrawInfo
    OnIsEqualDrawInfos = LMDDiagram1IsEqualDrawInfos
    OnIsOnLink = LMDDiagram1IsOnLink
    OnPaintLink = LMDDiagram1PaintLink
    DiagramWidth = 1000
    DiagramHeight = 1000
    Links = <
      item
        BeginItemName = 'Item1'
        EndItemName = 'Item2'
      end>
    Items = <
      item
        Left = 8
        Top = 22
        Width = 89
        Height = 82
        Name = 'Item1'
        Caption = 'Item1'
        Color = clBackground
      end
      item
        Left = 216
        Top = 60
        Width = 89
        Height = 89
        Name = 'Item2'
        Caption = 'Item2'
      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 = 8
    Top = 400
    Width = 537
    Height = 73
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object CheckBox8: TCheckBox
    Left = 16
    Top = 376
    Width = 129
    Height = 17
    Caption = 'Trace mouse events'
    TabOrder = 2
  end
  object CheckBox9: TCheckBox
    Left = 160
    Top = 376
    Width = 137
    Height = 17
    Caption = 'Trace keyboard events'
    TabOrder = 3
  end
  object Button5: TButton
    Left = 471
    Top = 368
    Width = 75
    Height = 25
    Caption = 'Clear'
    TabOrder = 4
    OnClick = Button5Click
  end
  object Panel1: TPanel
    Left = 193
    Top = 8
    Width = 169
    Height = 33
    Caption = 'Drag diagram item on me'
    TabOrder = 5
    OnDragDrop = Panel1DragDrop
    OnDragOver = Panel1DragOver
  end
  object Button1: TButton
    Left = 8
    Top = 8
    Width = 65
    Height = 25
    Caption = 'New item'
    TabOrder = 6
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 80
    Top = 8
    Width = 97
    Height = 25
    Caption = 'Delete item or link'
    TabOrder = 7
    OnClick = Button2Click
  end
  object CheckBox1: TCheckBox
    Left = 376
    Top = 8
    Width = 113
    Height = 17
    Caption = 'Custom draw items'
    TabOrder = 8
    OnClick = CheckBox1Click
  end
  object CheckBox2: TCheckBox
    Left = 376
    Top = 32
    Width = 113
    Height = 17
    Caption = 'Custom draw links'
    TabOrder = 9
    OnClick = CheckBox2Click
  end
end