showpic.dfm

参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP+indy9等控件

object ShowPm: TShowPm
  Left = 198
  Top = 132
  AutoScroll = False
  BorderIcons = []
  Caption = #25429#33719#23631#24149
  ClientHeight = 492
  ClientWidth = 692
  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
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panelbox: TspSkinPanel
    Left = 0
    Top = 0
    Width = 692
    Height = 492
    TabOrder = 0
    DrawDefault = True
    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
    Align = alClient
    ParentShowHint = False
    ShowHint = False
    object ScrollBox1: TScrollBox
      Left = 0
      Top = 31
      Width = 692
      Height = 461
      Align = alClient
      Color = clGray
      ParentColor = False
      TabOrder = 0
      object Image1: TImage
        Left = 0
        Top = 0
        Width = 153
        Height = 81
        OnMouseDown = Image1MouseDown
      end
    end
    object screen: TbsSkinPanel
      Left = 0
      Top = 0
      Width = 692
      Height = 31
      TabOrder = 1
      SkinDataName = 'panel'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      RealHeight = -1
      AutoEnabledControls = True
      CheckedMode = False
      Checked = False
      DefaultAlignment = taLeftJustify
      DefaultCaptionHeight = 22
      BorderStyle = bvFrame
      CaptionMode = False
      RollUpMode = False
      RollUpState = False
      NumGlyphs = 1
      Spacing = 2
      Align = alTop
      object Gauge1: TGauge
        Left = 21
        Top = 8
        Width = 84
        Height = 15
        BackColor = clBtnFace
        ForeColor = clGreen
        Progress = 0
      end
      object bsSkinCheckRadioBox1: TbsSkinCheckRadioBox
        Left = 510
        Top = 4
        Width = 81
        Height = 25
        TabOrder = 0
        SkinDataName = 'checkbox'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -12
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        ImageIndex = 0
        Flat = True
        TabStop = True
        CanFocused = True
        Radio = False
        Checked = False
        GroupIndex = 0
        Caption = #40736#26631#25511#21046
      end
      object bsSkinButton2: TbsSkinButton
        Left = 608
        Top = 5
        Width = 66
        Height = 21
        TabOrder = 1
        SkinDataName = 'button'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        UseSkinSize = True
        RepeatMode = False
        RepeatInterval = 100
        AllowAllUp = False
        TabStop = True
        CanFocused = True
        Down = False
        GroupIndex = 0
        Caption = #20572#27490
        NumGlyphs = 1
        Spacing = 1
        OnClick = bsSkinButton2Click
      end
      object veryed: TspSkinTrackBar
        Left = 192
        Top = 6
        Width = 65
        Height = 20
        Hint = #20998#36776#29575#35843#33410#13#10#36234#39640#20256#36755#36234#24930
        TabOrder = 2
        DrawDefault = True
        SkinData = FormMain.spSkinData1
        SkinDataName = 'htrackbar'
        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
        JumpWhenClick = False
        ShowHint = True
        CanFocused = False
        MouseSupport = True
        MinValue = 1
        MaxValue = 4
        Value = 2
        Vertical = False
        OnChange = veryedChange
      end
      object spSkinLabel1: TspSkinLabel
        Left = 120
        Top = 6
        Width = 65
        Height = 21
        TabOrder = 3
        DrawDefault = True
        SkinData = FormMain.spSkinData1
        SkinDataName = 'label'
        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
        BorderStyle = bvFrame
        Caption = #28165#26224#24230#35843#33410
        AutoSize = False
      end
      object spSkinLabel2: TspSkinLabel
        Left = 272
        Top = 6
        Width = 65
        Height = 21
        TabOrder = 4
        DrawDefault = True
        SkinData = FormMain.spSkinData1
        SkinDataName = 'label'
        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
        BorderStyle = bvFrame
        Caption = #25235#23631#38388#38548
        AutoSize = False
      end
      object interval: TspSkinTrackBar
        Left = 352
        Top = 6
        Width = 129
        Height = 20
        Hint = #38388#38548#36234#22823',CPU'#21344#29992#36234#20302','#20294#20256#36755#36234#24930
        TabOrder = 5
        DrawDefault = True
        SkinData = FormMain.spSkinData1
        SkinDataName = 'htrackbar'
        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
        JumpWhenClick = False
        ShowHint = True
        CanFocused = False
        MouseSupport = True
        MinValue = 1
        MaxValue = 50
        Value = 10
        Vertical = False
        OnChange = intervalChange
      end
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = 'BMP'#22270#20687#25991#20214'(*.bmp)|*.bmp'
    Title = #22270#20687#21478#23384#20026':'
    Left = 552
    Top = 76
  end
  object PopupMenu1: TspSkinPopupMenu
    Left = 460
    Top = 76
    object N1: TMenuItem
      Caption = #20445#23384#24403#21069#30011#38754
    end
    object N2: TMenuItem
      Caption = #33258#21160#20445#23384#27599#24133#30011#38754
    end
  end
  object spDynamicSkinForm1: TspDynamicSkinForm
    ClientWidth = 0
    ClientHeight = 0
    HideCaptionButtons = False
    AlwaysShowInTray = False
    LogoBitMapTransparent = False
    AlwaysMinimizeToTray = False
    UseSkinFontInMenu = True
    ShowIcon = False
    MaximizeOnFullScreen = False
    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 = 200
    AlphaBlend = False
    MenusAlphaBlend = False
    MenusAlphaBlendAnimation = False
    MenusAlphaBlendValue = 200
    SkinData = FormMain.spSkinData1
    MinHeight = 0
    MinWidth = 0
    Sizeable = True
    DraggAble = False
    Magnetic = False
    MagneticSize = 10
    BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp]
    Left = 208
    Top = 78
  end
end