showpic.dfm

海盗远控1.23源代码

object ShowPm: TShowPm
  Left = 280
  Top = 133
  AutoScroll = False
  BorderIcons = []
  Caption = #25429#33719#23631#24149
  ClientHeight = 443
  ClientWidth = 649
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object ControlBar1: TspSkinControlBar
    Left = 0
    Top = 0
    Width = 649
    Height = 38
    SkinDataName = 'controlbar'
    SkinData = ViKing.spSkinData1
    SkinBevel = False
    Align = alTop
    AutoDrag = False
    AutoSize = True
    BevelInner = bvNone
    RowSnap = False
    TabOrder = 0
    object MainPanel: TspSkinPanel
      Left = 11
      Top = 2
      Width = 634
      Height = 32
      TabOrder = 0
      DrawDefault = True
      SkinData = ViKing.spSkinData1
      SkinDataName = 'panel'
      AlphaBlend = False
      AlphaBlendValue = 200
      UseSkinCursor = False
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      UseSkinFont = True
      DefaultWidth = 0
      DefaultHeight = 0
      RealHeight = -1
      AutoEnabledControls = True
      CheckedMode = False
      Checked = False
      NumGlyphs = 1
      Spacing = 2
      DefaultAlignment = taLeftJustify
      DefaultCaptionHeight = 22
      BorderStyle = bvNone
      CaptionMode = False
      RollUpMode = False
      RollUpState = False
      object Gauge1: TGauge
        Left = 261
        Top = 8
        Width = 62
        Height = 15
        BackColor = clBtnFace
        ForeColor = clGreen
        Progress = 0
      end
      object SaveButton: TspSkinSpeedButton
        Left = 117
        Top = 4
        Width = 56
        Height = 24
        Hint = #20445#23384#24403#21069#30011#38754
        DrawDefault = True
        SkinData = ViKing.spSkinData1
        SkinDataName = 'resizebutton'
        AlphaBlend = False
        AlphaBlendValue = 200
        UseSkinCursor = False
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        UseSkinFont = True
        DefaultWidth = 0
        DefaultHeight = 0
        WidthWithCaption = 0
        WidthWithoutCaption = 0
        ImageIndex = 0
        RepeatMode = False
        RepeatInterval = 100
        Flat = False
        AllowAllUp = True
        ShowHint = True
        Down = False
        GroupIndex = 0
        ShowCaption = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          FFFFF80000000000000FF03300000088030FF03300000088030FF03300000088
          030FF03300000000030FF03333333333330FF03300000000330FF03088888888
          030FF03088888888030FF03088888888030FF03088888888030FF03088888888
          000FF03088888888080FF00000000000000FFFFFFFFFFFFFFFFF}
        NumGlyphs = 1
        Spacing = 1
        OnClick = SaveButtonClick
      end
      object jianpanButton: TspSkinSpeedButton
        Left = 5
        Top = 4
        Width = 56
        Height = 24
        Hint = #20256#36865#40736#26631#21644#38190#30424#25805#20316
        DrawDefault = True
        SkinData = ViKing.spSkinData1
        SkinDataName = 'resizebutton'
        AlphaBlend = False
        AlphaBlendValue = 200
        UseSkinCursor = False
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        UseSkinFont = True
        DefaultWidth = 0
        DefaultHeight = 0
        WidthWithCaption = 0
        WidthWithoutCaption = 0
        ImageIndex = 0
        RepeatMode = False
        RepeatInterval = 100
        Flat = False
        AllowAllUp = True
        ShowHint = True
        Down = False
        GroupIndex = 2
        ShowCaption = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
          33333333330333333333333330FFF0333333333330F03333333333330FFFFF03
          333333330FFF0333333333330FFFFF0333333330F80FF033333333330FFFFF03
          3333330F80F7FF033333333307777703333330F70F0F0FF0333333330FF7FF03
          3333330F77F7F0FF033333330FF7FF0333333330F70F0F0FF033333330000033
          333333330F77F7F7FF033333333033000733333330F70F0F07F0333333303033
          30733333330F77FF7F03333333330333330333333330F707F033333333330733
          3303333333330F7F033333333370307330733333333330F03033333337033300
          0733303030303303303333337033333333330303030300000333}
        NumGlyphs = 1
        Spacing = 1
      end
    end
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 38
    Width = 649
    Height = 405
    Align = alClient
    Color = clBtnFace
    ParentColor = False
    TabOrder = 1
    object PaintBox1: TPaintBox
      Left = 8
      Top = 8
      Width = 602
      Height = 369
      OnClick = PaintBox1Click
      OnDblClick = PaintBox1DblClick
      OnMouseDown = PaintBox1MouseDown
      OnMouseMove = PaintBox1MouseMove
      OnMouseUp = PaintBox1MouseUp
      OnPaint = PaintBox1Paint
    end
  end
  object ClickTimer: TTimer
    Enabled = False
    Interval = 350
    OnTimer = ClickTimerTimer
    Left = 512
    Top = 68
  end
  object SaveDialog1: TSaveDialog
    Filter = 'BMP'#22270#20687#25991#20214'(*.bmp)|*.bmp'
    Title = #22270#20687#21478#23384#20026':'
    Left = 552
    Top = 68
  end
  object spDynamicSkinForm1: TspDynamicSkinForm
    ClientWidth = 0
    ClientHeight = 0
    HideCaptionButtons = False
    AlwaysShowInTray = False
    LogoBitMapTransparent = False
    AlwaysMinimizeToTray = False
    UseSkinFontInMenu = True
    ShowIcon = False
    MaximizeOnFullScreen = False
    SkinHint = ViKing.spSkinHint1
    ShowObjectHint = False
    UseDefaultObjectHint = True
    UseSkinCursors = False
    DefCaptionFont.Charset = DEFAULT_CHARSET
    DefCaptionFont.Color = clBtnText
    DefCaptionFont.Height = 14
    DefCaptionFont.Name = 'Arial'
    DefCaptionFont.Style = [fsBold]
    DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
    DefInActiveCaptionFont.Color = clBtnShadow
    DefInActiveCaptionFont.Height = 14
    DefInActiveCaptionFont.Name = 'Arial'
    DefInActiveCaptionFont.Style = [fsBold]
    DefMenuItemHeight = 20
    DefMenuItemFont.Charset = DEFAULT_CHARSET
    DefMenuItemFont.Color = clWindowText
    DefMenuItemFont.Height = 14
    DefMenuItemFont.Name = 'Arial'
    DefMenuItemFont.Style = []
    UseDefaultSysMenu = True
    SupportNCArea = True
    AlphaBlendAnimation = False
    AlphaBlendValue = 0
    AlphaBlend = False
    MenusAlphaBlend = False
    MenusAlphaBlendAnimation = False
    MenusAlphaBlendValue = 200
    SystemMenu = PopupMenu3
    SkinData = ViKing.spSkinData1
    MinHeight = 0
    MinWidth = 0
    Sizeable = True
    DraggAble = True
    Magnetic = True
    MagneticSize = 10
    BorderIcons = [biMinimize, biMaximize, biRollUp]
    Left = 472
    Top = 68
  end
  object PopupMenu3: TspSkinPopupMenu
    SkinData = ViKing.spSkinData1
    Left = 408
    Top = 64
    object N4: TMenuItem
      Caption = '-'
    end
    object Loadskin1: TMenuItem
      Caption = #23631#24149#25511#21046
      OnClick = Loadskin1Click
    end
    object Storedskin1: TMenuItem
      Caption = #23631#24149#26597#30475
      Checked = True
      OnClick = Storedskin1Click
    end
    object About1: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Caption = #25429#23631#33394#24425
      object N16: TMenuItem
        Caption = '16 '#33394
        RadioItem = True
        OnClick = N16Click
      end
      object N11: TMenuItem
        Caption = '256 '#33394
        Checked = True
        RadioItem = True
        OnClick = N11Click
      end
      object N256: TMenuItem
        Caption = #30495#24425#33394
        RadioItem = True
        OnClick = N256Click
      end
    end
  end
end