unit1.dfm

好用 用于收发gsm的短信猫之间的串口,简单好用

          '  close;'
          'end;'
          ''
          'procedure TForm1.Button1Click(Sender: TObject);'
          'begin'
          '   button2.caption :='#39'&Change'#39';'
          'end;'
          ''
          'procedure TForm1.Button2Click(Sender: TObject);'
          'begin'
          '//   button1.enabled:= not button1.enabled; '
          '//    sf1.dolog('#39'**************'#39');'
          'end;'
          ''
          'procedure TForm1.ReadSkinfile( apath : string );'
          'var'
          '  sts: Integer ;'
          '  SR: TSearchRec;'
          ''
          '  procedure AddFile;'
          '  begin'
          '    combobox1.items.add(sr.name);'
          '  end;'
          ''
          'begin'
          '  sts := FindFirst( apath + '#39'*.skn'#39' , faAnyFile , SR );'
          '  if sts = 0 then begin'
          '      if ( SR.Name <> '#39'.'#39' ) and ( SR.Name <> '#39'..'#39' ) then begin'
          '          if pos('#39'.'#39', SR.Name) <> 0 then'
          '            Addfile;'
          '      end;'
          '      while FindNext( SR ) = 0 do begin'
          
            '          if ( SR.Name <> '#39'.'#39' ) and ( SR.Name <> '#39'..'#39' ) then beg' +
            'in'
          '              //Put User Feedback here if desired'
          '              Application.ProcessMessages;'
          '              if Pos('#39'.'#39', SR.Name) <> 0 then  Addfile;'
          '          end;'
          '      end;'
          '  end ;'
          '  FindClose( SR ) ;'
          'end;'
          ''
          'procedure TForm1.FormCreate(Sender: TObject);'
          'begin'
          '    root:= ExtractFilePath(ParamStr(0));'
          '    readskinfile('#39'..\skins\'#39');'
          'end;'
          ''
          'procedure TForm1.ComboBox1Click(Sender: TObject);'
          'begin'
          '   sd1.skinfile:='#39'..\skins\'#39'+combobox1.text;'
          'end;'
          ''
          'end.')
        TabOrder = 0
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Grid'
      ImageIndex = 3
      object StringGrid1: TStringGrid
        Left = 16
        Top = 8
        Width = 353
        Height = 161
        DefaultRowHeight = 18
        FixedCols = 0
        TabOrder = 0
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 294
    Width = 471
    Height = 19
    Panels = <
      item
        Text = '1111'
        Width = 50
      end
      item
        Text = '22222'
        Width = 50
      end
      item
        Text = '33333'
        Width = 50
      end>
    SimplePanel = False
    SimpleText = '111111111111111111'
    SizeGrip = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 253
    Width = 471
    Height = 41
    Align = alBottom
    TabOrder = 2
    object ProgressBar1: TProgressBar
      Left = 16
      Top = 16
      Width = 345
      Height = 16
      Min = 0
      Max = 100
      Position = 50
      TabOrder = 0
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 256
    Top = 24
    object DialogM: TMenuItem
      Caption = '&Dialog'
      object Skin11: TMenuItem
        Caption = 'Open Dialog'
        ImageIndex = 0
        OnClick = LoadBtnClick
      end
      object Skin21: TMenuItem
        Caption = 'Font Dialog'
        ImageIndex = 3
        OnClick = Skin21Click
      end
      object Skin31: TMenuItem
        Caption = 'Color Dialog'
        ImageIndex = 7
        OnClick = Skin31Click
      end
      object PrintDialog2: TMenuItem
        Caption = 'Print Dialog'
        ImageIndex = 5
        OnClick = PrintDialog2Click
      end
    end
    object BuildinSkins1: TMenuItem
      Caption = 'Build in Skins'
      object Skin12: TMenuItem
        Caption = 'Skin1'
        OnClick = Skin12Click
      end
      object Skin22: TMenuItem
        Tag = 1
        Caption = 'Skin2'
        OnClick = Skin12Click
      end
      object Skin32: TMenuItem
        Tag = 2
        Caption = 'Skin3'
        OnClick = Skin12Click
      end
      object Skin41: TMenuItem
        Tag = 3
        Caption = 'Skin4'
        OnClick = Skin12Click
      end
      object Skin51: TMenuItem
        Tag = 4
        Caption = 'Skin5'
        OnClick = Skin12Click
      end
    end
    object File1: TMenuItem
      Caption = '&File'
      object Open1: TMenuItem
        Caption = '&Open'
      end
      object Save1: TMenuItem
        Caption = '&Save'
      end
      object Close1: TMenuItem
        Caption = '&Close'
        ImageIndex = 11
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        OnClick = Exit1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Content1: TMenuItem
        Caption = 'Content'
      end
      object Homepage1: TMenuItem
        Caption = 'Homepage'
        ImageIndex = 9
      end
      object About1: TMenuItem
        Caption = 'About'
        ImageIndex = 11
      end
    end
  end
  object sd1: TSkinData
    Active = True
    DisableTag = 99
    SkinControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcGroupBox, xcStatusBar, xcTab]
    SkinStore = '(none)'
    SkinFormtype = sfMainform
    Left = 32
    Top = 32
    SkinStream = {00000000}
  end
  object Dialog1: TOpenDialog
    Left = 32
    Top = 216
  end
  object Dialog2: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 64
    Top = 168
  end
  object Dialog3: TColorDialog
    Ctl3D = True
    Left = 104
    Top = 168
  end
  object Dialog4: TPrintDialog
    Left = 144
    Top = 168
  end
  object ImageList1: TImageList
    Left = 64
    Top = 216
    Bitmap = {
      494C01010C000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001001000000000000020
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000