Chip 1999 May/Chip_1999-05_cd.bin/ctenari/Hlavaty/HTML_Convert.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1999-03-03 | 6KB | 263 lines

object Form1: TForm1
  Left = 236
  Top = 215
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'DWD HTML Charset converter'
  ClientHeight = 330
  ClientWidth = 640
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  TextHeight = 13
  object convert_button: TSpeedButton
    Left = 352
    Top = 128
    Width = 97
    Height = 25
    Hint = 'Zacni konvertovat'
    Caption = 'Convert'
    Enabled = False
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
      333333333333337FF3333333333333903333333333333377FF33333333333399
      03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
      99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
      99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
      03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
      33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
      33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
      3333777777333333333333333333333333333333333333333333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = convert_buttonClick
  end
  object teplomer: TGauge
    Left = 328
    Top = 256
    Width = 145
    Height = 28
    ForeColor = clBlue
    Progress = 0
    Visible = False
  end
  object FileList: TFileListBox
    Left = 160
    Top = 0
    Width = 160
    Height = 297
    Hint = 'Vyber suboru'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    ParentShowHint = False
    ShowGlyphs = True
    ShowHint = True
    TabOrder = 2
    OnChange = FileListChange
  end
  object RightPanel: TPanel
    Left = 480
    Top = 0
    Width = 160
    Height = 330
    Hint = 'Inform�cie o s�bore'
    Align = alRight
    BevelInner = bvRaised
    BevelOuter = bvLowered
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 48
      Height = 13
      Caption = 'File name:'
      WordWrap = True
    end
    object Label2: TLabel
      Left = 16
      Top = 48
      Width = 40
      Height = 13
      Caption = 'File size:'
    end
    object Label3: TLabel
      Left = 17
      Top = 72
      Width = 39
      Height = 13
      Caption = 'Charset:'
    end
    object SCR_FileName: TLabel
      Left = 64
      Top = 24
      Width = 36
      Height = 13
      Caption = '[ none ]'
    end
    object SCR_FileSize: TLabel
      Left = 64
      Top = 48
      Width = 3
      Height = 13
    end
    object SCR_Charset: TLabel
      Left = 64
      Top = 72
      Width = 44
      Height = 13
      Caption = 'unknown'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Version: TLabel
      Left = 96
      Top = 312
      Width = 56
      Height = 13
      Caption = 'Version: 0.7'
    end
    object w1250: TLabel
      Left = 16
      Top = 112
      Width = 129
      Height = 177
      Alignment = taCenter
      AutoSize = False
      Caption =
        'Kodovanie WINDOWS-1250 je pouzivane pod operacnym systemom WINDO' +
        'WS a maju s nim problemy najma uzivatelia ozajstnych operacnych ' +
        'systemov ako UNIX a LINUX. Odporucane kodovanie je ISO-8859-2.'
      Visible = False
      WordWrap = True
    end
    object iso88592: TLabel
      Left = 16
      Top = 128
      Width = 129
      Height = 97
      Alignment = taCenter
      AutoSize = False
      Caption =
        'Kodovanie ISO-8859-2 je pouzivane operacnymi systemami ako UNIX,' +
        ' LINUX a dalsimi, pretoze je to skutocny standard. Toto kodovani' +
        'e pozna aj WINDOWS.'
      Visible = False
      WordWrap = True
    end
    object dwd_image: TImage
      Left = 72
      Top = 280
      Width = 89
      Height = 33
      Cursor = crHelp
      Hint = 'http://xoom.members.com/dwd'
      ParentShowHint = False
      Picture.Data = {<image001.bmp>}
      ShowHint = True
      OnClick = dwd_imageClick
    end
  end
  object DirectoryListBox: TDirectoryListBox
    Left = 0
    Top = 0
    Width = 160
    Height = 297
    Hint = 'Vyber adresara'
    DirLabel = dir
    FileList = FileList
    ItemHeight = 16
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnChange = DirectoryListBoxChange
  end
  object DriveComboBox: TDriveComboBox
    Left = 320
    Top = 0
    Width = 160
    Height = 19
    Hint = 'Vyber disku'
    DirList = DirectoryListBox
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
  end
  object dir_panel: TPanel
    Left = 0
    Top = 296
    Width = 321
    Height = 33
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 6
    object dir: TLabel
      Left = 8
      Top = 10
      Width = 305
      Height = 13
      AutoSize = False
      Caption = 'D:\WORK\Delphi 3\DuDDo\DWD Char'
    end
  end
  object win_button: TRadioButton
    Left = 328
    Top = 56
    Width = 113
    Height = 17
    Hint = 'Vyber kodovania'
    Caption = 'windows-1250'
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
  end
  object iso_button: TRadioButton
    Left = 328
    Top = 88
    Width = 145
    Height = 17
    Hint = 'Vyber kodovania'
    Caption = 'ISO-8859-2 ( ISO Latin 2 )'
    Checked = True
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    TabStop = True
  end
  object BitBtn1: TBitBtn
    Left = 360
    Top = 296
    Width = 83
    Height = 25
    Hint = 'Ukonci program'
    Caption = '&Exit'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = BitBtn1Click
    Kind = bkClose
  end
end