palettenav.xfm

功能强大的ER图建模工具的源代码。 可以代替ERWin了

object PaletteNavForm: TPaletteNavForm
  Left = 495
  Top = 283
  ActiveControl = ZoomTrackBar
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  BorderStyle = fbsSizeToolWin
  Caption = 'Navigator & Info'
  ClientHeight = 174
  ClientWidth = 221
  Color = clBackground
  Constraints.MaxWidth = 221
  Constraints.MinWidth = 221
  FormStyle = fsStayOnTop
  Position = poDefault
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  object MainPnl: TPanel
    Left = 0
    Top = 0
    Width = 221
    Height = 174
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object BottomPnl: TPanel
      Left = 0
      Top = 155
      Width = 221
      Height = 19
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object Shape1: TShape
        Left = 0
        Top = 0
        Width = 221
        Height = 1
        Align = alTop
        Brush.Style = bsClear
      end
      object ZoomOutSBtn: TSpeedButton
        Left = 0
        Top = 3
        Width = 25
        Height = 16
        Flat = True
        Glyph.Data = {
          7A020000424D760200000000000036000000280000000F0000000C0000000100
          18000000000040020000120B0000120B00000000000000000000CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
          D6CED3D6CED3D6000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
          D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6000000CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
          D6CED3D6CED3D6000000CED3D6CED3D6CED3D6CED3D600000000000000000000
          0000000000000000000000CED3D6CED3D6CED3D6CED3D6000000CED3D6CED3D6
          CED3D6CED3D6000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000CED3D6CED3
          D6CED3D6CED3D6000000CED3D6CED3D6CED3D6CED3D6000000FFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFF000000CED3D6CED3D6CED3D6CED3D6000000CED3D6CED3D6
          CED3D6CED3D6000000D6D7D6D6D7D6D6D7D6D6D7D6D6D7D6000000CED3D6CED3
          D6CED3D6CED3D6000000CED3D6CED3D6CED3D6CED3D600000000000000000000
          0000000000000000000000CED3D6CED3D6CED3D6CED3D6000000CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
          D6CED3D6CED3D6000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
          D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6000000CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
          D6CED3D6CED3D6000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
          D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6000000}
        OnClick = ZoomOutSBtnClick
      end
      object ZoomInSBtn: TSpeedButton
        Left = 144
        Top = 3
        Width = 25
        Height = 16
        Flat = True
        Glyph.Data = {
          7A020000424D760200000000000036000000280000000F0000000C0000000100
          18000000000040020000120B0000120B00000000000000000000CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
          D6CED3D6CED3D6000000CED3D600000000000000000000000000000000000000
          0000000000000000000000000000000000000000CED3D6000000CED3D6000000
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FF000000CED3D6000000CED3D6000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000CED3D6000000CED3D6000000
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FF000000CED3D6000000CED3D6000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000CED3D6000000CED3D6000000
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FF000000CED3D6000000CED3D6000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000CED3D6000000CED3D6000000
          D6D7D6D6D7D6D6D7D6D6D7D6D6D7D6D6D7D6D6D7D6D6D7D6D6D7D6D6D7D6D6D7
          D6000000CED3D6000000CED3D6000000D6D7D6D6D7D6D6D7D6D6D7D6D6D7D6D6
          D7D6D6D7D6D6D7D6D6D7D6D6D7D6D6D7D6000000CED3D6000000CED3D6000000
          0000000000000000000000000000000000000000000000000000000000000000
          00000000CED3D6000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
          D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6000000}
        OnClick = ZoomInSBtnClick
      end
      object Panel1: TPanel
        Left = 176
        Top = 1
        Width = 45
        Height = 18
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object ZoomShape: TShape
          Left = 2
          Top = 3
          Width = 39
          Height = 14
        end
        object ZoomLbl: TLabel
          Left = 0
          Top = 3
          Width = 39
          Height = 13
          Alignment = taCenter
          AutoSize = False
          Caption = '100%'
          Font.CharSet = fcsLatin1
          Font.Color = clBlack
          Font.Height = 9
          Font.Name = 'Microsoft Sans Serif'
          Font.Pitch = fpVariable
          Font.Style = []
          Font.Weight = 40
          Masked = True
          ParentFont = False
          Transparent = True
          OnClick = ZoomLblClick
        end
        object ZoomEd: TEdit
          Left = 22
          Top = 1
          Width = 39
          Height = 20
          Font.CharSet = fcsLatin1
          Font.Color = clBlack
          Font.Height = 9
          Font.Name = 'Microsoft Sans Serif'
          Font.Pitch = fpVariable
          Font.Style = []
          Font.Weight = 40
          ParentFont = False
          TabOrder = 1
          Text = '100%'
          Visible = False
          OnExit = ZoomEdExit
          OnKeyDown = ZoomEdKeyDown
        end
      end
      object ZoomTrackBar: TTrackBar
        Left = 32
        Top = 4
        Width = 105
        Height = 15
        Max = 400
        Min = 12
        Position = 10
        TabOrder = 1
        TickStyle = tsNone
        OnChange = ZoomTrackBarChange
      end
    end
    object PageControl: TPageControl
      Left = 0
      Top = 20
      Width = 221
      Height = 135
      ActivePage = InfoSheet
      Align = alClient
      Style = tsNoTabs
      TabOrder = 1
      object InfoSheet: TTabSheet
        Caption = 'InfoSheet'
        object Bevel1: TBevel
          Left = 4
          Top = 74
          Width = 207
          Height = 3
          Shape = bsTopLine
        end
        object Label1: TLabel
          Left = 20
          Top = 26
          Width = 21
          Height = 13
          Alignment = taRightJustify
          Caption = 'Left:'
        end
        object Label2: TLabel
          Left = 19
          Top = 48
          Width = 22
          Height = 13
          Alignment = taRightJustify
          Caption = 'Top:'
        end
        object LeftEdit: TEdit
          Left = 44
          Top = 24
          Width = 37
          Height = 20
          Enabled = False
          Font.CharSet = fcsLatin1
          Font.Color = clBlack
          Font.Height = 9
          Font.Name = 'Microsoft Sans Serif'
          Font.Pitch = fpVariable
          Font.Style = []
          Font.Weight = 40
          ParentFont = False
          TabOrder = 1
          OnExit = LeftEditExit