home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / TODO / MAIN.dfm / MAIN.txt < prev   
Text File  |  1998-03-05  |  9KB  |  318 lines
  1. object MainForm: TMainForm
  2.   Left = 241
  3.   Top = 179
  4.   BorderStyle = bsSingle
  5.   Caption = 'To Do List'
  6.   ClientHeight = 251
  7.   ClientWidth = 474
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   Icon.Data = {<image000.ico>}
  14.   KeyPreview = True
  15.   Menu = MainMenu1
  16.   Position = poScreenCenter
  17.   OnCloseQuery = FormCloseQuery
  18.   OnCreate = FormCreate
  19.   OnDestroy = FormDestroy
  20.   PixelsPerInch = 96
  21.   TextHeight = 16
  22.   object SrcLabel: TLabel
  23.     Left = 8
  24.     Top = 8
  25.     Width = 145
  26.     Height = 16
  27.     AutoSize = False
  28.     Caption = 'To Do'
  29.     Font.Charset = DEFAULT_CHARSET
  30.     Font.Color = clBlack
  31.     Font.Height = -11
  32.     Font.Name = 'MS Sans Serif'
  33.     Font.Style = [fsBold]
  34.     ParentFont = False
  35.     IsControl = True
  36.   end
  37.   object DstLabel: TLabel
  38.     Left = 264
  39.     Top = 8
  40.     Width = 145
  41.     Height = 16
  42.     AutoSize = False
  43.     Caption = 'Done'
  44.     Font.Charset = DEFAULT_CHARSET
  45.     Font.Color = clBlack
  46.     Font.Height = -11
  47.     Font.Name = 'MS Sans Serif'
  48.     Font.Style = [fsBold]
  49.     ParentFont = False
  50.     IsControl = True
  51.   end
  52.   object IncludeBtn: TSpeedButton
  53.     Left = 224
  54.     Top = 40
  55.     Width = 24
  56.     Height = 24
  57.     Caption = '>'
  58.     Font.Charset = DEFAULT_CHARSET
  59.     Font.Color = clBlack
  60.     Font.Height = -11
  61.     Font.Name = 'MS Sans Serif'
  62.     Font.Style = [fsBold]
  63.     ParentFont = False
  64.     OnClick = IncludeBtnClick
  65.     IsControl = True
  66.   end
  67.   object IncAllBtn: TSpeedButton
  68.     Left = 224
  69.     Top = 72
  70.     Width = 24
  71.     Height = 24
  72.     Caption = '>>'
  73.     Font.Charset = DEFAULT_CHARSET
  74.     Font.Color = clBlack
  75.     Font.Height = -11
  76.     Font.Name = 'MS Sans Serif'
  77.     Font.Style = [fsBold]
  78.     ParentFont = False
  79.     OnClick = IncAllBtnClick
  80.     IsControl = True
  81.   end
  82.   object ExcludeBtn: TSpeedButton
  83.     Left = 224
  84.     Top = 104
  85.     Width = 24
  86.     Height = 24
  87.     Caption = '<'
  88.     Enabled = False
  89.     Font.Charset = DEFAULT_CHARSET
  90.     Font.Color = clBlack
  91.     Font.Height = -11
  92.     Font.Name = 'MS Sans Serif'
  93.     Font.Style = [fsBold]
  94.     ParentFont = False
  95.     OnClick = ExcludeBtnClick
  96.     IsControl = True
  97.   end
  98.   object ExAllBtn: TSpeedButton
  99.     Left = 224
  100.     Top = 136
  101.     Width = 24
  102.     Height = 24
  103.     Caption = '<<'
  104.     Enabled = False
  105.     Font.Charset = DEFAULT_CHARSET
  106.     Font.Color = clBlack
  107.     Font.Height = -11
  108.     Font.Name = 'MS Sans Serif'
  109.     Font.Style = [fsBold]
  110.     ParentFont = False
  111.     OnClick = ExcAllBtnClick
  112.     IsControl = True
  113.   end
  114.   object SrcList: TListBox
  115.     Left = 8
  116.     Top = 24
  117.     Width = 201
  118.     Height = 169
  119.     Font.Charset = DEFAULT_CHARSET
  120.     Font.Color = clBlack
  121.     Font.Height = -11
  122.     Font.Name = 'MS Sans Serif'
  123.     Font.Style = [fsBold]
  124.     ItemHeight = 13
  125.     MultiSelect = True
  126.     ParentFont = False
  127.     Sorted = True
  128.     TabOrder = 0
  129.     IsControl = True
  130.   end
  131.   object DstList: TListBox
  132.     Left = 264
  133.     Top = 24
  134.     Width = 200
  135.     Height = 169
  136.     Font.Charset = DEFAULT_CHARSET
  137.     Font.Color = clBlack
  138.     Font.Height = -11
  139.     Font.Name = 'MS Sans Serif'
  140.     Font.Style = [fsBold]
  141.     ItemHeight = 13
  142.     MultiSelect = True
  143.     ParentFont = False
  144.     Sorted = True
  145.     TabOrder = 1
  146.     IsControl = True
  147.   end
  148.   object CloseBitBtn: TBitBtn
  149.     Left = 376
  150.     Top = 208
  151.     Width = 89
  152.     Height = 33
  153.     Caption = 'E&xit'
  154.     TabOrder = 5
  155.     OnClick = FileExitClick
  156.     Kind = bkClose
  157.   end
  158.   object AddBitBtn: TBitBtn
  159.     Left = 8
  160.     Top = 208
  161.     Width = 89
  162.     Height = 33
  163.     Caption = '&Add'
  164.     Default = True
  165.     TabOrder = 2
  166.     OnClick = AddBitBtnClick
  167.     Glyph.Data = {
  168.       76010000424D7601000000000000760000002800000020000000100000000100
  169.       04000000000000010000130B0000130B00001000000000000000000000000000
  170.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  171.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  172.       33333333FF33333333FF333993333333300033377F3333333777333993333333
  173.       300033F77FFF3333377739999993333333333777777F3333333F399999933333
  174.       33003777777333333377333993333333330033377F3333333377333993333333
  175.       3333333773333333333F333333333333330033333333F33333773333333C3333
  176.       330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
  177.       993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
  178.       333333333337733333FF3333333C333330003333333733333777333333333333
  179.       3000333333333333377733333333333333333333333333333333}
  180.     NumGlyphs = 2
  181.   end
  182.   object EditBitBtn: TBitBtn
  183.     Left = 104
  184.     Top = 208
  185.     Width = 89
  186.     Height = 33
  187.     Caption = '&Edit'
  188.     TabOrder = 3
  189.     OnClick = EditBitBtnClick
  190.     Glyph.Data = {
  191.       76010000424D7601000000000000760000002800000020000000100000000100
  192.       04000000000000010000120B0000120B00001000000000000000000000000000
  193.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  194.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
  195.       000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
  196.       00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
  197.       F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
  198.       0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
  199.       FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
  200.       FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
  201.       0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
  202.       00333377737FFFFF773333303300000003333337337777777333}
  203.     NumGlyphs = 2
  204.   end
  205.   object DeleteBitBtn: TBitBtn
  206.     Left = 200
  207.     Top = 208
  208.     Width = 89
  209.     Height = 33
  210.     Caption = '&Delete'
  211.     TabOrder = 4
  212.     OnClick = DeleteBitBtnClick
  213.     Glyph.Data = {
  214.       76010000424D7601000000000000760000002800000020000000100000000100
  215.       04000000000000010000130B0000130B00001000000000000000000000000000
  216.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  217.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  218.       333333333333333333FF33333333333330003333333333333777333333333333
  219.       300033FFFFFF3333377739999993333333333777777F3333333F399999933333
  220.       3300377777733333337733333333333333003333333333333377333333333333
  221.       3333333333333333333F333333333333330033333F33333333773333C3333333
  222.       330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
  223.       993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
  224.       333333377F33333333FF3333C333333330003333733333333777333333333333
  225.       3000333333333333377733333333333333333333333333333333}
  226.     NumGlyphs = 2
  227.   end
  228.   object MainMenu1: TMainMenu
  229.     Left = 40
  230.     Top = 88
  231.     object FileMenu: TMenuItem
  232.       Caption = '&File'
  233.       OnClick = FileMenuClick
  234.       object FileNew: TMenuItem
  235.         Caption = '&New'
  236.         OnClick = FileNewClick
  237.       end
  238.       object FileOpen: TMenuItem
  239.         Caption = '&Open...'
  240.         OnClick = FileOpenClick
  241.       end
  242.       object FileSave: TMenuItem
  243.         Caption = '&Save'
  244.         OnClick = FileSaveClick
  245.       end
  246.       object FileSaveAs: TMenuItem
  247.         Caption = 'Save &as...'
  248.         OnClick = FileSaveAsClick
  249.       end
  250.       object N1: TMenuItem
  251.         Caption = '-'
  252.       end
  253.       object FilePrint: TMenuItem
  254.         Caption = '&Print...'
  255.         OnClick = FilePrintClick
  256.       end
  257.       object FilePrinterSetup: TMenuItem
  258.         Caption = 'Printer set&up...'
  259.         OnClick = FilePrinterSetupClick
  260.       end
  261.       object N2: TMenuItem
  262.         Caption = '-'
  263.       end
  264.       object FileExit: TMenuItem
  265.         Caption = 'E&xit'
  266.         ShortCut = 32856
  267.         OnClick = FileExitClick
  268.       end
  269.     end
  270.     object EditMenu: TMenuItem
  271.       Caption = '&Edit'
  272.       OnClick = EditMenuClick
  273.       object EditUndo: TMenuItem
  274.         Caption = '&Undo delete'
  275.         ShortCut = 16474
  276.         OnClick = EditUndoClick
  277.       end
  278.       object EditDelete: TMenuItem
  279.         Caption = '&Delete'
  280.         ShortCut = 46
  281.         OnClick = EditDeleteClick
  282.       end
  283.     end
  284.     object HelpMenu: TMenuItem
  285.       Caption = '&Help'
  286.       object HelpAbout: TMenuItem
  287.         Caption = '&About..'
  288.         OnClick = HelpAboutClick
  289.       end
  290.     end
  291.   end
  292.   object FileOpenDialog: TOpenDialog
  293.     Filter = 
  294.       'Todo files (*.tdo)|*.tdo|Text files (*.txt